; Logo ; Example: Flower ; ; Flower from 3 layers of squares. ; ; (c)1991,1996 V. Batagelj TO Square :a REPEAT 4 [ Forward :a Right 90 ] END TO Flowr :x :y :a PenUp SetPos (List :x :y) PenDown SetH 0 REPEAT 36 [ PenUp Forward :a/36 PenDown Square :a Left 10 ] END TO Flower Cs Ht SETSCREENCOLOR [100 180 100] SETPENSIZE [5 5] SetPC [255 000 000] Flowr 0 0 90 SETPENSIZE [3 3] SetPC [255 000 255] Flowr 0 0 75 SETPENSIZE [2 2] SetPC [000 000 255] Flowr 0 0 45 SETPENCOLOR [0 0 0] SETPENSIZE [1 1] PU HOME PD END Flower