�     >Compile
� By  Robin Barnes
� For 32-bit machines
(� (c) BAU June 1993
2:
<� "Render Compiler v1.00"
F:
Psze%=320*1024
Z#obj=0.4:spr=0.1:div=0.5:wire%=�
d&maxlgt%=32:maxmat%=128:maxobj%=256
n
maxspr%=8
x:
�
�input
�1ș "OS_File",&05,"s."+file$ � tst%,,,,txtsze%
�#� tst%=0 � � "file not found":�
�:
�� text% txtsze%+1
�'ș "OS_File",&FF,"s."+file$,text%,0
�text%?txtsze%=0
�
�setup
�:
�1ș "OS_File",&FF,"<Compile$Dir>.code",code%,0
�	�code
��compile(txtsze%)
�	�save

5� wire% � (flag%=7) � (pntnum%>0) � (polnum%>0) �

� 0

	�draw

"�

,�

6:

@� �code

Jfputobas=code%+code%!32

Tbastofpu=code%+code%!36

^number=code%+code%!40

htransform=code%+code%!44

rperspective=code%+code%!48

|input=code%+52

�!input=input%

��

�:

�� �compile(end%)

�read%=0:depth%=0:line%=0

�ȕ text%?read%<>0

�com$=�read(0)

�
Ȏ com$ �

�(� "display":�display:flag%=flag% � 1

�"� "view":�view:flag%=flag% � 2

�� "light":�light

�)� "ambient" :�ambient:flag%=flag% � 4

�� "sprite" :�spritefile
� "material" :�material
� "define" :�define

&Bobj%=�find(com$,objnme$(),objnum%):� obj%>=objnum% � �error(0)
0�object(obj%)
:�
D�
N"!light%=lgtnum%:!data%=matnum%
X$!point%=pntnum%:!offset%=polnum%
b4!sprdata%=spradr%+8+4*sprnum%:sprdata%!4=sprnum%
l�
v:
�� �setup
�>datsze%=sze%*(1-obj-spr):objsze%=sze%*obj:sprsze%=sze%*spr
�� code% &2000
�� setup% 344+12*maxlgt%
� � data% datsze%+4+28*maxmat%
�� object% objsze%
�� sprdata% sprsze%
�� define% 12*maxobj%
�� input% 124
�� objtrn% 48,vwtrn% 48
�'� matnme$(maxmat%),objnme$(maxobj%)
�8display%=setup%:transform%=setup%+20:lens%=setup%+68
�Dambient%=setup%+68:light%=setup%+80:output%=setup%+84+12*maxlgt%
Jmaterial%=data%+4:point%=data%+4+28*maxmat%:offset%=point%+div*datsze%
%poly%=offset%+0.1*(1-div)*datsze%
/defpnt%=object%:defoff%=defpnt%+objsze%*div
 'defpol%=defoff%+0.1*(1-div)*objsze%
*0sproff%=sprdata%+8:sprmap%=sproff%+4*maxspr%
4 sprnme%=sprdata%+sprsze%-256
>&!define%=0:define%!4=0:define%!8=0
H!lgtnum%=0:matnum%=0:objnum%=0
Rpntnum%=0:polnum%=0
\poladr%=0:flag%=0
fspradr%=0:sprnum%=0
p�
z:
�� �save
�� (lgtnum%>0) � (flag%=7) �
�)ș "OS_Find",&80,"v."+file$ � handle%
�/ș "OS_GBPB",2,handle%,setup%,84+12*lgtnum%
�0ș "OS_GBPB",2,handle%,output%,�($output%)+1
�ș "OS_Find",&00,handle%
��
�/� (pntnum%>0) � (polnum%>0) � (matnum%>0) �
�)ș "OS_Find",&80,"d."+file$ � handle%
�-ș "OS_GBPB",2,handle%,data%,28*matnum%+4
�.ș "OS_GBPB",2,handle%,point%,4+12*pntnum%
�.ș "OS_GBPB",2,handle%,offset%,4+4*polnum%
�(ș "OS_GBPB",2,handle%,poly%,poladr%
ș "OS_Find",&00,handle%
)ș "OS_Find",&80,"t."+file$ � handle%
/ș "OS_GBPB",2,handle%,sprdata%,8+4*sprnum%
$8� spradr%>0 � ș "OS_GBPB",2,handle%,sprmap%,spradr%
.0ș "OS_GBPB",2,handle%,sprnme%,�($sprnme%)+1
8ș "OS_Find",&00,handle%
B�
L�
V:
`� �light
j
� light()
t� light(3)
~ȕ depth%=1
�lghtrot=�(�read(1))
�lghtelv=�(�read(1))
�&light(1)=� �(lghtelv)*� �(lghtrot)
�&light(3)=� �(lghtelv)*� �(lghtrot)
�light(2)=� �(lghtelv)
�light()=light()/� light()
�5|number=light(1):� bastofpu,light%!(4+12*lgtnum%)
�5|number=light(2):� bastofpu,light%!(8+12*lgtnum%)
�6|number=light(3):� bastofpu,light%!(12+12*lgtnum%)
�,lgtnum%+=1:� lgtnum%>maxlgt% � �error(3)
��
��
:

� �display
$output%=�read(1)
,|number=�(�read(1)):� bastofpu,!display%
(-|number=�(�read(1)):� bastofpu,display%!4
2display%!8=1
<res$=�read(1)
F� res$="low" � display%!8=2
P � res$="high" � display%!8=0
Zdisplay%!12=�(�read(1))
ddisplay%!16=�(�read(1))
n�
x:
�� �spritefile
�$sprnme%=�read(1)
��
�:
�� �ambient
�,|number=�(�read(1)):� bastofpu,!ambient%
�-|number=�(�read(1)):� bastofpu,ambient%!4
�-|number=�(�read(1)):� bastofpu,ambient%!8
��
�:
�� �view
�/|number=-�(�read(1)):� bastofpu,!transform%
�0|number=-�(�read(1)):� bastofpu,transform%!4
0|number=-�(�read(1)):� bastofpu,transform%!8
3pit=�(�read(1)):yaw=�(�read(1)):rot=�(�read(1))
&�rotate(pit,yaw,rot,transform%+12)
"�
,:
6"� �rotate(pit,yaw,rot,matrix%)
@� mtx(),trn()
J� mtx(2,2),trn(2,2)
T#cosyaw=� �(yaw):sinyaw=� �(yaw)
^#cospit=� �(pit):sinpit=� �(pit)
h#cosrot=� �(rot):sinrot=� �(rot)
rDmtx(1,1)=cospit:mtx(2,1)=sinpit:mtx(1,2)=-sinpit:mtx(2,2)=cospit
|Dtrn(0,0)=cosyaw:trn(2,0)=-sinyaw:trn(0,2)=sinyaw:trn(2,2)=cosyaw
�3mtx(0,0)=1:trn(1,1)=1:mtx()=trn().mtx():trn()=0
�Dtrn(0,0)=cosrot:trn(1,0)=-sinrot:trn(0,1)=sinrot:trn(1,1)=cosrot
� trn(2,2)=1:mtx()=trn().mtx()
�� ymt%=0 � 2
�� xmt%=0 � 2
�>|number=mtx(xmt%,ymt%):� bastofpu,matrix%!(4*xmt%+12*ymt%)
�� xmt%,ymt%
��
�:
�� �material
�ȕ depth%=1
�matnme$(matnum%)=�read(1)
�� var%=0 � 6
@|number=�(�read(1)):� bastofpu,material%!(28*matnum%+4*var%)

� var%
,matnum%+=1:� matnum%>maxmat% � �error(3)
&�
0�
::
D � �find(str$,cmp$(),strnum%)
N
str%=0
X&ȕ str$<>cmp$(str%) � str%<strnum%
bstr%+=1
l�
v	=str%
�:
�
� �define
�(objpnt%=define%!(12*objnum%)+defpnt%
�*objpol%=define%!(4+12*objnum%)+defpol%
�*objoff%=define%!(8+12*objnum%)+defoff%
�!objptn%=0:objpln%=0:obplad%=0
�objnme$(objnum%)=�read(1)
�ȕ depth%=1
�obj$=�read(1)
�� obj$="point" � �point
�� obj$="shape" � �shape
�� obj$="link" � �link
�� obj$="surface" � �surface
�
!objpnt%=objptn%
!objoff%=objpln%
 ,objnum%+=1:� objnum%>maxobj% � �error(3)
*5define%!(12*objnum%)=objpnt%+4+12*objptn%-defpnt%
42define%!(4+12*objnum%)=objpol%+obplad%-defpol%
>6define%!(8+12*objnum%)=objoff%+4+4*objpln%-defoff%
H�
R:
\� �point
fȕ depth%=2
p9|number=�(�read(2)):� bastofpu,objpnt%!(4+12*objptn%)
z9|number=�(�read(2)):� bastofpu,objpnt%!(8+12*objptn%)
�:|number=�(�read(2)):� bastofpu,objpnt%!(12+12*objptn%)
�<objptn%+=1:� (12+12*objptn%)>objoff%-objpnt% � �error(3)
��
��
�:
�� �shape
�� vct()
�� vct(8)
�sde%=�(�read(2))
�� vct%=0 � 8
�vct(vct%)=�(�read(2))
�
� vct%
�:
	� rot%=0 � sde%-1
	theta=2*�*rot%/sde%
	2|number=vct(3)*�(theta)+vct(6)*�(theta)+vct(0)
	$%� bastofpu,objpnt%!(4+12*objptn%)
	.2|number=vct(4)*�(theta)+vct(7)*�(theta)+vct(1)
	8%� bastofpu,objpnt%!(8+12*objptn%)
	B2|number=vct(5)*�(theta)+vct(8)*�(theta)+vct(2)
	L&� bastofpu,objpnt%!(12+12*objptn%)
	V<objptn%+=1:� (12+12*objptn%)>objoff%-objpnt% � �error(3)
	`
� rot%
	j�
	t:
	~� �link
	�idt%=-1*(�read(2)="flat")
	�!objoff%!(4+4*objpln%)=obplad%
	�#objpol%!obplad%=idt%:obplad%+=4
	�&vrtx%=0:vrtadr%=obplad%:obplad%+=4
	�ȕ depth%=2
	�*objpol%!obplad%=�(�read(2)):obplad%+=4
	�1� obplad%>objsze%+objpnt%-objpol% � �error(3)
	�vrtx%+=1
	��
	�;objpol%!obplad%=objpol%!(vrtadr%+4):obplad%+=4:vrtx%+=1
	�objpol%!vrtadr%=vrtx%
	�8objpln%+=1:� (4+4*objpln%)>poly%-offset% � �error(3)
�

:
� �surface
idt%=-1*(�read(2)="flat")
(pntorg%=�(�read(2))
2%xwd%=�(�read(2)):ywd%=�(�read(2))
<%xjn%=�(�read(2)):yjn%=�(�read(2))
F� ypl%=0 � ywd%-2+�(yjn%)
P� xpl%=0 � xwd%-2+�(xjn%)
Zfst%=xwd%*ypl%+xpl%+pntorg%
dsec%=fst%+1
nthr%=sec%+xwd%
xfrt%=fst%+xwd%
�!objoff%!(4+4*objpln%)=obplad%
�#objpol%!obplad%=idt%:obplad%+=4
� objpol%!obplad%=5:obplad%+=4
�#objpol%!obplad%=fst%:obplad%+=4
�1� xjn% � xpl%>xwd%-2 �  sec%-=xwd%:thr%-=xwd%
�;� yjn% � ypl%>ywd%-2 �  thr%-=ywd%*xwd%:frt%-=ywd%*xwd%
�#objpol%!obplad%=sec%:obplad%+=4
�#objpol%!obplad%=thr%:obplad%+=4
�#objpol%!obplad%=frt%:obplad%+=4
�#objpol%!obplad%=fst%:obplad%+=4
�:objpln%+=1:� (4+4*objpln%)>objpol%-objoff% � �error(3)
�1� obplad%>objsze%+objpnt%-objpol% � �error(3)
�� xpl%,ypl%
�
:
� �object(obj%)
"� pntflg%()
,%objpnt%=define%!(12*obj%)+defpnt%
6'objpol%=define%!(4+12*obj%)+defpol%
@'objoff%=define%!(8+12*obj%)+defoff%
Jxps=�(�read(1))
Typs=�(�read(1))
^zps=�(�read(1))
h:
r.pntadr%=12*pntnum%:overlap%=point%!pntadr%
|6� (pntadr%+12*!objpnt%)>offset%-point% � �error(3)
�� pnt%=0 � !objpnt%*3
�,point%!(pntadr%+4*pnt%)=objpnt%!(4*pnt%)
�
� pnt%
�input%!8=point%+pntadr%
�input%!40=objtrn%
�mat%=-1
�ȕ depth%=1
�obj$=�read(1)
�
Ȏ obj$ �
�.� "texture" :mat%=&8000 � sprnum%:�texture
�� "transform" :�objtrn
�� "rotate" :�objrot
�� "scale" :�objscl

&mat%=�find(obj$,matnme$(),matnum%)
� mat%>=matnum% � �error(4)
&�
0�
:� mat%<0 � �error(5)
D	�move
Npoint%!pntadr%=overlap%
X:
b� pntflg%(!objpnt%)
l� pol%=1 � !objoff%
v!offset%!(4+4*polnum%)=poladr%
�obplad%=objoff%!(4*pol%)
�Fpoly%!poladr%=(objpol%!obplad%) � (mat%<<16):obplad%+=4:poladr%+=4
�Cvrtx%=objpol%!obplad%:poly%!poladr%=vrtx%:obplad%+=4:poladr%+=4
�� polcopy%=0 � vrtx%-1
�pntflg%(objpol%!obplad%)=1
�?poly%!poladr%=objpol%!obplad%+pntnum%:obplad%+=4:poladr%+=4
�.� poladr%>datsze%-poly%+point% � �error(3)
�� polcopy%
�polnum%+=1
�-� (4+4*polnum%)>poly%-offset% � �error(3)
�
� pol%
�pntnum%+=!objpnt%
�%� Ǝ pntflg%()<!objpnt% �error(2)

�

:


� �objtrn

 &!objtrn%=0:objtrn%!4=0:objtrn%!8=0

*� trn%=0 � 8

46|number=�(�read(2)):� bastofpu,objtrn%!(12+4*trn%)

>
� trn%

H� transform

R�

\:

f
� �objrot

p&!objtrn%=0:objtrn%!4=0:objtrn%!8=0

z3pit=�(�read(2)):yaw=�(�read(2)):rot=�(�read(2))

�#�rotate(pit,yaw,rot,objtrn%+12)

�� transform

��

�:

�
� �objscl

�&!objtrn%=0:objtrn%!4=0:objtrn%!8=0

�*objtrn%!16=0:objtrn%!20=0:objtrn%!24=0

�*objtrn%!32=0:objtrn%!36=0:objtrn%!40=0

�-|number=�(�read(2)):� bastofpu,objtrn%!12

�-|number=�(�read(2)):� bastofpu,objtrn%!28

�-|number=�(�read(2)):� bastofpu,objtrn%!44

�� transform

��
:
� �move
#|number=xps:� bastofpu,!objtrn%
$$|number=yps:� bastofpu,objtrn%!4
.$|number=zps:� bastofpu,objtrn%!8
82objtrn%!12=&3F800000:objtrn%!16=0:objtrn%!20=0
B2objtrn%!24=0:objtrn%!28=&3F800000:objtrn%!32=0
L2objtrn%!36=0:objtrn%!40=0:objtrn%!44=&3F800000
V� transform
`�
j:
t� �texture
~sprite$=�read(2)
�sproff%!(4*sprnum%)=spradr%
�&sprmap%!spradr%=pntnum%:spradr%+=4
�I$(sprmap%+spradr%)=sprite$:sprmap%?(spradr%+�(sprite$))=0:spradr%+=12
�=|number=�(�read(2)):� bastofpu,sprmap%!spradr%:spradr%+=4
�=|number=�(�read(2)):� bastofpu,sprmap%!spradr%:spradr%+=4
�=|number=�(�read(2)):� bastofpu,sprmap%!spradr%:spradr%+=4
�2� spradr%>sprsze%+sprdata%-sprmap% � �error(3)
�
sprpnt%=0
�ȕ depth%=2
�com$=�read(2)
�� com$="fit" � �sprfit
�� com$="map" � �sprmap
"� sprpnt%>!objpnt% � �error(7)

�
"� sprpnt%<!objpnt% � �error(6)
,sprnum%+=1:� sprnum%>maxspr% � �error(3)
(�
2:
<
� �sprfit
F%xwd%=�(�read(3)):ywd%=�(�read(3))
P� ymap%=0 � ywd%-1
Z� xmap%=0 � xwd%-1
d@|number=xmap%/(xwd%-1):� bastofpu,sprmap%!spradr%:spradr%+=4
nB|number=1-ymap%/(ywd%-1):� bastofpu,sprmap%!spradr%:spradr%+=4
x2� spradr%>sprsze%+sprdata%-sprmap% � �error(3)
�sprpnt%+=1
�� xmap%,ymap%
��
�:
�
� �sprmap
�=|number=�(�read(3)):� bastofpu,sprmap%!spradr%:spradr%+=4
�=|number=�(�read(3)):� bastofpu,sprmap%!spradr%:spradr%+=4
�2� spradr%>sprsze%+sprdata%-sprmap% � �error(3)
�sprpnt%+=1
��
�:
�� �error(err%)
��

Ȏ err% �
(� 0 : � "Unknown command or Object";
$� 1 : � "Insufficent variables";
"%� 2 : � "Unused point in Object";
,%� 3 : � "Too many - memory full";
6*� 4 : � "Unknown command or Material";
@� 5 : � "No Material";
J(� 6 : � "Unmapped points in Texture;
T0� 7 : � "Too many mapped points in Texture";
^
h�
r�
|� ;" at line ";line%
��
�:
�� �read(level%)
� � depth%<>level% � �error(1)
�str$=""
�"ȕ � �space � (text%?read%<>0)
�� text%?read%
�str$+=�(text%?read%)
�read%+=1
��
� ȕ �space � (text%?read%<>0)
�� text%?read%
�$� text%?read%=10 � � 13:line%+=1
!� text%?read%=123 � depth%+=1
!� text%?read%=125 � depth%-=1
read%+=1
&�
0	=str$
::
D� �space
N<=(text%?read%<33) � (text%?read%=44) � (text%?read%>122)
X:
b� �input
lș "OS_GetEnv" � text%
vread%=0:depth%=0:�
�com$=�read(0)
�;� (text%?read%=0) � �com$,"COMPILE") � �com$,"Compile")
�file$=�read(0)
�ȕ text%?read%<>0
�com$=�read(0)
�
Ȏ com$ �
�"� "-s" : sze%=1024*�(�read(0))
� � "-o" : obj=�(�read(0))/100
� � "-t" : spr=�(�read(0))/100
�� "-w" : wire%=�
��
��
��
%� file$="" � � "filename : "file$
�
:
 � �draw
*� "preparing ...."
4%� fputobas,!setup%:xscale=|number
>&� fputobas,setup%!4:yscale=|number
H&width%=setup%!12:height%=setup%!16
R'input%!8=point%:input%!40=setup%+20
\� transform
f� perspective
p�
z'polnum%=!offset%:polofst%=offset%+4
�� draw%=0 � polnum%-1
� poladr%=polofst%!(4*draw%)+4
�!� drwsde%=1 � (poly%!poladr%)
�"vrt%=poly%!(poladr%+4*drwsde%)
�.� fputobas,point%!(4+12*vrt%):xpos=|number
�.� fputobas,point%!(8+12*vrt%):ypos=|number
�.�fputobas,point%!(12+12*vrt%):zpos=|number
�� zpos<=0 �
�)xpos%=4096*�(xpos):ypos%=4096*�(ypos)
��
�:xpos%=xpos*xscale+width%/2:ypos%=ypos*yscale+height%/2
��
�9� drwsde%=1 � zpos<=0 � � xpos%,ypos% � � xpos%,ypos%
�drwsde%

�draw%
�
�

00000000  0d 00 0a 12 f4 20 20 20  20 20 3e 43 6f 6d 70 69  |.....     >Compi|
00000010  6c 65 0d 00 14 16 f4 20  42 79 20 20 52 6f 62 69  |le..... By  Robi|
00000020  6e 20 42 61 72 6e 65 73  0d 00 1e 19 f4 20 46 6f  |n Barnes..... Fo|
00000030  72 20 33 32 2d 62 69 74  20 6d 61 63 68 69 6e 65  |r 32-bit machine|
00000040  73 0d 00 28 17 f4 20 28  63 29 20 42 41 55 20 4a  |s..(.. (c) BAU J|
00000050  75 6e 65 20 31 39 39 33  0d 00 32 05 3a 0d 00 3c  |une 1993..2.:..<|
00000060  1d f1 20 22 52 65 6e 64  65 72 20 43 6f 6d 70 69  |.. "Render Compi|
00000070  6c 65 72 20 76 31 2e 30  30 22 0d 00 46 05 3a 0d  |ler v1.00"..F.:.|
00000080  00 50 11 73 7a 65 25 3d  33 32 30 2a 31 30 32 34  |.P.sze%=320*1024|
00000090  0d 00 5a 23 6f 62 6a 3d  30 2e 34 3a 73 70 72 3d  |..Z#obj=0.4:spr=|
000000a0  30 2e 31 3a 64 69 76 3d  30 2e 35 3a 77 69 72 65  |0.1:div=0.5:wire|
000000b0  25 3d b9 0d 00 64 26 6d  61 78 6c 67 74 25 3d 33  |%=...d&maxlgt%=3|
000000c0  32 3a 6d 61 78 6d 61 74  25 3d 31 32 38 3a 6d 61  |2:maxmat%=128:ma|
000000d0  78 6f 62 6a 25 3d 32 35  36 0d 00 6e 0d 6d 61 78  |xobj%=256..n.max|
000000e0  73 70 72 25 3d 38 0d 00  78 05 3a 0d 00 82 0a f2  |spr%=8..x.:.....|
000000f0  69 6e 70 75 74 0d 00 8c  31 c8 99 20 22 4f 53 5f  |input...1.. "OS_|
00000100  46 69 6c 65 22 2c 26 30  35 2c 22 73 2e 22 2b 66  |File",&05,"s."+f|
00000110  69 6c 65 24 20 b8 20 74  73 74 25 2c 2c 2c 2c 74  |ile$ . tst%,,,,t|
00000120  78 74 73 7a 65 25 0d 00  96 23 e7 20 74 73 74 25  |xtsze%...#. tst%|
00000130  3d 30 20 8c 20 f1 20 22  66 69 6c 65 20 6e 6f 74  |=0 . . "file not|
00000140  20 66 6f 75 6e 64 22 3a  e0 0d 00 a0 05 3a 0d 00  | found":.....:..|
00000150  aa 15 de 20 74 65 78 74  25 20 74 78 74 73 7a 65  |... text% txtsze|
00000160  25 2b 31 0d 00 b4 27 c8  99 20 22 4f 53 5f 46 69  |%+1...'.. "OS_Fi|
00000170  6c 65 22 2c 26 46 46 2c  22 73 2e 22 2b 66 69 6c  |le",&FF,"s."+fil|
00000180  65 24 2c 74 65 78 74 25  2c 30 0d 00 be 13 74 65  |e$,text%,0....te|
00000190  78 74 25 3f 74 78 74 73  7a 65 25 3d 30 0d 00 c8  |xt%?txtsze%=0...|
000001a0  0a f2 73 65 74 75 70 0d  00 d2 05 3a 0d 00 dc 31  |..setup....:...1|
000001b0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 26 46 46  |.. "OS_File",&FF|
000001c0  2c 22 3c 43 6f 6d 70 69  6c 65 24 44 69 72 3e 2e  |,"<Compile$Dir>.|
000001d0  63 6f 64 65 22 2c 63 6f  64 65 25 2c 30 0d 00 e6  |code",code%,0...|
000001e0  09 f2 63 6f 64 65 0d 00  f0 15 f2 63 6f 6d 70 69  |..code.....compi|
000001f0  6c 65 28 74 78 74 73 7a  65 25 29 0d 00 fa 09 f2  |le(txtsze%).....|
00000200  73 61 76 65 0d 01 04 35  e7 20 77 69 72 65 25 20  |save...5. wire% |
00000210  80 20 28 66 6c 61 67 25  3d 37 29 20 80 20 28 70  |. (flag%=7) . (p|
00000220  6e 74 6e 75 6d 25 3e 30  29 20 80 20 28 70 6f 6c  |ntnum%>0) . (pol|
00000230  6e 75 6d 25 3e 30 29 20  8c 0d 01 0e 07 eb 20 30  |num%>0) ...... 0|
00000240  0d 01 18 09 f2 64 72 61  77 0d 01 22 05 cd 0d 01  |.....draw.."....|
00000250  2c 05 e0 0d 01 36 05 3a  0d 01 40 0b dd 20 f2 63  |,....6.:..@.. .c|
00000260  6f 64 65 0d 01 4a 1b 66  70 75 74 6f 62 61 73 3d  |ode..J.fputobas=|
00000270  63 6f 64 65 25 2b 63 6f  64 65 25 21 33 32 0d 01  |code%+code%!32..|
00000280  54 1b 62 61 73 74 6f 66  70 75 3d 63 6f 64 65 25  |T.bastofpu=code%|
00000290  2b 63 6f 64 65 25 21 33  36 0d 01 5e 19 6e 75 6d  |+code%!36..^.num|
000002a0  62 65 72 3d 63 6f 64 65  25 2b 63 6f 64 65 25 21  |ber=code%+code%!|
000002b0  34 30 0d 01 68 1c 74 72  61 6e 73 66 6f 72 6d 3d  |40..h.transform=|
000002c0  63 6f 64 65 25 2b 63 6f  64 65 25 21 34 34 0d 01  |code%+code%!44..|
000002d0  72 1e 70 65 72 73 70 65  63 74 69 76 65 3d 63 6f  |r.perspective=co|
000002e0  64 65 25 2b 63 6f 64 65  25 21 34 38 0d 01 7c 12  |de%+code%!48..|.|
000002f0  69 6e 70 75 74 3d 63 6f  64 65 25 2b 35 32 0d 01  |input=code%+52..|
00000300  86 11 21 69 6e 70 75 74  3d 69 6e 70 75 74 25 0d  |..!input=input%.|
00000310  01 90 05 e1 0d 01 9a 05  3a 0d 01 a4 14 dd 20 f2  |........:..... .|
00000320  63 6f 6d 70 69 6c 65 28  65 6e 64 25 29 0d 01 ae  |compile(end%)...|
00000330  1c 72 65 61 64 25 3d 30  3a 64 65 70 74 68 25 3d  |.read%=0:depth%=|
00000340  30 3a 6c 69 6e 65 25 3d  30 0d 01 b8 15 c8 95 20  |0:line%=0...... |
00000350  74 65 78 74 25 3f 72 65  61 64 25 3c 3e 30 0d 01  |text%?read%<>0..|
00000360  c2 11 63 6f 6d 24 3d a4  72 65 61 64 28 30 29 0d  |..com$=.read(0).|
00000370  01 cc 0d c8 8e 20 63 6f  6d 24 20 ca 0d 01 d6 28  |..... com$ ....(|
00000380  c9 20 22 64 69 73 70 6c  61 79 22 3a f2 64 69 73  |. "display":.dis|
00000390  70 6c 61 79 3a 66 6c 61  67 25 3d 66 6c 61 67 25  |play:flag%=flag%|
000003a0  20 84 20 31 0d 01 e0 22  c9 20 22 76 69 65 77 22  | . 1...". "view"|
000003b0  3a f2 76 69 65 77 3a 66  6c 61 67 25 3d 66 6c 61  |:.view:flag%=fla|
000003c0  67 25 20 84 20 32 0d 01  ea 14 c9 20 22 6c 69 67  |g% . 2..... "lig|
000003d0  68 74 22 3a f2 6c 69 67  68 74 0d 01 f4 29 c9 20  |ht":.light...). |
000003e0  22 61 6d 62 69 65 6e 74  22 20 3a f2 61 6d 62 69  |"ambient" :.ambi|
000003f0  65 6e 74 3a 66 6c 61 67  25 3d 66 6c 61 67 25 20  |ent:flag%=flag% |
00000400  84 20 34 0d 01 fe 1b c9  20 22 73 70 72 69 74 65  |. 4..... "sprite|
00000410  22 20 3a f2 73 70 72 69  74 65 66 69 6c 65 0d 02  |" :.spritefile..|
00000420  08 1b c9 20 22 6d 61 74  65 72 69 61 6c 22 20 3a  |... "material" :|
00000430  f2 6d 61 74 65 72 69 61  6c 0d 02 12 17 c9 20 22  |.material..... "|
00000440  64 65 66 69 6e 65 22 20  3a f2 64 65 66 69 6e 65  |define" :.define|
00000450  0d 02 1c 05 7f 0d 02 26  42 6f 62 6a 25 3d a4 66  |.......&Bobj%=.f|
00000460  69 6e 64 28 63 6f 6d 24  2c 6f 62 6a 6e 6d 65 24  |ind(com$,objnme$|
00000470  28 29 2c 6f 62 6a 6e 75  6d 25 29 3a e7 20 6f 62  |(),objnum%):. ob|
00000480  6a 25 3e 3d 6f 62 6a 6e  75 6d 25 20 8c 20 f2 65  |j%>=objnum% . .e|
00000490  72 72 6f 72 28 30 29 0d  02 30 11 f2 6f 62 6a 65  |rror(0)..0..obje|
000004a0  63 74 28 6f 62 6a 25 29  0d 02 3a 05 cb 0d 02 44  |ct(obj%)..:....D|
000004b0  05 ce 0d 02 4e 22 21 6c  69 67 68 74 25 3d 6c 67  |....N"!light%=lg|
000004c0  74 6e 75 6d 25 3a 21 64  61 74 61 25 3d 6d 61 74  |tnum%:!data%=mat|
000004d0  6e 75 6d 25 0d 02 58 24  21 70 6f 69 6e 74 25 3d  |num%..X$!point%=|
000004e0  70 6e 74 6e 75 6d 25 3a  21 6f 66 66 73 65 74 25  |pntnum%:!offset%|
000004f0  3d 70 6f 6c 6e 75 6d 25  0d 02 62 34 21 73 70 72  |=polnum%..b4!spr|
00000500  64 61 74 61 25 3d 73 70  72 61 64 72 25 2b 38 2b  |data%=spradr%+8+|
00000510  34 2a 73 70 72 6e 75 6d  25 3a 73 70 72 64 61 74  |4*sprnum%:sprdat|
00000520  61 25 21 34 3d 73 70 72  6e 75 6d 25 0d 02 6c 05  |a%!4=sprnum%..l.|
00000530  e1 0d 02 76 05 3a 0d 02  80 0c dd 20 f2 73 65 74  |...v.:..... .set|
00000540  75 70 0d 02 8a 3e 64 61  74 73 7a 65 25 3d 73 7a  |up...>datsze%=sz|
00000550  65 25 2a 28 31 2d 6f 62  6a 2d 73 70 72 29 3a 6f  |e%*(1-obj-spr):o|
00000560  62 6a 73 7a 65 25 3d 73  7a 65 25 2a 6f 62 6a 3a  |bjsze%=sze%*obj:|
00000570  73 70 72 73 7a 65 25 3d  73 7a 65 25 2a 73 70 72  |sprsze%=sze%*spr|
00000580  0d 02 94 11 de 20 63 6f  64 65 25 20 26 32 30 30  |..... code% &200|
00000590  30 0d 02 9e 1b de 20 73  65 74 75 70 25 20 33 34  |0..... setup% 34|
000005a0  34 2b 31 32 2a 6d 61 78  6c 67 74 25 0d 02 a8 20  |4+12*maxlgt%... |
000005b0  de 20 64 61 74 61 25 20  64 61 74 73 7a 65 25 2b  |. data% datsze%+|
000005c0  34 2b 32 38 2a 6d 61 78  6d 61 74 25 0d 02 b2 15  |4+28*maxmat%....|
000005d0  de 20 6f 62 6a 65 63 74  25 20 6f 62 6a 73 7a 65  |. object% objsze|
000005e0  25 0d 02 bc 16 de 20 73  70 72 64 61 74 61 25 20  |%..... sprdata% |
000005f0  73 70 72 73 7a 65 25 0d  02 c6 18 de 20 64 65 66  |sprsze%..... def|
00000600  69 6e 65 25 20 31 32 2a  6d 61 78 6f 62 6a 25 0d  |ine% 12*maxobj%.|
00000610  02 d0 10 de 20 69 6e 70  75 74 25 20 31 32 34 0d  |.... input% 124.|
00000620  02 da 1a de 20 6f 62 6a  74 72 6e 25 20 34 38 2c  |.... objtrn% 48,|
00000630  76 77 74 72 6e 25 20 34  38 0d 02 e4 27 de 20 6d  |vwtrn% 48...'. m|
00000640  61 74 6e 6d 65 24 28 6d  61 78 6d 61 74 25 29 2c  |atnme$(maxmat%),|
00000650  6f 62 6a 6e 6d 65 24 28  6d 61 78 6f 62 6a 25 29  |objnme$(maxobj%)|
00000660  0d 02 ee 38 64 69 73 70  6c 61 79 25 3d 73 65 74  |...8display%=set|
00000670  75 70 25 3a 74 72 61 6e  73 66 6f 72 6d 25 3d 73  |up%:transform%=s|
00000680  65 74 75 70 25 2b 32 30  3a 6c 65 6e 73 25 3d 73  |etup%+20:lens%=s|
00000690  65 74 75 70 25 2b 36 38  0d 02 f8 44 61 6d 62 69  |etup%+68...Dambi|
000006a0  65 6e 74 25 3d 73 65 74  75 70 25 2b 36 38 3a 6c  |ent%=setup%+68:l|
000006b0  69 67 68 74 25 3d 73 65  74 75 70 25 2b 38 30 3a  |ight%=setup%+80:|
000006c0  6f 75 74 70 75 74 25 3d  73 65 74 75 70 25 2b 38  |output%=setup%+8|
000006d0  34 2b 31 32 2a 6d 61 78  6c 67 74 25 0d 03 02 4a  |4+12*maxlgt%...J|
000006e0  6d 61 74 65 72 69 61 6c  25 3d 64 61 74 61 25 2b  |material%=data%+|
000006f0  34 3a 70 6f 69 6e 74 25  3d 64 61 74 61 25 2b 34  |4:point%=data%+4|
00000700  2b 32 38 2a 6d 61 78 6d  61 74 25 3a 6f 66 66 73  |+28*maxmat%:offs|
00000710  65 74 25 3d 70 6f 69 6e  74 25 2b 64 69 76 2a 64  |et%=point%+div*d|
00000720  61 74 73 7a 65 25 0d 03  0c 25 70 6f 6c 79 25 3d  |atsze%...%poly%=|
00000730  6f 66 66 73 65 74 25 2b  30 2e 31 2a 28 31 2d 64  |offset%+0.1*(1-d|
00000740  69 76 29 2a 64 61 74 73  7a 65 25 0d 03 16 2f 64  |iv)*datsze%.../d|
00000750  65 66 70 6e 74 25 3d 6f  62 6a 65 63 74 25 3a 64  |efpnt%=object%:d|
00000760  65 66 6f 66 66 25 3d 64  65 66 70 6e 74 25 2b 6f  |efoff%=defpnt%+o|
00000770  62 6a 73 7a 65 25 2a 64  69 76 0d 03 20 27 64 65  |bjsze%*div.. 'de|
00000780  66 70 6f 6c 25 3d 64 65  66 6f 66 66 25 2b 30 2e  |fpol%=defoff%+0.|
00000790  31 2a 28 31 2d 64 69 76  29 2a 6f 62 6a 73 7a 65  |1*(1-div)*objsze|
000007a0  25 0d 03 2a 30 73 70 72  6f 66 66 25 3d 73 70 72  |%..*0sproff%=spr|
000007b0  64 61 74 61 25 2b 38 3a  73 70 72 6d 61 70 25 3d  |data%+8:sprmap%=|
000007c0  73 70 72 6f 66 66 25 2b  34 2a 6d 61 78 73 70 72  |sproff%+4*maxspr|
000007d0  25 0d 03 34 20 73 70 72  6e 6d 65 25 3d 73 70 72  |%..4 sprnme%=spr|
000007e0  64 61 74 61 25 2b 73 70  72 73 7a 65 25 2d 32 35  |data%+sprsze%-25|
000007f0  36 0d 03 3e 26 21 64 65  66 69 6e 65 25 3d 30 3a  |6..>&!define%=0:|
00000800  64 65 66 69 6e 65 25 21  34 3d 30 3a 64 65 66 69  |define%!4=0:defi|
00000810  6e 65 25 21 38 3d 30 0d  03 48 21 6c 67 74 6e 75  |ne%!8=0..H!lgtnu|
00000820  6d 25 3d 30 3a 6d 61 74  6e 75 6d 25 3d 30 3a 6f  |m%=0:matnum%=0:o|
00000830  62 6a 6e 75 6d 25 3d 30  0d 03 52 17 70 6e 74 6e  |bjnum%=0..R.pntn|
00000840  75 6d 25 3d 30 3a 70 6f  6c 6e 75 6d 25 3d 30 0d  |um%=0:polnum%=0.|
00000850  03 5c 15 70 6f 6c 61 64  72 25 3d 30 3a 66 6c 61  |.\.poladr%=0:fla|
00000860  67 25 3d 30 0d 03 66 17  73 70 72 61 64 72 25 3d  |g%=0..f.spradr%=|
00000870  30 3a 73 70 72 6e 75 6d  25 3d 30 0d 03 70 05 e1  |0:sprnum%=0..p..|
00000880  0d 03 7a 05 3a 0d 03 84  0b dd 20 f2 73 61 76 65  |..z.:..... .save|
00000890  0d 03 8e 1f e7 20 28 6c  67 74 6e 75 6d 25 3e 30  |..... (lgtnum%>0|
000008a0  29 20 80 20 28 66 6c 61  67 25 3d 37 29 20 8c 0d  |) . (flag%=7) ..|
000008b0  03 98 29 c8 99 20 22 4f  53 5f 46 69 6e 64 22 2c  |..).. "OS_Find",|
000008c0  26 38 30 2c 22 76 2e 22  2b 66 69 6c 65 24 20 b8  |&80,"v."+file$ .|
000008d0  20 68 61 6e 64 6c 65 25  0d 03 a2 2f c8 99 20 22  | handle%.../.. "|
000008e0  4f 53 5f 47 42 50 42 22  2c 32 2c 68 61 6e 64 6c  |OS_GBPB",2,handl|
000008f0  65 25 2c 73 65 74 75 70  25 2c 38 34 2b 31 32 2a  |e%,setup%,84+12*|
00000900  6c 67 74 6e 75 6d 25 0d  03 ac 30 c8 99 20 22 4f  |lgtnum%...0.. "O|
00000910  53 5f 47 42 50 42 22 2c  32 2c 68 61 6e 64 6c 65  |S_GBPB",2,handle|
00000920  25 2c 6f 75 74 70 75 74  25 2c a9 28 24 6f 75 74  |%,output%,.($out|
00000930  70 75 74 25 29 2b 31 0d  03 b6 1c c8 99 20 22 4f  |put%)+1...... "O|
00000940  53 5f 46 69 6e 64 22 2c  26 30 30 2c 68 61 6e 64  |S_Find",&00,hand|
00000950  6c 65 25 0d 03 c0 05 cd  0d 03 ca 2f e7 20 28 70  |le%......../. (p|
00000960  6e 74 6e 75 6d 25 3e 30  29 20 80 20 28 70 6f 6c  |ntnum%>0) . (pol|
00000970  6e 75 6d 25 3e 30 29 20  80 20 28 6d 61 74 6e 75  |num%>0) . (matnu|
00000980  6d 25 3e 30 29 20 8c 0d  03 d4 29 c8 99 20 22 4f  |m%>0) ....).. "O|
00000990  53 5f 46 69 6e 64 22 2c  26 38 30 2c 22 64 2e 22  |S_Find",&80,"d."|
000009a0  2b 66 69 6c 65 24 20 b8  20 68 61 6e 64 6c 65 25  |+file$ . handle%|
000009b0  0d 03 de 2d c8 99 20 22  4f 53 5f 47 42 50 42 22  |...-.. "OS_GBPB"|
000009c0  2c 32 2c 68 61 6e 64 6c  65 25 2c 64 61 74 61 25  |,2,handle%,data%|
000009d0  2c 32 38 2a 6d 61 74 6e  75 6d 25 2b 34 0d 03 e8  |,28*matnum%+4...|
000009e0  2e c8 99 20 22 4f 53 5f  47 42 50 42 22 2c 32 2c  |... "OS_GBPB",2,|
000009f0  68 61 6e 64 6c 65 25 2c  70 6f 69 6e 74 25 2c 34  |handle%,point%,4|
00000a00  2b 31 32 2a 70 6e 74 6e  75 6d 25 0d 03 f2 2e c8  |+12*pntnum%.....|
00000a10  99 20 22 4f 53 5f 47 42  50 42 22 2c 32 2c 68 61  |. "OS_GBPB",2,ha|
00000a20  6e 64 6c 65 25 2c 6f 66  66 73 65 74 25 2c 34 2b  |ndle%,offset%,4+|
00000a30  34 2a 70 6f 6c 6e 75 6d  25 0d 03 fc 28 c8 99 20  |4*polnum%...(.. |
00000a40  22 4f 53 5f 47 42 50 42  22 2c 32 2c 68 61 6e 64  |"OS_GBPB",2,hand|
00000a50  6c 65 25 2c 70 6f 6c 79  25 2c 70 6f 6c 61 64 72  |le%,poly%,poladr|
00000a60  25 0d 04 06 1c c8 99 20  22 4f 53 5f 46 69 6e 64  |%...... "OS_Find|
00000a70  22 2c 26 30 30 2c 68 61  6e 64 6c 65 25 0d 04 10  |",&00,handle%...|
00000a80  29 c8 99 20 22 4f 53 5f  46 69 6e 64 22 2c 26 38  |).. "OS_Find",&8|
00000a90  30 2c 22 74 2e 22 2b 66  69 6c 65 24 20 b8 20 68  |0,"t."+file$ . h|
00000aa0  61 6e 64 6c 65 25 0d 04  1a 2f c8 99 20 22 4f 53  |andle%.../.. "OS|
00000ab0  5f 47 42 50 42 22 2c 32  2c 68 61 6e 64 6c 65 25  |_GBPB",2,handle%|
00000ac0  2c 73 70 72 64 61 74 61  25 2c 38 2b 34 2a 73 70  |,sprdata%,8+4*sp|
00000ad0  72 6e 75 6d 25 0d 04 24  38 e7 20 73 70 72 61 64  |rnum%..$8. sprad|
00000ae0  72 25 3e 30 20 8c 20 c8  99 20 22 4f 53 5f 47 42  |r%>0 . .. "OS_GB|
00000af0  50 42 22 2c 32 2c 68 61  6e 64 6c 65 25 2c 73 70  |PB",2,handle%,sp|
00000b00  72 6d 61 70 25 2c 73 70  72 61 64 72 25 0d 04 2e  |rmap%,spradr%...|
00000b10  30 c8 99 20 22 4f 53 5f  47 42 50 42 22 2c 32 2c  |0.. "OS_GBPB",2,|
00000b20  68 61 6e 64 6c 65 25 2c  73 70 72 6e 6d 65 25 2c  |handle%,sprnme%,|
00000b30  a9 28 24 73 70 72 6e 6d  65 25 29 2b 31 0d 04 38  |.($sprnme%)+1..8|
00000b40  1c c8 99 20 22 4f 53 5f  46 69 6e 64 22 2c 26 30  |... "OS_Find",&0|
00000b50  30 2c 68 61 6e 64 6c 65  25 0d 04 42 05 cd 0d 04  |0,handle%..B....|
00000b60  4c 05 e1 0d 04 56 05 3a  0d 04 60 0c dd 20 f2 6c  |L....V.:..`.. .l|
00000b70  69 67 68 74 0d 04 6a 0d  ea 20 6c 69 67 68 74 28  |ight..j.. light(|
00000b80  29 0d 04 74 0e de 20 6c  69 67 68 74 28 33 29 0d  |)..t.. light(3).|
00000b90  04 7e 0f c8 95 20 64 65  70 74 68 25 3d 31 0d 04  |.~... depth%=1..|
00000ba0  88 17 6c 67 68 74 72 6f  74 3d a0 28 a4 72 65 61  |..lghtrot=.(.rea|
00000bb0  64 28 31 29 29 0d 04 92  17 6c 67 68 74 65 6c 76  |d(1))....lghtelv|
00000bc0  3d a0 28 a4 72 65 61 64  28 31 29 29 0d 04 9c 26  |=.(.read(1))...&|
00000bd0  6c 69 67 68 74 28 31 29  3d 9b 20 b2 28 6c 67 68  |light(1)=. .(lgh|
00000be0  74 65 6c 76 29 2a b5 20  b2 28 6c 67 68 74 72 6f  |telv)*. .(lghtro|
00000bf0  74 29 0d 04 a6 26 6c 69  67 68 74 28 33 29 3d 9b  |t)...&light(3)=.|
00000c00  20 b2 28 6c 67 68 74 65  6c 76 29 2a 9b 20 b2 28  | .(lghtelv)*. .(|
00000c10  6c 67 68 74 72 6f 74 29  0d 04 b0 19 6c 69 67 68  |lghtrot)....ligh|
00000c20  74 28 32 29 3d b5 20 b2  28 6c 67 68 74 65 6c 76  |t(2)=. .(lghtelv|
00000c30  29 0d 04 ba 1d 6c 69 67  68 74 28 29 3d 6c 69 67  |)....light()=lig|
00000c40  68 74 28 29 2f 83 20 6c  69 67 68 74 28 29 0d 04  |ht()/. light()..|
00000c50  c4 35 7c 6e 75 6d 62 65  72 3d 6c 69 67 68 74 28  |.5|number=light(|
00000c60  31 29 3a d6 20 62 61 73  74 6f 66 70 75 2c 6c 69  |1):. bastofpu,li|
00000c70  67 68 74 25 21 28 34 2b  31 32 2a 6c 67 74 6e 75  |ght%!(4+12*lgtnu|
00000c80  6d 25 29 0d 04 ce 35 7c  6e 75 6d 62 65 72 3d 6c  |m%)...5|number=l|
00000c90  69 67 68 74 28 32 29 3a  d6 20 62 61 73 74 6f 66  |ight(2):. bastof|
00000ca0  70 75 2c 6c 69 67 68 74  25 21 28 38 2b 31 32 2a  |pu,light%!(8+12*|
00000cb0  6c 67 74 6e 75 6d 25 29  0d 04 d8 36 7c 6e 75 6d  |lgtnum%)...6|num|
00000cc0  62 65 72 3d 6c 69 67 68  74 28 33 29 3a d6 20 62  |ber=light(3):. b|
00000cd0  61 73 74 6f 66 70 75 2c  6c 69 67 68 74 25 21 28  |astofpu,light%!(|
00000ce0  31 32 2b 31 32 2a 6c 67  74 6e 75 6d 25 29 0d 04  |12+12*lgtnum%)..|
00000cf0  e2 2c 6c 67 74 6e 75 6d  25 2b 3d 31 3a e7 20 6c  |.,lgtnum%+=1:. l|
00000d00  67 74 6e 75 6d 25 3e 6d  61 78 6c 67 74 25 20 8c  |gtnum%>maxlgt% .|
00000d10  20 f2 65 72 72 6f 72 28  33 29 0d 04 ec 05 ce 0d  | .error(3)......|
00000d20  04 f6 05 e1 0d 05 00 05  3a 0d 05 0a 0e dd 20 f2  |........:..... .|
00000d30  64 69 73 70 6c 61 79 0d  05 14 15 24 6f 75 74 70  |display....$outp|
00000d40  75 74 25 3d a4 72 65 61  64 28 31 29 0d 05 1e 2c  |ut%=.read(1)...,|
00000d50  7c 6e 75 6d 62 65 72 3d  a0 28 a4 72 65 61 64 28  ||number=.(.read(|
00000d60  31 29 29 3a d6 20 62 61  73 74 6f 66 70 75 2c 21  |1)):. bastofpu,!|
00000d70  64 69 73 70 6c 61 79 25  0d 05 28 2d 7c 6e 75 6d  |display%..(-|num|
00000d80  62 65 72 3d a0 28 a4 72  65 61 64 28 31 29 29 3a  |ber=.(.read(1)):|
00000d90  d6 20 62 61 73 74 6f 66  70 75 2c 64 69 73 70 6c  |. bastofpu,displ|
00000da0  61 79 25 21 34 0d 05 32  10 64 69 73 70 6c 61 79  |ay%!4..2.display|
00000db0  25 21 38 3d 31 0d 05 3c  11 72 65 73 24 3d a4 72  |%!8=1..<.res$=.r|
00000dc0  65 61 64 28 31 29 0d 05  46 1f e7 20 72 65 73 24  |ead(1)..F.. res$|
00000dd0  3d 22 6c 6f 77 22 20 8c  20 64 69 73 70 6c 61 79  |="low" . display|
00000de0  25 21 38 3d 32 0d 05 50  20 e7 20 72 65 73 24 3d  |%!8=2..P . res$=|
00000df0  22 68 69 67 68 22 20 8c  20 64 69 73 70 6c 61 79  |"high" . display|
00000e00  25 21 38 3d 30 0d 05 5a  1b 64 69 73 70 6c 61 79  |%!8=0..Z.display|
00000e10  25 21 31 32 3d a0 28 a4  72 65 61 64 28 31 29 29  |%!12=.(.read(1))|
00000e20  0d 05 64 1b 64 69 73 70  6c 61 79 25 21 31 36 3d  |..d.display%!16=|
00000e30  a0 28 a4 72 65 61 64 28  31 29 29 0d 05 6e 05 e1  |.(.read(1))..n..|
00000e40  0d 05 78 05 3a 0d 05 82  11 dd 20 f2 73 70 72 69  |..x.:..... .spri|
00000e50  74 65 66 69 6c 65 0d 05  8c 15 24 73 70 72 6e 6d  |tefile....$sprnm|
00000e60  65 25 3d a4 72 65 61 64  28 31 29 0d 05 96 05 e1  |e%=.read(1).....|
00000e70  0d 05 a0 05 3a 0d 05 aa  0e dd 20 f2 61 6d 62 69  |....:..... .ambi|
00000e80  65 6e 74 0d 05 b4 2c 7c  6e 75 6d 62 65 72 3d a0  |ent...,|number=.|
00000e90  28 a4 72 65 61 64 28 31  29 29 3a d6 20 62 61 73  |(.read(1)):. bas|
00000ea0  74 6f 66 70 75 2c 21 61  6d 62 69 65 6e 74 25 0d  |tofpu,!ambient%.|
00000eb0  05 be 2d 7c 6e 75 6d 62  65 72 3d a0 28 a4 72 65  |..-|number=.(.re|
00000ec0  61 64 28 31 29 29 3a d6  20 62 61 73 74 6f 66 70  |ad(1)):. bastofp|
00000ed0  75 2c 61 6d 62 69 65 6e  74 25 21 34 0d 05 c8 2d  |u,ambient%!4...-|
00000ee0  7c 6e 75 6d 62 65 72 3d  a0 28 a4 72 65 61 64 28  ||number=.(.read(|
00000ef0  31 29 29 3a d6 20 62 61  73 74 6f 66 70 75 2c 61  |1)):. bastofpu,a|
00000f00  6d 62 69 65 6e 74 25 21  38 0d 05 d2 05 e1 0d 05  |mbient%!8.......|
00000f10  dc 05 3a 0d 05 e6 0b dd  20 f2 76 69 65 77 0d 05  |..:..... .view..|
00000f20  f0 2f 7c 6e 75 6d 62 65  72 3d 2d a0 28 a4 72 65  |./|number=-.(.re|
00000f30  61 64 28 31 29 29 3a d6  20 62 61 73 74 6f 66 70  |ad(1)):. bastofp|
00000f40  75 2c 21 74 72 61 6e 73  66 6f 72 6d 25 0d 05 fa  |u,!transform%...|
00000f50  30 7c 6e 75 6d 62 65 72  3d 2d a0 28 a4 72 65 61  |0|number=-.(.rea|
00000f60  64 28 31 29 29 3a d6 20  62 61 73 74 6f 66 70 75  |d(1)):. bastofpu|
00000f70  2c 74 72 61 6e 73 66 6f  72 6d 25 21 34 0d 06 04  |,transform%!4...|
00000f80  30 7c 6e 75 6d 62 65 72  3d 2d a0 28 a4 72 65 61  |0|number=-.(.rea|
00000f90  64 28 31 29 29 3a d6 20  62 61 73 74 6f 66 70 75  |d(1)):. bastofpu|
00000fa0  2c 74 72 61 6e 73 66 6f  72 6d 25 21 38 0d 06 0e  |,transform%!8...|
00000fb0  33 70 69 74 3d a0 28 a4  72 65 61 64 28 31 29 29  |3pit=.(.read(1))|
00000fc0  3a 79 61 77 3d a0 28 a4  72 65 61 64 28 31 29 29  |:yaw=.(.read(1))|
00000fd0  3a 72 6f 74 3d a0 28 a4  72 65 61 64 28 31 29 29  |:rot=.(.read(1))|
00000fe0  0d 06 18 26 f2 72 6f 74  61 74 65 28 70 69 74 2c  |...&.rotate(pit,|
00000ff0  79 61 77 2c 72 6f 74 2c  74 72 61 6e 73 66 6f 72  |yaw,rot,transfor|
00001000  6d 25 2b 31 32 29 0d 06  22 05 e1 0d 06 2c 05 3a  |m%+12).."....,.:|
00001010  0d 06 36 22 dd 20 f2 72  6f 74 61 74 65 28 70 69  |..6". .rotate(pi|
00001020  74 2c 79 61 77 2c 72 6f  74 2c 6d 61 74 72 69 78  |t,yaw,rot,matrix|
00001030  25 29 0d 06 40 11 ea 20  6d 74 78 28 29 2c 74 72  |%)..@.. mtx(),tr|
00001040  6e 28 29 0d 06 4a 17 de  20 6d 74 78 28 32 2c 32  |n()..J.. mtx(2,2|
00001050  29 2c 74 72 6e 28 32 2c  32 29 0d 06 54 23 63 6f  |),trn(2,2)..T#co|
00001060  73 79 61 77 3d 9b 20 b2  28 79 61 77 29 3a 73 69  |syaw=. .(yaw):si|
00001070  6e 79 61 77 3d b5 20 b2  28 79 61 77 29 0d 06 5e  |nyaw=. .(yaw)..^|
00001080  23 63 6f 73 70 69 74 3d  9b 20 b2 28 70 69 74 29  |#cospit=. .(pit)|
00001090  3a 73 69 6e 70 69 74 3d  b5 20 b2 28 70 69 74 29  |:sinpit=. .(pit)|
000010a0  0d 06 68 23 63 6f 73 72  6f 74 3d 9b 20 b2 28 72  |..h#cosrot=. .(r|
000010b0  6f 74 29 3a 73 69 6e 72  6f 74 3d b5 20 b2 28 72  |ot):sinrot=. .(r|
000010c0  6f 74 29 0d 06 72 44 6d  74 78 28 31 2c 31 29 3d  |ot)..rDmtx(1,1)=|
000010d0  63 6f 73 70 69 74 3a 6d  74 78 28 32 2c 31 29 3d  |cospit:mtx(2,1)=|
000010e0  73 69 6e 70 69 74 3a 6d  74 78 28 31 2c 32 29 3d  |sinpit:mtx(1,2)=|
000010f0  2d 73 69 6e 70 69 74 3a  6d 74 78 28 32 2c 32 29  |-sinpit:mtx(2,2)|
00001100  3d 63 6f 73 70 69 74 0d  06 7c 44 74 72 6e 28 30  |=cospit..|Dtrn(0|
00001110  2c 30 29 3d 63 6f 73 79  61 77 3a 74 72 6e 28 32  |,0)=cosyaw:trn(2|
00001120  2c 30 29 3d 2d 73 69 6e  79 61 77 3a 74 72 6e 28  |,0)=-sinyaw:trn(|
00001130  30 2c 32 29 3d 73 69 6e  79 61 77 3a 74 72 6e 28  |0,2)=sinyaw:trn(|
00001140  32 2c 32 29 3d 63 6f 73  79 61 77 0d 06 86 33 6d  |2,2)=cosyaw...3m|
00001150  74 78 28 30 2c 30 29 3d  31 3a 74 72 6e 28 31 2c  |tx(0,0)=1:trn(1,|
00001160  31 29 3d 31 3a 6d 74 78  28 29 3d 74 72 6e 28 29  |1)=1:mtx()=trn()|
00001170  2e 6d 74 78 28 29 3a 74  72 6e 28 29 3d 30 0d 06  |.mtx():trn()=0..|
00001180  90 44 74 72 6e 28 30 2c  30 29 3d 63 6f 73 72 6f  |.Dtrn(0,0)=cosro|
00001190  74 3a 74 72 6e 28 31 2c  30 29 3d 2d 73 69 6e 72  |t:trn(1,0)=-sinr|
000011a0  6f 74 3a 74 72 6e 28 30  2c 31 29 3d 73 69 6e 72  |ot:trn(0,1)=sinr|
000011b0  6f 74 3a 74 72 6e 28 31  2c 31 29 3d 63 6f 73 72  |ot:trn(1,1)=cosr|
000011c0  6f 74 0d 06 9a 20 74 72  6e 28 32 2c 32 29 3d 31  |ot... trn(2,2)=1|
000011d0  3a 6d 74 78 28 29 3d 74  72 6e 28 29 2e 6d 74 78  |:mtx()=trn().mtx|
000011e0  28 29 0d 06 a4 10 e3 20  79 6d 74 25 3d 30 20 b8  |()..... ymt%=0 .|
000011f0  20 32 0d 06 ae 10 e3 20  78 6d 74 25 3d 30 20 b8  | 2..... xmt%=0 .|
00001200  20 32 0d 06 b8 3e 7c 6e  75 6d 62 65 72 3d 6d 74  | 2...>|number=mt|
00001210  78 28 78 6d 74 25 2c 79  6d 74 25 29 3a d6 20 62  |x(xmt%,ymt%):. b|
00001220  61 73 74 6f 66 70 75 2c  6d 61 74 72 69 78 25 21  |astofpu,matrix%!|
00001230  28 34 2a 78 6d 74 25 2b  31 32 2a 79 6d 74 25 29  |(4*xmt%+12*ymt%)|
00001240  0d 06 c2 0f ed 20 78 6d  74 25 2c 79 6d 74 25 0d  |..... xmt%,ymt%.|
00001250  06 cc 05 e1 0d 06 d6 05  3a 0d 06 e0 0f dd 20 f2  |........:..... .|
00001260  6d 61 74 65 72 69 61 6c  0d 06 ea 0f c8 95 20 64  |material...... d|
00001270  65 70 74 68 25 3d 31 0d  06 f4 1d 6d 61 74 6e 6d  |epth%=1....matnm|
00001280  65 24 28 6d 61 74 6e 75  6d 25 29 3d a4 72 65 61  |e$(matnum%)=.rea|
00001290  64 28 31 29 0d 06 fe 10  e3 20 76 61 72 25 3d 30  |d(1)..... var%=0|
000012a0  20 b8 20 36 0d 07 08 40  7c 6e 75 6d 62 65 72 3d  | . 6...@|number=|
000012b0  a0 28 a4 72 65 61 64 28  31 29 29 3a d6 20 62 61  |.(.read(1)):. ba|
000012c0  73 74 6f 66 70 75 2c 6d  61 74 65 72 69 61 6c 25  |stofpu,material%|
000012d0  21 28 32 38 2a 6d 61 74  6e 75 6d 25 2b 34 2a 76  |!(28*matnum%+4*v|
000012e0  61 72 25 29 0d 07 12 0a  ed 20 76 61 72 25 0d 07  |ar%)..... var%..|
000012f0  1c 2c 6d 61 74 6e 75 6d  25 2b 3d 31 3a e7 20 6d  |.,matnum%+=1:. m|
00001300  61 74 6e 75 6d 25 3e 6d  61 78 6d 61 74 25 20 8c  |atnum%>maxmat% .|
00001310  20 f2 65 72 72 6f 72 28  33 29 0d 07 26 05 ce 0d  | .error(3)..&...|
00001320  07 30 05 e1 0d 07 3a 05  3a 0d 07 44 20 dd 20 a4  |.0....:.:..D . .|
00001330  66 69 6e 64 28 73 74 72  24 2c 63 6d 70 24 28 29  |find(str$,cmp$()|
00001340  2c 73 74 72 6e 75 6d 25  29 0d 07 4e 0a 73 74 72  |,strnum%)..N.str|
00001350  25 3d 30 0d 07 58 26 c8  95 20 73 74 72 24 3c 3e  |%=0..X&.. str$<>|
00001360  63 6d 70 24 28 73 74 72  25 29 20 80 20 73 74 72  |cmp$(str%) . str|
00001370  25 3c 73 74 72 6e 75 6d  25 0d 07 62 0b 73 74 72  |%<strnum%..b.str|
00001380  25 2b 3d 31 0d 07 6c 05  ce 0d 07 76 09 3d 73 74  |%+=1..l....v.=st|
00001390  72 25 0d 07 80 05 3a 0d  07 8a 0d dd 20 f2 64 65  |r%....:..... .de|
000013a0  66 69 6e 65 0d 07 94 28  6f 62 6a 70 6e 74 25 3d  |fine...(objpnt%=|
000013b0  64 65 66 69 6e 65 25 21  28 31 32 2a 6f 62 6a 6e  |define%!(12*objn|
000013c0  75 6d 25 29 2b 64 65 66  70 6e 74 25 0d 07 9e 2a  |um%)+defpnt%...*|
000013d0  6f 62 6a 70 6f 6c 25 3d  64 65 66 69 6e 65 25 21  |objpol%=define%!|
000013e0  28 34 2b 31 32 2a 6f 62  6a 6e 75 6d 25 29 2b 64  |(4+12*objnum%)+d|
000013f0  65 66 70 6f 6c 25 0d 07  a8 2a 6f 62 6a 6f 66 66  |efpol%...*objoff|
00001400  25 3d 64 65 66 69 6e 65  25 21 28 38 2b 31 32 2a  |%=define%!(8+12*|
00001410  6f 62 6a 6e 75 6d 25 29  2b 64 65 66 6f 66 66 25  |objnum%)+defoff%|
00001420  0d 07 b2 21 6f 62 6a 70  74 6e 25 3d 30 3a 6f 62  |...!objptn%=0:ob|
00001430  6a 70 6c 6e 25 3d 30 3a  6f 62 70 6c 61 64 25 3d  |jpln%=0:obplad%=|
00001440  30 0d 07 bc 1d 6f 62 6a  6e 6d 65 24 28 6f 62 6a  |0....objnme$(obj|
00001450  6e 75 6d 25 29 3d a4 72  65 61 64 28 31 29 0d 07  |num%)=.read(1)..|
00001460  c6 0f c8 95 20 64 65 70  74 68 25 3d 31 0d 07 d0  |.... depth%=1...|
00001470  11 6f 62 6a 24 3d a4 72  65 61 64 28 31 29 0d 07  |.obj$=.read(1)..|
00001480  da 1b e7 20 6f 62 6a 24  3d 22 70 6f 69 6e 74 22  |... obj$="point"|
00001490  20 8c 20 f2 70 6f 69 6e  74 0d 07 e4 1b e7 20 6f  | . .point..... o|
000014a0  62 6a 24 3d 22 73 68 61  70 65 22 20 8c 20 f2 73  |bj$="shape" . .s|
000014b0  68 61 70 65 0d 07 ee 19  e7 20 6f 62 6a 24 3d 22  |hape..... obj$="|
000014c0  6c 69 6e 6b 22 20 8c 20  f2 6c 69 6e 6b 0d 07 f8  |link" . .link...|
000014d0  1f e7 20 6f 62 6a 24 3d  22 73 75 72 66 61 63 65  |.. obj$="surface|
000014e0  22 20 8c 20 f2 73 75 72  66 61 63 65 0d 08 02 05  |" . .surface....|
000014f0  ce 0d 08 0c 14 21 6f 62  6a 70 6e 74 25 3d 6f 62  |.....!objpnt%=ob|
00001500  6a 70 74 6e 25 0d 08 16  14 21 6f 62 6a 6f 66 66  |jptn%....!objoff|
00001510  25 3d 6f 62 6a 70 6c 6e  25 0d 08 20 2c 6f 62 6a  |%=objpln%.. ,obj|
00001520  6e 75 6d 25 2b 3d 31 3a  e7 20 6f 62 6a 6e 75 6d  |num%+=1:. objnum|
00001530  25 3e 6d 61 78 6f 62 6a  25 20 8c 20 f2 65 72 72  |%>maxobj% . .err|
00001540  6f 72 28 33 29 0d 08 2a  35 64 65 66 69 6e 65 25  |or(3)..*5define%|
00001550  21 28 31 32 2a 6f 62 6a  6e 75 6d 25 29 3d 6f 62  |!(12*objnum%)=ob|
00001560  6a 70 6e 74 25 2b 34 2b  31 32 2a 6f 62 6a 70 74  |jpnt%+4+12*objpt|
00001570  6e 25 2d 64 65 66 70 6e  74 25 0d 08 34 32 64 65  |n%-defpnt%..42de|
00001580  66 69 6e 65 25 21 28 34  2b 31 32 2a 6f 62 6a 6e  |fine%!(4+12*objn|
00001590  75 6d 25 29 3d 6f 62 6a  70 6f 6c 25 2b 6f 62 70  |um%)=objpol%+obp|
000015a0  6c 61 64 25 2d 64 65 66  70 6f 6c 25 0d 08 3e 36  |lad%-defpol%..>6|
000015b0  64 65 66 69 6e 65 25 21  28 38 2b 31 32 2a 6f 62  |define%!(8+12*ob|
000015c0  6a 6e 75 6d 25 29 3d 6f  62 6a 6f 66 66 25 2b 34  |jnum%)=objoff%+4|
000015d0  2b 34 2a 6f 62 6a 70 6c  6e 25 2d 64 65 66 6f 66  |+4*objpln%-defof|
000015e0  66 25 0d 08 48 05 e1 0d  08 52 05 3a 0d 08 5c 0c  |f%..H....R.:..\.|
000015f0  dd 20 f2 70 6f 69 6e 74  0d 08 66 0f c8 95 20 64  |. .point..f... d|
00001600  65 70 74 68 25 3d 32 0d  08 70 39 7c 6e 75 6d 62  |epth%=2..p9|numb|
00001610  65 72 3d a0 28 a4 72 65  61 64 28 32 29 29 3a d6  |er=.(.read(2)):.|
00001620  20 62 61 73 74 6f 66 70  75 2c 6f 62 6a 70 6e 74  | bastofpu,objpnt|
00001630  25 21 28 34 2b 31 32 2a  6f 62 6a 70 74 6e 25 29  |%!(4+12*objptn%)|
00001640  0d 08 7a 39 7c 6e 75 6d  62 65 72 3d a0 28 a4 72  |..z9|number=.(.r|
00001650  65 61 64 28 32 29 29 3a  d6 20 62 61 73 74 6f 66  |ead(2)):. bastof|
00001660  70 75 2c 6f 62 6a 70 6e  74 25 21 28 38 2b 31 32  |pu,objpnt%!(8+12|
00001670  2a 6f 62 6a 70 74 6e 25  29 0d 08 84 3a 7c 6e 75  |*objptn%)...:|nu|
00001680  6d 62 65 72 3d a0 28 a4  72 65 61 64 28 32 29 29  |mber=.(.read(2))|
00001690  3a d6 20 62 61 73 74 6f  66 70 75 2c 6f 62 6a 70  |:. bastofpu,objp|
000016a0  6e 74 25 21 28 31 32 2b  31 32 2a 6f 62 6a 70 74  |nt%!(12+12*objpt|
000016b0  6e 25 29 0d 08 8e 3c 6f  62 6a 70 74 6e 25 2b 3d  |n%)...<objptn%+=|
000016c0  31 3a e7 20 28 31 32 2b  31 32 2a 6f 62 6a 70 74  |1:. (12+12*objpt|
000016d0  6e 25 29 3e 6f 62 6a 6f  66 66 25 2d 6f 62 6a 70  |n%)>objoff%-objp|
000016e0  6e 74 25 20 8c 20 f2 65  72 72 6f 72 28 33 29 0d  |nt% . .error(3).|
000016f0  08 98 05 ce 0d 08 a2 05  e1 0d 08 ac 05 3a 0d 08  |.............:..|
00001700  b6 0c dd 20 f2 73 68 61  70 65 0d 08 c0 0b ea 20  |... .shape..... |
00001710  76 63 74 28 29 0d 08 ca  0c de 20 76 63 74 28 38  |vct()..... vct(8|
00001720  29 0d 08 d4 14 73 64 65  25 3d a0 28 a4 72 65 61  |)....sde%=.(.rea|
00001730  64 28 32 29 29 0d 08 de  10 e3 20 76 63 74 25 3d  |d(2))..... vct%=|
00001740  30 20 b8 20 38 0d 08 e8  19 76 63 74 28 76 63 74  |0 . 8....vct(vct|
00001750  25 29 3d a0 28 a4 72 65  61 64 28 32 29 29 0d 08  |%)=.(.read(2))..|
00001760  f2 0a ed 20 76 63 74 25  0d 08 fc 05 3a 0d 09 06  |... vct%....:...|
00001770  15 e3 20 72 6f 74 25 3d  30 20 b8 20 73 64 65 25  |.. rot%=0 . sde%|
00001780  2d 31 0d 09 10 17 74 68  65 74 61 3d 32 2a af 2a  |-1....theta=2*.*|
00001790  72 6f 74 25 2f 73 64 65  25 0d 09 1a 32 7c 6e 75  |rot%/sde%...2|nu|
000017a0  6d 62 65 72 3d 76 63 74  28 33 29 2a 9b 28 74 68  |mber=vct(3)*.(th|
000017b0  65 74 61 29 2b 76 63 74  28 36 29 2a b5 28 74 68  |eta)+vct(6)*.(th|
000017c0  65 74 61 29 2b 76 63 74  28 30 29 0d 09 24 25 d6  |eta)+vct(0)..$%.|
000017d0  20 62 61 73 74 6f 66 70  75 2c 6f 62 6a 70 6e 74  | bastofpu,objpnt|
000017e0  25 21 28 34 2b 31 32 2a  6f 62 6a 70 74 6e 25 29  |%!(4+12*objptn%)|
000017f0  0d 09 2e 32 7c 6e 75 6d  62 65 72 3d 76 63 74 28  |...2|number=vct(|
00001800  34 29 2a 9b 28 74 68 65  74 61 29 2b 76 63 74 28  |4)*.(theta)+vct(|
00001810  37 29 2a b5 28 74 68 65  74 61 29 2b 76 63 74 28  |7)*.(theta)+vct(|
00001820  31 29 0d 09 38 25 d6 20  62 61 73 74 6f 66 70 75  |1)..8%. bastofpu|
00001830  2c 6f 62 6a 70 6e 74 25  21 28 38 2b 31 32 2a 6f  |,objpnt%!(8+12*o|
00001840  62 6a 70 74 6e 25 29 0d  09 42 32 7c 6e 75 6d 62  |bjptn%)..B2|numb|
00001850  65 72 3d 76 63 74 28 35  29 2a 9b 28 74 68 65 74  |er=vct(5)*.(thet|
00001860  61 29 2b 76 63 74 28 38  29 2a b5 28 74 68 65 74  |a)+vct(8)*.(thet|
00001870  61 29 2b 76 63 74 28 32  29 0d 09 4c 26 d6 20 62  |a)+vct(2)..L&. b|
00001880  61 73 74 6f 66 70 75 2c  6f 62 6a 70 6e 74 25 21  |astofpu,objpnt%!|
00001890  28 31 32 2b 31 32 2a 6f  62 6a 70 74 6e 25 29 0d  |(12+12*objptn%).|
000018a0  09 56 3c 6f 62 6a 70 74  6e 25 2b 3d 31 3a e7 20  |.V<objptn%+=1:. |
000018b0  28 31 32 2b 31 32 2a 6f  62 6a 70 74 6e 25 29 3e  |(12+12*objptn%)>|
000018c0  6f 62 6a 6f 66 66 25 2d  6f 62 6a 70 6e 74 25 20  |objoff%-objpnt% |
000018d0  8c 20 f2 65 72 72 6f 72  28 33 29 0d 09 60 0a ed  |. .error(3)..`..|
000018e0  20 72 6f 74 25 0d 09 6a  05 e1 0d 09 74 05 3a 0d  | rot%..j....t.:.|
000018f0  09 7e 0b dd 20 f2 6c 69  6e 6b 0d 09 88 1d 69 64  |.~.. .link....id|
00001900  74 25 3d 2d 31 2a 28 a4  72 65 61 64 28 32 29 3d  |t%=-1*(.read(2)=|
00001910  22 66 6c 61 74 22 29 0d  09 92 21 6f 62 6a 6f 66  |"flat")...!objof|
00001920  66 25 21 28 34 2b 34 2a  6f 62 6a 70 6c 6e 25 29  |f%!(4+4*objpln%)|
00001930  3d 6f 62 70 6c 61 64 25  0d 09 9c 23 6f 62 6a 70  |=obplad%...#objp|
00001940  6f 6c 25 21 6f 62 70 6c  61 64 25 3d 69 64 74 25  |ol%!obplad%=idt%|
00001950  3a 6f 62 70 6c 61 64 25  2b 3d 34 0d 09 a6 26 76  |:obplad%+=4...&v|
00001960  72 74 78 25 3d 30 3a 76  72 74 61 64 72 25 3d 6f  |rtx%=0:vrtadr%=o|
00001970  62 70 6c 61 64 25 3a 6f  62 70 6c 61 64 25 2b 3d  |bplad%:obplad%+=|
00001980  34 0d 09 b0 0f c8 95 20  64 65 70 74 68 25 3d 32  |4...... depth%=2|
00001990  0d 09 ba 2a 6f 62 6a 70  6f 6c 25 21 6f 62 70 6c  |...*objpol%!obpl|
000019a0  61 64 25 3d bb 28 a4 72  65 61 64 28 32 29 29 3a  |ad%=.(.read(2)):|
000019b0  6f 62 70 6c 61 64 25 2b  3d 34 0d 09 c4 31 e7 20  |obplad%+=4...1. |
000019c0  6f 62 70 6c 61 64 25 3e  6f 62 6a 73 7a 65 25 2b  |obplad%>objsze%+|
000019d0  6f 62 6a 70 6e 74 25 2d  6f 62 6a 70 6f 6c 25 20  |objpnt%-objpol% |
000019e0  8c 20 f2 65 72 72 6f 72  28 33 29 0d 09 ce 0c 76  |. .error(3)....v|
000019f0  72 74 78 25 2b 3d 31 0d  09 d8 05 ce 0d 09 e2 3b  |rtx%+=1........;|
00001a00  6f 62 6a 70 6f 6c 25 21  6f 62 70 6c 61 64 25 3d  |objpol%!obplad%=|
00001a10  6f 62 6a 70 6f 6c 25 21  28 76 72 74 61 64 72 25  |objpol%!(vrtadr%|
00001a20  2b 34 29 3a 6f 62 70 6c  61 64 25 2b 3d 34 3a 76  |+4):obplad%+=4:v|
00001a30  72 74 78 25 2b 3d 31 0d  09 ec 19 6f 62 6a 70 6f  |rtx%+=1....objpo|
00001a40  6c 25 21 76 72 74 61 64  72 25 3d 76 72 74 78 25  |l%!vrtadr%=vrtx%|
00001a50  0d 09 f6 38 6f 62 6a 70  6c 6e 25 2b 3d 31 3a e7  |...8objpln%+=1:.|
00001a60  20 28 34 2b 34 2a 6f 62  6a 70 6c 6e 25 29 3e 70  | (4+4*objpln%)>p|
00001a70  6f 6c 79 25 2d 6f 66 66  73 65 74 25 20 8c 20 f2  |oly%-offset% . .|
00001a80  65 72 72 6f 72 28 33 29  0d 0a 00 05 e1 0d 0a 0a  |error(3)........|
00001a90  05 3a 0d 0a 14 0e dd 20  f2 73 75 72 66 61 63 65  |.:..... .surface|
00001aa0  0d 0a 1e 1d 69 64 74 25  3d 2d 31 2a 28 a4 72 65  |....idt%=-1*(.re|
00001ab0  61 64 28 32 29 3d 22 66  6c 61 74 22 29 0d 0a 28  |ad(2)="flat")..(|
00001ac0  17 70 6e 74 6f 72 67 25  3d a0 28 a4 72 65 61 64  |.pntorg%=.(.read|
00001ad0  28 32 29 29 0d 0a 32 25  78 77 64 25 3d a0 28 a4  |(2))..2%xwd%=.(.|
00001ae0  72 65 61 64 28 32 29 29  3a 79 77 64 25 3d a0 28  |read(2)):ywd%=.(|
00001af0  a4 72 65 61 64 28 32 29  29 0d 0a 3c 25 78 6a 6e  |.read(2))..<%xjn|
00001b00  25 3d a0 28 a4 72 65 61  64 28 32 29 29 3a 79 6a  |%=.(.read(2)):yj|
00001b10  6e 25 3d a0 28 a4 72 65  61 64 28 32 29 29 0d 0a  |n%=.(.read(2))..|
00001b20  46 1d e3 20 79 70 6c 25  3d 30 20 b8 20 79 77 64  |F.. ypl%=0 . ywd|
00001b30  25 2d 32 2b 94 28 79 6a  6e 25 29 0d 0a 50 1d e3  |%-2+.(yjn%)..P..|
00001b40  20 78 70 6c 25 3d 30 20  b8 20 78 77 64 25 2d 32  | xpl%=0 . xwd%-2|
00001b50  2b 94 28 78 6a 6e 25 29  0d 0a 5a 1f 66 73 74 25  |+.(xjn%)..Z.fst%|
00001b60  3d 78 77 64 25 2a 79 70  6c 25 2b 78 70 6c 25 2b  |=xwd%*ypl%+xpl%+|
00001b70  70 6e 74 6f 72 67 25 0d  0a 64 0f 73 65 63 25 3d  |pntorg%..d.sec%=|
00001b80  66 73 74 25 2b 31 0d 0a  6e 12 74 68 72 25 3d 73  |fst%+1..n.thr%=s|
00001b90  65 63 25 2b 78 77 64 25  0d 0a 78 12 66 72 74 25  |ec%+xwd%..x.frt%|
00001ba0  3d 66 73 74 25 2b 78 77  64 25 0d 0a 82 21 6f 62  |=fst%+xwd%...!ob|
00001bb0  6a 6f 66 66 25 21 28 34  2b 34 2a 6f 62 6a 70 6c  |joff%!(4+4*objpl|
00001bc0  6e 25 29 3d 6f 62 70 6c  61 64 25 0d 0a 8c 23 6f  |n%)=obplad%...#o|
00001bd0  62 6a 70 6f 6c 25 21 6f  62 70 6c 61 64 25 3d 69  |bjpol%!obplad%=i|
00001be0  64 74 25 3a 6f 62 70 6c  61 64 25 2b 3d 34 0d 0a  |dt%:obplad%+=4..|
00001bf0  96 20 6f 62 6a 70 6f 6c  25 21 6f 62 70 6c 61 64  |. objpol%!obplad|
00001c00  25 3d 35 3a 6f 62 70 6c  61 64 25 2b 3d 34 0d 0a  |%=5:obplad%+=4..|
00001c10  a0 23 6f 62 6a 70 6f 6c  25 21 6f 62 70 6c 61 64  |.#objpol%!obplad|
00001c20  25 3d 66 73 74 25 3a 6f  62 70 6c 61 64 25 2b 3d  |%=fst%:obplad%+=|
00001c30  34 0d 0a aa 31 e7 20 78  6a 6e 25 20 80 20 78 70  |4...1. xjn% . xp|
00001c40  6c 25 3e 78 77 64 25 2d  32 20 8c 20 20 73 65 63  |l%>xwd%-2 .  sec|
00001c50  25 2d 3d 78 77 64 25 3a  74 68 72 25 2d 3d 78 77  |%-=xwd%:thr%-=xw|
00001c60  64 25 0d 0a b4 3b e7 20  79 6a 6e 25 20 80 20 79  |d%...;. yjn% . y|
00001c70  70 6c 25 3e 79 77 64 25  2d 32 20 8c 20 20 74 68  |pl%>ywd%-2 .  th|
00001c80  72 25 2d 3d 79 77 64 25  2a 78 77 64 25 3a 66 72  |r%-=ywd%*xwd%:fr|
00001c90  74 25 2d 3d 79 77 64 25  2a 78 77 64 25 0d 0a be  |t%-=ywd%*xwd%...|
00001ca0  23 6f 62 6a 70 6f 6c 25  21 6f 62 70 6c 61 64 25  |#objpol%!obplad%|
00001cb0  3d 73 65 63 25 3a 6f 62  70 6c 61 64 25 2b 3d 34  |=sec%:obplad%+=4|
00001cc0  0d 0a c8 23 6f 62 6a 70  6f 6c 25 21 6f 62 70 6c  |...#objpol%!obpl|
00001cd0  61 64 25 3d 74 68 72 25  3a 6f 62 70 6c 61 64 25  |ad%=thr%:obplad%|
00001ce0  2b 3d 34 0d 0a d2 23 6f  62 6a 70 6f 6c 25 21 6f  |+=4...#objpol%!o|
00001cf0  62 70 6c 61 64 25 3d 66  72 74 25 3a 6f 62 70 6c  |bplad%=frt%:obpl|
00001d00  61 64 25 2b 3d 34 0d 0a  dc 23 6f 62 6a 70 6f 6c  |ad%+=4...#objpol|
00001d10  25 21 6f 62 70 6c 61 64  25 3d 66 73 74 25 3a 6f  |%!obplad%=fst%:o|
00001d20  62 70 6c 61 64 25 2b 3d  34 0d 0a e6 3a 6f 62 6a  |bplad%+=4...:obj|
00001d30  70 6c 6e 25 2b 3d 31 3a  e7 20 28 34 2b 34 2a 6f  |pln%+=1:. (4+4*o|
00001d40  62 6a 70 6c 6e 25 29 3e  6f 62 6a 70 6f 6c 25 2d  |bjpln%)>objpol%-|
00001d50  6f 62 6a 6f 66 66 25 20  8c 20 f2 65 72 72 6f 72  |objoff% . .error|
00001d60  28 33 29 0d 0a f0 31 e7  20 6f 62 70 6c 61 64 25  |(3)...1. obplad%|
00001d70  3e 6f 62 6a 73 7a 65 25  2b 6f 62 6a 70 6e 74 25  |>objsze%+objpnt%|
00001d80  2d 6f 62 6a 70 6f 6c 25  20 8c 20 f2 65 72 72 6f  |-objpol% . .erro|
00001d90  72 28 33 29 0d 0a fa 0f  ed 20 78 70 6c 25 2c 79  |r(3)..... xpl%,y|
00001da0  70 6c 25 0d 0b 04 05 e1  0d 0b 0e 05 3a 0d 0b 18  |pl%.........:...|
00001db0  13 dd 20 f2 6f 62 6a 65  63 74 28 6f 62 6a 25 29  |.. .object(obj%)|
00001dc0  0d 0b 22 0f ea 20 70 6e  74 66 6c 67 25 28 29 0d  |..".. pntflg%().|
00001dd0  0b 2c 25 6f 62 6a 70 6e  74 25 3d 64 65 66 69 6e  |.,%objpnt%=defin|
00001de0  65 25 21 28 31 32 2a 6f  62 6a 25 29 2b 64 65 66  |e%!(12*obj%)+def|
00001df0  70 6e 74 25 0d 0b 36 27  6f 62 6a 70 6f 6c 25 3d  |pnt%..6'objpol%=|
00001e00  64 65 66 69 6e 65 25 21  28 34 2b 31 32 2a 6f 62  |define%!(4+12*ob|
00001e10  6a 25 29 2b 64 65 66 70  6f 6c 25 0d 0b 40 27 6f  |j%)+defpol%..@'o|
00001e20  62 6a 6f 66 66 25 3d 64  65 66 69 6e 65 25 21 28  |bjoff%=define%!(|
00001e30  38 2b 31 32 2a 6f 62 6a  25 29 2b 64 65 66 6f 66  |8+12*obj%)+defof|
00001e40  66 25 0d 0b 4a 13 78 70  73 3d a0 28 a4 72 65 61  |f%..J.xps=.(.rea|
00001e50  64 28 31 29 29 0d 0b 54  13 79 70 73 3d a0 28 a4  |d(1))..T.yps=.(.|
00001e60  72 65 61 64 28 31 29 29  0d 0b 5e 13 7a 70 73 3d  |read(1))..^.zps=|
00001e70  a0 28 a4 72 65 61 64 28  31 29 29 0d 0b 68 05 3a  |.(.read(1))..h.:|
00001e80  0d 0b 72 2e 70 6e 74 61  64 72 25 3d 31 32 2a 70  |..r.pntadr%=12*p|
00001e90  6e 74 6e 75 6d 25 3a 6f  76 65 72 6c 61 70 25 3d  |ntnum%:overlap%=|
00001ea0  70 6f 69 6e 74 25 21 70  6e 74 61 64 72 25 0d 0b  |point%!pntadr%..|
00001eb0  7c 36 e7 20 28 70 6e 74  61 64 72 25 2b 31 32 2a  ||6. (pntadr%+12*|
00001ec0  21 6f 62 6a 70 6e 74 25  29 3e 6f 66 66 73 65 74  |!objpnt%)>offset|
00001ed0  25 2d 70 6f 69 6e 74 25  20 8c 20 f2 65 72 72 6f  |%-point% . .erro|
00001ee0  72 28 33 29 0d 0b 86 19  e3 20 70 6e 74 25 3d 30  |r(3)..... pnt%=0|
00001ef0  20 b8 20 21 6f 62 6a 70  6e 74 25 2a 33 0d 0b 90  | . !objpnt%*3...|
00001f00  2c 70 6f 69 6e 74 25 21  28 70 6e 74 61 64 72 25  |,point%!(pntadr%|
00001f10  2b 34 2a 70 6e 74 25 29  3d 6f 62 6a 70 6e 74 25  |+4*pnt%)=objpnt%|
00001f20  21 28 34 2a 70 6e 74 25  29 0d 0b 9a 0a ed 20 70  |!(4*pnt%)..... p|
00001f30  6e 74 25 0d 0b a4 1b 69  6e 70 75 74 25 21 38 3d  |nt%....input%!8=|
00001f40  70 6f 69 6e 74 25 2b 70  6e 74 61 64 72 25 0d 0b  |point%+pntadr%..|
00001f50  ae 15 69 6e 70 75 74 25  21 34 30 3d 6f 62 6a 74  |..input%!40=objt|
00001f60  72 6e 25 0d 0b b8 0b 6d  61 74 25 3d 2d 31 0d 0b  |rn%....mat%=-1..|
00001f70  c2 0f c8 95 20 64 65 70  74 68 25 3d 31 0d 0b cc  |.... depth%=1...|
00001f80  11 6f 62 6a 24 3d a4 72  65 61 64 28 31 29 0d 0b  |.obj$=.read(1)..|
00001f90  d6 0d c8 8e 20 6f 62 6a  24 20 ca 0d 0b e0 2e c9  |.... obj$ ......|
00001fa0  20 22 74 65 78 74 75 72  65 22 20 3a 6d 61 74 25  | "texture" :mat%|
00001fb0  3d 26 38 30 30 30 20 84  20 73 70 72 6e 75 6d 25  |=&8000 . sprnum%|
00001fc0  3a f2 74 65 78 74 75 72  65 0d 0b ea 1a c9 20 22  |:.texture..... "|
00001fd0  74 72 61 6e 73 66 6f 72  6d 22 20 3a f2 6f 62 6a  |transform" :.obj|
00001fe0  74 72 6e 0d 0b f4 17 c9  20 22 72 6f 74 61 74 65  |trn..... "rotate|
00001ff0  22 20 3a f2 6f 62 6a 72  6f 74 0d 0b fe 16 c9 20  |" :.objrot..... |
00002000  22 73 63 61 6c 65 22 20  3a f2 6f 62 6a 73 63 6c  |"scale" :.objscl|
00002010  0d 0c 08 05 7f 0d 0c 12  26 6d 61 74 25 3d a4 66  |........&mat%=.f|
00002020  69 6e 64 28 6f 62 6a 24  2c 6d 61 74 6e 6d 65 24  |ind(obj$,matnme$|
00002030  28 29 2c 6d 61 74 6e 75  6d 25 29 0d 0c 1c 1f e7  |(),matnum%).....|
00002040  20 6d 61 74 25 3e 3d 6d  61 74 6e 75 6d 25 20 8c  | mat%>=matnum% .|
00002050  20 f2 65 72 72 6f 72 28  34 29 0d 0c 26 05 cb 0d  | .error(4)..&...|
00002060  0c 30 05 ce 0d 0c 3a 18  e7 20 6d 61 74 25 3c 30  |.0....:.. mat%<0|
00002070  20 8c 20 f2 65 72 72 6f  72 28 35 29 0d 0c 44 09  | . .error(5)..D.|
00002080  f2 6d 6f 76 65 0d 0c 4e  1b 70 6f 69 6e 74 25 21  |.move..N.point%!|
00002090  70 6e 74 61 64 72 25 3d  6f 76 65 72 6c 61 70 25  |pntadr%=overlap%|
000020a0  0d 0c 58 05 3a 0d 0c 62  17 de 20 70 6e 74 66 6c  |..X.:..b.. pntfl|
000020b0  67 25 28 21 6f 62 6a 70  6e 74 25 29 0d 0c 6c 17  |g%(!objpnt%)..l.|
000020c0  e3 20 70 6f 6c 25 3d 31  20 b8 20 21 6f 62 6a 6f  |. pol%=1 . !objo|
000020d0  66 66 25 0d 0c 76 21 6f  66 66 73 65 74 25 21 28  |ff%..v!offset%!(|
000020e0  34 2b 34 2a 70 6f 6c 6e  75 6d 25 29 3d 70 6f 6c  |4+4*polnum%)=pol|
000020f0  61 64 72 25 0d 0c 80 1c  6f 62 70 6c 61 64 25 3d  |adr%....obplad%=|
00002100  6f 62 6a 6f 66 66 25 21  28 34 2a 70 6f 6c 25 29  |objoff%!(4*pol%)|
00002110  0d 0c 8a 46 70 6f 6c 79  25 21 70 6f 6c 61 64 72  |...Fpoly%!poladr|
00002120  25 3d 28 6f 62 6a 70 6f  6c 25 21 6f 62 70 6c 61  |%=(objpol%!obpla|
00002130  64 25 29 20 84 20 28 6d  61 74 25 3c 3c 31 36 29  |d%) . (mat%<<16)|
00002140  3a 6f 62 70 6c 61 64 25  2b 3d 34 3a 70 6f 6c 61  |:obplad%+=4:pola|
00002150  64 72 25 2b 3d 34 0d 0c  94 43 76 72 74 78 25 3d  |dr%+=4...Cvrtx%=|
00002160  6f 62 6a 70 6f 6c 25 21  6f 62 70 6c 61 64 25 3a  |objpol%!obplad%:|
00002170  70 6f 6c 79 25 21 70 6f  6c 61 64 72 25 3d 76 72  |poly%!poladr%=vr|
00002180  74 78 25 3a 6f 62 70 6c  61 64 25 2b 3d 34 3a 70  |tx%:obplad%+=4:p|
00002190  6f 6c 61 64 72 25 2b 3d  34 0d 0c 9e 1a e3 20 70  |oladr%+=4..... p|
000021a0  6f 6c 63 6f 70 79 25 3d  30 20 b8 20 76 72 74 78  |olcopy%=0 . vrtx|
000021b0  25 2d 31 0d 0c a8 1e 70  6e 74 66 6c 67 25 28 6f  |%-1....pntflg%(o|
000021c0  62 6a 70 6f 6c 25 21 6f  62 70 6c 61 64 25 29 3d  |bjpol%!obplad%)=|
000021d0  31 0d 0c b2 3f 70 6f 6c  79 25 21 70 6f 6c 61 64  |1...?poly%!polad|
000021e0  72 25 3d 6f 62 6a 70 6f  6c 25 21 6f 62 70 6c 61  |r%=objpol%!obpla|
000021f0  64 25 2b 70 6e 74 6e 75  6d 25 3a 6f 62 70 6c 61  |d%+pntnum%:obpla|
00002200  64 25 2b 3d 34 3a 70 6f  6c 61 64 72 25 2b 3d 34  |d%+=4:poladr%+=4|
00002210  0d 0c bc 2e e7 20 70 6f  6c 61 64 72 25 3e 64 61  |..... poladr%>da|
00002220  74 73 7a 65 25 2d 70 6f  6c 79 25 2b 70 6f 69 6e  |tsze%-poly%+poin|
00002230  74 25 20 8c 20 f2 65 72  72 6f 72 28 33 29 0d 0c  |t% . .error(3)..|
00002240  c6 0e ed 20 70 6f 6c 63  6f 70 79 25 0d 0c d0 0e  |... polcopy%....|
00002250  70 6f 6c 6e 75 6d 25 2b  3d 31 0d 0c da 2d e7 20  |polnum%+=1...-. |
00002260  28 34 2b 34 2a 70 6f 6c  6e 75 6d 25 29 3e 70 6f  |(4+4*polnum%)>po|
00002270  6c 79 25 2d 6f 66 66 73  65 74 25 20 8c 20 f2 65  |ly%-offset% . .e|
00002280  72 72 6f 72 28 33 29 0d  0c e4 0a ed 20 70 6f 6c  |rror(3)..... pol|
00002290  25 0d 0c ee 15 70 6e 74  6e 75 6d 25 2b 3d 21 6f  |%....pntnum%+=!o|
000022a0  62 6a 70 6e 74 25 0d 0c  f8 25 e7 20 c6 8e 20 70  |bjpnt%...%. .. p|
000022b0  6e 74 66 6c 67 25 28 29  3c 21 6f 62 6a 70 6e 74  |ntflg%()<!objpnt|
000022c0  25 20 f2 65 72 72 6f 72  28 32 29 0d 0d 02 05 e1  |% .error(2).....|
000022d0  0d 0d 0c 05 3a 0d 0d 16  0d dd 20 f2 6f 62 6a 74  |....:..... .objt|
000022e0  72 6e 0d 0d 20 26 21 6f  62 6a 74 72 6e 25 3d 30  |rn.. &!objtrn%=0|
000022f0  3a 6f 62 6a 74 72 6e 25  21 34 3d 30 3a 6f 62 6a  |:objtrn%!4=0:obj|
00002300  74 72 6e 25 21 38 3d 30  0d 0d 2a 10 e3 20 74 72  |trn%!8=0..*.. tr|
00002310  6e 25 3d 30 20 b8 20 38  0d 0d 34 36 7c 6e 75 6d  |n%=0 . 8..46|num|
00002320  62 65 72 3d a0 28 a4 72  65 61 64 28 32 29 29 3a  |ber=.(.read(2)):|
00002330  d6 20 62 61 73 74 6f 66  70 75 2c 6f 62 6a 74 72  |. bastofpu,objtr|
00002340  6e 25 21 28 31 32 2b 34  2a 74 72 6e 25 29 0d 0d  |n%!(12+4*trn%)..|
00002350  3e 0a ed 20 74 72 6e 25  0d 0d 48 0f d6 20 74 72  |>.. trn%..H.. tr|
00002360  61 6e 73 66 6f 72 6d 0d  0d 52 05 e1 0d 0d 5c 05  |ansform..R....\.|
00002370  3a 0d 0d 66 0d dd 20 f2  6f 62 6a 72 6f 74 0d 0d  |:..f.. .objrot..|
00002380  70 26 21 6f 62 6a 74 72  6e 25 3d 30 3a 6f 62 6a  |p&!objtrn%=0:obj|
00002390  74 72 6e 25 21 34 3d 30  3a 6f 62 6a 74 72 6e 25  |trn%!4=0:objtrn%|
000023a0  21 38 3d 30 0d 0d 7a 33  70 69 74 3d a0 28 a4 72  |!8=0..z3pit=.(.r|
000023b0  65 61 64 28 32 29 29 3a  79 61 77 3d a0 28 a4 72  |ead(2)):yaw=.(.r|
000023c0  65 61 64 28 32 29 29 3a  72 6f 74 3d a0 28 a4 72  |ead(2)):rot=.(.r|
000023d0  65 61 64 28 32 29 29 0d  0d 84 23 f2 72 6f 74 61  |ead(2))...#.rota|
000023e0  74 65 28 70 69 74 2c 79  61 77 2c 72 6f 74 2c 6f  |te(pit,yaw,rot,o|
000023f0  62 6a 74 72 6e 25 2b 31  32 29 0d 0d 8e 0f d6 20  |bjtrn%+12)..... |
00002400  74 72 61 6e 73 66 6f 72  6d 0d 0d 98 05 e1 0d 0d  |transform.......|
00002410  a2 05 3a 0d 0d ac 0d dd  20 f2 6f 62 6a 73 63 6c  |..:..... .objscl|
00002420  0d 0d b6 26 21 6f 62 6a  74 72 6e 25 3d 30 3a 6f  |...&!objtrn%=0:o|
00002430  62 6a 74 72 6e 25 21 34  3d 30 3a 6f 62 6a 74 72  |bjtrn%!4=0:objtr|
00002440  6e 25 21 38 3d 30 0d 0d  c0 2a 6f 62 6a 74 72 6e  |n%!8=0...*objtrn|
00002450  25 21 31 36 3d 30 3a 6f  62 6a 74 72 6e 25 21 32  |%!16=0:objtrn%!2|
00002460  30 3d 30 3a 6f 62 6a 74  72 6e 25 21 32 34 3d 30  |0=0:objtrn%!24=0|
00002470  0d 0d ca 2a 6f 62 6a 74  72 6e 25 21 33 32 3d 30  |...*objtrn%!32=0|
00002480  3a 6f 62 6a 74 72 6e 25  21 33 36 3d 30 3a 6f 62  |:objtrn%!36=0:ob|
00002490  6a 74 72 6e 25 21 34 30  3d 30 0d 0d d4 2d 7c 6e  |jtrn%!40=0...-|n|
000024a0  75 6d 62 65 72 3d a0 28  a4 72 65 61 64 28 32 29  |umber=.(.read(2)|
000024b0  29 3a d6 20 62 61 73 74  6f 66 70 75 2c 6f 62 6a  |):. bastofpu,obj|
000024c0  74 72 6e 25 21 31 32 0d  0d de 2d 7c 6e 75 6d 62  |trn%!12...-|numb|
000024d0  65 72 3d a0 28 a4 72 65  61 64 28 32 29 29 3a d6  |er=.(.read(2)):.|
000024e0  20 62 61 73 74 6f 66 70  75 2c 6f 62 6a 74 72 6e  | bastofpu,objtrn|
000024f0  25 21 32 38 0d 0d e8 2d  7c 6e 75 6d 62 65 72 3d  |%!28...-|number=|
00002500  a0 28 a4 72 65 61 64 28  32 29 29 3a d6 20 62 61  |.(.read(2)):. ba|
00002510  73 74 6f 66 70 75 2c 6f  62 6a 74 72 6e 25 21 34  |stofpu,objtrn%!4|
00002520  34 0d 0d f2 0f d6 20 74  72 61 6e 73 66 6f 72 6d  |4..... transform|
00002530  0d 0d fc 05 e1 0d 0e 06  05 3a 0d 0e 10 0b dd 20  |.........:..... |
00002540  f2 6d 6f 76 65 0d 0e 1a  23 7c 6e 75 6d 62 65 72  |.move...#|number|
00002550  3d 78 70 73 3a d6 20 62  61 73 74 6f 66 70 75 2c  |=xps:. bastofpu,|
00002560  21 6f 62 6a 74 72 6e 25  0d 0e 24 24 7c 6e 75 6d  |!objtrn%..$$|num|
00002570  62 65 72 3d 79 70 73 3a  d6 20 62 61 73 74 6f 66  |ber=yps:. bastof|
00002580  70 75 2c 6f 62 6a 74 72  6e 25 21 34 0d 0e 2e 24  |pu,objtrn%!4...$|
00002590  7c 6e 75 6d 62 65 72 3d  7a 70 73 3a d6 20 62 61  ||number=zps:. ba|
000025a0  73 74 6f 66 70 75 2c 6f  62 6a 74 72 6e 25 21 38  |stofpu,objtrn%!8|
000025b0  0d 0e 38 32 6f 62 6a 74  72 6e 25 21 31 32 3d 26  |..82objtrn%!12=&|
000025c0  33 46 38 30 30 30 30 30  3a 6f 62 6a 74 72 6e 25  |3F800000:objtrn%|
000025d0  21 31 36 3d 30 3a 6f 62  6a 74 72 6e 25 21 32 30  |!16=0:objtrn%!20|
000025e0  3d 30 0d 0e 42 32 6f 62  6a 74 72 6e 25 21 32 34  |=0..B2objtrn%!24|
000025f0  3d 30 3a 6f 62 6a 74 72  6e 25 21 32 38 3d 26 33  |=0:objtrn%!28=&3|
00002600  46 38 30 30 30 30 30 3a  6f 62 6a 74 72 6e 25 21  |F800000:objtrn%!|
00002610  33 32 3d 30 0d 0e 4c 32  6f 62 6a 74 72 6e 25 21  |32=0..L2objtrn%!|
00002620  33 36 3d 30 3a 6f 62 6a  74 72 6e 25 21 34 30 3d  |36=0:objtrn%!40=|
00002630  30 3a 6f 62 6a 74 72 6e  25 21 34 34 3d 26 33 46  |0:objtrn%!44=&3F|
00002640  38 30 30 30 30 30 0d 0e  56 0f d6 20 74 72 61 6e  |800000..V.. tran|
00002650  73 66 6f 72 6d 0d 0e 60  05 e1 0d 0e 6a 05 3a 0d  |sform..`....j.:.|
00002660  0e 74 0e dd 20 f2 74 65  78 74 75 72 65 0d 0e 7e  |.t.. .texture..~|
00002670  14 73 70 72 69 74 65 24  3d a4 72 65 61 64 28 32  |.sprite$=.read(2|
00002680  29 0d 0e 88 1f 73 70 72  6f 66 66 25 21 28 34 2a  |)....sproff%!(4*|
00002690  73 70 72 6e 75 6d 25 29  3d 73 70 72 61 64 72 25  |sprnum%)=spradr%|
000026a0  0d 0e 92 26 73 70 72 6d  61 70 25 21 73 70 72 61  |...&sprmap%!spra|
000026b0  64 72 25 3d 70 6e 74 6e  75 6d 25 3a 73 70 72 61  |dr%=pntnum%:spra|
000026c0  64 72 25 2b 3d 34 0d 0e  9c 49 24 28 73 70 72 6d  |dr%+=4...I$(sprm|
000026d0  61 70 25 2b 73 70 72 61  64 72 25 29 3d 73 70 72  |ap%+spradr%)=spr|
000026e0  69 74 65 24 3a 73 70 72  6d 61 70 25 3f 28 73 70  |ite$:sprmap%?(sp|
000026f0  72 61 64 72 25 2b a9 28  73 70 72 69 74 65 24 29  |radr%+.(sprite$)|
00002700  29 3d 30 3a 73 70 72 61  64 72 25 2b 3d 31 32 0d  |)=0:spradr%+=12.|
00002710  0e a6 3d 7c 6e 75 6d 62  65 72 3d a0 28 a4 72 65  |..=|number=.(.re|
00002720  61 64 28 32 29 29 3a d6  20 62 61 73 74 6f 66 70  |ad(2)):. bastofp|
00002730  75 2c 73 70 72 6d 61 70  25 21 73 70 72 61 64 72  |u,sprmap%!spradr|
00002740  25 3a 73 70 72 61 64 72  25 2b 3d 34 0d 0e b0 3d  |%:spradr%+=4...=|
00002750  7c 6e 75 6d 62 65 72 3d  a0 28 a4 72 65 61 64 28  ||number=.(.read(|
00002760  32 29 29 3a d6 20 62 61  73 74 6f 66 70 75 2c 73  |2)):. bastofpu,s|
00002770  70 72 6d 61 70 25 21 73  70 72 61 64 72 25 3a 73  |prmap%!spradr%:s|
00002780  70 72 61 64 72 25 2b 3d  34 0d 0e ba 3d 7c 6e 75  |pradr%+=4...=|nu|
00002790  6d 62 65 72 3d a0 28 a4  72 65 61 64 28 32 29 29  |mber=.(.read(2))|
000027a0  3a d6 20 62 61 73 74 6f  66 70 75 2c 73 70 72 6d  |:. bastofpu,sprm|
000027b0  61 70 25 21 73 70 72 61  64 72 25 3a 73 70 72 61  |ap%!spradr%:spra|
000027c0  64 72 25 2b 3d 34 0d 0e  c4 32 e7 20 73 70 72 61  |dr%+=4...2. spra|
000027d0  64 72 25 3e 73 70 72 73  7a 65 25 2b 73 70 72 64  |dr%>sprsze%+sprd|
000027e0  61 74 61 25 2d 73 70 72  6d 61 70 25 20 8c 20 f2  |ata%-sprmap% . .|
000027f0  65 72 72 6f 72 28 33 29  0d 0e ce 0d 73 70 72 70  |error(3)....sprp|
00002800  6e 74 25 3d 30 0d 0e d8  0f c8 95 20 64 65 70 74  |nt%=0...... dept|
00002810  68 25 3d 32 0d 0e e2 11  63 6f 6d 24 3d a4 72 65  |h%=2....com$=.re|
00002820  61 64 28 32 29 0d 0e ec  1a e7 20 63 6f 6d 24 3d  |ad(2)..... com$=|
00002830  22 66 69 74 22 20 8c 20  f2 73 70 72 66 69 74 0d  |"fit" . .sprfit.|
00002840  0e f6 1a e7 20 63 6f 6d  24 3d 22 6d 61 70 22 20  |.... com$="map" |
00002850  8c 20 f2 73 70 72 6d 61  70 0d 0f 00 22 e7 20 73  |. .sprmap...". s|
00002860  70 72 70 6e 74 25 3e 21  6f 62 6a 70 6e 74 25 20  |prpnt%>!objpnt% |
00002870  8c 20 f2 65 72 72 6f 72  28 37 29 0d 0f 0a 05 ce  |. .error(7).....|
00002880  0d 0f 14 22 e7 20 73 70  72 70 6e 74 25 3c 21 6f  |...". sprpnt%<!o|
00002890  62 6a 70 6e 74 25 20 8c  20 f2 65 72 72 6f 72 28  |bjpnt% . .error(|
000028a0  36 29 0d 0f 1e 2c 73 70  72 6e 75 6d 25 2b 3d 31  |6)...,sprnum%+=1|
000028b0  3a e7 20 73 70 72 6e 75  6d 25 3e 6d 61 78 73 70  |:. sprnum%>maxsp|
000028c0  72 25 20 8c 20 f2 65 72  72 6f 72 28 33 29 0d 0f  |r% . .error(3)..|
000028d0  28 05 e1 0d 0f 32 05 3a  0d 0f 3c 0d dd 20 f2 73  |(....2.:..<.. .s|
000028e0  70 72 66 69 74 0d 0f 46  25 78 77 64 25 3d a0 28  |prfit..F%xwd%=.(|
000028f0  a4 72 65 61 64 28 33 29  29 3a 79 77 64 25 3d a0  |.read(3)):ywd%=.|
00002900  28 a4 72 65 61 64 28 33  29 29 0d 0f 50 16 e3 20  |(.read(3))..P.. |
00002910  79 6d 61 70 25 3d 30 20  b8 20 79 77 64 25 2d 31  |ymap%=0 . ywd%-1|
00002920  0d 0f 5a 16 e3 20 78 6d  61 70 25 3d 30 20 b8 20  |..Z.. xmap%=0 . |
00002930  78 77 64 25 2d 31 0d 0f  64 40 7c 6e 75 6d 62 65  |xwd%-1..d@|numbe|
00002940  72 3d 78 6d 61 70 25 2f  28 78 77 64 25 2d 31 29  |r=xmap%/(xwd%-1)|
00002950  3a d6 20 62 61 73 74 6f  66 70 75 2c 73 70 72 6d  |:. bastofpu,sprm|
00002960  61 70 25 21 73 70 72 61  64 72 25 3a 73 70 72 61  |ap%!spradr%:spra|
00002970  64 72 25 2b 3d 34 0d 0f  6e 42 7c 6e 75 6d 62 65  |dr%+=4..nB|numbe|
00002980  72 3d 31 2d 79 6d 61 70  25 2f 28 79 77 64 25 2d  |r=1-ymap%/(ywd%-|
00002990  31 29 3a d6 20 62 61 73  74 6f 66 70 75 2c 73 70  |1):. bastofpu,sp|
000029a0  72 6d 61 70 25 21 73 70  72 61 64 72 25 3a 73 70  |rmap%!spradr%:sp|
000029b0  72 61 64 72 25 2b 3d 34  0d 0f 78 32 e7 20 73 70  |radr%+=4..x2. sp|
000029c0  72 61 64 72 25 3e 73 70  72 73 7a 65 25 2b 73 70  |radr%>sprsze%+sp|
000029d0  72 64 61 74 61 25 2d 73  70 72 6d 61 70 25 20 8c  |rdata%-sprmap% .|
000029e0  20 f2 65 72 72 6f 72 28  33 29 0d 0f 82 0e 73 70  | .error(3)....sp|
000029f0  72 70 6e 74 25 2b 3d 31  0d 0f 8c 11 ed 20 78 6d  |rpnt%+=1..... xm|
00002a00  61 70 25 2c 79 6d 61 70  25 0d 0f 96 05 e1 0d 0f  |ap%,ymap%.......|
00002a10  a0 05 3a 0d 0f aa 0d dd  20 f2 73 70 72 6d 61 70  |..:..... .sprmap|
00002a20  0d 0f b4 3d 7c 6e 75 6d  62 65 72 3d a0 28 a4 72  |...=|number=.(.r|
00002a30  65 61 64 28 33 29 29 3a  d6 20 62 61 73 74 6f 66  |ead(3)):. bastof|
00002a40  70 75 2c 73 70 72 6d 61  70 25 21 73 70 72 61 64  |pu,sprmap%!sprad|
00002a50  72 25 3a 73 70 72 61 64  72 25 2b 3d 34 0d 0f be  |r%:spradr%+=4...|
00002a60  3d 7c 6e 75 6d 62 65 72  3d a0 28 a4 72 65 61 64  |=|number=.(.read|
00002a70  28 33 29 29 3a d6 20 62  61 73 74 6f 66 70 75 2c  |(3)):. bastofpu,|
00002a80  73 70 72 6d 61 70 25 21  73 70 72 61 64 72 25 3a  |sprmap%!spradr%:|
00002a90  73 70 72 61 64 72 25 2b  3d 34 0d 0f c8 32 e7 20  |spradr%+=4...2. |
00002aa0  73 70 72 61 64 72 25 3e  73 70 72 73 7a 65 25 2b  |spradr%>sprsze%+|
00002ab0  73 70 72 64 61 74 61 25  2d 73 70 72 6d 61 70 25  |sprdata%-sprmap%|
00002ac0  20 8c 20 f2 65 72 72 6f  72 28 33 29 0d 0f d2 0e  | . .error(3)....|
00002ad0  73 70 72 70 6e 74 25 2b  3d 31 0d 0f dc 05 e1 0d  |sprpnt%+=1......|
00002ae0  0f e6 05 3a 0d 0f f0 12  dd 20 f2 65 72 72 6f 72  |...:..... .error|
00002af0  28 65 72 72 25 29 0d 0f  fa 05 f1 0d 10 04 0d c8  |(err%)..........|
00002b00  8e 20 65 72 72 25 20 ca  0d 10 0e 28 c9 20 30 20  |. err% ....(. 0 |
00002b10  3a 20 f1 20 22 55 6e 6b  6e 6f 77 6e 20 63 6f 6d  |: . "Unknown com|
00002b20  6d 61 6e 64 20 6f 72 20  4f 62 6a 65 63 74 22 3b  |mand or Object";|
00002b30  0d 10 18 24 c9 20 31 20  3a 20 f1 20 22 49 6e 73  |...$. 1 : . "Ins|
00002b40  75 66 66 69 63 65 6e 74  20 76 61 72 69 61 62 6c  |ufficent variabl|
00002b50  65 73 22 3b 0d 10 22 25  c9 20 32 20 3a 20 f1 20  |es";.."%. 2 : . |
00002b60  22 55 6e 75 73 65 64 20  70 6f 69 6e 74 20 69 6e  |"Unused point in|
00002b70  20 4f 62 6a 65 63 74 22  3b 0d 10 2c 25 c9 20 33  | Object";..,%. 3|
00002b80  20 3a 20 f1 20 22 54 6f  6f 20 6d 61 6e 79 20 2d  | : . "Too many -|
00002b90  20 6d 65 6d 6f 72 79 20  66 75 6c 6c 22 3b 0d 10  | memory full";..|
00002ba0  36 2a c9 20 34 20 3a 20  f1 20 22 55 6e 6b 6e 6f  |6*. 4 : . "Unkno|
00002bb0  77 6e 20 63 6f 6d 6d 61  6e 64 20 6f 72 20 4d 61  |wn command or Ma|
00002bc0  74 65 72 69 61 6c 22 3b  0d 10 40 1a c9 20 35 20  |terial";..@.. 5 |
00002bd0  3a 20 f1 20 22 4e 6f 20  4d 61 74 65 72 69 61 6c  |: . "No Material|
00002be0  22 3b 0d 10 4a 28 c9 20  36 20 3a 20 f1 20 22 55  |";..J(. 6 : . "U|
00002bf0  6e 6d 61 70 70 65 64 20  70 6f 69 6e 74 73 20 69  |nmapped points i|
00002c00  6e 20 54 65 78 74 75 72  65 3b 0d 10 54 30 c9 20  |n Texture;..T0. |
00002c10  37 20 3a 20 f1 20 22 54  6f 6f 20 6d 61 6e 79 20  |7 : . "Too many |
00002c20  6d 61 70 70 65 64 20 70  6f 69 6e 74 73 20 69 6e  |mapped points in|
00002c30  20 54 65 78 74 75 72 65  22 3b 0d 10 5e 05 7f 0d  | Texture";..^...|
00002c40  10 68 05 f6 0d 10 72 05  cb 0d 10 7c 18 f1 20 3b  |.h....r....|.. ;|
00002c50  22 20 61 74 20 6c 69 6e  65 20 22 3b 6c 69 6e 65  |" at line ";line|
00002c60  25 0d 10 86 05 e0 0d 10  90 05 3a 0d 10 9a 13 dd  |%.........:.....|
00002c70  20 a4 72 65 61 64 28 6c  65 76 65 6c 25 29 0d 10  | .read(level%)..|
00002c80  a4 20 e7 20 64 65 70 74  68 25 3c 3e 6c 65 76 65  |. . depth%<>leve|
00002c90  6c 25 20 8c 20 f2 65 72  72 6f 72 28 31 29 0d 10  |l% . .error(1)..|
00002ca0  ae 0b 73 74 72 24 3d 22  22 0d 10 b8 22 c8 95 20  |..str$=""...".. |
00002cb0  ac 20 a4 73 70 61 63 65  20 80 20 28 74 65 78 74  |. .space . (text|
00002cc0  25 3f 72 65 61 64 25 3c  3e 30 29 0d 10 c2 11 ef  |%?read%<>0).....|
00002cd0  20 74 65 78 74 25 3f 72  65 61 64 25 0d 10 cc 18  | text%?read%....|
00002ce0  73 74 72 24 2b 3d bd 28  74 65 78 74 25 3f 72 65  |str$+=.(text%?re|
00002cf0  61 64 25 29 0d 10 d6 0c  72 65 61 64 25 2b 3d 31  |ad%)....read%+=1|
00002d00  0d 10 e0 05 ce 0d 10 ea  20 c8 95 20 a4 73 70 61  |........ .. .spa|
00002d10  63 65 20 80 20 28 74 65  78 74 25 3f 72 65 61 64  |ce . (text%?read|
00002d20  25 3c 3e 30 29 0d 10 f4  11 ef 20 74 65 78 74 25  |%<>0)..... text%|
00002d30  3f 72 65 61 64 25 0d 10  fe 24 e7 20 74 65 78 74  |?read%...$. text|
00002d40  25 3f 72 65 61 64 25 3d  31 30 20 8c 20 ef 20 31  |%?read%=10 . . 1|
00002d50  33 3a 6c 69 6e 65 25 2b  3d 31 0d 11 08 21 e7 20  |3:line%+=1...!. |
00002d60  74 65 78 74 25 3f 72 65  61 64 25 3d 31 32 33 20  |text%?read%=123 |
00002d70  8c 20 64 65 70 74 68 25  2b 3d 31 0d 11 12 21 e7  |. depth%+=1...!.|
00002d80  20 74 65 78 74 25 3f 72  65 61 64 25 3d 31 32 35  | text%?read%=125|
00002d90  20 8c 20 64 65 70 74 68  25 2d 3d 31 0d 11 1c 0c  | . depth%-=1....|
00002da0  72 65 61 64 25 2b 3d 31  0d 11 26 05 ce 0d 11 30  |read%+=1..&....0|
00002db0  09 3d 73 74 72 24 0d 11  3a 05 3a 0d 11 44 0c dd  |.=str$..:.:..D..|
00002dc0  20 a4 73 70 61 63 65 0d  11 4e 3c 3d 28 74 65 78  | .space..N<=(tex|
00002dd0  74 25 3f 72 65 61 64 25  3c 33 33 29 20 84 20 28  |t%?read%<33) . (|
00002de0  74 65 78 74 25 3f 72 65  61 64 25 3d 34 34 29 20  |text%?read%=44) |
00002df0  84 20 28 74 65 78 74 25  3f 72 65 61 64 25 3e 31  |. (text%?read%>1|
00002e00  32 32 29 0d 11 58 05 3a  0d 11 62 0c dd 20 f2 69  |22)..X.:..b.. .i|
00002e10  6e 70 75 74 0d 11 6c 1a  c8 99 20 22 4f 53 5f 47  |nput..l... "OS_G|
00002e20  65 74 45 6e 76 22 20 b8  20 74 65 78 74 25 0d 11  |etEnv" . text%..|
00002e30  76 16 72 65 61 64 25 3d  30 3a 64 65 70 74 68 25  |v.read%=0:depth%|
00002e40  3d 30 3a f5 0d 11 80 11  63 6f 6d 24 3d a4 72 65  |=0:.....com$=.re|
00002e50  61 64 28 30 29 0d 11 8a  3b fd 20 28 74 65 78 74  |ad(0)...;. (text|
00002e60  25 3f 72 65 61 64 25 3d  30 29 20 84 20 a7 63 6f  |%?read%=0) . .co|
00002e70  6d 24 2c 22 43 4f 4d 50  49 4c 45 22 29 20 84 20  |m$,"COMPILE") . |
00002e80  a7 63 6f 6d 24 2c 22 43  6f 6d 70 69 6c 65 22 29  |.com$,"Compile")|
00002e90  0d 11 94 12 66 69 6c 65  24 3d a4 72 65 61 64 28  |....file$=.read(|
00002ea0  30 29 0d 11 9e 15 c8 95  20 74 65 78 74 25 3f 72  |0)...... text%?r|
00002eb0  65 61 64 25 3c 3e 30 0d  11 a8 11 63 6f 6d 24 3d  |ead%<>0....com$=|
00002ec0  a4 72 65 61 64 28 30 29  0d 11 b2 0d c8 8e 20 63  |.read(0)...... c|
00002ed0  6f 6d 24 20 ca 0d 11 bc  22 c9 20 22 2d 73 22 20  |om$ ....". "-s" |
00002ee0  3a 20 73 7a 65 25 3d 31  30 32 34 2a bb 28 a4 72  |: sze%=1024*.(.r|
00002ef0  65 61 64 28 30 29 29 0d  11 c6 20 c9 20 22 2d 6f  |ead(0))... . "-o|
00002f00  22 20 3a 20 6f 62 6a 3d  bb 28 a4 72 65 61 64 28  |" : obj=.(.read(|
00002f10  30 29 29 2f 31 30 30 0d  11 d0 20 c9 20 22 2d 74  |0))/100... . "-t|
00002f20  22 20 3a 20 73 70 72 3d  bb 28 a4 72 65 61 64 28  |" : spr=.(.read(|
00002f30  30 29 29 2f 31 30 30 0d  11 da 14 c9 20 22 2d 77  |0))/100..... "-w|
00002f40  22 20 3a 20 77 69 72 65  25 3d a3 0d 11 e4 05 cb  |" : wire%=......|
00002f50  0d 11 ee 05 ce 0d 11 f8  05 f1 0d 12 02 25 e7 20  |.............%. |
00002f60  66 69 6c 65 24 3d 22 22  20 8c 20 e8 20 22 66 69  |file$="" . . "fi|
00002f70  6c 65 6e 61 6d 65 20 3a  20 22 66 69 6c 65 24 0d  |lename : "file$.|
00002f80  12 0c 05 e1 0d 12 16 05  3a 0d 12 20 0b dd 20 f2  |........:.. .. .|
00002f90  64 72 61 77 0d 12 2a 16  f1 20 22 70 72 65 70 61  |draw..*.. "prepa|
00002fa0  72 69 6e 67 20 2e 2e 2e  2e 22 0d 12 34 25 d6 20  |ring ...."..4%. |
00002fb0  66 70 75 74 6f 62 61 73  2c 21 73 65 74 75 70 25  |fputobas,!setup%|
00002fc0  3a 78 73 63 61 6c 65 3d  7c 6e 75 6d 62 65 72 0d  |:xscale=|number.|
00002fd0  12 3e 26 d6 20 66 70 75  74 6f 62 61 73 2c 73 65  |.>&. fputobas,se|
00002fe0  74 75 70 25 21 34 3a 79  73 63 61 6c 65 3d 7c 6e  |tup%!4:yscale=|n|
00002ff0  75 6d 62 65 72 0d 12 48  26 77 69 64 74 68 25 3d  |umber..H&width%=|
00003000  73 65 74 75 70 25 21 31  32 3a 68 65 69 67 68 74  |setup%!12:height|
00003010  25 3d 73 65 74 75 70 25  21 31 36 0d 12 52 27 69  |%=setup%!16..R'i|
00003020  6e 70 75 74 25 21 38 3d  70 6f 69 6e 74 25 3a 69  |nput%!8=point%:i|
00003030  6e 70 75 74 25 21 34 30  3d 73 65 74 75 70 25 2b  |nput%!40=setup%+|
00003040  32 30 0d 12 5c 0f d6 20  74 72 61 6e 73 66 6f 72  |20..\.. transfor|
00003050  6d 0d 12 66 11 d6 20 70  65 72 73 70 65 63 74 69  |m..f.. perspecti|
00003060  76 65 0d 12 70 05 db 0d  12 7a 27 70 6f 6c 6e 75  |ve..p....z'polnu|
00003070  6d 25 3d 21 6f 66 66 73  65 74 25 3a 70 6f 6c 6f  |m%=!offset%:polo|
00003080  66 73 74 25 3d 6f 66 66  73 65 74 25 2b 34 0d 12  |fst%=offset%+4..|
00003090  84 19 e3 20 64 72 61 77  25 3d 30 20 b8 20 70 6f  |... draw%=0 . po|
000030a0  6c 6e 75 6d 25 2d 31 0d  12 8e 20 70 6f 6c 61 64  |lnum%-1... polad|
000030b0  72 25 3d 70 6f 6c 6f 66  73 74 25 21 28 34 2a 64  |r%=polofst%!(4*d|
000030c0  72 61 77 25 29 2b 34 0d  12 98 21 e3 20 64 72 77  |raw%)+4...!. drw|
000030d0  73 64 65 25 3d 31 20 b8  20 28 70 6f 6c 79 25 21  |sde%=1 . (poly%!|
000030e0  70 6f 6c 61 64 72 25 29  0d 12 a2 22 76 72 74 25  |poladr%)..."vrt%|
000030f0  3d 70 6f 6c 79 25 21 28  70 6f 6c 61 64 72 25 2b  |=poly%!(poladr%+|
00003100  34 2a 64 72 77 73 64 65  25 29 0d 12 ac 2e d6 20  |4*drwsde%)..... |
00003110  66 70 75 74 6f 62 61 73  2c 70 6f 69 6e 74 25 21  |fputobas,point%!|
00003120  28 34 2b 31 32 2a 76 72  74 25 29 3a 78 70 6f 73  |(4+12*vrt%):xpos|
00003130  3d 7c 6e 75 6d 62 65 72  0d 12 b6 2e d6 20 66 70  |=|number..... fp|
00003140  75 74 6f 62 61 73 2c 70  6f 69 6e 74 25 21 28 38  |utobas,point%!(8|
00003150  2b 31 32 2a 76 72 74 25  29 3a 79 70 6f 73 3d 7c  |+12*vrt%):ypos=||
00003160  6e 75 6d 62 65 72 0d 12  c0 2e d6 66 70 75 74 6f  |number.....fputo|
00003170  62 61 73 2c 70 6f 69 6e  74 25 21 28 31 32 2b 31  |bas,point%!(12+1|
00003180  32 2a 76 72 74 25 29 3a  7a 70 6f 73 3d 7c 6e 75  |2*vrt%):zpos=|nu|
00003190  6d 62 65 72 0d 12 ca 0f  e7 20 7a 70 6f 73 3c 3d  |mber..... zpos<=|
000031a0  30 20 8c 0d 12 d4 29 78  70 6f 73 25 3d 34 30 39  |0 ....)xpos%=409|
000031b0  36 2a b4 28 78 70 6f 73  29 3a 79 70 6f 73 25 3d  |6*.(xpos):ypos%=|
000031c0  34 30 39 36 2a b4 28 79  70 6f 73 29 0d 12 de 05  |4096*.(ypos)....|
000031d0  cc 0d 12 e8 3a 78 70 6f  73 25 3d 78 70 6f 73 2a  |....:xpos%=xpos*|
000031e0  78 73 63 61 6c 65 2b 77  69 64 74 68 25 2f 32 3a  |xscale+width%/2:|
000031f0  79 70 6f 73 25 3d 79 70  6f 73 2a 79 73 63 61 6c  |ypos%=ypos*yscal|
00003200  65 2b 68 65 69 67 68 74  25 2f 32 0d 12 f2 05 cd  |e+height%/2.....|
00003210  0d 12 fc 39 e7 20 64 72  77 73 64 65 25 3d 31 20  |...9. drwsde%=1 |
00003220  84 20 7a 70 6f 73 3c 3d  30 20 8c 20 ec 20 78 70  |. zpos<=0 . . xp|
00003230  6f 73 25 2c 79 70 6f 73  25 20 8b 20 df 20 78 70  |os%,ypos% . . xp|
00003240  6f 73 25 2c 79 70 6f 73  25 0d 13 06 0c ed 64 72  |os%,ypos%.....dr|
00003250  77 73 64 65 25 0d 13 10  0a ed 64 72 61 77 25 0d  |wsde%.....draw%.|
00003260  13 1a 05 e1 0d ff                                 |......|
00003266