Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » StarInfo/Boham/Cycles/02
StarInfo/Boham/Cycles/02
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-10 A.adf » Regulars |
| Filename: | StarInfo/Boham/Cycles/02 |
| Read OK: | ✔ |
| File size: | 0166 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE 27:OFF 20DIM r(15),g(15),b(15):FOR c=0 TO 15:SYS "ColourTrans_ConvertHSVToRGB",c*22.5*65536,32000,255 TO r(c),g(c),b(c):COLOUR c,r(c),g(c),b(c):NEXT c 30c=0:ORIGIN 640,480:a=0:FOR r=100 TO 900 STEP 0.1:c=(c+1) MOD 16:GCOL c:CIRCLEFILL SINRADa*r,COSRADa*r,128:a=a+2.7:NEXT r 40os=1:o=0:REPEAT:WAIT:FOR c=0 TO 15:COLOUR (o+c) MOD 16,r(c),g(c),b(c):NEXT:o=o+os:IF o>15 THEN o=0 50IF o<0 THEN o=15 60IF INKEY(0)<>-1 THEN os=-os 70UNTIL FALSE
� 27:� �� r(15),g(15),b(15):� c=0 � 15:ș "ColourTrans_ConvertHSVToRGB",c*22.5*65536,32000,255 � r(c),g(c),b(c):� c,r(c),g(c),b(c):� c \c=0:ȑ 640,480:a=0:� r=100 � 900 � 0.1:c=(c+1) � 16:� c:ȏȐ ��a*r,��a*r,128:a=a+2.7:� r (Nos=1:o=0:�:Ȗ:� c=0 � 15:� (o+c) � 16,r(c),g(c),b(c):�:o=o+os:� o>15 � o=0 2� o<0 � o=15 <� �(0)<>-1 � os=-os F� � �
00000000 0d 00 0a 0a eb 20 32 37 3a 87 0d 00 14 82 de 20 |..... 27:...... | 00000010 72 28 31 35 29 2c 67 28 31 35 29 2c 62 28 31 35 |r(15),g(15),b(15| 00000020 29 3a e3 20 63 3d 30 20 b8 20 31 35 3a c8 99 20 |):. c=0 . 15:.. | 00000030 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 43 6f 6e |"ColourTrans_Con| 00000040 76 65 72 74 48 53 56 54 6f 52 47 42 22 2c 63 2a |vertHSVToRGB",c*| 00000050 32 32 2e 35 2a 36 35 35 33 36 2c 33 32 30 30 30 |22.5*65536,32000| 00000060 2c 32 35 35 20 b8 20 72 28 63 29 2c 67 28 63 29 |,255 . r(c),g(c)| 00000070 2c 62 28 63 29 3a fb 20 63 2c 72 28 63 29 2c 67 |,b(c):. c,r(c),g| 00000080 28 63 29 2c 62 28 63 29 3a ed 20 63 0d 00 1e 5c |(c),b(c):. c...\| 00000090 63 3d 30 3a c8 91 20 36 34 30 2c 34 38 30 3a 61 |c=0:.. 640,480:a| 000000a0 3d 30 3a e3 20 72 3d 31 30 30 20 b8 20 39 30 30 |=0:. r=100 . 900| 000000b0 20 88 20 30 2e 31 3a 63 3d 28 63 2b 31 29 20 83 | . 0.1:c=(c+1) .| 000000c0 20 31 36 3a e6 20 63 3a c8 8f c8 90 20 b5 b2 61 | 16:. c:.... ..a| 000000d0 2a 72 2c 9b b2 61 2a 72 2c 31 32 38 3a 61 3d 61 |*r,..a*r,128:a=a| 000000e0 2b 32 2e 37 3a ed 20 72 0d 00 28 4e 6f 73 3d 31 |+2.7:. r..(Nos=1| 000000f0 3a 6f 3d 30 3a f5 3a c8 96 3a e3 20 63 3d 30 20 |:o=0:.:..:. c=0 | 00000100 b8 20 31 35 3a fb 20 28 6f 2b 63 29 20 83 20 31 |. 15:. (o+c) . 1| 00000110 36 2c 72 28 63 29 2c 67 28 63 29 2c 62 28 63 29 |6,r(c),g(c),b(c)| 00000120 3a ed 3a 6f 3d 6f 2b 6f 73 3a e7 20 6f 3e 31 35 |:.:o=o+os:. o>15| 00000130 20 8c 20 6f 3d 30 0d 00 32 10 e7 20 6f 3c 30 20 | . o=0..2.. o<0 | 00000140 8c 20 6f 3d 31 35 0d 00 3c 17 e7 20 a6 28 30 29 |. o=15..<.. .(0)| 00000150 3c 3e 2d 31 20 8c 20 6f 73 3d 2d 6f 73 0d 00 46 |<>-1 . os=-os..F| 00000160 07 fd 20 a3 0d ff |.. ...| 00000166
.