ENTITY/s,p(24),pp1 l1 S, _$ [% u; A6 y2 j% S
NUMBER/angle(24),radius(24),i,j' [' \7 x: W/ u- i2 }8 |: R9 r
DATA/i,1,j,1
* P' R/ l5 W6 s8 R1 U* _! u& ADATA/radius,$
+ O7 L0 ^/ V+ W0 k; \19.8,20,21,22,24,25,24,22,21,20,19.8,20,20,20,20,20,20,20,20,20,20,20,20,20
( g1 G g, T+ {; Z+ C3 P- d9 R' jLoo:9 H# V- k }; B6 m ?
IFTHEN/i<25; d7 b ]3 V; Q9 l3 t
angle(i)=i*15
# K o/ S+ D3 ri=i+1
1 J4 P, n! S! u, NJUMP/Loo:6 g( a8 p8 U* b# x1 x( g
ENDIF% {0 g* J2 b1 n! _. k6 Q% A
pp=POINT/0,0,02 z1 s, ^( Y$ H8 e2 p7 J/ Q
DP: $$DrawPoint9 Y& O1 i$ o2 l% d! ]0 }
IFTHEN/j<253 x: Z1 f: P- L2 @
p(j)=POINT/pp,POLAR,radius(j),angle(j)
, M( M, V3 z$ iPRINT/angle(j),radius(j)
8 s9 x1 v Q J* z& x' g$ aj=j+1
% V( I: }/ u/ ^JUMP/DP:, W5 i+ n& Q! v8 y9 Y
ENDIF
- o' ^/ K4 t% |& Xs=SPLINE/p(1..24)
9 e7 @/ m5 i3 }8 @* {3 i4 g# }# p9 \DELETE/p(1..24),pp
/ a1 _/ C0 p9 e+ F8 L1 E# SHALT |