Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » StarInfo/Adcock/Metallic
StarInfo/Adcock/Metallic
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 » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars |
| Filename: | StarInfo/Adcock/Metallic |
| Read OK: | ✔ |
| File size: | 01C7 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 20MODE 12 30ON ERROR REPORT:PRINTERL:END 40FOR C = 1 TO 16:COLOUR C,C*16,C*16,C*16:NEXT 50 60FOR Y = 0 TO 16 70GCOL Y 80FOR X = 0 TO 1024 STEP 64 90RECTANGLEFILL 0,X+Y*4,1280,4 100NEXT X 110NEXT Y 120B=1 130: 140R=200 150GCOL 4,0 160ORIGIN 640,512 170FOR Z = 0.1 TO 1.7 STEP 0.1 180FOR X = -640 TO 640 STEP 2 190IF (R^2)-(X^2)<>0 THEN 200Y=SQR(ABS(R^2-(X/Z)^2)) 210POINT X,Y 220DRAW X,-Y 230ENDIF 240NEXT X 250NEXT Z 260: 270REPEAT 280FOR C = 0 TO 15 290E=C 300FOR D = 0 TO 15 310COLOUR D,E*16,E*16,E*16 320E=E+1 330IF E>15 E=0 340NEXT D 350A=INKEY(10) 360NEXT C 370UNTIL FALSE
� 12 � � �:�:� (%� C = 1 � 16:� C,C*16,C*16,C*16:� 2 <� Y = 0 � 16 F� Y P� X = 0 � 1024 � 64 ZȓȐ 0,X+Y*4,1280,4 d� X n� Y xB=1 �: � R=200 � � 4,0 �ȑ 640,512 �� Z = 0.1 � 1.7 � 0.1 �� X = -640 � 640 � 2 �� (R^2)-(X^2)<>0 � �Y=�(�(R^2-(X/Z)^2)) � Ȓ X,Y � � X,-Y �� �� X �� Z : � � C = 0 � 15 "E=C ,� D = 0 � 15 6� D,E*16,E*16,E*16 @ E=E+1 J� E>15 E=0 T� D ^ A=�(10) h� C r� � �
00000000 0d 00 0a 04 0d 00 14 08 eb 20 31 32 0d 00 1e 0e |......... 12....| 00000010 ee 20 85 20 f6 3a f1 9e 3a e0 0d 00 28 25 e3 20 |. . .:..:...(%. | 00000020 43 20 3d 20 31 20 b8 20 31 36 3a fb 20 43 2c 43 |C = 1 . 16:. C,C| 00000030 2a 31 36 2c 43 2a 31 36 2c 43 2a 31 36 3a ed 0d |*16,C*16,C*16:..| 00000040 00 32 04 0d 00 3c 10 e3 20 59 20 3d 20 30 20 b8 |.2...<.. Y = 0 .| 00000050 20 31 36 0d 00 46 07 e6 20 59 0d 00 50 17 e3 20 | 16..F.. Y..P.. | 00000060 58 20 3d 20 30 20 b8 20 31 30 32 34 20 88 20 36 |X = 0 . 1024 . 6| 00000070 34 0d 00 5a 17 c8 93 c8 90 20 30 2c 58 2b 59 2a |4..Z..... 0,X+Y*| 00000080 34 2c 31 32 38 30 2c 34 0d 00 64 07 ed 20 58 0d |4,1280,4..d.. X.| 00000090 00 6e 07 ed 20 59 0d 00 78 07 42 3d 31 0d 00 82 |.n.. Y..x.B=1...| 000000a0 05 3a 0d 00 8c 09 52 3d 32 30 30 0d 00 96 09 e6 |.:....R=200.....| 000000b0 20 34 2c 30 0d 00 a0 0e c8 91 20 36 34 30 2c 35 | 4,0...... 640,5| 000000c0 31 32 0d 00 aa 19 e3 20 5a 20 3d 20 30 2e 31 20 |12..... Z = 0.1 | 000000d0 b8 20 31 2e 37 20 88 20 30 2e 31 0d 00 b4 18 e3 |. 1.7 . 0.1.....| 000000e0 20 58 20 3d 20 2d 36 34 30 20 b8 20 36 34 30 20 | X = -640 . 640 | 000000f0 88 20 32 0d 00 be 16 e7 20 28 52 5e 32 29 2d 28 |. 2..... (R^2)-(| 00000100 58 5e 32 29 3c 3e 30 20 8c 0d 00 c8 17 59 3d b6 |X^2)<>0 .....Y=.| 00000110 28 94 28 52 5e 32 2d 28 58 2f 5a 29 5e 32 29 29 |(.(R^2-(X/Z)^2))| 00000120 0d 00 d2 0a c8 92 20 58 2c 59 0d 00 dc 0a df 20 |...... X,Y..... | 00000130 58 2c 2d 59 0d 00 e6 05 cd 0d 00 f0 07 ed 20 58 |X,-Y.......... X| 00000140 0d 00 fa 07 ed 20 5a 0d 01 04 05 3a 0d 01 0e 05 |..... Z....:....| 00000150 f5 0d 01 18 10 e3 20 43 20 3d 20 30 20 b8 20 31 |...... C = 0 . 1| 00000160 35 0d 01 22 07 45 3d 43 0d 01 2c 10 e3 20 44 20 |5..".E=C..,.. D | 00000170 3d 20 30 20 b8 20 31 35 0d 01 36 16 fb 20 44 2c |= 0 . 15..6.. D,| 00000180 45 2a 31 36 2c 45 2a 31 36 2c 45 2a 31 36 0d 01 |E*16,E*16,E*16..| 00000190 40 09 45 3d 45 2b 31 0d 01 4a 0e e7 20 45 3e 31 |@.E=E+1..J.. E>1| 000001a0 35 20 45 3d 30 0d 01 54 07 ed 20 44 0d 01 5e 0b |5 E=0..T.. D..^.| 000001b0 41 3d a6 28 31 30 29 0d 01 68 07 ed 20 43 0d 01 |A=.(10)..h.. C..| 000001c0 72 07 fd 20 a3 0d ff |r.. ...| 000001c7
.