바람개비 프로그램 in logo

바람개비 소스

to delete

setpencolot[255 255 255]

setpensize[125 125]

forward 1 back 1

end

to draw.wheel

penup forward 30 pendown right 120

repeat 6[forward 30 repeat 3 [left 120 forward 30 left 120] right 60]

left 120 penup back 30 pendown

end

to movie :speed

hidetutle

repeat(abs(int(360/ :speed)))

[delete right :speed pinwheel wait 3]

showturtle

end

to pinwheel

setpencolor[255 0 0]

setfloodcolor[255 125 0]

draw.wheel

fill

end

to start

clearscreen

repeat 10[rt 2 pinwheel]

end