Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Regulars » info/Hollis/Texture
info/Hollis/Texture
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-07 A.adf » Regulars |
| Filename: | info/Hollis/Texture |
| Read OK: | ✔ |
| File size: | 0CAC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
MODE 15
ORIGIN 640, 512
PROCgraphics_init
PROCinit
FOR m=1 TO textures
P. STR$m ") " texture$(m)
NEXT
P.
INPUT "Enter texture number", ref
IF ref<1 ref=1
IF ref>textures ref=textures
OFF
sprite_data!0=80*1024
sprite_data!8=16
SYS "OS_SpriteOp", 256+9, sprite_data
SYS "OS_SpriteOp", 256+10, sprite_data, "<Graphics$Dir>.Textures."+texture$(ref)
SYS "OS_SpriteOp", 256+24, sprite_data, texture$(ref) TO , , addr
texture_data=addr+addr!32
viewdist=1024
xdist=500
ydist=0
zdist=1024*2
xrot=40
yrot=0
zrot=30
mx=COSRADxrot
my=COSRADyrot
mz=COSRADzrot
nx=SINRADxrot
ny=SINRADyrot
nz=SINRADzrot
PROCrotate_vector(1,0,0,xi,yi,zi)
PROCrotate_vector(0,1,0,xj,yj,zj)
PROCrotate_vector(0,0,1,xk,yk,zk)
FOR m=0 TO vertices-1
rotx(m)=xk*vertz(m)+xj*verty(m)+xi*vertx(m)+xdist
roty(m)=yk*vertz(m)+yj*verty(m)+yi*vertx(m)+ydist
rotz(m)=zk*vertz(m)+zj*verty(m)+zi*vertx(m)+zdist
NEXT
FOR m=0 TO vertices-1
x(m)=rotx(m)/rotz(m)*viewdist
y(m)=roty(m)/rotz(m)*viewdist
NEXT
xstart=x(0)
ystart=y(0)
xend=x(0)
yend=y(0)
FOR m=0 TO 3
IF x(m) < xstart xstart=x(m)
IF y(m) < ystart ystart=y(m)
IF x(m) > xend xend=x(m)
IF y(m) > yend yend=y(m)
NEXT
IF xstart<-640 xstart=-640
IF ystart<-512 ystart=-512
IF xend>640-1 xend=640-1
IF yend>512-1 yend=512-1
FOR m=0 TO faces-1
a=fdata(m,0)
b=fdata(m,1)
c=fdata(m,2)
d=fdata(m,3)
x0=x(a)-x(b)
y0=y(a)-y(b)
x1=x(a)-x(c)
y1=y(a)-y(c)
IF x0*y1-x1*y0 <0 THEN
GCOL col(m)>>2 TINT col(m)<<6
MOVE x(a), y(a)
MOVE x(b), y(b)
PLOT 85, x(d), y(d)
PLOT 85, x(c), y(c)
ENDIF
NEXT
xv=zi*zdist+yi*ydist+xi*xdist
yv=zj*zdist+yj*ydist+xj*xdist
zv=zk*zdist+yk*ydist+xk*xdist
FOR yy=ystart TO yend STEP 4
FOR xx=xstart TO xend STEP 2
xs=zi*viewdist+yi*yy+xi*xx
ys=zj*viewdist+yj*yy+xj*xx
zs=zk*viewdist+yk*yy+xk*xx
x=zv*xs/zs-xv
y=zv*ys/zs-yv
PROCgraphics_draw(x,y)
NEXT
NEXT
END
DEF PROCgraphics_draw(x,y)
x+=512
y+=512
IF x<0 OR x>=1024 OR y<0 OR y>=1024 ENDPROC
x=x DIV 4
y=y DIV 4
g=?(texture_data+(255-y)*256+x)
x=(xx+640) DIV 2
y=(yy+512) DIV 4
?(vdu_address+(255-y)*640+x)=g
ENDPROC
DEF PROCgraphics_init
DIM sprite_data 80*1024
DIM vdu 20
vdu!0=148
vdu!4=-1
SYS "OS_ReadVduVariables",vdu,vdu+8
vdu_address=vdu!8
ENDPROC
DEF PROCrotate_vector(x, y, z, RETURN x, RETURN y, RETURN z)
x0=x*mz-y*nz
y0=x*nz+y*mz
z0=z*my-x0*ny
x=z*ny+x0*my
y=y0*mx-z0*nx
z=y0*nx+z0*mx
ENDPROC
DEF PROCinit
DIM texture$(20)
m=0
REPEAT
m+=1
READ m$
texture$(m)=m$
UNTIL m$=""
textures=m-1
DATA "acorn", "arrow", "funkydraw", "stone"
DATA ""
vertices=8
faces=6
DIM vertx(vertices), verty(vertices), vertz(vertices)
DIM rotx(vertices), roty(vertices), rotz(vertices)
DIM x(vertices), y(vertices)
DIM fdata(faces,4), col(faces)
FOR m=0 TO vertices-1
READ vertx(m), verty(m), vertz(m)
NEXT
FOR m=0 TO faces-1
FOR n=0 TO 3
READ fdata(m,n)
NEXT
READ col(m)
NEXT
ENDPROC
DATA -512, 512, 0
DATA 512, 512, 0
DATA 512, -512, 0
DATA -512, -512, 0
DATA -512, 512, 256
DATA 512, 512, 256
DATA 512, -512, 256
DATA -512, -512, 256
DATA 4,5,1,0,12
DATA 6,7,3,2,12
DATA 5,6,2,1,10
DATA 7,4,0,3,10
DATA 7,6,5,4,8
DATA 0,1,2,3,8
00000000 20 4d 4f 44 45 20 31 35 0a 20 4f 52 49 47 49 4e | MODE 15. ORIGIN| 00000010 20 36 34 30 2c 20 35 31 32 0a 20 50 52 4f 43 67 | 640, 512. PROCg| 00000020 72 61 70 68 69 63 73 5f 69 6e 69 74 0a 20 50 52 |raphics_init. PR| 00000030 4f 43 69 6e 69 74 0a 0a 20 46 4f 52 20 6d 3d 31 |OCinit.. FOR m=1| 00000040 20 54 4f 20 74 65 78 74 75 72 65 73 0a 20 50 2e | TO textures. P.| 00000050 20 53 54 52 24 6d 20 22 29 20 22 20 74 65 78 74 | STR$m ") " text| 00000060 75 72 65 24 28 6d 29 0a 20 4e 45 58 54 0a 20 50 |ure$(m). NEXT. P| 00000070 2e 0a 20 49 4e 50 55 54 20 22 45 6e 74 65 72 20 |.. INPUT "Enter | 00000080 74 65 78 74 75 72 65 20 6e 75 6d 62 65 72 22 2c |texture number",| 00000090 20 72 65 66 0a 0a 20 49 46 20 72 65 66 3c 31 20 | ref.. IF ref<1 | 000000a0 20 72 65 66 3d 31 0a 20 49 46 20 72 65 66 3e 74 | ref=1. IF ref>t| 000000b0 65 78 74 75 72 65 73 20 20 72 65 66 3d 74 65 78 |extures ref=tex| 000000c0 74 75 72 65 73 0a 0a 20 4f 46 46 0a 0a 20 73 70 |tures.. OFF.. sp| 000000d0 72 69 74 65 5f 64 61 74 61 21 30 3d 38 30 2a 31 |rite_data!0=80*1| 000000e0 30 32 34 0a 20 73 70 72 69 74 65 5f 64 61 74 61 |024. sprite_data| 000000f0 21 38 3d 31 36 0a 20 53 59 53 20 22 4f 53 5f 53 |!8=16. SYS "OS_S| 00000100 70 72 69 74 65 4f 70 22 2c 20 32 35 36 2b 39 2c |priteOp", 256+9,| 00000110 20 73 70 72 69 74 65 5f 64 61 74 61 0a 20 53 59 | sprite_data. SY| 00000120 53 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |S "OS_SpriteOp",| 00000130 20 32 35 36 2b 31 30 2c 20 73 70 72 69 74 65 5f | 256+10, sprite_| 00000140 64 61 74 61 2c 20 22 3c 47 72 61 70 68 69 63 73 |data, "<Graphics| 00000150 24 44 69 72 3e 2e 54 65 78 74 75 72 65 73 2e 22 |$Dir>.Textures."| 00000160 2b 74 65 78 74 75 72 65 24 28 72 65 66 29 0a 20 |+texture$(ref). | 00000170 53 59 53 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 |SYS "OS_SpriteOp| 00000180 22 2c 20 32 35 36 2b 32 34 2c 20 73 70 72 69 74 |", 256+24, sprit| 00000190 65 5f 64 61 74 61 2c 20 74 65 78 74 75 72 65 24 |e_data, texture$| 000001a0 28 72 65 66 29 20 54 4f 20 2c 20 2c 20 61 64 64 |(ref) TO , , add| 000001b0 72 0a 20 74 65 78 74 75 72 65 5f 64 61 74 61 3d |r. texture_data=| 000001c0 61 64 64 72 2b 61 64 64 72 21 33 32 0a 0a 0a 20 |addr+addr!32... | 000001d0 76 69 65 77 64 69 73 74 3d 31 30 32 34 0a 0a 20 |viewdist=1024.. | 000001e0 78 64 69 73 74 3d 35 30 30 0a 20 79 64 69 73 74 |xdist=500. ydist| 000001f0 3d 30 0a 20 7a 64 69 73 74 3d 31 30 32 34 2a 32 |=0. zdist=1024*2| 00000200 0a 0a 20 78 72 6f 74 3d 34 30 0a 20 79 72 6f 74 |.. xrot=40. yrot| 00000210 3d 30 0a 20 7a 72 6f 74 3d 33 30 0a 0a 0a 20 6d |=0. zrot=30... m| 00000220 78 3d 43 4f 53 52 41 44 78 72 6f 74 0a 20 6d 79 |x=COSRADxrot. my| 00000230 3d 43 4f 53 52 41 44 79 72 6f 74 0a 20 6d 7a 3d |=COSRADyrot. mz=| 00000240 43 4f 53 52 41 44 7a 72 6f 74 0a 0a 20 6e 78 3d |COSRADzrot.. nx=| 00000250 53 49 4e 52 41 44 78 72 6f 74 0a 20 6e 79 3d 53 |SINRADxrot. ny=S| 00000260 49 4e 52 41 44 79 72 6f 74 0a 20 6e 7a 3d 53 49 |INRADyrot. nz=SI| 00000270 4e 52 41 44 7a 72 6f 74 0a 0a 20 50 52 4f 43 72 |NRADzrot.. PROCr| 00000280 6f 74 61 74 65 5f 76 65 63 74 6f 72 28 31 2c 30 |otate_vector(1,0| 00000290 2c 30 2c 78 69 2c 79 69 2c 7a 69 29 0a 20 50 52 |,0,xi,yi,zi). PR| 000002a0 4f 43 72 6f 74 61 74 65 5f 76 65 63 74 6f 72 28 |OCrotate_vector(| 000002b0 30 2c 31 2c 30 2c 78 6a 2c 79 6a 2c 7a 6a 29 0a |0,1,0,xj,yj,zj).| 000002c0 20 50 52 4f 43 72 6f 74 61 74 65 5f 76 65 63 74 | PROCrotate_vect| 000002d0 6f 72 28 30 2c 30 2c 31 2c 78 6b 2c 79 6b 2c 7a |or(0,0,1,xk,yk,z| 000002e0 6b 29 0a 0a 0a 20 46 4f 52 20 6d 3d 30 20 54 4f |k)... FOR m=0 TO| 000002f0 20 76 65 72 74 69 63 65 73 2d 31 0a 20 72 6f 74 | vertices-1. rot| 00000300 78 28 6d 29 3d 78 6b 2a 76 65 72 74 7a 28 6d 29 |x(m)=xk*vertz(m)| 00000310 2b 78 6a 2a 76 65 72 74 79 28 6d 29 2b 78 69 2a |+xj*verty(m)+xi*| 00000320 76 65 72 74 78 28 6d 29 2b 78 64 69 73 74 0a 20 |vertx(m)+xdist. | 00000330 72 6f 74 79 28 6d 29 3d 79 6b 2a 76 65 72 74 7a |roty(m)=yk*vertz| 00000340 28 6d 29 2b 79 6a 2a 76 65 72 74 79 28 6d 29 2b |(m)+yj*verty(m)+| 00000350 79 69 2a 76 65 72 74 78 28 6d 29 2b 79 64 69 73 |yi*vertx(m)+ydis| 00000360 74 0a 20 72 6f 74 7a 28 6d 29 3d 7a 6b 2a 76 65 |t. rotz(m)=zk*ve| 00000370 72 74 7a 28 6d 29 2b 7a 6a 2a 76 65 72 74 79 28 |rtz(m)+zj*verty(| 00000380 6d 29 2b 7a 69 2a 76 65 72 74 78 28 6d 29 2b 7a |m)+zi*vertx(m)+z| 00000390 64 69 73 74 0a 20 4e 45 58 54 0a 0a 20 46 4f 52 |dist. NEXT.. FOR| 000003a0 20 6d 3d 30 20 54 4f 20 76 65 72 74 69 63 65 73 | m=0 TO vertices| 000003b0 2d 31 0a 20 78 28 6d 29 3d 72 6f 74 78 28 6d 29 |-1. x(m)=rotx(m)| 000003c0 2f 72 6f 74 7a 28 6d 29 2a 76 69 65 77 64 69 73 |/rotz(m)*viewdis| 000003d0 74 0a 20 79 28 6d 29 3d 72 6f 74 79 28 6d 29 2f |t. y(m)=roty(m)/| 000003e0 72 6f 74 7a 28 6d 29 2a 76 69 65 77 64 69 73 74 |rotz(m)*viewdist| 000003f0 0a 20 4e 45 58 54 0a 0a 20 78 73 74 61 72 74 3d |. NEXT.. xstart=| 00000400 78 28 30 29 0a 20 79 73 74 61 72 74 3d 79 28 30 |x(0). ystart=y(0| 00000410 29 0a 20 78 65 6e 64 3d 78 28 30 29 0a 20 79 65 |). xend=x(0). ye| 00000420 6e 64 3d 79 28 30 29 0a 0a 20 46 4f 52 20 6d 3d |nd=y(0).. FOR m=| 00000430 30 20 54 4f 20 33 0a 20 49 46 20 78 28 6d 29 20 |0 TO 3. IF x(m) | 00000440 3c 20 78 73 74 61 72 74 20 20 78 73 74 61 72 74 |< xstart xstart| 00000450 3d 78 28 6d 29 0a 20 49 46 20 79 28 6d 29 20 3c |=x(m). IF y(m) <| 00000460 20 79 73 74 61 72 74 20 20 79 73 74 61 72 74 3d | ystart ystart=| 00000470 79 28 6d 29 0a 0a 20 49 46 20 78 28 6d 29 20 3e |y(m).. IF x(m) >| 00000480 20 78 65 6e 64 20 20 78 65 6e 64 3d 78 28 6d 29 | xend xend=x(m)| 00000490 0a 20 49 46 20 79 28 6d 29 20 3e 20 79 65 6e 64 |. IF y(m) > yend| 000004a0 20 20 79 65 6e 64 3d 79 28 6d 29 0a 20 4e 45 58 | yend=y(m). NEX| 000004b0 54 0a 0a 20 49 46 20 78 73 74 61 72 74 3c 2d 36 |T.. IF xstart<-6| 000004c0 34 30 20 20 78 73 74 61 72 74 3d 2d 36 34 30 0a |40 xstart=-640.| 000004d0 20 49 46 20 79 73 74 61 72 74 3c 2d 35 31 32 20 | IF ystart<-512 | 000004e0 20 79 73 74 61 72 74 3d 2d 35 31 32 0a 20 49 46 | ystart=-512. IF| 000004f0 20 78 65 6e 64 3e 36 34 30 2d 31 20 20 78 65 6e | xend>640-1 xen| 00000500 64 3d 36 34 30 2d 31 0a 20 49 46 20 79 65 6e 64 |d=640-1. IF yend| 00000510 3e 35 31 32 2d 31 20 20 79 65 6e 64 3d 35 31 32 |>512-1 yend=512| 00000520 2d 31 0a 0a 0a 20 46 4f 52 20 6d 3d 30 20 54 4f |-1... FOR m=0 TO| 00000530 20 66 61 63 65 73 2d 31 0a 20 61 3d 66 64 61 74 | faces-1. a=fdat| 00000540 61 28 6d 2c 30 29 0a 20 62 3d 66 64 61 74 61 28 |a(m,0). b=fdata(| 00000550 6d 2c 31 29 0a 20 63 3d 66 64 61 74 61 28 6d 2c |m,1). c=fdata(m,| 00000560 32 29 0a 20 64 3d 66 64 61 74 61 28 6d 2c 33 29 |2). d=fdata(m,3)| 00000570 0a 20 78 30 3d 78 28 61 29 2d 78 28 62 29 0a 20 |. x0=x(a)-x(b). | 00000580 79 30 3d 79 28 61 29 2d 79 28 62 29 0a 20 78 31 |y0=y(a)-y(b). x1| 00000590 3d 78 28 61 29 2d 78 28 63 29 0a 20 79 31 3d 79 |=x(a)-x(c). y1=y| 000005a0 28 61 29 2d 79 28 63 29 0a 20 49 46 20 78 30 2a |(a)-y(c). IF x0*| 000005b0 79 31 2d 78 31 2a 79 30 20 3c 30 20 20 54 48 45 |y1-x1*y0 <0 THE| 000005c0 4e 0a 20 47 43 4f 4c 20 63 6f 6c 28 6d 29 3e 3e |N. GCOL col(m)>>| 000005d0 32 20 54 49 4e 54 20 63 6f 6c 28 6d 29 3c 3c 36 |2 TINT col(m)<<6| 000005e0 0a 20 4d 4f 56 45 20 78 28 61 29 2c 20 79 28 61 |. MOVE x(a), y(a| 000005f0 29 0a 20 4d 4f 56 45 20 78 28 62 29 2c 20 79 28 |). MOVE x(b), y(| 00000600 62 29 0a 20 50 4c 4f 54 20 38 35 2c 20 78 28 64 |b). PLOT 85, x(d| 00000610 29 2c 20 79 28 64 29 0a 20 50 4c 4f 54 20 38 35 |), y(d). PLOT 85| 00000620 2c 20 78 28 63 29 2c 20 79 28 63 29 0a 20 45 4e |, x(c), y(c). EN| 00000630 44 49 46 0a 20 4e 45 58 54 0a 0a 0a 20 78 76 3d |DIF. NEXT... xv=| 00000640 7a 69 2a 7a 64 69 73 74 2b 79 69 2a 79 64 69 73 |zi*zdist+yi*ydis| 00000650 74 2b 78 69 2a 78 64 69 73 74 0a 20 79 76 3d 7a |t+xi*xdist. yv=z| 00000660 6a 2a 7a 64 69 73 74 2b 79 6a 2a 79 64 69 73 74 |j*zdist+yj*ydist| 00000670 2b 78 6a 2a 78 64 69 73 74 0a 20 7a 76 3d 7a 6b |+xj*xdist. zv=zk| 00000680 2a 7a 64 69 73 74 2b 79 6b 2a 79 64 69 73 74 2b |*zdist+yk*ydist+| 00000690 78 6b 2a 78 64 69 73 74 0a 0a 0a 20 46 4f 52 20 |xk*xdist... FOR | 000006a0 79 79 3d 79 73 74 61 72 74 20 54 4f 20 79 65 6e |yy=ystart TO yen| 000006b0 64 20 53 54 45 50 20 34 0a 20 46 4f 52 20 78 78 |d STEP 4. FOR xx| 000006c0 3d 78 73 74 61 72 74 20 54 4f 20 78 65 6e 64 20 |=xstart TO xend | 000006d0 53 54 45 50 20 32 0a 20 78 73 3d 7a 69 2a 76 69 |STEP 2. xs=zi*vi| 000006e0 65 77 64 69 73 74 2b 79 69 2a 79 79 2b 78 69 2a |ewdist+yi*yy+xi*| 000006f0 78 78 0a 20 79 73 3d 7a 6a 2a 76 69 65 77 64 69 |xx. ys=zj*viewdi| 00000700 73 74 2b 79 6a 2a 79 79 2b 78 6a 2a 78 78 0a 20 |st+yj*yy+xj*xx. | 00000710 7a 73 3d 7a 6b 2a 76 69 65 77 64 69 73 74 2b 79 |zs=zk*viewdist+y| 00000720 6b 2a 79 79 2b 78 6b 2a 78 78 0a 20 78 3d 7a 76 |k*yy+xk*xx. x=zv| 00000730 2a 78 73 2f 7a 73 2d 78 76 0a 20 79 3d 7a 76 2a |*xs/zs-xv. y=zv*| 00000740 79 73 2f 7a 73 2d 79 76 0a 20 50 52 4f 43 67 72 |ys/zs-yv. PROCgr| 00000750 61 70 68 69 63 73 5f 64 72 61 77 28 78 2c 79 29 |aphics_draw(x,y)| 00000760 0a 20 4e 45 58 54 0a 20 4e 45 58 54 0a 20 45 4e |. NEXT. NEXT. EN| 00000770 44 0a 0a 0a 0a 20 44 45 46 20 50 52 4f 43 67 72 |D.... DEF PROCgr| 00000780 61 70 68 69 63 73 5f 64 72 61 77 28 78 2c 79 29 |aphics_draw(x,y)| 00000790 0a 20 78 2b 3d 35 31 32 0a 20 79 2b 3d 35 31 32 |. x+=512. y+=512| 000007a0 0a 20 49 46 20 78 3c 30 20 4f 52 20 78 3e 3d 31 |. IF x<0 OR x>=1| 000007b0 30 32 34 20 4f 52 20 20 79 3c 30 20 4f 52 20 79 |024 OR y<0 OR y| 000007c0 3e 3d 31 30 32 34 20 20 45 4e 44 50 52 4f 43 0a |>=1024 ENDPROC.| 000007d0 20 78 3d 78 20 44 49 56 20 34 0a 20 79 3d 79 20 | x=x DIV 4. y=y | 000007e0 44 49 56 20 34 0a 20 67 3d 3f 28 74 65 78 74 75 |DIV 4. g=?(textu| 000007f0 72 65 5f 64 61 74 61 2b 28 32 35 35 2d 79 29 2a |re_data+(255-y)*| 00000800 32 35 36 2b 78 29 0a 20 78 3d 28 78 78 2b 36 34 |256+x). x=(xx+64| 00000810 30 29 20 44 49 56 20 32 0a 20 79 3d 28 79 79 2b |0) DIV 2. y=(yy+| 00000820 35 31 32 29 20 44 49 56 20 34 0a 20 3f 28 76 64 |512) DIV 4. ?(vd| 00000830 75 5f 61 64 64 72 65 73 73 2b 28 32 35 35 2d 79 |u_address+(255-y| 00000840 29 2a 36 34 30 2b 78 29 3d 67 0a 20 45 4e 44 50 |)*640+x)=g. ENDP| 00000850 52 4f 43 0a 0a 0a 0a 20 44 45 46 20 50 52 4f 43 |ROC.... DEF PROC| 00000860 67 72 61 70 68 69 63 73 5f 69 6e 69 74 0a 20 44 |graphics_init. D| 00000870 49 4d 20 73 70 72 69 74 65 5f 64 61 74 61 20 38 |IM sprite_data 8| 00000880 30 2a 31 30 32 34 0a 20 44 49 4d 20 76 64 75 20 |0*1024. DIM vdu | 00000890 32 30 0a 20 76 64 75 21 30 3d 31 34 38 0a 20 76 |20. vdu!0=148. v| 000008a0 64 75 21 34 3d 2d 31 0a 20 53 59 53 20 22 4f 53 |du!4=-1. SYS "OS| 000008b0 5f 52 65 61 64 56 64 75 56 61 72 69 61 62 6c 65 |_ReadVduVariable| 000008c0 73 22 2c 76 64 75 2c 76 64 75 2b 38 0a 20 76 64 |s",vdu,vdu+8. vd| 000008d0 75 5f 61 64 64 72 65 73 73 3d 76 64 75 21 38 0a |u_address=vdu!8.| 000008e0 20 45 4e 44 50 52 4f 43 0a 0a 0a 0a 20 44 45 46 | ENDPROC.... DEF| 000008f0 20 50 52 4f 43 72 6f 74 61 74 65 5f 76 65 63 74 | PROCrotate_vect| 00000900 6f 72 28 78 2c 20 79 2c 20 7a 2c 20 52 45 54 55 |or(x, y, z, RETU| 00000910 52 4e 20 78 2c 20 52 45 54 55 52 4e 20 79 2c 20 |RN x, RETURN y, | 00000920 52 45 54 55 52 4e 20 7a 29 0a 20 78 30 3d 78 2a |RETURN z). x0=x*| 00000930 6d 7a 2d 79 2a 6e 7a 0a 20 79 30 3d 78 2a 6e 7a |mz-y*nz. y0=x*nz| 00000940 2b 79 2a 6d 7a 0a 0a 20 7a 30 3d 7a 2a 6d 79 2d |+y*mz.. z0=z*my-| 00000950 78 30 2a 6e 79 0a 20 78 3d 7a 2a 6e 79 2b 78 30 |x0*ny. x=z*ny+x0| 00000960 2a 6d 79 0a 0a 20 79 3d 79 30 2a 6d 78 2d 7a 30 |*my.. y=y0*mx-z0| 00000970 2a 6e 78 0a 20 7a 3d 79 30 2a 6e 78 2b 7a 30 2a |*nx. z=y0*nx+z0*| 00000980 6d 78 0a 20 45 4e 44 50 52 4f 43 0a 0a 0a 0a 20 |mx. ENDPROC.... | 00000990 44 45 46 20 50 52 4f 43 69 6e 69 74 0a 0a 20 44 |DEF PROCinit.. D| 000009a0 49 4d 20 74 65 78 74 75 72 65 24 28 32 30 29 0a |IM texture$(20).| 000009b0 20 6d 3d 30 0a 20 52 45 50 45 41 54 0a 20 20 20 | m=0. REPEAT. | 000009c0 20 20 6d 2b 3d 31 0a 20 20 20 20 20 52 45 41 44 | m+=1. READ| 000009d0 20 6d 24 0a 20 20 20 20 20 74 65 78 74 75 72 65 | m$. texture| 000009e0 24 28 6d 29 3d 6d 24 0a 20 55 4e 54 49 4c 20 6d |$(m)=m$. UNTIL m| 000009f0 24 3d 22 22 0a 20 74 65 78 74 75 72 65 73 3d 6d |$="". textures=m| 00000a00 2d 31 0a 0a 20 44 41 54 41 20 22 61 63 6f 72 6e |-1.. DATA "acorn| 00000a10 22 2c 20 22 61 72 72 6f 77 22 2c 20 22 66 75 6e |", "arrow", "fun| 00000a20 6b 79 64 72 61 77 22 2c 20 22 73 74 6f 6e 65 22 |kydraw", "stone"| 00000a30 0a 20 44 41 54 41 20 22 22 0a 0a 0a 20 76 65 72 |. DATA ""... ver| 00000a40 74 69 63 65 73 3d 38 0a 20 66 61 63 65 73 3d 36 |tices=8. faces=6| 00000a50 0a 20 44 49 4d 20 76 65 72 74 78 28 76 65 72 74 |. DIM vertx(vert| 00000a60 69 63 65 73 29 2c 20 76 65 72 74 79 28 76 65 72 |ices), verty(ver| 00000a70 74 69 63 65 73 29 2c 20 76 65 72 74 7a 28 76 65 |tices), vertz(ve| 00000a80 72 74 69 63 65 73 29 0a 20 44 49 4d 20 72 6f 74 |rtices). DIM rot| 00000a90 78 28 76 65 72 74 69 63 65 73 29 2c 20 72 6f 74 |x(vertices), rot| 00000aa0 79 28 76 65 72 74 69 63 65 73 29 2c 20 72 6f 74 |y(vertices), rot| 00000ab0 7a 28 76 65 72 74 69 63 65 73 29 0a 20 44 49 4d |z(vertices). DIM| 00000ac0 20 78 28 76 65 72 74 69 63 65 73 29 2c 20 79 28 | x(vertices), y(| 00000ad0 76 65 72 74 69 63 65 73 29 0a 20 44 49 4d 20 66 |vertices). DIM f| 00000ae0 64 61 74 61 28 66 61 63 65 73 2c 34 29 2c 20 63 |data(faces,4), c| 00000af0 6f 6c 28 66 61 63 65 73 29 0a 0a 20 46 4f 52 20 |ol(faces).. FOR | 00000b00 6d 3d 30 20 54 4f 20 76 65 72 74 69 63 65 73 2d |m=0 TO vertices-| 00000b10 31 0a 20 52 45 41 44 20 76 65 72 74 78 28 6d 29 |1. READ vertx(m)| 00000b20 2c 20 76 65 72 74 79 28 6d 29 2c 20 76 65 72 74 |, verty(m), vert| 00000b30 7a 28 6d 29 0a 20 4e 45 58 54 0a 0a 20 46 4f 52 |z(m). NEXT.. FOR| 00000b40 20 6d 3d 30 20 54 4f 20 66 61 63 65 73 2d 31 0a | m=0 TO faces-1.| 00000b50 20 46 4f 52 20 6e 3d 30 20 54 4f 20 33 0a 20 52 | FOR n=0 TO 3. R| 00000b60 45 41 44 20 66 64 61 74 61 28 6d 2c 6e 29 0a 20 |EAD fdata(m,n). | 00000b70 4e 45 58 54 0a 20 52 45 41 44 20 63 6f 6c 28 6d |NEXT. READ col(m| 00000b80 29 0a 20 4e 45 58 54 0a 20 45 4e 44 50 52 4f 43 |). NEXT. ENDPROC| 00000b90 0a 0a 0a 20 44 41 54 41 20 2d 35 31 32 2c 20 20 |... DATA -512, | 00000ba0 20 35 31 32 2c 20 30 0a 20 44 41 54 41 20 20 20 | 512, 0. DATA | 00000bb0 35 31 32 2c 20 20 20 35 31 32 2c 20 30 0a 20 44 |512, 512, 0. D| 00000bc0 41 54 41 20 20 20 35 31 32 2c 20 2d 35 31 32 2c |ATA 512, -512,| 00000bd0 20 30 0a 20 44 41 54 41 20 2d 35 31 32 2c 20 2d | 0. DATA -512, -| 00000be0 35 31 32 2c 20 30 0a 0a 20 44 41 54 41 20 2d 35 |512, 0.. DATA -5| 00000bf0 31 32 2c 20 20 20 35 31 32 2c 20 32 35 36 0a 20 |12, 512, 256. | 00000c00 44 41 54 41 20 20 20 35 31 32 2c 20 20 20 35 31 |DATA 512, 51| 00000c10 32 2c 20 32 35 36 0a 20 44 41 54 41 20 20 20 35 |2, 256. DATA 5| 00000c20 31 32 2c 20 2d 35 31 32 2c 20 32 35 36 0a 20 44 |12, -512, 256. D| 00000c30 41 54 41 20 2d 35 31 32 2c 20 2d 35 31 32 2c 20 |ATA -512, -512, | 00000c40 32 35 36 0a 0a 0a 20 44 41 54 41 20 34 2c 35 2c |256... DATA 4,5,| 00000c50 31 2c 30 2c 31 32 0a 20 44 41 54 41 20 36 2c 37 |1,0,12. DATA 6,7| 00000c60 2c 33 2c 32 2c 31 32 0a 0a 20 44 41 54 41 20 35 |,3,2,12.. DATA 5| 00000c70 2c 36 2c 32 2c 31 2c 31 30 0a 20 44 41 54 41 20 |,6,2,1,10. DATA | 00000c80 37 2c 34 2c 30 2c 33 2c 31 30 0a 0a 20 44 41 54 |7,4,0,3,10.. DAT| 00000c90 41 20 37 2c 36 2c 35 2c 34 2c 38 0a 20 44 41 54 |A 7,6,5,4,8. DAT| 00000ca0 41 20 30 2c 31 2c 32 2c 33 2c 38 0a |A 0,1,2,3,8.| 00000cac
.