Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » StarInfo/Boham/Cycles/05
StarInfo/Boham/Cycles/05
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/05 |
| Read OK: | ✔ |
| File size: | 01F7 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
9FOR a=360 TO 1 STEP -1
10c=(c+1) MOD 16
11GCOL c
12ELLIPSEFILL 200,300,a*1.4,a*1.2,RADa
13ELLIPSEFILL 1000,200,a*1.1,a*0.2,RADa
14ELLIPSEFILL 400,800,a*1.7,a*1.9,RADa
15ELLIPSEFILL 1100,900,a*1.5,a*1.7,RADa
16NEXT a
17
18
19:
20os=1
21o=0
22REPEAT
23WAIT
24FOR c=0 TO 15
25COLOUR (o+c) MOD 16,r(c),g(c),b(c)
26NEXT
27o=o+os
28IF o>15 THEN o=0
29IF o<0 THEN o=15
30IF INKEY(0)<>-1 THEN os=-os
31UNTIL 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 � a=360 � 1 � -1 c=(c+1) � 16 � c ȝȐ 200,300,a*1.4,a*1.2,�a ȝȐ 1000,200,a*1.1,a*0.2,�a ȝȐ 400,800,a*1.7,a*1.9,�a ȝȐ 1100,900,a*1.5,a*1.7,�a � a : 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 14 e3 20 61 3d 33 36 30 20 |.c=0..... a=360 | 000000b0 b8 20 31 20 88 20 2d 31 0d 00 0a 10 63 3d 28 63 |. 1 . -1....c=(c| 000000c0 2b 31 29 20 83 20 31 36 0d 00 0b 07 e6 20 63 0d |+1) . 16..... c.| 000000d0 00 0c 1f c8 9d c8 90 20 32 30 30 2c 33 30 30 2c |....... 200,300,| 000000e0 61 2a 31 2e 34 2c 61 2a 31 2e 32 2c b2 61 0d 00 |a*1.4,a*1.2,.a..| 000000f0 0d 20 c8 9d c8 90 20 31 30 30 30 2c 32 30 30 2c |. .... 1000,200,| 00000100 61 2a 31 2e 31 2c 61 2a 30 2e 32 2c b2 61 0d 00 |a*1.1,a*0.2,.a..| 00000110 0e 1f c8 9d c8 90 20 34 30 30 2c 38 30 30 2c 61 |...... 400,800,a| 00000120 2a 31 2e 37 2c 61 2a 31 2e 39 2c b2 61 0d 00 0f |*1.7,a*1.9,.a...| 00000130 20 c8 9d c8 90 20 31 31 30 30 2c 39 30 30 2c 61 | .... 1100,900,a| 00000140 2a 31 2e 35 2c 61 2a 31 2e 37 2c b2 61 0d 00 10 |*1.5,a*1.7,.a...| 00000150 07 ed 20 61 0d 00 11 04 0d 00 12 04 0d 00 13 05 |.. a............| 00000160 3a 0d 00 14 08 6f 73 3d 31 0d 00 15 07 6f 3d 30 |:....os=1....o=0| 00000170 0d 00 16 05 f5 0d 00 17 06 c8 96 0d 00 18 0e e3 |................| 00000180 20 63 3d 30 20 b8 20 31 35 0d 00 19 1f fb 20 28 | c=0 . 15..... (| 00000190 6f 2b 63 29 20 83 20 31 36 2c 72 28 63 29 2c 67 |o+c) . 16,r(c),g| 000001a0 28 63 29 2c 62 28 63 29 0d 00 1a 05 ed 0d 00 1b |(c),b(c)........| 000001b0 0a 6f 3d 6f 2b 6f 73 0d 00 1c 10 e7 20 6f 3e 31 |.o=o+os..... o>1| 000001c0 35 20 8c 20 6f 3d 30 0d 00 1d 10 e7 20 6f 3c 30 |5 . o=0..... o<0| 000001d0 20 8c 20 6f 3d 31 35 0d 00 1e 17 e7 20 a6 28 30 | . o=15..... .(0| 000001e0 29 3c 3e 2d 31 20 8c 20 6f 73 3d 2d 6f 73 0d 00 |)<>-1 . os=-os..| 000001f0 1f 07 fd 20 a3 0d ff |... ...| 000001f7
.