Power-Programmierung/CD1.mdf/logo/winlogo/lib/poly.lg

Text File | 1992-08-24 | 142b | 9 lines

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