ENTITY/s,p(24),pp
9 O& l- n [% e$ T# w8 G. d9 wNUMBER/angle(24),radius(24),i,j
" E3 i3 e7 `! [0 X+ f6 i7 `DATA/i,1,j,1 p4 X, L1 E/ E8 T n
DATA/radius,$
, i8 {, T: x' K3 T19.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
* { v0 {2 y. A# F; R% G6 M1 H; aLoo:
0 ?! y$ R6 c% P3 x$ b' K" xIFTHEN/i<25
7 P. V' u* j6 ^/ e) T% Cangle(i)=i*15
; u: n# y, ]( H$ S' h" |, Ii=i+1
' I4 t; Q2 v* K) i" N: r% x2 G3 qJUMP/Loo:
6 H7 d* `5 S" [ENDIF; E8 j; k0 d, q0 ]! V1 r* q2 J" r
pp=POINT/0,0,0" S @: g$ o/ A' A
DP: $$DrawPoint
# A0 M- {# T0 X& d$ eIFTHEN/j<25' @; Q2 [+ _% V3 b
p(j)=POINT/pp,POLAR,radius(j),angle(j)
0 \; U2 z! d/ zPRINT/angle(j),radius(j)
" e- e7 t; T7 _3 N0 B Pj=j+1! x) z7 Q" O1 r# x Y$ ^( e9 y
JUMP/DP:
2 j% C- U4 K( E9 Q8 Z- y6 N8 J9 y# \ENDIF' D+ p: W3 q, A5 b1 Q; {; ?. F
s=SPLINE/p(1..24)* \/ l* x+ w8 u
DELETE/p(1..24),pp
v! O# H6 j" u3 a( }( ?HALT |