a) to vuong
REPEAT 4 [FD 40 RT 90]
REPEAT 4 [FD 80 RT 90]
end
to hinha
RT 45
REPEAT 4 [VUONG RT 360/4]
End
b) to tamgiac
repeat 3[fd 70 rt 360/3]
end
to hinhb
setpensize[8 8]
setpencolor 1
repeat 5 [tamgiac rt 360/5]
setpensize [2 2]
setpencolor 7
repeat 5 [tamgiac rt 360/5]
end
c) to bongtuyet
fd 100 bk 50
rt 30
fd 50 bk 50
lt 60
fd 50 bk 50
rt 30
bk 50
end