แจกโค้ด MSW Logo

ลำดับตอนที่ #2 : สวนดอกไม้

to flower :size

repeat 6 [ petal :size rt 60 ]

end

to garden

moveover ( - 160 ) tree 20

moveover ( - 80 ) tree 30

moveover 160 tree 25

moveover 80 tree 60

moveover 80 tree 40

end

to MoveOver :size

pu rt 90 fd :size + 10

lt 90 pd

end

to petal :size

pu fd :size pd

arc ( -90 ) :size

pu bk :size rt 90

fd :size rt 90 pd

arc ( -90 ) :size

pu rt 90 fd :size rt 90 pd

rt 40 pu fd 20 setfc random 6 fill bk 20 lt 40 pd

end

to stem :size

fd :size petal :size

fd :size * 2

end

to tree :size

stem :size

flower :size

bk :size * 3

end