ENTITY/s,p(24),pp
4 H0 s# G. Z: u/ E8 aNUMBER/angle(24),radius(24),i,j4 ~( L, X- H/ H& l2 U, o! w: k3 h
DATA/i,1,j,1+ H0 L& a: w% D' _( G+ h/ p
DATA/radius,$
: U$ a2 @- d- q7 Y/ G19.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- w! E# R' B3 r' t* d8 M/ L ?
Loo:" a! a+ R3 ?- X: B" y* G
IFTHEN/i<25
$ ]) n# `/ P8 X* \% uangle(i)=i*15% U# v6 k- O8 D8 j: E3 ~
i=i+1$ i9 A* f% U( J9 l, ]
JUMP/Loo:. }; r4 ^0 O L& `! [
ENDIF
8 E$ @) @3 L! ]& `+ a Xpp=POINT/0,0,06 p- C# |' G+ Q3 w8 l
DP: $$DrawPoint
( _, s/ t) X9 ?) p1 d+ ?9 GIFTHEN/j<25& j+ f/ O# [1 T7 | S) u4 \- j
p(j)=POINT/pp,POLAR,radius(j),angle(j)
9 g: t) y7 t% R- r* z; _PRINT/angle(j),radius(j)
. ^( O6 O3 `( `! C! D G; Vj=j+1
" c* D; D+ P0 C% \. A2 V% H. DJUMP/DP:+ f( c+ @" N7 K2 P+ q
ENDIF
0 A0 `8 O1 l, O8 [) fs=SPLINE/p(1..24)
$ n& X" {0 B# g# w3 R. Z$ eDELETE/p(1..24),pp1 O* |$ e9 {, A0 v" S
HALT |