ENTITY/s,p(24),pp2 }6 D& d4 X W2 {7 Q0 B% U
NUMBER/angle(24),radius(24),i,j
}/ |, c. Y! [ ~1 v: X' S9 N1 h" jDATA/i,1,j,1/ G2 d! C6 l: I2 b* j9 w% k
DATA/radius,$
7 x' a( B8 ^* _* a" C( D, ]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,207 P; L5 L$ p0 g- I8 o8 c \
Loo:
8 |. [9 [0 ]' }" G$ AIFTHEN/i<250 |1 p0 Z, c5 ~
angle(i)=i*15
( \ D4 O& p( s2 B2 I. t- f3 bi=i+1
# _; t. R2 x* nJUMP/Loo:0 }7 H5 h/ n' Q: k! x
ENDIF) ]7 R3 Y* h$ j2 U3 ?1 I0 _) ]
pp=POINT/0,0,0& a* ~4 Z7 E" F+ b! z
DP: $$DrawPoint
* ?( [! ]; n Q( A8 }7 DIFTHEN/j<25
6 T9 G- _1 ]8 F" l% ~ g4 @0 i0 t& fp(j)=POINT/pp,POLAR,radius(j),angle(j)
. f- i: ]$ ~: ^' DPRINT/angle(j),radius(j)
2 i: l: W7 J1 `% Q- N, dj=j+1
/ j) c' i. |: U6 q/ g" @0 |1 JJUMP/DP:& x+ j' V4 y e' ~- D- `/ u* U
ENDIF
% P) w. b- ^& l8 Y- D" [/ ys=SPLINE/p(1..24); g& r5 q( x! |. W0 ~, F5 ]9 w7 V
DELETE/p(1..24),pp0 N# `3 E" N+ x8 [1 t% I; B/ T$ F
HALT |