Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Graphics/CircStart
Graphics/CircStart
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf |
| Filename: | Graphics/CircStart |
| Read OK: | ✔ |
| File size: | 01C7 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There are 6 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/CircStart
- Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Graphics/CircStart
- Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » Graphics/CircStart
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Graphics/CircStart
- Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/CircStart
- Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Graphics/CircStart
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape08a_c15_acorn_pixel.wav » MICK1
File contents
30 MODE 1 40 GCOL 0,129 50 CLS 60 PRINT:PRINT"CALCULATING. . . ." 80 DIM T(72,2) 90 FOR I=0 TO 72 100 T(I,1)=COS(RAN(I*5)) 110 T(I,2)=SIN(RAN(I*5)) 120 PRINT TAB(5,5) I 130 NEXT I 140 CLG 150 FOR P=0 TO 27 160 READ M1,M2,IC,XC,YC,CL 170 GOSUB 200 180 NEXT P 190 GOTO 190 220 GCOL 0,CL 230 MOVE XC,YC 240 DRAW XC+M1*T(IC/5,1),YC+M1*T(IC/5,2) 250 FOR A=0 TO 360 STEP 15 260 MOVE XC,YC 270 X=M1*T(A/5,1) 280 Y=M2*T(A/5,2) 290 XT=X*T(IC/5,1)-Y*T(IC/5,2)+XC 300 YT=X*T(IC/5,2)+Y*T(IC/5,1)+XC 310 PLOT 85,XT,YT 320 NEXT A 330 RETURN
� 1 ( � 0,129 2 � < �:�"CALCULATING. . . ." P � T(72,2) Z � I=0 � 72 d T(I,1)=�(RAN(I*5)) n T(I,2)=�(RAN(I*5)) x � �5,5) I � � I � � � � P=0 � 27 � � M1,M2,IC,XC,YC,CL � � �dH@ � � P � � �t~@ � � 0,CL � � XC,YC �& � XC+M1*T(IC/5,1),YC+M1*T(IC/5,2) � � A=0 � 360 � 15 � XC,YC X=M1*T(A/5,1) Y=M2*T(A/5,2) "" XT=X*T(IC/5,1)-Y*T(IC/5,2)+XC ," YT=X*T(IC/5,2)+Y*T(IC/5,1)+XC 6 � 85,XT,YT @ � A J � �
00000000 0d 00 1e 08 20 eb 20 31 0d 00 28 0c 20 e6 20 30 |.... . 1..(. . 0| 00000010 2c 31 32 39 0d 00 32 06 20 db 0d 00 3c 1c 20 f1 |,129..2. ...<. .| 00000020 3a f1 22 43 41 4c 43 55 4c 41 54 49 4e 47 2e 20 |:."CALCULATING. | 00000030 2e 20 2e 20 2e 22 0d 00 50 0e 20 de 20 54 28 37 |. . ."..P. . T(7| 00000040 32 2c 32 29 0d 00 5a 0f 20 e3 20 49 3d 30 20 b8 |2,2)..Z. . I=0 .| 00000050 20 37 32 0d 00 64 17 20 54 28 49 2c 31 29 3d 9b | 72..d. T(I,1)=.| 00000060 28 52 41 4e 28 49 2a 35 29 29 0d 00 6e 17 20 54 |(RAN(I*5))..n. T| 00000070 28 49 2c 32 29 3d b5 28 52 41 4e 28 49 2a 35 29 |(I,2)=.(RAN(I*5)| 00000080 29 0d 00 78 0e 20 f1 20 8a 35 2c 35 29 20 49 0d |)..x. . .5,5) I.| 00000090 00 82 08 20 ed 20 49 0d 00 8c 06 20 da 0d 00 96 |... . I.... ....| 000000a0 0f 20 e3 20 50 3d 30 20 b8 20 32 37 0d 00 a0 18 |. . P=0 . 27....| 000000b0 20 f3 20 4d 31 2c 4d 32 2c 49 43 2c 58 43 2c 59 | . M1,M2,IC,XC,Y| 000000c0 43 2c 43 4c 0d 00 aa 0b 20 e4 20 8d 64 48 40 0d |C,CL.... . .dH@.| 000000d0 00 b4 08 20 ed 20 50 0d 00 be 0b 20 e5 20 8d 74 |... . P.... . .t| 000000e0 7e 40 0d 00 dc 0b 20 e6 20 30 2c 43 4c 0d 00 e6 |~@.... . 0,CL...| 000000f0 0c 20 ec 20 58 43 2c 59 43 0d 00 f0 26 20 df 20 |. . XC,YC...& . | 00000100 58 43 2b 4d 31 2a 54 28 49 43 2f 35 2c 31 29 2c |XC+M1*T(IC/5,1),| 00000110 59 43 2b 4d 31 2a 54 28 49 43 2f 35 2c 32 29 0d |YC+M1*T(IC/5,2).| 00000120 00 fa 15 20 e3 20 41 3d 30 20 b8 20 33 36 30 20 |... . A=0 . 360 | 00000130 88 20 31 35 0d 01 04 0c 20 ec 20 58 43 2c 59 43 |. 15.... . XC,YC| 00000140 0d 01 0e 12 20 58 3d 4d 31 2a 54 28 41 2f 35 2c |.... X=M1*T(A/5,| 00000150 31 29 0d 01 18 12 20 59 3d 4d 32 2a 54 28 41 2f |1).... Y=M2*T(A/| 00000160 35 2c 32 29 0d 01 22 22 20 58 54 3d 58 2a 54 28 |5,2).."" XT=X*T(| 00000170 49 43 2f 35 2c 31 29 2d 59 2a 54 28 49 43 2f 35 |IC/5,1)-Y*T(IC/5| 00000180 2c 32 29 2b 58 43 0d 01 2c 22 20 59 54 3d 58 2a |,2)+XC..," YT=X*| 00000190 54 28 49 43 2f 35 2c 32 29 2b 59 2a 54 28 49 43 |T(IC/5,2)+Y*T(IC| 000001a0 2f 35 2c 31 29 2b 58 43 0d 01 36 0f 20 f0 20 38 |/5,1)+XC..6. . 8| 000001b0 35 2c 58 54 2c 59 54 0d 01 40 08 20 ed 20 41 0d |5,XT,YT..@. . A.| 000001c0 01 4a 06 20 f8 0d ff |.J. ...| 000001c7
.