Turbo Toolbox/Turbo_Toolbox.iso/sharew/logo/doslogo/lib/poly.lg

Text File | 1990-06-11 | 140 b | 9 lines

to poly :circumf :sides
make "incr 360 / :sides
make "ctr 0
10 fd :circumf
lt :incr
make "ctr :ctr + 1
if :ctr < :sides [go 10]
end