File talk:BlankMap-World-v5.png

coordinates for automated bucket-filling: the coordinates of the island states of the Pacific should be checked for accuracy (please remove this note if you did).

Afghanistan 820,210
Albania 639,179
Algeria 570,235
Andorra 567,171
Angola 630,420
Anguilla 303,285
Antigua and Barbuda 309,285
Argentina 310,510
Armenia 737,184
Australia 1100,480
Austria 618,148
Azerbaijan 745,180
Bahamas 242,251
Bahrain 764,245
Bangladesh 928,256
Barbados 318,303
Belarus 665,125
Belgium 582,136
Belize 196,282
Benin 569,316
Bhutan 924,240
Bolivia 290,440
Bosnia and Herzegovina 630,164
Botswana 655,465
Brazil 340,400
Brunei 1037,344
Bulgaria 655,170
Burkina Faso 550,305
Burundi 683,380
Cambodia 990,305
Cameroon 610,340
Canada 200,100
Cape Verde 468,295
Central African Republic 650,330
Chad 635,290
Chile 280,470
China 1000,200
Taiwan, 1052,257
Colombia 258,346
Comoros 740,422
Congo (Brazzaville) 625,365
Congo (Kinshasa) 660,380
Costa Rica 210,320
Côte d'Ivoire 535,330
Croatia 622,159
Cuba 240,267
Cyprus 692,206
Czech Republic 619,139
Denmark 599,114
Djibouti 736,312
Dominica 310,294
Dominican Republic 271,278
Ecuador 233,368
Egypt 675,240
El Salvador 194,301
Equatorial Guinea 604,357
Eritrea 717,292
Estonia 654,102
Ethiopia 720,325
Fiji 1290,446
Finland 655,80
France 575,155
French Guiana 338,346
Gabon 605,366
The Gambia 497,302
Georgia 730,175
Germany 600,135
Ghana 550,330
Greece 646,184
Greenland 450,40
Grenada 303,311
Guatemala 188,295
Guinea 515,315
Guinea-Bissau 498,309
Guyana 313,340
Haiti 264,277
Honduras 202,298
Hong Kong 1024,263
Hungary 635,150
Iceland 510,75
India 880,260
Indonesia 1035,370
Iran 775,215
Iraq 735,215
Ireland 535,125
Israel 699,224
Italy 611,169
Jamaica 241,282
Japan 1105,200
Jordan 708,223
Kazakhstan 800,150
Kenya 715,360
Kiribati 1284,359
North Korea 1050,180
South Korea 1060,200
Kuwait 750,230
Kyrgyzstan 850,175
Laos 980,275
Latvia 653,109
Lebanon 704,211
Lesotho 673,498
Liberia 520,335
Libya 630,240
Liechtenstein 602,151
Lithuania 650,115
Luxembourg 586,141
Macau 1018,265
Republic of Macedonia 644,176
Madagascar 750,450
Malawi 700,425
Malaysia 984,346
Maldives 860,342
Mali 550,280
Malta 617,203
Marshall Islands 1274,331
Mauritania 510,280
Mauritius 796,456
Mexico 150,260
Micronesia 1215,331
Moldova 670,152
Monaco 591,166
Mongolia 950,160
Morocco 535,220
Mozambique 715,430
Myanmar 955,270
Namibia 630,470
Nauru 1254,365
Nepal 900,235
Netherlands 585,130
New Caledonia (F) 1232,459
New Zealand 1240,540
Nicaragua 208,308
Niger 600,290
Nigeria 590,320
Niue (NZ) 1315,457
Norway 600,95
Oman 795,265
Pakistan 840,230
Palau 1118,331
Palestine 702,223
Panama 222,326
Papua New Guinea 1160,390
Paraguay 320,470
Peru 240,400
Philippines 1060,290
Poland 635,130
Portugal 530,190
Puerto Rico 285,281
Qatar 769,250
Romania 655,160
Russia 900,100
Rwanda 684,373
Saint Kitts and Nevis 310,285
Saint Lucia 309,301
Saint Vincent and the Grenadines 308,307
Samoa 1334,428
San Marino 606,164
São Tomé and Príncipe 591,359
Saudi Arabia 730,250
Senegal 500,295
Serbia and Montenegro 640,165
Seychelles 793,387
Sierra Leone 510,325
Singapore 292,357
Slovakia 635,144
Slovenia 618,156
Solomon Islands 1217,403
Somalia 760,320
South Africa 650,500
Spain 550,190
Sri Lanka 895,330
Sudan 680,300
Suriname 325,346
Swaziland 688,484
Sweden 615,100
Switzerland 593,153
Syria 710,205
Tajikistan 830,190
Tanzania 700,390
Thailand 977,294
East Timor 1081,404
Togo 563,325
Tonga 1315,457
Trinidad and Tobago 304,317
Tunisia 600,210
Turkey 700,190
Turkmenistan 790,185
Tuvalu 1302,409
Uganda 695,360
Ukraine 680,140
United Arab Emirates 781,256
United Kingdom 560,130
USA 170,190
Uruguay 340,510
Uzbekistan 800,170
Vanuatu 1250,438
Vatican 611,175
Venezuela 290,330
Vietnam 988,266
Western Sahara 505,255
Yemen 755,295
Zambia 666,425
Zimbabwe 680,450

GIMP script

first, you need a clean tab-separated list of the data you want to visualize. Do something like

cat buddhism_per_country.txt | perl -e 'while ($i=<>){if($i=~/ in ([^\t]+).+\t([\.\,\d]+)\%/){print "$1\t$2\n";}}' > buddh.txt

assuming that buddhism_per_country.txt contained the copy-pasted text of en:Buddhism by country, your buddh.txt now has the clean list.

The follwing is a simple perlscript to output the gimp script needed. You can pipe its output into

gimp -b -

to generate the map.

You need World-BW.png (the blank map, remember to convert it to RGB), the fu script writes the painted map to painted.png

#!/usr/bin/perl
@files=('hindu.txt','buddh.txt'); #these are the names of the files with the tab-separated data

open A, "country_coor.txt"; #this is the filename of the coordinate list pasted above
while($in=<A>){if($in=~/^(.+) (\d+),(\d+)/){$coor{$1}="$2 $3";}}
close A;

print "
(define img (car (file-png-load 0 \"World-BW.png\" \"World-BW.png\")))\n
  (define layer (car (gimp-image-get-active-layer img)))\n";

foreach $file (0..$#files){
open I,"$files[$file]";
while($i=<I>){
if($i=~/^([^\t]+)\t([\d\.\,]+)(\t([\d\.\,]+)|)/){
 $c=$1;
 $p=$2;
 $p2=$4;unless($p2){$p2=$p;}

 $c=~s/ +$//;
#here are some replacements to recognize variants of country names; I just added them as needed, this could of course be generalized into a decent subroutine. $c at the end needs to equal the country label in the coordinate list.
 if($c=~/Republic of China/){$c="China"}
 if($c=~/West Bank and Gaza/){$c="Palestine"}
 if($c=~/(FYR Mac|FYRoM)/){$c="Republic of Macedonia";}
 $c=~s/the ((Phili|Nether|United Arab).*)/$1/i;
 if($c=~/Korea, South/){$c="South Korea"};
 if($c=~/United States/){$c="USA"};
 if($c=~/Puerto Rico/){$c="Puerto Rico"};
 if($c=~/Vatican/){$c="Vatican";}
 if($c=~/United Kingdom/){$c="United Kingdom";}
 if($c=~/Argent/){$c="Argentina";}

 if($coor{$c}){
  $flag{$c}=1; #remembers if any data was found for country $c
  $color[$file]{$c}=int($p*2.55);
  if($p2){$color[$file+1]{$c}=int($p2*2.55);}

 }

}}
close I;
}

foreach $k (keys %coor){

if($flag{$k}){

#this is just an example colour scheme, painting the data from the first file green and that from the second file red. you need to fiddle with the formula for other colour schemes.
$col=(255-$color[0]{$k})." ".(255-$color[1]{$k})." ".(255-$color[0]{$k}-$color[1]{$k});

print"
\;$k
(gimp-context-set-foreground '($col))\n
(gimp-edit-bucket-fill layer FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE $coor{$k})\n";
}
}

print"\n
(file-png-save-defaults 1 img layer \"painted.png\" \"painted.png\")
";

This will output something like

 (define img (car (file-png-load 0 "World-BW.png" "World-BW.png")))
  (define layer (car (gimp-image-get-active-layer img)))
 
 ;Sweden
 (gimp-context-set-foreground '(185 177 108))
 (gimp-edit-bucket-fill layer FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 615 100)
 
 [etc...]
 
 (file-png-save-defaults 1 img layer "painted.png" "painted.png")

Channel Islands

The Channel Islands, I believe, are not part of the E.U. Should they be shown as "dots"? Jade Knight 01:13, 10 August 2006 (UTC)

I dont think so since the dots are only meant to show sovereign countries --Astrokey44 07:01, 17 August 2006 (UTC)

He's right, they're not part of the EU and nor is the Isle of Man. Neither the Isle of Man nor Channel Islands are fully sovereign countries but they should be includes in this world map because it is designed to be used for geopolitical maps and articles and in those cases it's obviously necessary to show differences - for example, the Isle of Man is frequently included in lists of GDP, GDP per capita, Sovereign Bond ratings (AAA, by the way) and countless other statistics which differ to the the UK's statistics. The same usually applies for the Falkland Islands which are also not part of the UK but, despite their location off the coast of South America, are more European that the CI or IOM because their citizens are automatically 'European Union citizens' whereas in the Channel Islands and Isle of Man only some citizens are citizens of the EU.--109.113.213.46 19:42, 13 August 2011 (UTC)

important

do not change image size, or the coordinates above will not work. Dbachmann 14:21, 10 October 2006 (UTC)

Falkland - Malvinas islands

The map need to show the Falkland islands, that are a not too small part of the world, is so big like the fireland island, or almost.--Pruxo (talk) 22:35, 5 November 2009 (UTC)