restart:with(plots):with(plottools):

jake_r

Nations

greensquare3 := plot ([[0,0],[0,100],[50,100],[50,0],[0,0]], color=green, filled=true,scaling=constrained):

redsquare3 := plot ([[150,0],[150,100],[100,100],[100,0],[150,0]], color=red, filled=true,scaling=constrained):

ital1:=display([greensquare3,redsquare3]):

greenblue1:= plot ([[0,0],[0,100],[50,100],[50,0],[0,0]], color=teal, filled=true,scaling=constrained):

bluesquare3 := plot ([[0,0],[0,100],[50,100],[50,0],[0,0]], color=blue, filled=true,scaling=constrained):

ital2:=display([greenblue1,redsquare3]):

franc1:=display([bluesquare3,redsquare3]):

redsquare01 := plot ([[150,0],[150,75],[50,75],[50,0],[150,0]], color=red, filled=true,scaling=constrained):

redsquare02 := plot ([[0,0],[0,50],[150,50],[150,0],[0,0]], color=red, filled=true,scaling=constrained):

greensquare01 := plot ([[0,0],[0,100],[25,100],[25,0],[0,0]], color=green, filled=true,scaling=constrained):

poltal02:=display([greensquare01,redsquare01]):

polen1:=display([redsquare02]):

bluesquare4 := plot ([[0,0],[0,100],[100,100],[100,0],[0,0]], color=blue, filled=true,scaling=constrained):

bluesquareful := polygon ([[0,0],[0,100],[150,100],[150,0],[0,0]], color=blue, filled=true,scaling=constrained, style=polygon, transparency=0.4):

scotx := polygon ([[0,0],[10,0],[75,40],[140,0],[150,0],[150,10],[85,50],[150,90],[150,100],[140,100],[75,60],[10,100],[0,100],[0,90],[65,50],[0,10]], color=white, filled=true,scaling=constrained,transparency=0,style=polygon):

franc002:=display([bluesquare4,redsquare3]):

franc003:=display([bluesquareful]):

scot1:=display([scotx,bluesquareful]):

briish1:=plot ([[0,55],[0,45],[70,45],[70,0],[80,0],[80,45],[150,45],[150,55],[80,55],[80,100],[70,100],[70,55],[0,55]], color=red, filled=true,scaling=constrained,transparency=0):

briish2:=plot ([[0,60],[0,40],[65,40],[65,0],[85,0],[85,40],[150,40],[150,60],[85,60],[85,100],[65,100],[65,60],[0,60]], color=white, filled=true,scaling=constrained,transparency=0):

brit1:=display([briish1,briish2,scotx,bluesquareful]):

briish02:=plot ([[0,60],[0,40],[65,40],[65,0],[85,0],[85,40],[150,40],[150,60],[85,60],[85,100],[65,100],[65,60],[0,60]], color=white, filled=true,scaling=constrained):

briish01:=plot ([[0,55],[0,45],[70,45],[70,0],[80,0],[80,45],[150,45],[150,55],[80,55],[80,100],[70,100],[70,55],[0,55]], color=red, filled=true,scaling=constrained,transparency=0.5):

brit2:=display([briish01,briish02,scotx,bluesquareful]):

prescotx := polygon ([[0,0],[10,0],[75,40],[140,0],[150,0],[150,10],[85,50],[150,90],[150,100],[140,100],[75,60],[10,100],[0,100],[0,90],[65,50],[0,10]], color=white, filled=true,scaling=constrained,transparency=0.5,style=polygon):

scot0:=display([prescotx,bluesquareful]):

Nireland1:=polygon ([[0,100],[5,100],[150,5],[150,0],[145,0],[0,95]], color=pink, filled=true,scaling=constrained,transparency=0,style=polygon):

Nireland01:=polygon ([[150,100],[145,100],[0,5],[0,0],[5,0],[150,95]], color=pink, filled=true,scaling=constrained,transparency=0,style=polygon):

Nireland2:=polygon ([[0,100],[5,100],[150,5],[150,0],[145,0],[0,95]], color=red, filled=true,scaling=constrained,transparency=0,style=polygon):

Nireland02:=polygon ([[150,100],[145,100],[0,5],[0,0],[5,0],[150,95]], color=red, filled=true,scaling=constrained,transparency=0,style=polygon):

brit02:=display([briish1,briish2,Nireland1,Nireland01,scotx,bluesquareful]):

brit3:=display([briish1,briish2,Nireland2,Nireland02,scotx,bluesquareful]):

brit4:=display([briish1,briish2,Nireland1,Nireland01,prescotx,bluesquareful]):

brit5:=display([briish1,briish2,bluesquareful]):

briish002:=plot ([[0,60],[0,40],[55,40],[55,0],[75,0],[75,40],[150,40],[150,60],[75,60],[75,100],[55,100],[55,60],[0,60]], color=white, filled=true,scaling=constrained,transparency=0):

briish001:=plot ([[0,55],[0,45],[60,45],[60,0],[70,0],[70,45],[150,45],[150,55],[70,55],[70,100],[60,100],[60,55],[0,55]], color=red, filled=true,scaling=constrained,transparency=0):

brittest:=display([briish001,briish002]):

briish004:=plot ([[0,60],[0,40],[45,40],[45,0],[65,0],[65,40],[150,40],[150,60],[65,60],[65,100],[45,100],[45,60],[0,60]], color=white, filled=true,scaling=constrained,transparency=0):

briish003:=plot ([[0,55],[0,45],[50,45],[50,0],[60,0],[60,45],[150,45],[150,55],[60,55],[60,100],[50,100],[50,55],[0,55]], color=red, filled=true,scaling=constrained,transparency=0):

brit6:=display([briish001,briish002,bluesquareful]):

ice1:=display([briish003,briish004,bluesquareful]):

nordS1:=plot ([[0,55],[0,45],[50,45],[50,0],[60,0],[60,45],[150,45],[150,55],[60,55],[60,100],[50,100],[50,55],[0,55]], color=red, filled=true,scaling=constrained,transparency=.5):

ice2:=display([nordS1,briish004,bluesquareful]):

ice3:=display([briish004,bluesquareful]):

preswed:=plot ([[0,60],[0,40],[45,40],[45,0],[65,0],[65,40],[150,40],[150,60],[65,60],[65,100],[45,100],[45,60],[0,60]], color=yellow, filled=true,scaling=constrained,transparency=0.6):

swed:=plot ([[0,60],[0,40],[45,40],[45,0],[65,0],[65,40],[150,40],[150,60],[65,60],[65,100],[45,100],[45,60],[0,60]], color=yellow, filled=true,scaling=constrained,transparency=0):

pickeledherringisgood:=plot([[0,1],[1,0]], color=blue) :

preswed2:=plot ([[0,60],[0,40],[45,40],[45,0],[65,0],[65,40],[150,40],[150,60],[65,60],[65,100],[45,100],[45,60],[0,60]], color=yellow, filled=true,scaling=constrained,transparency=0.4):

ice4:=display([preswed,briish004,bluesquareful]):

ice5:=display([preswed2,briish004,bluesquareful]):

sweed1:=display([swed,bluesquareful]):

smallnord1:=plot ([[0,55],[0,45],[50,45],[50,0],[60,0],[60,45],[150,45],[150,55],[60,55],[60,100],[50,100],[50,55],[0,55]], color=white, filled=true,scaling=constrained,transparency=0):

smallestnord1:=plot ([[0,50],[150,50]], color=white,scaling=constrained,transparency=0):

smallestnord2:=plot ([[55,0],[55,100]], color=white,scaling=constrained,transparency=0):

sweed2:=display([smallnord1,bluesquareful]):

sweed3:=display([smallestnord1,smallestnord2,bluesquareful]):

prefin:=plot ([[0,70],[0,30],[35,30],[35,0],[75,0],[75,30],[150,30],[150,70],[75,70],[75,100],[35,100],[35,70],[0,70]], color=blue, filled=true,scaling=constrained,transparency=0.3):

fin1:=plot ([[0,60],[0,40],[45,40],[45,0],[65,0],[65,40],[150,40],[150,60],[65,60],[65,100],[45,100],[45,60],[0,60]], color=blue, filled=true,scaling=constrained,transparency=0):

redsquareful := polygon ([[0,0],[0,100],[150,100],[150,0],[0,0]], color=red, filled=true,scaling=constrained, transparency=0,style=polygon):

BIGnord1:=plot ([[0,70],[0,30],[35,30],[35,0],[75,0],[75,30],[150,30],[150,70],[75,70],[75,100],[35,100],[35,70],[0,70]], color=white, filled=true,scaling=constrained,transparency=0):

smallnord2:=plot ([[0,55],[0,45],[50,45],[50,0],[60,0],[60,45],[150,45],[150,55],[60,55],[60,100],[50,100],[50,55],[0,55]], color=blue, filled=true,scaling=constrained,transparency=0):

finlan1:=display([smallnord2,BIGnord1,redsquareful]):

norway1:=plot ([[0,60],[0,40],[45,40],[45,0],[65,0],[65,40],[150,40],[150,60],[65,60],[65,100],[45,100],[45,60],[0,60]], color=white, filled=true,scaling=constrained,transparency=0):

finlan2:=display([smallnord2,norway1,redsquareful]):

smallestnord3:=plot ([[0,50],[150,50]], color=blue,scaling=constrained,transparency=0):

smallestnord4:=plot ([[55,0],[55,100]], color=blue,scaling=constrained,transparency=0):

finlan3:=display([smallestnord3,smallestnord4,norway1,redsquareful]):

den1:=display([norway1,redsquareful]):

lat1:=plot ([[0,60],[0,40],[50,40],[50,0],[60,0],[60,40],[150,40],[150,60],[60,60],[60,100],[50,100],[50,60],[0,60]], color=white, filled=true,scaling=constrained,transparency=0):

latblen1 := plot ([[0,0],[0,100],[150,100],[150,0],[0,0]], color=gray, filled=true,scaling=constrained,transparency=0.7):

lat2:=plot ([[0,60],[0,40],[150,40],[150,60],[0,60]], color=white, filled=true,scaling=constrained,transparency=0):

smallestnord5:=plot ([[55,0],[55,100]], color=white,scaling=constrained,transparency=0):

latblen2 := plot ([[0,0],[0,100],[150,100],[150,0],[0,0]], color=gray, filled=true,scaling=constrained):

den2:=display([lat1,latblen1,redsquareful]):

den3:=display([smallestnord5,lat2,latblen1,redsquareful]):

latvia:=display([lat2,latblen2,redsquareful]):

preaust:=plot ([[0,64],[0,36],[150,36],[150,64],[0,64]], color=white, filled=true,scaling=constrained,transparency=0):

aust1:=plot ([[0,66.7],[0,33.3],[150,33.3],[150,66.7],[0,66.7]], color=white, filled=true,scaling=constrained,transparency=0):

aust01:=display([preaust,latblen1,redsquareful]):

aust02:=display([aust1,redsquareful]):

RIPaustriahungary1:=plot ([[150,0],[150,33.3],[125,33.3],[125,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

austriahungary1:=plot ([[150,0],[150,33.3],[125,33.3],[125,0],[150,0]], color=black, filled=true,scaling=constrained,transparency=.7):

RIPaustriahungary2:=plot ([[150,0],[150,33.3],[100,33.3],[100,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

austriahungary2:=plot ([[150,0],[150,33.3],[100,33.3],[100,0],[100,0]], color=black, filled=true,scaling=constrained,transparency=.7):

RIPaustriahungary3:=plot ([[150,0],[150,33.3],[75,33.3],[75,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

austriahungary3:=plot ([[150,0],[150,33.3],[75,33.3],[75,0],[100,0]], color=black, filled=true,scaling=constrained,transparency=.7):

RIPaustriahungary4:=plot ([[150,0],[150,33.3],[50,33.3],[50,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

austriahungary4:=plot ([[150,0],[150,33.3],[50,33.3],[50,0],[100,0]], color=black, filled=true,scaling=constrained,transparency=.7):

RIPaustriahungary5:=plot ([[150,0],[150,33.3],[25,33.3],[25,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

austriahungary5:=plot ([[150,0],[150,33.3],[25,33.3],[25,0],[100,0]], color=black, filled=true,scaling=constrained,transparency=.7):

hungary1:=plot ([[150,0],[150,33.3],[0,33.3],[0,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

hungary01:=plot ([[150,0],[150,33.3],[0,33.3],[0,0],[100,0]], color=black, filled=true,scaling=constrained,transparency=.7):

aust03:=display([austriahungary1,RIPaustriahungary1,aust1,redsquareful]):

aust04:=display([austriahungary2,RIPaustriahungary2,aust1,redsquareful]):

aust05:=display([austriahungary3,RIPaustriahungary3,aust1,redsquareful]):

aust06:=display([austriahungary4,RIPaustriahungary4,aust1,redsquareful]):

aust07:=display([austriahungary5,RIPaustriahungary5,aust1,redsquareful]):

hungar1:=display([hungary01,hungary1,aust1,redsquareful]):

preindia := plot ([[0,0],[0,100],[150,100],[150,0],[0,0]], color=yellow, filled=true,scaling=constrained, transparency=0.75):

hungar2:=display([hungary01,hungary1,aust1,preindia,redsquareful]):

india1 := plot ([[0,0],[0,100],[150,100],[150,0],[0,0]], color=yellow, filled=true,scaling=constrained, transparency=0.5):

india01:=display([hungary01,hungary1,aust1,india1,redsquareful]):

indiaC:=disk([75,50],10, color=blue):

indiaCS:=disk([75,50],8, color=white):

indiaS1:= plot ([[75,41],[75,59]], color=blue, filled=true,scaling=constrained, transparency=0):

indiaS2:= plot ([[84,50],[66,50]], color=blue,scaling=constrained, transparency=0):

india02:=display([indiaS1,indiaS2,indiaCS,indiaC,hungary01,hungary1,aust1,india1,redsquareful]):

indiaC2:=disk([75,50],10, color=blue,transparency=0.5):

indiaCS2:=disk([75,50],8, color=white, transparency=0.5):

indiaS01:= plot ([[75,41],[75,59]], color=blue, filled=true,scaling=constrained, transparency=0.5):

indiaS0:= plot ([[84,50],[66,50]], color=blue,scaling=constrained, transparency=0.5):

india03:=display([indiaS01,indiaS0,indiaCS2,indiaC2,hungary01,hungary1,aust1,india1,redsquareful]):

river1:=disk([75,50],10, color=yellow, transparency=0.5, style=polygon):

river2:=disk([75,50],10, color=red, transparency=0.5, style=polygon):

river01:=display([river1,river2,hungary01,hungary1,aust1,india1,redsquareful]):

river3:=disk([75,50],10, color=yellow, transparency=0.5, style=polygon):

river4:=disk([75,50],10, color=red, transparency=0, style=polygon):

river02:=display([river3,river4,hungary01,hungary1,aust1,india1,redsquareful]):

ivr1:=plot ([[0,100],[50,100],[50,66.7],[0,66.7],[0,100]], color=red, filled=true,scaling=constrained,transparency=0):

ivr01:=plot ([[0,100],[50,100],[50,66.7],[0,66.7],[0,100]], color=yellow, filled=true,scaling=constrained,transparency=.5):

ivr2:=plot ([[0,100],[75,100],[75,66.7],[0,66.7],[0,100]], color=red, filled=true,scaling=constrained,transparency=0):

ivr02:=plot ([[0,100],[75,100],[75,66.7],[0,66.7],[0,100]], color=yellow, filled=true,scaling=constrained,transparency=.5):

ivr3:=plot ([[0,100],[100,100],[100,66.7],[0,66.7],[0,100]], color=red, filled=true,scaling=constrained,transparency=0):

ivr03:=plot ([[0,100],[100,100],[100,66.7],[0,66.7],[0,100]], color=yellow, filled=true,scaling=constrained,transparency=.5):

ivr4:=plot ([[0,100],[125,100],[125,66.7],[0,66.7],[0,100]], color=red, filled=true,scaling=constrained,transparency=0):

ivr04:=plot ([[0,100],[125,100],[125,66.7],[0,66.7],[0,100]], color=yellow, filled=true,scaling=constrained,transparency=.5):

p1:=display([ivr04,ivr4,austriahungary5,RIPaustriahungary5]):

p2:=display([ivr03,ivr3,austriahungary4,RIPaustriahungary4]):

p3:=display([ivr02,ivr2,austriahungary3,RIPaustriahungary3]):

p4:=display([ivr01,ivr1,austriahungary2,RIPaustriahungary2]):

ivre1:=plot ([[0,100],[50,100],[50,33.3],[0,33.3],[0,100]], color=red, filled=true,scaling=constrained,transparency=0):

ivre01:=plot ([[0,100],[50,100],[50,33.3],[0,33.3],[0,100]], color=yellow, filled=true,scaling=constrained,transparency=.5):

ivre2:=plot ([[0,100],[50,100],[50,0],[0,0],[0,100]], color=red, filled=true,scaling=constrained,transparency=0):

ivre02:=plot ([[0,100],[50,100],[50,0],[0,0],[0,100]], color=yellow, filled=true,scaling=constrained,transparency=.5):

biver1:=plot ([[150,0],[150,66.7],[100,66.7],[100,0],[150,0]], color=black, filled=true,scaling=constrained,transparency=.7):

biver01:=plot ([[150,0],[150,66.7],[100,66.7],[100,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

biver2:=plot ([[150,0],[150,100],[100,100],[100,0],[150,0]], color=black, filled=true,scaling=constrained,transparency=.7):

biver02:=plot ([[150,0],[150,100],[100,100],[100,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

p6:=display([ivre01,ivre1,biver1,biver01]):

p7:=display([ivre02,ivre2,biver2,biver02]):

i1:=plot ([[150,0],[150,100],[125,100],[125,0],[150,0]], color=black, filled=true,scaling=constrained,transparency=.7):

i01:=plot ([[150,0],[150,100],[125,100],[125,0],[150,0]], color=green, filled=true,scaling=constrained,transparency=0):

i2:=plot ([[0,100],[25,100],[25,0],[0,0],[0,100]], color=red, filled=true,scaling=constrained,transparency=0):

i02:=plot ([[0,100],[25,100],[25,0],[0,0],[0,100]], color=yellow, filled=true,scaling=constrained,transparency=.5):

p8:=display([i1,i01,i02,i2]):

whitelol:=plot ([[0,0],[0,100],[150,100],[150,0],[0,0]], color=white, filled=true,scaling=constrained,transparency=1):

rus1:=plot ([[0,33],[0,67],[150,67],[150,33],[0,33]], color=blue, filled=true,scaling=constrained):

rus0:=plot ([[0,33],[0,67],[150,67],[150,33],[0,33]], color=blue, filled=true,scaling=constrained,transparency=0.7):

rus2:=plot ([[0,33],[0,0],[150,0],[150,33],[0,33]], color=red, filled=true,scaling=constrained):

rus3:=plot ([[0,33],[0,0],[150,0],[150,33],[0,33]], color=red, filled=true,scaling=constrained,transparency=0.7):

p9:=display([whitelol]):

p10:=display([rus0]):

p11:=display([rus1]):

bricol:=plot(sin(x/7)+40,x=0..150,y=0..100,color=blue,thickness=15):

bricolb:=plot(sin(x/7)+25,x=0..150,y=0..100,color=blue,thickness=15):

bricolc:=plot(sin(x/7)+10,x=0..150,y=0..100,color=blue,thickness=15):

sun:=polygon ([[0,0],[20,5],[20,20],[40,15],[40,30],[60,20],[75,40],[90,20],[110,30],[110,15],[130,20],[130,5],[150,0]], color=yellow, filled=true,scaling=constrained):

p12:=display([rus1,rus3]):

p13:=display([rus1,rus2]):

p14:=display([rus0,rus3]):

ukraine1:=plot ([[0,50],[0,100],[150,100],[150,50],[0,50]], color=blue, filled=true,scaling=constrained):

preukraine1:=plot ([[0,50],[0,100],[150,100],[150,50],[0,50]], color=blue, filled=true,scaling=constrained, transparency=.7):

ukraine2:=plot ([[0,50],[0,0],[150,0],[150,50],[0,50]], color=yellow, filled=true,scaling=constrained):

preukraine2:=plot ([[0,50],[0,0],[150,0],[150,50],[0,50]], color=yellow, filled=true,scaling=constrained, transparency=.7):

p15:=display([preukraine1,preukraine2]):

p16:=display([ukraine1,ukraine2]):

thailand1:=plot ([[0,90],[0,100],[150,100],[150,90],[0,90]], color=red, filled=true,scaling=constrained, transparency=0):

prethailand1:=plot ([[0,90],[0,100],[150,100],[150,90],[0,90]], color=red, filled=true,scaling=constrained, transparency=0.5):

thailand2:=plot ([[0,20],[0,80],[150,80],[150,20],[0,20]], color=navy, filled=true,scaling=constrained, transparency=0):

prethailand2:=plot ([[0,20],[0,80],[150,80],[150,20],[0,20]], color=navy, filled=true,scaling=constrained, transparency=0.5):

prethailand3:=plot ([[0,0],[0,10],[150,10],[150,0],[0,0]], color=red, filled=true,scaling=constrained, transparency=0.5):

thailand3:=plot ([[0,0],[0,10],[150,10],[150,0],[0,0]], color=red, filled=true,scaling=constrained, transparency=0):

p17:=display([prethailand1]):

p18:=display([thailand1, prethailand2]):

p19:=display([thailand1,thailand2,prethailand3]):

p20:=display([thailand1,thailand2,thailand3]):

p21:=display([prethailand1,thailand2,thailand3]):

p22:=display([prethailand2,thailand3]):

p23:=display([prethailand3]):

sea1:=plot ([[150,0],[150,20],[120,0]], color=black, filled=true,scaling=constrained, transparency=0):

sea2:=plot ([[150,0],[150,40],[90,0]], color=black, filled=true,scaling=constrained, transparency=0):

sea3:=plot ([[150,0],[150,60],[60,0]], color=black, filled=true,scaling=constrained, transparency=0):

sea4:=plot ([[150,0],[150,80],[30,0]], color=black, filled=true,scaling=constrained, transparency=0):

sea5:=plot ([[0,0],[0,100],[150,100],[0,0]], color=red, filled=true,scaling=constrained, transparency=0.7):

sea6:=plot ([[0,0],[0,100],[150,100],[0,0]], color=red, filled=true,scaling=constrained, transparency=0.3):

sea7:=plot ([[0,0],[0,100],[150,100],[0,0]], color=red, filled=true,scaling=constrained, transparency=0):

p24:=display([sea1]):

p25:=display([sea2]):

p26:=display([sea3]):

p27:=display([sea4]):

p28:=display([sea5,sea4]):

p29:=display([sea6,sea4]):

p30:=display([sea7,sea4]):

p31:=display([sea7,sea3]):

p32:=display([sea7,sea2]):

p33:=display([sea6,sea1]):

p34:=display([sea5]):

phil1:=plot ([[0,0],[75,50],[150,50],[150,0],[0,0]], color=red, filled=true,scaling=constrained, transparency=0):

phil2:=plot ([[0,0],[75,50],[150,50],[150,0],[0,0]], color=red, filled=true,scaling=constrained, transparency=0.5):

phil01:=plot ([[0,100],[75,50],[150,50],[150,100],[0,100]], color=blue, filled=true,scaling=constrained, transparency=0):

phil02:=plot ([[0,100],[75,50],[150,50],[150,100],[0,100]], color=blue, filled=true,scaling=constrained, transparency=0.5):

islands:=disk([33,50],10, color=yellow, transparency=0.5, style=polygon):

p35:=display([phil2]):

p36:=display([phil1,phil02]):

p37:=display([phil1,phil01]):

p38:=display([phil1,phil01,islands]):

islands2:=disk([33,50],10, color=yellow, transparency=0, style=polygon):

p39:=display([phil1,phil01,islands2]):

greensquareful := plot ([[0,0],[0,100],[150,100],[150,0],[0,0]], color="DarkGreen", filled=true,scaling=constrained, style=polygon, transparency=0):

bang1:=disk([60,50],25, color=red, transparency=0, style=polygon):

greensquareful2 := plot ([[0,0],[0,100],[150,100],[150,0],[0,0]], color="DarkGreen", filled=true,scaling=constrained, style=polygon, transparency=0.5):

p44:=display([bang1,greensquareful]):

p40:=display([greensquareful2]):

bang2:=disk([60,50],25, color=red, transparency=0.5, style=polygon):

p41:=display([greensquareful]):

p42:=display([bang2,greensquareful]):

p43:=display([bang1,greensquareful]):

stan1:=disk([100,50],25, color=white, transparency=0.5, style=polygon):

stanB:=disk([105,55],25, color="DarkGreen", transparency=0, style=polygon):

stan2:=disk([100,50],25, color=white, transparency=0, style=polygon):

sweep1 := plot ([[0,0],[0,100],[25,100],[25,0],[0,0]], color=white, filled=true,scaling=constrained, style=polygon, transparency=0):

stanC1:=disk([120,70],2.5, color=white, transparency=0.5, style=polygon):

stanC2:=disk([120,70],2.5, color=white, transparency=0, style=polygon):

sweep2 := plot ([[0,0],[0,100],[50,100],[50,0],[0,0]], color=white, filled=true,scaling=constrained, style=polygon, transparency=0):

p45:=display([stanC1,stanB,stan1,sweep1,bang2,greensquareful]):

p46:=display([stanC2,stanB,stan2,sweep2,greensquareful]):

sweep3 := plot ([[0,0],[0,100],[75,100],[75,0],[0,0]], color=white, filled=true,scaling=constrained, style=polygon, transparency=0):

sweep4 := plot ([[0,0],[0,100],[100,100],[100,0],[0,0]], color=white, filled=true,scaling=constrained, style=polygon, transparency=0):

sweep5 := plot ([[0,0],[0,100],[125,100],[125,0],[0,0]], color=white, filled=true,scaling=constrained, style=polygon, transparency=0):

p47:=display([stanC2,stanB,stan2,sweep3,greensquareful]):

p48:=display([stanC2,sweep4,greensquareful]):

p49:=display([stanC2,sweep5,greensquareful]):

stripe1 := polygon ([[0,0],[150,0],[150,7.69],[0,7.69],[0,0]], color=red, filled=true,scaling=constrained, style=polygon, transparency=0):

stripe3:= polygon ([[0,30.46],[150,30.46],[150,38.45],[0,38.45],[0,0]], color=red, filled=true,scaling=constrained, style=polygon, transparency=0):

stripe2:= polygon ([[0,15.38],[150,15.38],[150,23.07],[0,23.07],[0,0]], color=red, filled=true,scaling=constrained, style=polygon, transparency=0):

stripe4:= polygon ([[0,46.14],[150,46.14],[150,53.83],[0,53.83],[0,0]], color=red, filled=true,scaling=constrained, style=polygon, transparency=0):

stripe5:= polygon ([[0,61.52],[150,61.52],[150,69.21],[0,69.21],[0,0]], color=red, filled=true,scaling=constrained, style=polygon, transparency=0):

stripe6:= polygon ([[0,76.9],[150,76.9],[150,84.59],[0,84.59],[0,0]], color=red, filled=true,scaling=constrained, style=polygon, transparency=0):

stripe7:= polygon ([[0,92.28],[150,92.28],[150,100],[0,100],[0,0]], color=red, filled=true,scaling=constrained, style=polygon, transparency=0):

McSquare1 := plot ([[0,46.14],[60,46.14],[60,100],[0,100],[0,46.14]], color=blue, filled=true,scaling=constrained,transparency=.75):

McSquare2 := plot ([[0,46.14],[60,46.14],[60,100],[0,100],[0,46.14]], color=blue, filled=true,scaling=constrained,transparency=.50):

McSquare3 := plot ([[0,46.14],[60,46.14],[60,100],[0,100],[0,46.14]], color=blue, filled=true,scaling=constrained,transparency=.25):

McSquare4 := plot ([[0,46.14],[60,46.14],[60,100],[0,100],[0,46.14]], color=blue, filled=true,scaling=constrained,transparency=0):

stars2:=textplot([30,75, "50x"],'font'=["comic","sans",75],color=white):

stars1:=textplot([30,75, "50x"],'font'=["comic","sans",75],color=white, transparency=0.5):

p54:=display([stars2,McSquare4,stripe1,stripe2,stripe3,stripe4,stripe5,stripe6,stripe7]):

bricol2:=plot(sin(x/7)+40,x=0..150,y=0..100,color=blue,thickness=15, transparency=0.5):

bricolb2:=plot(sin(x/7)+25,x=0..150,y=0..100,color=blue,thickness=15,transparency=0.5):

bricolc2:=plot(sin(x/7)+10,x=0..150,y=0..100,color=blue,thickness=15, transparency=0.5):

p56:=display([bricolc,bricolb2]):

sun2:=polygon ([[0,0],[20,5],[20,20],[40,15],[40,30],[60,20],[75,40],[90,20],[110,30],[110,15],[130,20],[130,5],[150,0]], color=yellow, filled=true,scaling=constrained, transparency=0.5):

p57:=display([bricolc,bricolb,bricol2]):

p58:=display([bricolc,bricolb,bricol]):

p99:=display([sun2,bricolc,bricolb,bricol]):

redS1:=polygon ([[0,100],[2.5,100],[150,52.5],[150,50],[147.5,50],[0,97.5]], color=pink, filled=true,scaling=constrained,transparency=0,style=polygon):

redS01:=polygon ([[150,100],[147.5,100],[0,52.5],[0,50],[2.5,50],[150,97.5]], color=pink, filled=true,scaling=constrained,transparency=0,style=polygon):

redS2:=polygon ([[0,100],[2.5,100],[150,52.5],[150,50],[147.5,50],[0,97.5]], color=red, filled=true,scaling=constrained,transparency=0,style=polygon):

redS02:=polygon ([[150,100],[147.5,100],[0,52.5],[0,50],[2.5,50],[150,97.5]], color=red, filled=true,scaling=constrained,transparency=0,style=polygon):

whiteS2 := polygon ([[0,50],[5,50],[75,70],[145,50],[150,50],[150,55],[80,75],[150,95],[150,100],[145,100],[75,80],[5,100],[0,100],[0,95],[70,75],[0,55]], color=white, filled=true,scaling=constrained,transparency=0,style=polygon):

whiteS1 := polygon([[0,50],[5,50],[75,70],[145,50],[150,50],[150,55],[80,75],[150,95],[150,100],[145,100],[75,80],[5,100],[0,100],[0,95],[70,75],[0,55]], color=white, filled=true,scaling=constrained,transparency=0.5,style=polygon):

redL1:=plot ([[0,77.5],[0,72.5],[70,72.5],[70,50],[80,50],[80,72.5],[150,72.5],[150,77.5],[80,77.5],[80,100],[70,100],[70,77.5],[0,77.5]], color=pink, filled=true,scaling=constrained,transparency=0):

redL2:=plot ([[0,77.5],[0,72.5],[70,72.5],[70,50],[80,50],[80,72.5],[150,72.5],[150,77.5],[80,77.5],[80,100],[70,100],[70,77.5],[0,77.5]], color=red, filled=true,scaling=constrained,transparency=0):

whiteL1:=plot ([[0,80],[0,70],[60,70],[60,50],[90,50],[90,70],[150,70],[150,80],[90,80],[90,100],[60,100],[60,80],[0,80]], color=white, filled=true,scaling=constrained,transparency=0.5):

whiteL2:=plot ([[0,80],[0,70],[60,70],[60,50],[90,50],[90,70],[150,70],[150,80],[90,80],[90,100],[60,100],[60,80],[0,80]], color=white, filled=true,scaling=constrained,transparency=0):

p50:=display([McSquare1,stripe1,stripe7]):

p51:=display([McSquare2,stripe1,stripe2,stripe6,stripe7]):

p52:=display([McSquare3,stripe1,stripe2,stripe3,stripe5,stripe6,stripe7]):

p53:=display([stars1,McSquare4,stripe1,stripe2,stripe3,stripe4,stripe5,stripe6,stripe7]):

p40:=display([greensquareful2]):

p59:=display([sun,bricolc,bricolb,bricol]):

bluesquarehaf1 := polygon ([[0,50],[0,100],[150,100],[150,50],[0,50]], color=blue, filled=true,scaling=constrained, style=polygon, transparency=0.5):

bluesquarehaf2 := polygon ([[0,50],[0,100],[150,100],[150,50],[0,50]], color=blue, filled=true,scaling=constrained, style=polygon, transparency=0):

p60:=display([bluesquarehaf1,sun,bricolc,bricolb,bricol]):

p61:=display([redS01,redS1,whiteS1,bluesquarehaf2,sun,bricolc,bricolb,bricol]):

p62:=display([redL1,whiteL1,redS02,redS2,whiteS2,bluesquarehaf2,sun,bricolc,bricolb,bricol]):

p63:=display([redL2,whiteL2,redS02,redS2,whiteS2,bluesquarehaf2,sun,bricolc,bricolb,bricol]):

crown:=textplot([75, 75, "W"],color=yellow,'font'=["comic","sans",20]):

polenend:= plot ([[0,0],[0,50],[150,50],[150,0],[0,0]], color=red, filled=true,scaling=constrained, style=polygon, transparency=0.7):

p65:=display([polenend]):

p64:=display([crown,redL2,whiteL2,redS02,redS2,whiteS2,bluesquarehaf2,sun,bricolc,bricolb,bricol]):

display([polen1,poltal02,ital1,ital2,franc1,franc002,bluesquareful,scot0,scot1,brit2,brit1,brit02,brit3,brit4,brit5,brit6,ice1,ice2,ice3,ice4,ice5,sweed1,sweed2,sweed3,prefin,fin1,finlan1,finlan2,finlan3,den1,den2,den3,latvia,aust01,aust02,aust03,aust04,aust05,aust06,aust07,hungar1, hungar2, india01, india03, india02, india03, river01, river02,river01, india01,p1,p2,p3,p4,p6,p7,p8,p9,p10,p12,p13,p14,p9,p15,p16,p15,p9,p17,p18,p19,p20,p21,p22,p23,p9,p24,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p9,p35,p36,p37,p38,p39,p38,p37,p36,p35,p9,p40,p41,p42,p43,p44,p45,p46,p47,p48,p49,p9,p50,p51,p52,p53,p54,p53,p52,p51,p50,p9,p56,p57,p58,p99,p59,p60,p61,p62,p63,p64,p63,p62,p61,p59,p99,p58,p57,p56,p9,p65], axes=none, insequence=true);

gq1speed 5