!StarInfo/Files/RGBcube

Home » Archimedes archive » Acorn User » AU 1993-05.adf » !StarInfo/Files/RGBcube

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 1993-05.adf
Filename:	!StarInfo/Files/RGBcube
Read OK:	✔
File size:	0217 bytes
Load address:	FFFFFB44
Exec address:	78BD0ACD

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Acorn User » AU 1993-05.adf » !StarInfo/Files/RGBcube
Archimedes archive » Acorn User » AU 1993-05 (2).adf » !StarInfo/Files/RGBcube

File contents

   10REM     >RGBcube (Info3)
   20REM By  DCA
   30REM For 32-bit machines (RO3.1)
   40REM (c) BAU May 1993
   50:
   60MODE 15
   70OFF
   80SYS "OS_SWINumberFromString",,"ColourTrans_SetGCOL" TO set_gcol%
   90step=1/8
  100rot=RAD(130)
  110ORIGIN 640,1200
  120FOR r=0 TO 1 STEP step
  130 FOR g=0 TO 1 STEP step
  140  FOR b=0 TO 1 STEP step
  150   SYS set_gcol%,((r*&FF)<<8)+((g*&FF)<<16)+((b*&FF)<<24),,,&100,0
  160   xx=r-0.5
  170   zz=g-0.5
  180   x=xx*COS(rot)+zz*SIN(rot)
  190   z=3+xx*-SIN(rot)+zz*COS(rot)
  200   y=b-1.5
  210   x1=1800*x/z
  220   y1=1800*y/z
  230   CIRCLE FILL x1,y1,8
  240  NEXT
  250 NEXT
  260NEXT
  270END


�     >RGBcube (Info3)

� By  DCA
!� For 32-bit machines (RO3.1)
(� (c) BAU May 1993
2:
<� 15
F�
PBș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � set_gcol%
Zstep=1/8
drot=�(130)
nȑ 640,1200
x� r=0 � 1 � step
� � g=0 � 1 � step
�  � b=0 � 1 � step
�E   ș set_gcol%,((r*&FF)<<8)+((g*&FF)<<16)+((b*&FF)<<24),,,&100,0
�   xx=r-0.5
�   zz=g-0.5
�   x=xx*�(rot)+zz*�(rot)
�   z=3+xx*-�(rot)+zz*�(rot)
�   y=b-1.5
�   x1=1800*x/z
�   y1=1800*y/z
�   ȏ Ȑ x1,y1,8
�  �
� �
�
�
�

00000000  0d 00 0a 1a f4 20 20 20  20 20 3e 52 47 42 63 75  |.....     >RGBcu|
00000010  62 65 20 28 49 6e 66 6f  33 29 0d 00 14 0d f4 20  |be (Info3)..... |
00000020  42 79 20 20 44 43 41 0d  00 1e 21 f4 20 46 6f 72  |By  DCA...!. For|
00000030  20 33 32 2d 62 69 74 20  6d 61 63 68 69 6e 65 73  | 32-bit machines|
00000040  20 28 52 4f 33 2e 31 29  0d 00 28 16 f4 20 28 63  | (RO3.1)..(.. (c|
00000050  29 20 42 41 55 20 4d 61  79 20 31 39 39 33 0d 00  |) BAU May 1993..|
00000060  32 05 3a 0d 00 3c 08 eb  20 31 35 0d 00 46 05 87  |2.:..<.. 15..F..|
00000070  0d 00 50 42 c8 99 20 22  4f 53 5f 53 57 49 4e 75  |..PB.. "OS_SWINu|
00000080  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
00000090  2c 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  |,"ColourTrans_Se|
000000a0  74 47 43 4f 4c 22 20 b8  20 73 65 74 5f 67 63 6f  |tGCOL" . set_gco|
000000b0  6c 25 0d 00 5a 0c 73 74  65 70 3d 31 2f 38 0d 00  |l%..Z.step=1/8..|
000000c0  64 0e 72 6f 74 3d b2 28  31 33 30 29 0d 00 6e 0f  |d.rot=.(130)..n.|
000000d0  c8 91 20 36 34 30 2c 31  32 30 30 0d 00 78 14 e3  |.. 640,1200..x..|
000000e0  20 72 3d 30 20 b8 20 31  20 88 20 73 74 65 70 0d  | r=0 . 1 . step.|
000000f0  00 82 15 20 e3 20 67 3d  30 20 b8 20 31 20 88 20  |... . g=0 . 1 . |
00000100  73 74 65 70 0d 00 8c 16  20 20 e3 20 62 3d 30 20  |step....  . b=0 |
00000110  b8 20 31 20 88 20 73 74  65 70 0d 00 96 45 20 20  |. 1 . step...E  |
00000120  20 c8 99 20 73 65 74 5f  67 63 6f 6c 25 2c 28 28  | .. set_gcol%,((|
00000130  72 2a 26 46 46 29 3c 3c  38 29 2b 28 28 67 2a 26  |r*&FF)<<8)+((g*&|
00000140  46 46 29 3c 3c 31 36 29  2b 28 28 62 2a 26 46 46  |FF)<<16)+((b*&FF|
00000150  29 3c 3c 32 34 29 2c 2c  2c 26 31 30 30 2c 30 0d  |)<<24),,,&100,0.|
00000160  00 a0 0f 20 20 20 78 78  3d 72 2d 30 2e 35 0d 00  |...   xx=r-0.5..|
00000170  aa 0f 20 20 20 7a 7a 3d  67 2d 30 2e 35 0d 00 b4  |..   zz=g-0.5...|
00000180  1c 20 20 20 78 3d 78 78  2a 9b 28 72 6f 74 29 2b  |.   x=xx*.(rot)+|
00000190  7a 7a 2a b5 28 72 6f 74  29 0d 00 be 1f 20 20 20  |zz*.(rot)....   |
000001a0  7a 3d 33 2b 78 78 2a 2d  b5 28 72 6f 74 29 2b 7a  |z=3+xx*-.(rot)+z|
000001b0  7a 2a 9b 28 72 6f 74 29  0d 00 c8 0e 20 20 20 79  |z*.(rot)....   y|
000001c0  3d 62 2d 31 2e 35 0d 00  d2 12 20 20 20 78 31 3d  |=b-1.5....   x1=|
000001d0  31 38 30 30 2a 78 2f 7a  0d 00 dc 12 20 20 20 79  |1800*x/z....   y|
000001e0  31 3d 31 38 30 30 2a 79  2f 7a 0d 00 e6 14 20 20  |1=1800*y/z....  |
000001f0  20 c8 8f 20 c8 90 20 78  31 2c 79 31 2c 38 0d 00  | .. .. x1,y1,8..|
00000200  f0 07 20 20 ed 0d 00 fa  06 20 ed 0d 01 04 05 ed  |..  ..... ......|
00000210  0d 01 0e 05 e0 0d ff                              |.......|
00000217

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .