PD/3D_Tutor/!3DSetUp/!RunImage

Home » Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s » PD/3D_Tutor/!3DSetUp/!RunImage

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 Computing » 1994 06 subscription disc.adf » 9406s
Filename:	PD/3D_Tutor/!3DSetUp/!RunImage
Read OK:	✔
File size:	07D7 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > !RunImage
   20REM 3D Colour setup
   30REM By Paul Mason
   40REM LEN Paul Mason, 1994
   50
   60r_r%=0:r_g%=0:r_b%=0
   70l_r%=0:l_g%=0:l_b%=0
   80PROCgetcols
   90MODE 8
  100REPEAT
  110  WAIT
  120  CLS
  130  PRINT"Press L to change left lens colour"
  140  PRINT"and R to change right one"
  150  PRINT"Press return to set and exit"
  160  get%=GET
  170  *FX21,0
  180  CASE get% OF
  190    WHEN ASC"L" : PROCchange(l_r%,l_g%,l_b%)
  200    WHEN ASC"R" : PROCchange(r_r%,r_g%,r_b%)
  210  ENDCASE
  220UNTIL get%=13
  230PROCputcols
  240OSCLI"Run <3DSC$Dir>.!Boot"
  250END
  260
  270DEFPROCchange(RETURN r%,RETURN g%,RETURN b%)
  280 VDU7
  290 CLS:OFF:ORIGIN 640,512
  300 PRINT'"3D lens colour finder - by Paul Mason"
  310 PRINT'"To increase the amounts of red, green, or blue press R,G, or B respectively"
  320 PRINT"To decrease them, press the same keys in conjunction with Shift"
  330 PRINT"Press Alt to change the colour faster"
  340 PRINT"Press Space when you have set the colour as you wish"
  350 COLOUR 3:GCOL 1
  360 REPEAT:WAIT
  370   COLOUR 1,r%,g%,b%
  380   PRINTTAB(0,10)STRING$(79," ");
  390   PRINTTAB(0,10)r%,g%,b%
  400   CIRCLEFILL 0,0,64
  410   REPEAT
  420     v%=0
  430     IF INKEY(-99) v%=2
  440     IF INKEY(-1) inc%=-1 ELSE inc%=1
  450     IF INKEY(-3) inc%=inc%*16
  460     IF INKEY(-52) r%+=inc%:v%=-1
  470     IF INKEY(-84) g%+=inc%:v%=-1
  480     IF INKEY(-101) b%+=inc%:v%=-1
  490     IF r%<0 r%=0:v%=0 ELSE IF r%>&FF r%=&FF:v%=0
  500     IF g%<0 g%=0:v%=0 ELSE IF g%>&FF g%=&FF:v%=0
  510     IF b%<0 b%=0:v%=0 ELSE IF b%>&FF b%=&FF:v%=0
  520   UNTIL v%
  530 UNTIL v%=2
  540ENDPROC
  550
  560DEFPROCgetcols
  570 a%=OPENIN("<3DSC$Dir>.!Boot")
  580 a$=GET$#a%:a$=GET$#a%
  590 left$=RIGHT$(GET$#a%,6)
  600 right$=RIGHT$(GET$#a%,6)
  610 CLOSE#a%
  620 r_r%=EVAL("&"+MID$(right$,1,2))
  630 r_g%=EVAL("&"+MID$(right$,3,2))
  640 r_b%=EVAL("&"+MID$(right$,5,2))
  650 l_r%=EVAL("&"+MID$(left$,1,2))
  660 l_g%=EVAL("&"+MID$(left$,3,2))
  670 l_b%=EVAL("&"+MID$(left$,5,2))
  680ENDPROC
  690
  700DEFPROCputcols
  710 a%=OPENOUT("<3DSC$Dir>.!Boot")
  720 BPUT#a%,"IconSprites <Obey$Dir>.!Sprites"
  730 BPUT#a%,"Set 3DSC$Dir <Obey$Dir>"
  740 BPUT#a%,"Set 3DEye$Left "+FNop("l")
  750 BPUT#a%,"Set 3DEye$Right "+FNop("r")
  760 CLOSE#a%
  770ENDPROC
  780
  790DEFFNpad(t$,num%)
  800 WHILE LENt$<num%
  810   t$="0"+t$
  820 ENDWHILE
  830=t$
  840
  850DEFFNop(a$)
  860 LOCAL s$
  870 s$=FNpad(STR$~(EVAL(a$+"_r%")),2)
  880 s$+=FNpad(STR$~(EVAL(a$+"_g%")),2)
  890 s$+=FNpad(STR$~(EVAL(a$+"_b%")),2)
  900=s$


� > !RunImage
� 3D Colour setup
� By Paul Mason
(� � Paul Mason, 1994
2
<r_r%=0:r_g%=0:r_b%=0
Fl_r%=0:l_g%=0:l_b%=0
P�getcols
Z� 8
d�
n  Ȗ
x  �
�+  �"Press L to change left lens colour"
�"  �"and R to change right one"
�%  �"Press return to set and exit"
�  get%=�
�
  *FX21,0
�  Ȏ get% �
�(    � �"L" : �change(l_r%,l_g%,l_b%)
�(    � �"R" : �change(r_r%,r_g%,r_b%)
�  �
�
� get%=13
��putcols
��"Run <3DSC$Dir>.!Boot"
��

��change(� r%,� g%,� b%)
 �7
" �:�:ȑ 640,512
,. �'"3D lens colour finder - by Paul Mason"
6T �'"To increase the amounts of red, green, or blue press R,G, or B respectively"
@G �"To decrease them, press the same keys in conjunction with Shift"
J- �"Press Alt to change the colour faster"
T< �"Press Space when you have set the colour as you wish"
^ � 3:� 1
h	 �:Ȗ
r   � 1,r%,g%,b%
|   �0,10)�79," ");
�   �0,10)r%,g%,b%
�   ȏȐ 0,0,64
�   �
�
     v%=0
�     � �(-99) v%=2
�!     � �(-1) inc%=-1 � inc%=1
�     � �(-3) inc%=inc%*16
�      � �(-52) r%+=inc%:v%=-1
�      � �(-84) g%+=inc%:v%=-1
�!     � �(-101) b%+=inc%:v%=-1
�0     � r%<0 r%=0:v%=0 � � r%>&FF r%=&FF:v%=0
�0     � g%<0 g%=0:v%=0 � � g%>&FF g%=&FF:v%=0
�0     � b%<0 b%=0:v%=0 � � b%>&FF b%=&FF:v%=0
   � v%
 � v%=2
�
&
0
��getcols
: a%=�("<3DSC$Dir>.!Boot")
D a$=�#a%:a$=�#a%
N left$=¾#a%,6)
X right$=¾#a%,6)
b	 �#a%
l r_r%=�("&"+�right$,1,2))
v r_g%=�("&"+�right$,3,2))
� r_b%=�("&"+�right$,5,2))
� l_r%=�("&"+�left$,1,2))
� l_g%=�("&"+�left$,3,2))
� l_b%=�("&"+�left$,5,2))
��
�
�
��putcols
� a%=�("<3DSC$Dir>.!Boot")
�+ �#a%,"IconSprites <Obey$Dir>.!Sprites"
�# �#a%,"Set 3DSC$Dir <Obey$Dir>"
�$ �#a%,"Set 3DEye$Left "+�op("l")
�% �#a%,"Set 3DEye$Right "+�op("r")
�	 �#a%
�

ݤpad(t$,num%)
  ȕ �t$<num%
*   t$="0"+t$
4 �
>=t$
H
Rݤop(a$)
\	 � s$
f s$=�pad(�~(�(a$+"_r%")),2)
p  s$+=�pad(�~(�(a$+"_g%")),2)
z  s$+=�pad(�~(�(a$+"_b%")),2)
�=s$
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 15 f4 20 33  44 20 43 6f 6c 6f 75 72  |e..... 3D Colour|
00000020  20 73 65 74 75 70 0d 00  1e 13 f4 20 42 79 20 50  | setup..... By P|
00000030  61 75 6c 20 4d 61 73 6f  6e 0d 00 28 18 f4 20 a9  |aul Mason..(.. .|
00000040  20 50 61 75 6c 20 4d 61  73 6f 6e 2c 20 31 39 39  | Paul Mason, 199|
00000050  34 0d 00 32 04 0d 00 3c  18 72 5f 72 25 3d 30 3a  |4..2...<.r_r%=0:|
00000060  72 5f 67 25 3d 30 3a 72  5f 62 25 3d 30 0d 00 46  |r_g%=0:r_b%=0..F|
00000070  18 6c 5f 72 25 3d 30 3a  6c 5f 67 25 3d 30 3a 6c  |.l_r%=0:l_g%=0:l|
00000080  5f 62 25 3d 30 0d 00 50  0c f2 67 65 74 63 6f 6c  |_b%=0..P..getcol|
00000090  73 0d 00 5a 07 eb 20 38  0d 00 64 05 f5 0d 00 6e  |s..Z.. 8..d....n|
000000a0  08 20 20 c8 96 0d 00 78  07 20 20 db 0d 00 82 2b  |.  ....x.  ....+|
000000b0  20 20 f1 22 50 72 65 73  73 20 4c 20 74 6f 20 63  |  ."Press L to c|
000000c0  68 61 6e 67 65 20 6c 65  66 74 20 6c 65 6e 73 20  |hange left lens |
000000d0  63 6f 6c 6f 75 72 22 0d  00 8c 22 20 20 f1 22 61  |colour"..."  ."a|
000000e0  6e 64 20 52 20 74 6f 20  63 68 61 6e 67 65 20 72  |nd R to change r|
000000f0  69 67 68 74 20 6f 6e 65  22 0d 00 96 25 20 20 f1  |ight one"...%  .|
00000100  22 50 72 65 73 73 20 72  65 74 75 72 6e 20 74 6f  |"Press return to|
00000110  20 73 65 74 20 61 6e 64  20 65 78 69 74 22 0d 00  | set and exit"..|
00000120  a0 0c 20 20 67 65 74 25  3d a5 0d 00 aa 0d 20 20  |..  get%=.....  |
00000130  2a 46 58 32 31 2c 30 0d  00 b4 0f 20 20 c8 8e 20  |*FX21,0....  .. |
00000140  67 65 74 25 20 ca 0d 00  be 28 20 20 20 20 c9 20  |get% ....(    . |
00000150  97 22 4c 22 20 3a 20 f2  63 68 61 6e 67 65 28 6c  |."L" : .change(l|
00000160  5f 72 25 2c 6c 5f 67 25  2c 6c 5f 62 25 29 0d 00  |_r%,l_g%,l_b%)..|
00000170  c8 28 20 20 20 20 c9 20  97 22 52 22 20 3a 20 f2  |.(    . ."R" : .|
00000180  63 68 61 6e 67 65 28 72  5f 72 25 2c 72 5f 67 25  |change(r_r%,r_g%|
00000190  2c 72 5f 62 25 29 0d 00  d2 07 20 20 cb 0d 00 dc  |,r_b%)....  ....|
000001a0  0d fd 20 67 65 74 25 3d  31 33 0d 00 e6 0c f2 70  |.. get%=13.....p|
000001b0  75 74 63 6f 6c 73 0d 00  f0 1b ff 22 52 75 6e 20  |utcols....."Run |
000001c0  3c 33 44 53 43 24 44 69  72 3e 2e 21 42 6f 6f 74  |<3DSC$Dir>.!Boot|
000001d0  22 0d 00 fa 05 e0 0d 01  04 04 0d 01 0e 1c dd f2  |"...............|
000001e0  63 68 61 6e 67 65 28 f8  20 72 25 2c f8 20 67 25  |change(. r%,. g%|
000001f0  2c f8 20 62 25 29 0d 01  18 07 20 ef 37 0d 01 22  |,. b%).... .7.."|
00000200  13 20 db 3a 87 3a c8 91  20 36 34 30 2c 35 31 32  |. .:.:.. 640,512|
00000210  0d 01 2c 2e 20 f1 27 22  33 44 20 6c 65 6e 73 20  |..,. .'"3D lens |
00000220  63 6f 6c 6f 75 72 20 66  69 6e 64 65 72 20 2d 20  |colour finder - |
00000230  62 79 20 50 61 75 6c 20  4d 61 73 6f 6e 22 0d 01  |by Paul Mason"..|
00000240  36 54 20 f1 27 22 54 6f  20 69 6e 63 72 65 61 73  |6T .'"To increas|
00000250  65 20 74 68 65 20 61 6d  6f 75 6e 74 73 20 6f 66  |e the amounts of|
00000260  20 72 65 64 2c 20 67 72  65 65 6e 2c 20 6f 72 20  | red, green, or |
00000270  62 6c 75 65 20 70 72 65  73 73 20 52 2c 47 2c 20  |blue press R,G, |
00000280  6f 72 20 42 20 72 65 73  70 65 63 74 69 76 65 6c  |or B respectivel|
00000290  79 22 0d 01 40 47 20 f1  22 54 6f 20 64 65 63 72  |y"..@G ."To decr|
000002a0  65 61 73 65 20 74 68 65  6d 2c 20 70 72 65 73 73  |ease them, press|
000002b0  20 74 68 65 20 73 61 6d  65 20 6b 65 79 73 20 69  | the same keys i|
000002c0  6e 20 63 6f 6e 6a 75 6e  63 74 69 6f 6e 20 77 69  |n conjunction wi|
000002d0  74 68 20 53 68 69 66 74  22 0d 01 4a 2d 20 f1 22  |th Shift"..J- ."|
000002e0  50 72 65 73 73 20 41 6c  74 20 74 6f 20 63 68 61  |Press Alt to cha|
000002f0  6e 67 65 20 74 68 65 20  63 6f 6c 6f 75 72 20 66  |nge the colour f|
00000300  61 73 74 65 72 22 0d 01  54 3c 20 f1 22 50 72 65  |aster"..T< ."Pre|
00000310  73 73 20 53 70 61 63 65  20 77 68 65 6e 20 79 6f  |ss Space when yo|
00000320  75 20 68 61 76 65 20 73  65 74 20 74 68 65 20 63  |u have set the c|
00000330  6f 6c 6f 75 72 20 61 73  20 79 6f 75 20 77 69 73  |olour as you wis|
00000340  68 22 0d 01 5e 0c 20 fb  20 33 3a e6 20 31 0d 01  |h"..^. . 3:. 1..|
00000350  68 09 20 f5 3a c8 96 0d  01 72 13 20 20 20 fb 20  |h. .:....r.   . |
00000360  31 2c 72 25 2c 67 25 2c  62 25 0d 01 7c 17 20 20  |1,r%,g%,b%..|.  |
00000370  20 f1 8a 30 2c 31 30 29  c4 37 39 2c 22 20 22 29  | ..0,10).79," ")|
00000380  3b 0d 01 86 16 20 20 20  f1 8a 30 2c 31 30 29 72  |;....   ..0,10)r|
00000390  25 2c 67 25 2c 62 25 0d  01 90 12 20 20 20 c8 8f  |%,g%,b%....   ..|
000003a0  c8 90 20 30 2c 30 2c 36  34 0d 01 9a 08 20 20 20  |.. 0,0,64....   |
000003b0  f5 0d 01 a4 0d 20 20 20  20 20 76 25 3d 30 0d 01  |.....     v%=0..|
000003c0  ae 16 20 20 20 20 20 e7  20 a6 28 2d 39 39 29 20  |..     . .(-99) |
000003d0  76 25 3d 32 0d 01 b8 21  20 20 20 20 20 e7 20 a6  |v%=2...!     . .|
000003e0  28 2d 31 29 20 69 6e 63  25 3d 2d 31 20 8b 20 69  |(-1) inc%=-1 . i|
000003f0  6e 63 25 3d 31 0d 01 c2  1d 20 20 20 20 20 e7 20  |nc%=1....     . |
00000400  a6 28 2d 33 29 20 69 6e  63 25 3d 69 6e 63 25 2a  |.(-3) inc%=inc%*|
00000410  31 36 0d 01 cc 20 20 20  20 20 20 e7 20 a6 28 2d  |16...      . .(-|
00000420  35 32 29 20 72 25 2b 3d  69 6e 63 25 3a 76 25 3d  |52) r%+=inc%:v%=|
00000430  2d 31 0d 01 d6 20 20 20  20 20 20 e7 20 a6 28 2d  |-1...      . .(-|
00000440  38 34 29 20 67 25 2b 3d  69 6e 63 25 3a 76 25 3d  |84) g%+=inc%:v%=|
00000450  2d 31 0d 01 e0 21 20 20  20 20 20 e7 20 a6 28 2d  |-1...!     . .(-|
00000460  31 30 31 29 20 62 25 2b  3d 69 6e 63 25 3a 76 25  |101) b%+=inc%:v%|
00000470  3d 2d 31 0d 01 ea 30 20  20 20 20 20 e7 20 72 25  |=-1...0     . r%|
00000480  3c 30 20 72 25 3d 30 3a  76 25 3d 30 20 8b 20 e7  |<0 r%=0:v%=0 . .|
00000490  20 72 25 3e 26 46 46 20  72 25 3d 26 46 46 3a 76  | r%>&FF r%=&FF:v|
000004a0  25 3d 30 0d 01 f4 30 20  20 20 20 20 e7 20 67 25  |%=0...0     . g%|
000004b0  3c 30 20 67 25 3d 30 3a  76 25 3d 30 20 8b 20 e7  |<0 g%=0:v%=0 . .|
000004c0  20 67 25 3e 26 46 46 20  67 25 3d 26 46 46 3a 76  | g%>&FF g%=&FF:v|
000004d0  25 3d 30 0d 01 fe 30 20  20 20 20 20 e7 20 62 25  |%=0...0     . b%|
000004e0  3c 30 20 62 25 3d 30 3a  76 25 3d 30 20 8b 20 e7  |<0 b%=0:v%=0 . .|
000004f0  20 62 25 3e 26 46 46 20  62 25 3d 26 46 46 3a 76  | b%>&FF b%=&FF:v|
00000500  25 3d 30 0d 02 08 0b 20  20 20 fd 20 76 25 0d 02  |%=0....   . v%..|
00000510  12 0b 20 fd 20 76 25 3d  32 0d 02 1c 05 e1 0d 02  |.. . v%=2.......|
00000520  26 04 0d 02 30 0d dd f2  67 65 74 63 6f 6c 73 0d  |&...0...getcols.|
00000530  02 3a 1d 20 61 25 3d 8e  28 22 3c 33 44 53 43 24  |.:. a%=.("<3DSC$|
00000540  44 69 72 3e 2e 21 42 6f  6f 74 22 29 0d 02 44 14  |Dir>.!Boot")..D.|
00000550  20 61 24 3d be 23 61 25  3a 61 24 3d be 23 61 25  | a$=.#a%:a$=.#a%|
00000560  0d 02 4e 13 20 6c 65 66  74 24 3d c2 be 23 61 25  |..N. left$=..#a%|
00000570  2c 36 29 0d 02 58 14 20  72 69 67 68 74 24 3d c2  |,6)..X. right$=.|
00000580  be 23 61 25 2c 36 29 0d  02 62 09 20 d9 23 61 25  |.#a%,6)..b. .#a%|
00000590  0d 02 6c 1d 20 72 5f 72  25 3d a0 28 22 26 22 2b  |..l. r_r%=.("&"+|
000005a0  c1 72 69 67 68 74 24 2c  31 2c 32 29 29 0d 02 76  |.right$,1,2))..v|
000005b0  1d 20 72 5f 67 25 3d a0  28 22 26 22 2b c1 72 69  |. r_g%=.("&"+.ri|
000005c0  67 68 74 24 2c 33 2c 32  29 29 0d 02 80 1d 20 72  |ght$,3,2)).... r|
000005d0  5f 62 25 3d a0 28 22 26  22 2b c1 72 69 67 68 74  |_b%=.("&"+.right|
000005e0  24 2c 35 2c 32 29 29 0d  02 8a 1c 20 6c 5f 72 25  |$,5,2)).... l_r%|
000005f0  3d a0 28 22 26 22 2b c1  6c 65 66 74 24 2c 31 2c  |=.("&"+.left$,1,|
00000600  32 29 29 0d 02 94 1c 20  6c 5f 67 25 3d a0 28 22  |2)).... l_g%=.("|
00000610  26 22 2b c1 6c 65 66 74  24 2c 33 2c 32 29 29 0d  |&"+.left$,3,2)).|
00000620  02 9e 1c 20 6c 5f 62 25  3d a0 28 22 26 22 2b c1  |... l_b%=.("&"+.|
00000630  6c 65 66 74 24 2c 35 2c  32 29 29 0d 02 a8 05 e1  |left$,5,2)).....|
00000640  0d 02 b2 04 0d 02 bc 0d  dd f2 70 75 74 63 6f 6c  |..........putcol|
00000650  73 0d 02 c6 1d 20 61 25  3d ae 28 22 3c 33 44 53  |s.... a%=.("<3DS|
00000660  43 24 44 69 72 3e 2e 21  42 6f 6f 74 22 29 0d 02  |C$Dir>.!Boot")..|
00000670  d0 2b 20 d5 23 61 25 2c  22 49 63 6f 6e 53 70 72  |.+ .#a%,"IconSpr|
00000680  69 74 65 73 20 3c 4f 62  65 79 24 44 69 72 3e 2e  |ites <Obey$Dir>.|
00000690  21 53 70 72 69 74 65 73  22 0d 02 da 23 20 d5 23  |!Sprites"...# .#|
000006a0  61 25 2c 22 53 65 74 20  33 44 53 43 24 44 69 72  |a%,"Set 3DSC$Dir|
000006b0  20 3c 4f 62 65 79 24 44  69 72 3e 22 0d 02 e4 24  | <Obey$Dir>"...$|
000006c0  20 d5 23 61 25 2c 22 53  65 74 20 33 44 45 79 65  | .#a%,"Set 3DEye|
000006d0  24 4c 65 66 74 20 22 2b  a4 6f 70 28 22 6c 22 29  |$Left "+.op("l")|
000006e0  0d 02 ee 25 20 d5 23 61  25 2c 22 53 65 74 20 33  |...% .#a%,"Set 3|
000006f0  44 45 79 65 24 52 69 67  68 74 20 22 2b a4 6f 70  |DEye$Right "+.op|
00000700  28 22 72 22 29 0d 02 f8  09 20 d9 23 61 25 0d 03  |("r").... .#a%..|
00000710  02 05 e1 0d 03 0c 04 0d  03 16 12 dd a4 70 61 64  |.............pad|
00000720  28 74 24 2c 6e 75 6d 25  29 0d 03 20 10 20 c8 95  |(t$,num%).. . ..|
00000730  20 a9 74 24 3c 6e 75 6d  25 0d 03 2a 10 20 20 20  | .t$<num%..*.   |
00000740  74 24 3d 22 30 22 2b 74  24 0d 03 34 06 20 ce 0d  |t$="0"+t$..4. ..|
00000750  03 3e 07 3d 74 24 0d 03  48 04 0d 03 52 0c dd a4  |.>.=t$..H...R...|
00000760  6f 70 28 61 24 29 0d 03  5c 09 20 ea 20 73 24 0d  |op(a$)..\. . s$.|
00000770  03 66 1f 20 73 24 3d a4  70 61 64 28 c3 7e 28 a0  |.f. s$=.pad(.~(.|
00000780  28 61 24 2b 22 5f 72 25  22 29 29 2c 32 29 0d 03  |(a$+"_r%")),2)..|
00000790  70 20 20 73 24 2b 3d a4  70 61 64 28 c3 7e 28 a0  |p  s$+=.pad(.~(.|
000007a0  28 61 24 2b 22 5f 67 25  22 29 29 2c 32 29 0d 03  |(a$+"_g%")),2)..|
000007b0  7a 20 20 73 24 2b 3d a4  70 61 64 28 c3 7e 28 a0  |z  s$+=.pad(.~(.|
000007c0  28 61 24 2b 22 5f 62 25  22 29 29 2c 32 29 0d 03  |(a$+"_b%")),2)..|
000007d0  84 07 3d 73 24 0d ff                              |..=s$..|
000007d7

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