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