Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » StarInfo/Boham/Cycles/04
StarInfo/Boham/Cycles/04
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/04 |
| Read OK: | ✔ |
| File size: | 0198 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:
8FOR y=512 TO 0 STEP -2
9c% = ((COSRAD(y/7.1111111)))*200
10GCOL c% MOD 16
11LINE 0,y,1279,y
12NEXT y
13
14
15:
16os=1
17o=0
18REPEAT
19WAIT
20FOR c=0 TO 15
21COLOUR (o+c) MOD 16,r(c),g(c),b(c)
22NEXT
23o=o+os
24IF o>15 THEN o=0
25IF o<0 THEN o=15
26IF INKEY(0)<>-1 THEN os=-os
27UNTIL 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 : � y=512 � 0 � -2 c% = ((��(y/7.1111111)))*200 � c% � 16 � 0,y,1279,y � y : 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 14 e3 20 79 3d 35 31 32 20 b8 20 30 20 88 20 2d |.. y=512 . 0 . -| 000000b0 32 0d 00 09 20 63 25 20 3d 20 28 28 9b b2 28 79 |2... c% = ((..(y| 000000c0 2f 37 2e 31 31 31 31 31 31 31 29 29 29 2a 32 30 |/7.1111111)))*20| 000000d0 30 0d 00 0a 0d e6 20 63 25 20 83 20 31 36 0d 00 |0..... c% . 16..| 000000e0 0b 10 86 20 30 2c 79 2c 31 32 37 39 2c 79 0d 00 |... 0,y,1279,y..| 000000f0 0c 07 ed 20 79 0d 00 0d 04 0d 00 0e 04 0d 00 0f |... y...........| 00000100 05 3a 0d 00 10 08 6f 73 3d 31 0d 00 11 07 6f 3d |.:....os=1....o=| 00000110 30 0d 00 12 05 f5 0d 00 13 06 c8 96 0d 00 14 0e |0...............| 00000120 e3 20 63 3d 30 20 b8 20 31 35 0d 00 15 1f fb 20 |. c=0 . 15..... | 00000130 28 6f 2b 63 29 20 83 20 31 36 2c 72 28 63 29 2c |(o+c) . 16,r(c),| 00000140 67 28 63 29 2c 62 28 63 29 0d 00 16 05 ed 0d 00 |g(c),b(c).......| 00000150 17 0a 6f 3d 6f 2b 6f 73 0d 00 18 10 e7 20 6f 3e |..o=o+os..... o>| 00000160 31 35 20 8c 20 6f 3d 30 0d 00 19 10 e7 20 6f 3c |15 . o=0..... o<| 00000170 30 20 8c 20 6f 3d 31 35 0d 00 1a 17 e7 20 a6 28 |0 . o=15..... .(| 00000180 30 29 3c 3e 2d 31 20 8c 20 6f 73 3d 2d 6f 73 0d |0)<>-1 . os=-os.| 00000190 00 1b 07 fd 20 a3 0d ff |.... ...| 00000198
.