ENTITY/s,p(24),pp% h) {, S2 j- J8 X( d
NUMBER/angle(24),radius(24),i,j
, j+ M5 Q" k% o2 T9 ~- zDATA/i,1,j,1
0 j/ R6 Z. a+ X' o+ c) y* b3 \DATA/radius,$
1 `) F. ^, z5 u7 B19.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) @7 g4 {# _9 f9 r
Loo:
7 O# f5 @' ]( vIFTHEN/i<25
7 p2 H6 f0 Q* l6 nangle(i)=i*15
6 n: ]. z$ u9 n3 I% Ki=i+1
`7 E; _% o. {% GJUMP/Loo:
' L' G9 j) u6 Y. `5 AENDIF1 x4 S& L/ G& B5 z
pp=POINT/0,0,0
. o* V( H! j/ X5 E# i# |DP: $$DrawPoint
: C: d; o% b9 d2 |4 _* {IFTHEN/j<25
. q- K2 X; c; T3 n' a5 ip(j)=POINT/pp,POLAR,radius(j),angle(j)
7 L/ w. Z( A1 N! ?) f$ T# l1 R2 ~/ hPRINT/angle(j),radius(j)( g! J( L7 `) a+ x
j=j+1
3 \, z) H3 v8 h, r# A7 gJUMP/DP:
# w9 S% W% k( Z# L+ L( {! b, y2 N8 {* OENDIF
0 o8 _8 c- y" V5 f$ i8 X) Us=SPLINE/p(1..24)
2 O6 }& J6 x: G& ~DELETE/p(1..24),pp3 z( G. Q) u( K7 \; X) e [, w
HALT |