Compucolor.org – Virtual Media

Listing of file='GRAPH.BAS;01' on disk='vmedia/demos-sector.ccvf'

5 REM  DRAWS CIRCULAR SPIRAL
10 PI= 3.141593
20 C1= 63
30 C2= 63
40 C= 1
50 PLOT 12,27,24
150 D= 5
160 D= .2
220 T0= 10
230 P= R0:T= 0:T1= P1/ 180* T0
240 X= R0+ C1:Y= C2:GOSUB 9100
250 FOR I= 0TO 3100/ T0
260 T= T+ T1:P= P+ D
270 Q= INT (P* SIN (T)):P1= INT (P* COS (T))
280 X= P1+ C1:Y= Q+ C2:GOSUB 9000
282 PLOT 6,C:C= C+ 1
284 IF C= 8THEN C= 1
290 NEXT I
1000 PLOT 8:GOTO 9999
8900 REM  PLOTTING SUBROUTINES
9000 PLOT 2,X,Y,255:RETURN
9100 PLOT 2,X,Y,255:RETURN
9999 END