ENTITY/s,p(24),pp/ C9 g/ Y& w% F1 g
NUMBER/angle(24),radius(24),i,j/ ^4 a! a) w. Q2 Q
DATA/i,1,j,15 p' u" |& c6 ^& P
DATA/radius,$! ~2 W2 i: B) M+ b. |2 X4 o( W
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
4 j8 b" c, Z( JLoo:
, t+ i% k9 ~' R* l" m6 W: xIFTHEN/i<25
$ {! q6 P( L' \. |4 Q9 J* @angle(i)=i*152 Y1 h$ K& X3 \0 t% g' Q% p9 [1 x2 K
i=i+19 a7 \1 c/ K$ w% C1 k
JUMP/Loo:
6 G# r7 e& Z# q' s5 W8 w! v/ GENDIF
9 K8 m7 s$ _3 o. L1 H- N7 H7 Opp=POINT/0,0,0
7 c6 I" H- k2 K& iDP: $$DrawPoint
8 g8 A3 |1 I: \: E0 |, ]! W# e' jIFTHEN/j<25
! q; s" z6 c5 C3 K( s" ^3 gp(j)=POINT/pp,POLAR,radius(j),angle(j)9 ^1 F' A. O1 M5 e$ X2 W8 k! ]
PRINT/angle(j),radius(j). M+ i8 T3 h4 z( {8 R7 h! c }+ ~
j=j+16 K3 v! [6 p) m. c
JUMP/DP:
: h0 u% R6 J+ L' D* o A' NENDIF& o; P7 R7 T t6 |
s=SPLINE/p(1..24)
7 o% m, w l! w8 HDELETE/p(1..24),pp" I6 T7 ~: H# I, B
HALT |