ENTITY/s,p(24),pp5 t. E3 Q3 H/ U# ?4 x- x6 s7 L$ N
NUMBER/angle(24),radius(24),i,j7 m x% p; J8 \$ d
DATA/i,1,j,1 J+ O+ M5 [/ O9 A* r& D3 V% F
DATA/radius,$
. `* q* N; l: h4 v H6 ?5 p) K19.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$ U* g K4 `/ i: \. V
Loo:0 e2 }/ a8 D B# @1 A: G9 w
IFTHEN/i<25
3 Z# D* m9 Y5 k: Hangle(i)=i*15
' b& }) L/ {' c9 F9 pi=i+1. [9 {6 Q4 ~$ H' M1 j
JUMP/Loo:* s: X I6 q9 _0 l' @% a! I8 Q
ENDIF4 J" ` A( [8 s. O! J0 }& R' F
pp=POINT/0,0,0
3 Z' c6 i) E5 a6 D: \DP: $$DrawPoint( [9 T" I; I* @. b$ {! R# p( S, D
IFTHEN/j<25, T( X3 f8 m) P: a3 k- w# m
p(j)=POINT/pp,POLAR,radius(j),angle(j)# W: X0 h4 c1 b& a* j/ [3 \
PRINT/angle(j),radius(j)
4 ?- A* F' n$ kj=j+1
% E3 _, y% O& Q6 [! ]JUMP/DP:
$ d, Q; e9 T- [. g+ \ENDIF
; i( P: [6 W9 ~9 @# j6 ?s=SPLINE/p(1..24)
$ H* L) G" @0 a1 sDELETE/p(1..24),pp
/ m/ J# i$ k+ ~' h% r5 W9 CHALT |