Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » StarInfo/Boham/Cycles/03
StarInfo/Boham/Cycles/03
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/03 |
| Read OK: | ✔ |
| File size: | 01A6 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1MODE 27:OFF
2DIM r(15),g(15),b(15)
3FOR c=0 TO 15
4SYS "ColourTrans_ConvertHSVToRGB",c*22.5*65536,32000,255 TO r(c),g(c),b(c)
5COLOUR c,r(c),g(c),b(c)
6NEXT c
7:
8c=0
9ORIGIN 640,480
10a=0
11FOR r=900 TO 1 STEP -2
12c=(c+1) MOD 16
13GCOL c
14ELLIPSEFILL 0,0,r,r*0.8,RADa
15a=a+1
16NEXT r
17:
18os=1
19o=0
20REPEAT
21WAIT
22FOR c=0 TO 15
23COLOUR (o+c) MOD 16,r(c),g(c),b(c)
24NEXT
25o=o+os
26IF o>15 THEN o=0
27IF o<0 THEN o=15
28IF INKEY(0)<>-1 THEN os=-os
29UNTIL FALSE
� 27:� � r(15),g(15),b(15) � c=0 � 15 Lș "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=900 � 1 � -2 c=(c+1) � 16 � c ȝȐ 0,0,r,r*0.8,�a a=a+1 � r : os=1 o=0 � Ȗ � c=0 � 15 � (o+c) � 16,r(c),g(c),b(c) � o=o+os � o>15 � o=0 � o<0 � o=15 � �(0)<>-1 � os=-os � � �
00000000 0d 00 01 0a eb 20 32 37 3a 87 0d 00 02 17 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 0d 00 03 0e e3 20 63 3d 30 20 b8 20 31 35 0d |)..... c=0 . 15.| 00000030 00 04 4c c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 |..L.. "ColourTra| 00000040 6e 73 5f 43 6f 6e 76 65 72 74 48 53 56 54 6f 52 |ns_ConvertHSVToR| 00000050 47 42 22 2c 63 2a 32 32 2e 35 2a 36 35 35 33 36 |GB",c*22.5*65536| 00000060 2c 33 32 30 30 30 2c 32 35 35 20 b8 20 72 28 63 |,32000,255 . r(c| 00000070 29 2c 67 28 63 29 2c 62 28 63 29 0d 00 05 16 fb |),g(c),b(c).....| 00000080 20 63 2c 72 28 63 29 2c 67 28 63 29 2c 62 28 63 | c,r(c),g(c),b(c| 00000090 29 0d 00 06 07 ed 20 63 0d 00 07 05 3a 0d 00 08 |)..... c....:...| 000000a0 07 63 3d 30 0d 00 09 0e c8 91 20 36 34 30 2c 34 |.c=0...... 640,4| 000000b0 38 30 0d 00 0a 07 61 3d 30 0d 00 0b 14 e3 20 72 |80....a=0..... r| 000000c0 3d 39 30 30 20 b8 20 31 20 88 20 2d 32 0d 00 0c |=900 . 1 . -2...| 000000d0 10 63 3d 28 63 2b 31 29 20 83 20 31 36 0d 00 0d |.c=(c+1) . 16...| 000000e0 07 e6 20 63 0d 00 0e 17 c8 9d c8 90 20 30 2c 30 |.. c........ 0,0| 000000f0 2c 72 2c 72 2a 30 2e 38 2c b2 61 0d 00 0f 09 61 |,r,r*0.8,.a....a| 00000100 3d 61 2b 31 0d 00 10 07 ed 20 72 0d 00 11 05 3a |=a+1..... r....:| 00000110 0d 00 12 08 6f 73 3d 31 0d 00 13 07 6f 3d 30 0d |....os=1....o=0.| 00000120 00 14 05 f5 0d 00 15 06 c8 96 0d 00 16 0e e3 20 |............... | 00000130 63 3d 30 20 b8 20 31 35 0d 00 17 1f fb 20 28 6f |c=0 . 15..... (o| 00000140 2b 63 29 20 83 20 31 36 2c 72 28 63 29 2c 67 28 |+c) . 16,r(c),g(| 00000150 63 29 2c 62 28 63 29 0d 00 18 05 ed 0d 00 19 0a |c),b(c).........| 00000160 6f 3d 6f 2b 6f 73 0d 00 1a 10 e7 20 6f 3e 31 35 |o=o+os..... o>15| 00000170 20 8c 20 6f 3d 30 0d 00 1b 10 e7 20 6f 3c 30 20 | . o=0..... o<0 | 00000180 8c 20 6f 3d 31 35 0d 00 1c 17 e7 20 a6 28 30 29 |. o=15..... .(0)| 00000190 3c 3e 2d 31 20 8c 20 6f 73 3d 2d 6f 73 0d 00 1d |<>-1 . os=-os...| 000001a0 07 fd 20 a3 0d ff |.. ...| 000001a6
.