|
|
|
run "geomland ob "O point 0 0 ob "Ox line :O 0 ob "Oy line :O 90 make "scale :scale*70 ob "csc point 2 0 ob "a 0 make "st (2*pi/360) ob "sinu point :a*:st sin :a [traced] ob "cosi point :a*:st cos :a [traced] historical "sinu historical "cosi repeat 72 [ob "a :a+5] clrdr ob "cs polygon :history.sinu ob "cc polygon :history.cosi |
|
|
|