Home » Archimedes archive » Acorn User » AU 1995-05.adf » !StarInfo_StarInfo » Vibe/ColourCard/ColourCube
Vibe/ColourCard/ColourCube
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 1995-05.adf » !StarInfo_StarInfo |
| Filename: | Vibe/ColourCard/ColourCube |
| Read OK: | ✔ |
| File size: | 01BE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >ColourCube 11REM by Jan Vibe 12REM (c) AU May 1995 20 30MODE107:OFF 40*POINTER 50MOUSE RECTANGLE 48,40,0,767 60FORN%=0TO31:PROCRGB(8*N%,0,0):RECTANGLE FILL 40,25*N%,24,30:NEXT 70Y%=-100 80REPEAT 90YG%=Y%:MOUSE X%,Y%,B% 100IF YG%<>Y% 110R%=(Y%-40)/3 120FORB%=0TO31:YB%=24*B%+40 130FORG%=0TO31:XG%=24*G%+192 140PROCRGB(R%,8*G%,8*B%) 150RECTANGLE FILL XG%,YB%,24 160NEXT, 170ENDIF 180UNTIL0 190END 200 210DEFPROCRGB(R%,G%,B%) 220LOCAL C%:C%=(R%<<8)+(G%<<16)+(B%<<24) 230SYS "ColourTrans_SetGCOL",C%,,,&100,0 240ENDPROC
� >ColourCube � by Jan Vibe � (c) AU May 1995 �107:� ( *POINTER 2ȗ ȓ 48,40,0,767 <2�N%=0�31:�RGB(8*N%,0,0):ȓ Ȑ 40,25*N%,24,30:� F Y%=-100 P� ZYG%=Y%:ȗ X%,Y%,B% d � YG%<>Y% nR%=(Y%-40)/3 x�B%=0�31:YB%=24*B%+40 ��G%=0�31:XG%=24*G%+192 ��RGB(R%,8*G%,8*B%) �ȓ Ȑ XG%,YB%,24 ��, �� ��0 �� � ���RGB(R%,G%,B%) �%� C%:C%=(R%<<8)+(G%<<16)+(B%<<24) �(ș "ColourTrans_SetGCOL",C%,,,&100,0 �� �
00000000 0d 00 0a 15 f4 20 20 20 20 20 3e 43 6f 6c 6f 75 |..... >Colou| 00000010 72 43 75 62 65 0d 00 0b 12 f4 20 62 79 20 20 4a |rCube..... by J| 00000020 61 6e 20 56 69 62 65 0d 00 0c 15 f4 20 28 63 29 |an Vibe..... (c)| 00000030 20 41 55 20 4d 61 79 20 31 39 39 35 0d 00 14 04 | AU May 1995....| 00000040 0d 00 1e 0a eb 31 30 37 3a 87 0d 00 28 0c 2a 50 |.....107:...(.*P| 00000050 4f 49 4e 54 45 52 0d 00 32 15 c8 97 20 c8 93 20 |OINTER..2... .. | 00000060 34 38 2c 34 30 2c 30 2c 37 36 37 0d 00 3c 32 e3 |48,40,0,767..<2.| 00000070 4e 25 3d 30 b8 33 31 3a f2 52 47 42 28 38 2a 4e |N%=0.31:.RGB(8*N| 00000080 25 2c 30 2c 30 29 3a c8 93 20 c8 90 20 34 30 2c |%,0,0):.. .. 40,| 00000090 32 35 2a 4e 25 2c 32 34 2c 33 30 3a ed 0d 00 46 |25*N%,24,30:...F| 000000a0 0b 59 25 3d 2d 31 30 30 0d 00 50 05 f5 0d 00 5a |.Y%=-100..P....Z| 000000b0 16 59 47 25 3d 59 25 3a c8 97 20 58 25 2c 59 25 |.YG%=Y%:.. X%,Y%| 000000c0 2c 42 25 0d 00 64 0d e7 20 59 47 25 3c 3e 59 25 |,B%..d.. YG%<>Y%| 000000d0 0d 00 6e 10 52 25 3d 28 59 25 2d 34 30 29 2f 33 |..n.R%=(Y%-40)/3| 000000e0 0d 00 78 19 e3 42 25 3d 30 b8 33 31 3a 59 42 25 |..x..B%=0.31:YB%| 000000f0 3d 32 34 2a 42 25 2b 34 30 0d 00 82 1a e3 47 25 |=24*B%+40.....G%| 00000100 3d 30 b8 33 31 3a 58 47 25 3d 32 34 2a 47 25 2b |=0.31:XG%=24*G%+| 00000110 31 39 32 0d 00 8c 16 f2 52 47 42 28 52 25 2c 38 |192.....RGB(R%,8| 00000120 2a 47 25 2c 38 2a 42 25 29 0d 00 96 14 c8 93 20 |*G%,8*B%)...... | 00000130 c8 90 20 58 47 25 2c 59 42 25 2c 32 34 0d 00 a0 |.. XG%,YB%,24...| 00000140 06 ed 2c 0d 00 aa 05 cd 0d 00 b4 06 fd 30 0d 00 |..,..........0..| 00000150 be 05 e0 0d 00 c8 04 0d 00 d2 13 dd f2 52 47 42 |.............RGB| 00000160 28 52 25 2c 47 25 2c 42 25 29 0d 00 dc 25 ea 20 |(R%,G%,B%)...%. | 00000170 43 25 3a 43 25 3d 28 52 25 3c 3c 38 29 2b 28 47 |C%:C%=(R%<<8)+(G| 00000180 25 3c 3c 31 36 29 2b 28 42 25 3c 3c 32 34 29 0d |%<<16)+(B%<<24).| 00000190 00 e6 28 c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 |..(.. "ColourTra| 000001a0 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 43 25 2c 2c |ns_SetGCOL",C%,,| 000001b0 2c 26 31 30 30 2c 30 0d 00 f0 05 e1 0d ff |,&100,0.......| 000001be
.