� >!Runimage
� Texture Mapping Program
� � 1994 Kevin Martin
(�15
2�13
<
�setup
Fheight=64:width=64
P
Z+�("LOAD <Textumap$Dir>.code "+�~cosDAT)
d�darken
n� � � 0:�:�
x�testshape
�
��
�
�
���darken
�sprtloc=code+code!16
�� sp 30000
�
!sp=30000
�
sp!4=0
�sp!8=16
�sp!12=16
�7ș "OS_SpriteOp",256+10,sp,"<Textumap$Dir>.sprites"
�A%=sprtloc

datloc=sp+sp!8

� L%=1 � sp!4

B%=datloc+datloc!32

"
� code

,A%+=64*64*4

6datloc+=!datloc

@

J�

T

^�

h

r

|

���setup

�� cosDAT 150000

�datpnt=cosDAT+1028

�points=datpnt+256

�rpnts=points+2048

�sides=rpnts+512

�code=sides+1024

�

�� block  50

�

�� read screen address

�
*FX 113,2

�!block=148

�block!4=149
block!8=-1
+ș "OS_ReadVduVariables",block,block+12
scrn=block!12
&scrn2=block!16
0�
:
D
N��testshape
Xblock!16=0
bblock!20=0
lblock!24=30000
vt=0
�
bank=0
�T=�
�step=200
��5
�
��
�
�ȗ x,y,b
�� b=1 � block!24+=200
�� b=4 � block!24-=200
�block!24-=step
�*� block!24<2300 � block!24=2300:step=0
�
A%=scrn+bank:� code+12


t+=0.2
 g=x/1000*2*�
*p=y/1000*2*�
4block!4=p*512/�
>block!8=t*512/�
Hblock!12=g*512/�
RA%=block
\block!28=scrn+bank
f
block!0=0
p� code+4:� draw stars
z
�5� draw the parts of the ship (in the right order)
�Rv1=(�p(10,0)-�p(3,0))*(�p(11,1)-�p(3,1))-(�p(10,1)-�p(3,1))*(�p(11,0)-�p(3,0))
�Nv2=(�p(1,0)-�p(7,0))*(�p(9,1)-�p(7,1))-(�p(1,1)-�p(7,1))*(�p(9,0)-�p(7,0))
�Nv3=(�p(8,0)-�p(6,0))*(�p(1,1)-�p(6,1))-(�p(8,1)-�p(6,1))*(�p(1,0)-�p(6,0))
�
�� v1>0 � block!0=1:� code+8
�� v2>0 � block!0=2:� code+8
�� v3>0 � block!0=3:� code+8
�
�
block!0=0
�� code+8
�
� � v1<=0 � block!0=1:� code+8
� v2<=0 block!0=2:� code+8
� v3<=0 block!0=3:� code+8

$� 60
.� 250,1020
8� "Texture Mapping Program"
B
� 350,980
L� "By Kevin Martin"
V� 20
`� 250,40
j-� step=0 � � "Use Mouse To Control Ship";
t
~� swap over screens
�� bank=0 �
�
*FX 113,1
�
*FX 112,2
��
�
*FX 113,2
�
*FX 112,1
��
�Ȗ
��
�bank=bank � (scrn2-scrn)
�� �
��


)� function to use memory as an array.
ݤp(n,d)
=!(rpnts+12*n+4*d)
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 69 6d 61 67 65  |..... >!Runimage|
00000010  0d 00 14 1d f4 20 54 65  78 74 75 72 65 20 4d 61  |..... Texture Ma|
00000020  70 70 69 6e 67 20 50 72  6f 67 72 61 6d 0d 00 1e  |pping Program...|
00000030  19 f4 20 a9 20 31 39 39  34 20 4b 65 76 69 6e 20  |.. . 1994 Kevin |
00000040  4d 61 72 74 69 6e 0d 00  28 07 eb 31 35 0d 00 32  |Martin..(..15..2|
00000050  07 eb 31 33 0d 00 3c 0a  f2 73 65 74 75 70 0d 00  |..13..<..setup..|
00000060  46 16 68 65 69 67 68 74  3d 36 34 3a 77 69 64 74  |F.height=64:widt|
00000070  68 3d 36 34 0d 00 50 04  0d 00 5a 2b ff 28 22 4c  |h=64..P...Z+.("L|
00000080  4f 41 44 20 3c 54 65 78  74 75 6d 61 70 24 44 69  |OAD <Textumap$Di|
00000090  72 3e 2e 63 6f 64 65 20  22 2b c3 7e 63 6f 73 44  |r>.code "+.~cosD|
000000a0  41 54 29 0d 00 64 0b f2  64 61 72 6b 65 6e 0d 00  |AT)..d..darken..|
000000b0  6e 0f ee 20 85 20 eb 20  30 3a f6 3a e0 0d 00 78  |n.. . . 0:.:...x|
000000c0  0e f2 74 65 73 74 73 68  61 70 65 0d 00 82 04 0d  |..testshape.....|
000000d0  00 8c 05 e0 0d 00 96 04  0d 00 a0 04 0d 00 aa 0c  |................|
000000e0  dd f2 64 61 72 6b 65 6e  0d 00 b4 18 73 70 72 74  |..darken....sprt|
000000f0  6c 6f 63 3d 63 6f 64 65  2b 63 6f 64 65 21 31 36  |loc=code+code!16|
00000100  0d 00 be 0e de 20 73 70  20 33 30 30 30 30 0d 00  |..... sp 30000..|
00000110  c8 0d 21 73 70 3d 33 30  30 30 30 0d 00 d2 0a 73  |..!sp=30000....s|
00000120  70 21 34 3d 30 0d 00 dc  0b 73 70 21 38 3d 31 36  |p!4=0....sp!8=16|
00000130  0d 00 e6 0c 73 70 21 31  32 3d 31 36 0d 00 f0 37  |....sp!12=16...7|
00000140  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000150  2c 32 35 36 2b 31 30 2c  73 70 2c 22 3c 54 65 78  |,256+10,sp,"<Tex|
00000160  74 75 6d 61 70 24 44 69  72 3e 2e 73 70 72 69 74  |tumap$Dir>.sprit|
00000170  65 73 22 0d 00 fa 0e 41  25 3d 73 70 72 74 6c 6f  |es"....A%=sprtlo|
00000180  63 0d 01 04 12 64 61 74  6c 6f 63 3d 73 70 2b 73  |c....datloc=sp+s|
00000190  70 21 38 0d 01 0e 11 e3  20 4c 25 3d 31 20 b8 20  |p!8..... L%=1 . |
000001a0  73 70 21 34 0d 01 18 17  42 25 3d 64 61 74 6c 6f  |sp!4....B%=datlo|
000001b0  63 2b 64 61 74 6c 6f 63  21 33 32 0d 01 22 0a d6  |c+datloc!32.."..|
000001c0  20 63 6f 64 65 0d 01 2c  0f 41 25 2b 3d 36 34 2a  | code..,.A%+=64*|
000001d0  36 34 2a 34 0d 01 36 13  64 61 74 6c 6f 63 2b 3d  |64*4..6.datloc+=|
000001e0  21 64 61 74 6c 6f 63 0d  01 40 04 0d 01 4a 05 ed  |!datloc..@...J..|
000001f0  0d 01 54 04 0d 01 5e 05  e1 0d 01 68 04 0d 01 72  |..T...^....h...r|
00000200  04 0d 01 7c 04 0d 01 86  0b dd f2 73 65 74 75 70  |...|.......setup|
00000210  0d 01 90 13 de 20 63 6f  73 44 41 54 20 31 35 30  |..... cosDAT 150|
00000220  30 30 30 0d 01 9a 16 64  61 74 70 6e 74 3d 63 6f  |000....datpnt=co|
00000230  73 44 41 54 2b 31 30 32  38 0d 01 a4 15 70 6f 69  |sDAT+1028....poi|
00000240  6e 74 73 3d 64 61 74 70  6e 74 2b 32 35 36 0d 01  |nts=datpnt+256..|
00000250  ae 15 72 70 6e 74 73 3d  70 6f 69 6e 74 73 2b 32  |..rpnts=points+2|
00000260  30 34 38 0d 01 b8 13 73  69 64 65 73 3d 72 70 6e  |048....sides=rpn|
00000270  74 73 2b 35 31 32 0d 01  c2 13 63 6f 64 65 3d 73  |ts+512....code=s|
00000280  69 64 65 73 2b 31 30 32  34 0d 01 cc 04 0d 01 d6  |ides+1024.......|
00000290  0f de 20 62 6c 6f 63 6b  20 20 35 30 0d 01 e0 04  |.. block  50....|
000002a0  0d 01 ea 19 f4 20 72 65  61 64 20 73 63 72 65 65  |..... read scree|
000002b0  6e 20 61 64 64 72 65 73  73 0d 01 eb 0d 2a 46 58  |n address....*FX|
000002c0  20 31 31 33 2c 32 0d 01  f4 0e 21 62 6c 6f 63 6b  | 113,2....!block|
000002d0  3d 31 34 38 0d 01 fe 0f  62 6c 6f 63 6b 21 34 3d  |=148....block!4=|
000002e0  31 34 39 0d 02 08 0e 62  6c 6f 63 6b 21 38 3d 2d  |149....block!8=-|
000002f0  31 0d 02 12 2b c8 99 20  22 4f 53 5f 52 65 61 64  |1...+.. "OS_Read|
00000300  56 64 75 56 61 72 69 61  62 6c 65 73 22 2c 62 6c  |VduVariables",bl|
00000310  6f 63 6b 2c 62 6c 6f 63  6b 2b 31 32 0d 02 1c 11  |ock,block+12....|
00000320  73 63 72 6e 3d 62 6c 6f  63 6b 21 31 32 0d 02 26  |scrn=block!12..&|
00000330  12 73 63 72 6e 32 3d 62  6c 6f 63 6b 21 31 36 0d  |.scrn2=block!16.|
00000340  02 30 05 e1 0d 02 3a 04  0d 02 44 04 0d 02 4e 0f  |.0....:...D...N.|
00000350  dd f2 74 65 73 74 73 68  61 70 65 0d 02 58 0e 62  |..testshape..X.b|
00000360  6c 6f 63 6b 21 31 36 3d  30 0d 02 62 0e 62 6c 6f  |lock!16=0..b.blo|
00000370  63 6b 21 32 30 3d 30 0d  02 6c 12 62 6c 6f 63 6b  |ck!20=0..l.block|
00000380  21 32 34 3d 33 30 30 30  30 0d 02 76 07 74 3d 30  |!24=30000..v.t=0|
00000390  0d 02 80 0a 62 61 6e 6b  3d 30 0d 02 8a 07 54 3d  |....bank=0....T=|
000003a0  91 0d 02 94 0c 73 74 65  70 3d 32 30 30 0d 02 9e  |.....step=200...|
000003b0  06 ef 35 0d 02 a8 04 0d  02 b2 05 f5 0d 02 bc 04  |..5.............|
000003c0  0d 02 c6 0c c8 97 20 78  2c 79 2c 62 0d 02 d0 19  |...... x,y,b....|
000003d0  e7 20 62 3d 31 20 8c 20  62 6c 6f 63 6b 21 32 34  |. b=1 . block!24|
000003e0  2b 3d 32 30 30 0d 02 da  19 e7 20 62 3d 34 20 8c  |+=200..... b=4 .|
000003f0  20 62 6c 6f 63 6b 21 32  34 2d 3d 32 30 30 0d 02  | block!24-=200..|
00000400  e4 12 62 6c 6f 63 6b 21  32 34 2d 3d 73 74 65 70  |..block!24-=step|
00000410  0d 02 ee 2a e7 20 62 6c  6f 63 6b 21 32 34 3c 32  |...*. block!24<2|
00000420  33 30 30 20 8c 20 62 6c  6f 63 6b 21 32 34 3d 32  |300 . block!24=2|
00000430  33 30 30 3a 73 74 65 70  3d 30 0d 02 f8 04 0d 03  |300:step=0......|
00000440  02 1a 41 25 3d 73 63 72  6e 2b 62 61 6e 6b 3a d6  |..A%=scrn+bank:.|
00000450  20 63 6f 64 65 2b 31 32  0d 03 0c 04 0d 03 16 0a  | code+12........|
00000460  74 2b 3d 30 2e 32 0d 03  20 10 67 3d 78 2f 31 30  |t+=0.2.. .g=x/10|
00000470  30 30 2a 32 2a af 0d 03  2a 10 70 3d 79 2f 31 30  |00*2*...*.p=y/10|
00000480  30 30 2a 32 2a af 0d 03  34 13 62 6c 6f 63 6b 21  |00*2*...4.block!|
00000490  34 3d 70 2a 35 31 32 2f  af 0d 03 3e 13 62 6c 6f  |4=p*512/...>.blo|
000004a0  63 6b 21 38 3d 74 2a 35  31 32 2f af 0d 03 48 14  |ck!8=t*512/...H.|
000004b0  62 6c 6f 63 6b 21 31 32  3d 67 2a 35 31 32 2f af  |block!12=g*512/.|
000004c0  0d 03 52 0c 41 25 3d 62  6c 6f 63 6b 0d 03 5c 16  |..R.A%=block..\.|
000004d0  62 6c 6f 63 6b 21 32 38  3d 73 63 72 6e 2b 62 61  |block!28=scrn+ba|
000004e0  6e 6b 0d 03 66 0d 62 6c  6f 63 6b 21 30 3d 30 0d  |nk..f.block!0=0.|
000004f0  03 70 19 d6 20 63 6f 64  65 2b 34 3a f4 20 64 72  |.p.. code+4:. dr|
00000500  61 77 20 73 74 61 72 73  0d 03 7a 04 0d 03 84 35  |aw stars..z....5|
00000510  f4 20 64 72 61 77 20 74  68 65 20 70 61 72 74 73  |. draw the parts|
00000520  20 6f 66 20 74 68 65 20  73 68 69 70 20 28 69 6e  | of the ship (in|
00000530  20 74 68 65 20 72 69 67  68 74 20 6f 72 64 65 72  | the right order|
00000540  29 0d 03 8e 52 76 31 3d  28 a4 70 28 31 30 2c 30  |)...Rv1=(.p(10,0|
00000550  29 2d a4 70 28 33 2c 30  29 29 2a 28 a4 70 28 31  |)-.p(3,0))*(.p(1|
00000560  31 2c 31 29 2d a4 70 28  33 2c 31 29 29 2d 28 a4  |1,1)-.p(3,1))-(.|
00000570  70 28 31 30 2c 31 29 2d  a4 70 28 33 2c 31 29 29  |p(10,1)-.p(3,1))|
00000580  2a 28 a4 70 28 31 31 2c  30 29 2d a4 70 28 33 2c  |*(.p(11,0)-.p(3,|
00000590  30 29 29 0d 03 98 4e 76  32 3d 28 a4 70 28 31 2c  |0))...Nv2=(.p(1,|
000005a0  30 29 2d a4 70 28 37 2c  30 29 29 2a 28 a4 70 28  |0)-.p(7,0))*(.p(|
000005b0  39 2c 31 29 2d a4 70 28  37 2c 31 29 29 2d 28 a4  |9,1)-.p(7,1))-(.|
000005c0  70 28 31 2c 31 29 2d a4  70 28 37 2c 31 29 29 2a  |p(1,1)-.p(7,1))*|
000005d0  28 a4 70 28 39 2c 30 29  2d a4 70 28 37 2c 30 29  |(.p(9,0)-.p(7,0)|
000005e0  29 0d 03 a2 4e 76 33 3d  28 a4 70 28 38 2c 30 29  |)...Nv3=(.p(8,0)|
000005f0  2d a4 70 28 36 2c 30 29  29 2a 28 a4 70 28 31 2c  |-.p(6,0))*(.p(1,|
00000600  31 29 2d a4 70 28 36 2c  31 29 29 2d 28 a4 70 28  |1)-.p(6,1))-(.p(|
00000610  38 2c 31 29 2d a4 70 28  36 2c 31 29 29 2a 28 a4  |8,1)-.p(6,1))*(.|
00000620  70 28 31 2c 30 29 2d a4  70 28 36 2c 30 29 29 0d  |p(1,0)-.p(6,0)).|
00000630  03 ac 04 0d 03 b6 1f e7  20 76 31 3e 30 20 8c 20  |........ v1>0 . |
00000640  62 6c 6f 63 6b 21 30 3d  31 3a d6 20 63 6f 64 65  |block!0=1:. code|
00000650  2b 38 0d 03 c0 1f e7 20  76 32 3e 30 20 8c 20 62  |+8..... v2>0 . b|
00000660  6c 6f 63 6b 21 30 3d 32  3a d6 20 63 6f 64 65 2b  |lock!0=2:. code+|
00000670  38 0d 03 ca 1f e7 20 76  33 3e 30 20 8c 20 62 6c  |8..... v3>0 . bl|
00000680  6f 63 6b 21 30 3d 33 3a  d6 20 63 6f 64 65 2b 38  |ock!0=3:. code+8|
00000690  0d 03 d4 04 0d 03 de 0d  62 6c 6f 63 6b 21 30 3d  |........block!0=|
000006a0  30 0d 03 e8 0c d6 20 63  6f 64 65 2b 38 0d 03 f2  |0..... code+8...|
000006b0  04 0d 03 fc 20 e7 20 76  31 3c 3d 30 20 8c 20 62  |.... . v1<=0 . b|
000006c0  6c 6f 63 6b 21 30 3d 31  3a d6 20 63 6f 64 65 2b  |lock!0=1:. code+|
000006d0  38 0d 04 06 1e e7 20 76  32 3c 3d 30 20 62 6c 6f  |8..... v2<=0 blo|
000006e0  63 6b 21 30 3d 32 3a d6  20 63 6f 64 65 2b 38 0d  |ck!0=2:. code+8.|
000006f0  04 10 1e e7 20 76 33 3c  3d 30 20 62 6c 6f 63 6b  |.... v3<=0 block|
00000700  21 30 3d 33 3a d6 20 63  6f 64 65 2b 38 0d 04 1a  |!0=3:. code+8...|
00000710  04 0d 04 24 08 e6 20 36  30 0d 04 2e 0e ec 20 32  |...$.. 60..... 2|
00000720  35 30 2c 31 30 32 30 0d  04 38 1f f1 20 22 54 65  |50,1020..8.. "Te|
00000730  78 74 75 72 65 20 4d 61  70 70 69 6e 67 20 50 72  |xture Mapping Pr|
00000740  6f 67 72 61 6d 22 0d 04  42 0d ec 20 33 35 30 2c  |ogram"..B.. 350,|
00000750  39 38 30 0d 04 4c 17 f1  20 22 42 79 20 4b 65 76  |980..L.. "By Kev|
00000760  69 6e 20 4d 61 72 74 69  6e 22 0d 04 56 08 e6 20  |in Martin"..V.. |
00000770  32 30 0d 04 60 0c ec 20  32 35 30 2c 34 30 0d 04  |20..`.. 250,40..|
00000780  6a 2d e7 20 73 74 65 70  3d 30 20 8c 20 f1 20 22  |j-. step=0 . . "|
00000790  55 73 65 20 4d 6f 75 73  65 20 54 6f 20 43 6f 6e  |Use Mouse To Con|
000007a0  74 72 6f 6c 20 53 68 69  70 22 3b 0d 04 74 04 0d  |trol Ship";..t..|
000007b0  04 7e 17 f4 20 73 77 61  70 20 6f 76 65 72 20 73  |.~.. swap over s|
000007c0  63 72 65 65 6e 73 0d 04  88 0e e7 20 62 61 6e 6b  |creens..... bank|
000007d0  3d 30 20 8c 0d 04 92 0d  2a 46 58 20 31 31 33 2c  |=0 .....*FX 113,|
000007e0  31 0d 04 9c 0d 2a 46 58  20 31 31 32 2c 32 0d 04  |1....*FX 112,2..|
000007f0  a6 05 cc 0d 04 b0 0d 2a  46 58 20 31 31 33 2c 32  |.......*FX 113,2|
00000800  0d 04 ba 0d 2a 46 58 20  31 31 32 2c 31 0d 04 c4  |....*FX 112,1...|
00000810  05 cd 0d 04 ce 06 c8 96  0d 04 d8 05 db 0d 04 e2  |................|
00000820  1c 62 61 6e 6b 3d 62 61  6e 6b 20 82 20 28 73 63  |.bank=bank . (sc|
00000830  72 6e 32 2d 73 63 72 6e  29 0d 04 ec 07 fd 20 a3  |rn2-scrn)..... .|
00000840  0d 04 f6 05 e1 0d 05 00  04 0d 05 0a 29 f4 20 66  |............). f|
00000850  75 6e 63 74 69 6f 6e 20  74 6f 20 75 73 65 20 6d  |unction to use m|
00000860  65 6d 6f 72 79 20 61 73  20 61 6e 20 61 72 72 61  |emory as an arra|
00000870  79 2e 0d 05 14 0c dd a4  70 28 6e 2c 64 29 0d 05  |y.......p(n,d)..|
00000880  1e 16 3d 21 28 72 70 6e  74 73 2b 31 32 2a 6e 2b  |..=!(rpnts+12*n+|
00000890  34 2a 64 29 0d ff                                 |4*d)..|
00000896