Le bandiere sono disegnate a partire dall’angolo in alto a sinistra [0,0] e con dimensioni fisse 600x400
Giappone
w =600
h =400
w2=w/2
h2=h/2
PENSIZE 2
PENUP
POSITION [w2,h2]
HEADING 0
PENDOWN
PENCOLOR “black” FILLCOLOR “white” RECTANGLE [w,h]
PENCOLOR “white” FILLCOLOR “red” CIRCLE h2
Italia
w=600
h=400
w2=w/2
w3=w/3
w_1=w2-w3
w_2=w2
w_3=w2+w3
h_2=h/2
PENUP
POSITION [w_1,h_2] HEADING 0 FILLCOLOR “green” RECTANGLE [w3, h]
POSITION [w_2,h_2] HEADING 0 FILLCOLOR “white” RECTANGLE [w3, h]
POSITION [w_3,h_2] HEADING 0 FILLCOLOR “red” RECTANGLE [w3, h]
Germania
w=600
h=400
w_2=w/2
h_2=h/2
h3=h/3
h_1=h_2-h3
h_3=h_2+h3
PENUP
POSITION [w_2,h_1] HEADING 0 FILLCOLOR “black” RECTANGLE [w,h3]
POSITION [w_2,h_2] HEADING 0 FILLCOLOR “red” RECTANGLE [w,h3]
POSITION [w_2,h_3] HEADING 0 FILLCOLOR “yellow” RECTANGLE [w,h3]
Grecia
w=600
h=400
w2=w/2
h2=h/2
h9=h/9
h5=5*h9
h_1=h9/2
h_2=h_1+h9
h_3=h_2+h9
h_4=h_3+h9
h_5=h_4+h9
h_6=h_5+h9
h_7=h_6+h9
h_8=h_7+h9
h_9=h_8+h9
PENUP
POSITION [w2,h2]
HEADING 0
PENDOWN
PENCOLOR “blue”
FILLCOLOR “white”
RECTANGLE [w,h]
PENUP
FILLCOLOR “blue”
POSITION [w2,h_1] HEADING 0 RECTANGLE [w,h9]
POSITION [w2,h_3] HEADING 0 RECTANGLE [w,h9]
POSITION [w2,h_5] HEADING 0 RECTANGLE [w,h9]
POSITION [w2,h_7] HEADING 0 RECTANGLE [w,h9]
POSITION [w2,h_9] HEADING 0 RECTANGLE [w,h9]
POSITION [h_3,h_3] HEADING 0 RECTANGLE [h5,h5]
FILLCOLOR “white”
POSITION [h_3,h_3] HEADING 0 RECTANGLE [h9,h5]
POSITION [h_3,h_3] HEADING 0 RECTANGLE [h5,h9]
Bahamas
w=600
h=400
h3=h/3
w_2=w/2
h_2=h/2
h_1=h_2-h3
h_3=h_2+h3
PENUP
POSITION [w_2, h_1] HEADING 0 FILLCOLOR “cyan” RECTANGLE [w, h3]
POSITION [w_2, h_2] HEADING 0 FILLCOLOR “yellow” RECTANGLE [w, h3]
POSITION [w_2, h_3] HEADING 0 FILLCOLOR “cyan” RECTANGLE [w, h3]
POSITION [0,h] HEADING 0
PENDOWN
FORWARD h RIGHT 120
FORWARD h RIGHT 120
FORWARD h
FILLCOLOR “black” FILL