to 5R
repeat : x [fd :y rt 90 fd :v rt 90 fd :y rt 90 fd :v pu lt 90 fd 10 rt 90 fd 10 rt 90 pd make “y :y+20 make “v :v+20] Make “Ra ( :v+5)*( :y+5)
Make “Ri :v* :y
Make “Fläche1 :Ra – :Ri
print :Fläche1
end

Make “v 120
Make “x 5
Make “y 130

 

to Kreise
repeat :a [circle :r make “r :r +2] make “Aau :r* :r* :pi
make “r :r-2
make “Ain :r* :r* :pi
print :Aau – :Ain
end

Make “a 15
Make “pi 3.1415
Make “r 0

 

to schnecke
repeat :u [fd : x rt 90 make “x :x+1 make “s :s+1] print :s
end

Make “u 15
Make “s 0

 

setfloodcolor [56 71 197] Malenfill