Flag of Europe

; Vedi: librelogo.org > Flag of Europe

TO vertex vertices n
   FORWARD n
   where = POSITION
   vertices += [where]
   BACK n
END

TO star n
   golden_ratio = (1+SQRT 5)/2
   vertices = []
   HEADING 0
   REPEAT 5 [
      vertex vertices n
      RIGHT 360/10
      vertex vertices n-n/golden_ratio
      RIGHT 360/10
   ]

   FOR i IN vertices [ 
      POSITION i
      PENDOWN
   ]
   FILL 
   PENUP
END

PICTURE “Flag_of_Europe_with_border.svg” [
   HIDETURTLE
   FILLCOLOR “WHITE”
   PENCOLOR “INVISIBLE”
   RECTANGLE [15cm+2*10cm/25, 10cm+2*10cm/25]
   FILLCOLOR 0x003399
   RECTANGLE [15cm, 10cm]
   FILLCOLOR 0xffcc00
   REPEAT 12 [
      PENUP 
      HEADING 360/12 * (REPCOUNT - 1)
      FORWARD 10cm*2/6
      star 10cm/18
      HOME
   ]
]