�     >3Dprocs
� By  Dave Acton
� For 32-bit machines
(� (c) BAU June 1993
2:
<
� �init3D
Fmax=100
P,� key$(max),obj(max),dat &1000,o(2),a(2)
Z>key$()="rem","include","colour","surface","object","merge"
dkeywords=6
nkeydef=keywords
x	p=dat
�max_tri=1000
�� plot_list 32*max_tri
�� plot_p 4*max_tri
�dist=800
�zplus=200000
��
�:
�)� �rotate(x,y,z,a,b,c,� x2,� y2,� z2)
�*x2=x*��(b/ang_scale)+z*��(b/ang_scale)
�y2=y
�+z2=-x*��(b/ang_scale)+z*��(b/ang_scale)
��
�:

� �load(f$)

� in,line,k,i,cur_obj$

�"Loading '"f$"'..."

"in=�(f$)

,
line=1

6cur_obj$=""

@cur_mode=-1

J!scale=10000:� Units in 1/10mm

T1ang_scale=&10000/360:� angles from 0 to &FFFF

^
ȕ � �#in

h s$=�strip(�#in)

r � �(s$)>=48 � �(s$)<=57 �

|  � cur_mode<>3 �

�*   �error("Co-ordinates not expected")

�  �

�   � i=0 � 2

�    �get_par(s$,p$)

�    !p=�(p$)*scale

�    p+=4

�   �

�   surfp!4+=1

�  �

� �

�  �get_par(s$,p$)

�  � p$<>"" �

�   � �p$,1)=":" �
!    k=�identify_keyword(�p$))
    � k=-1 �
+     �error("Unknown keyword '"+p$+"'")
&	    �
0      � k<keywords cur_mode=k
:     Ȏ k �
D      � 0:� rem:
N      � 1:� include:
X/       �load(�first_bit(f$)+"."+�strip(s$))
b      � 2:� colour:
l       cur_col=0
v       � i=1 � 3
�        �get_par(s$,p$)
�!        cur_col+=�(p$)<<(8*i)
�       �
�      � 3:� surface:
�       surfp=p
�       !p=0
�       p!4=0
�       p!8=cur_col
�       p+=12
�      � 4:� object
�       !p=-1
�       p+=4
�       cur_obj$=�strip(s$)
.       � �identify_keyword(cur_obj$)<>-1 �
2        �error("'"+cur_obj$+"' defined twice")
       �
 !        key$(keydef)=cur_obj$
*        obj(keydef)=p
4        keydef+=1
>       �
H       cur_col=&FFFFFF
R
     
\      � i=0 � 2
f       �get_par(s$,p$)
p       o(i)=�(p$)*scale
z      �
�      � i=0 � 2
�       �get_par(s$,p$)
�       a(i)=�(p$)*ang_scale
�      �
�      merge=�
�      ȕ s$<>""
�       �get_par(s$,p$)
�%       Ȏ �identify_keyword(p$) �
�        � 5:merge=�
�       �
�      �
�      � merge �
�!       �merge(obj(k),o(),a())
      �
       !p=k
       � i=0 � 2
$        !(p+4+4*i)=o(i)
.        !(p+16+4*i)=a(i)
8       �
B       p+=28
L      �
V
     �
`	    �
j   �
t  �
~ �
� line+=1
��
�	!p=-1
�p+=4
��#in
��
�:
�� �merge(a,o(),a())
�� do(),da(),i,bytes
�� do(2),da(2)
�
ȕ !a<>-1
� � !a=0 � !a=1 �

  !p=1

  n=a!4
  p!4=n

  p!8=a!8
(  p+=12
2  a+=12
<  � i=1 � n
F;   �rotate(!a,a!4,a!8,a(0),a(1),a(2),do(0),do(1),do(2))
P   p!0=o(0)+do(0)
Z   p!4=o(1)+do(1)
d   p!8=o(2)+do(2)
n   p+=12
x   a+=12
�  �
� �
�<  �rotate(a!4,a!8,a!12,a(0),a(1),a(2),do(0),do(1),do(2))
�  da(0)=a!16+a(0)
�  da(1)=a!20+a(1)
�  da(2)=a!24+a(2)
�  do(0)+=o(0)
�  do(1)+=o(1)
�  do(2)+=o(2)
�  �merge(obj(!a),do(),da())
�  a+=28
� �
��
�
:
� �error(err$)
"'� err$" at line ";line;" of '"f$"'"
,�
6:
@� �first_bit(f$)
J� i
T
i=�(f$)+1
^�
h	 i-=1
r� i=1 � �f$,i,1)="."
|
=�f$,i-1)
�:
�� �identify_keyword(k$)
�� i
�i=-1
��
�	 i+=1
�� i=max � key$(i)=k$
�� i=max � i=-1
�=i
�:
�� �get_par(� s$,� p$)
�
� i,c$
�s$=�strip(s$)

� s$="" �

 p$=""
�
& i=0
0 �
:
  i+=1
D  c$=�s$,i,1)
N � c$="" � c$="," � c$=" "
X p$=�strip(�s$,i-1))
b s$=�s$,i+1)
l�
v�
�:
�
� �lc(s$)
�	� i,c
�� i=1 � �(s$)
� c=��s$,i)
�# � c>=65 � c<=90 �s$,i)=�(c+32)
��
�=s$
�:
�� �strip(s$)
�ȕ �s$,1)=" "
� s$=�s$,2)
��
ȕ �s$)=" "
 s$=�s$)
�
 =s$
*:
4D� �register_triangle(a,tri(),ox,oy,oz,alpha,beta,gamma,new_face)
>� x,y,z,x2,y2,z2,i,aa
H� new_face �
R cur_face=plot_ptr
\ cur_totalz=0
f cur_zno=0
p cur_face!4=0
z plot_ptr+=8
� plot_p!(4*faces)=cur_face
�
 faces+=1
��
�/ș "ColourTrans_ReturnGCOL",a!8 � !plot_ptr
�plot_ptr+=4
�
� i=0 � 2
� aa=a+12+12*tri(i)
�
 x=!aa
� y=aa!4
� z=aa!8
�- �rotate(x,y,z,alpha,beta,gamma,x2,y2,z2)
� x2+=ox
� y2+=oy
	 z2+=oz
	 cur_totalz+=z2
	 cur_zno+=1
	$! !plot_ptr=dist*x2/(z2+zplus)
	." plot_ptr!4=dist*y2/(z2+zplus)
	8 plot_ptr+=8
	B�
	Lcur_face!4+=1
	V !cur_face=cur_totalz/cur_zno
	`triangles+=1
	j�
	t:
	~� �init_record
	�max_frames=50
	�0� frame_store 250*1024,frame_ptr(max_frames)
	�frames=0
	�fptr=frame_store
	��
	�:
	�� �record_display
	�#ș "OS_HeapSort",faces,plot_p,3
	�frame_ptr(frames)=fptr
	�� i=faces-1 � 0 � -1
	� a=plot_p!(4*i)
	�
 n=a!4
	 a+=8

 � j=0 � 28*n-1 � 4
  fptr!j=a!j
 �
( fptr+=28*n
2�
<!fptr=-1
Ffptr+=4
P
frames+=1
Z�
d:
n� �play_back
x
bank=1
�� frame=0 � frames-1
� Ȗ
� ș 6,112,bank
� bank=3-bank
� ș 6,113,bank
�' ș "ColourTrans_SetGCOL",&1FB34700
� ȓ Ȑ -640,-512,1280,512
�' ș "ColourTrans_SetGCOL",&FFFFCA00
� ȓ Ȑ -640,0,1280,512
� a=frame_ptr(frame)
� ȕ !a<>-1
�  � (!a)>>2 Ȝ (!a � 3)<<6
�  � a!4,a!8
  � a!12,a!16
  � 85,a!20,a!24
  a+=28
" �
,�
6�
�

00000000  0d 00 0a 12 f4 20 20 20  20 20 3e 33 44 70 72 6f  |.....     >3Dpro|
00000010  63 73 0d 00 14 14 f4 20  42 79 20 20 44 61 76 65  |cs..... By  Dave|
00000020  20 41 63 74 6f 6e 0d 00  1e 19 f4 20 46 6f 72 20  | Acton..... For |
00000030  33 32 2d 62 69 74 20 6d  61 63 68 69 6e 65 73 0d  |32-bit machines.|
00000040  00 28 17 f4 20 28 63 29  20 42 41 55 20 4a 75 6e  |.(.. (c) BAU Jun|
00000050  65 20 31 39 39 33 0d 00  32 05 3a 0d 00 3c 0d dd  |e 1993..2.:..<..|
00000060  20 f2 69 6e 69 74 33 44  0d 00 46 0b 6d 61 78 3d  | .init3D..F.max=|
00000070  31 30 30 0d 00 50 2c de  20 6b 65 79 24 28 6d 61  |100..P,. key$(ma|
00000080  78 29 2c 6f 62 6a 28 6d  61 78 29 2c 64 61 74 20  |x),obj(max),dat |
00000090  26 31 30 30 30 2c 6f 28  32 29 2c 61 28 32 29 0d  |&1000,o(2),a(2).|
000000a0  00 5a 3e 6b 65 79 24 28  29 3d 22 72 65 6d 22 2c  |.Z>key$()="rem",|
000000b0  22 69 6e 63 6c 75 64 65  22 2c 22 63 6f 6c 6f 75  |"include","colou|
000000c0  72 22 2c 22 73 75 72 66  61 63 65 22 2c 22 6f 62  |r","surface","ob|
000000d0  6a 65 63 74 22 2c 22 6d  65 72 67 65 22 0d 00 64  |ject","merge"..d|
000000e0  0e 6b 65 79 77 6f 72 64  73 3d 36 0d 00 6e 13 6b  |.keywords=6..n.k|
000000f0  65 79 64 65 66 3d 6b 65  79 77 6f 72 64 73 0d 00  |eydef=keywords..|
00000100  78 09 70 3d 64 61 74 0d  00 82 10 6d 61 78 5f 74  |x.p=dat....max_t|
00000110  72 69 3d 31 30 30 30 0d  00 8c 1a de 20 70 6c 6f  |ri=1000..... plo|
00000120  74 5f 6c 69 73 74 20 33  32 2a 6d 61 78 5f 74 72  |t_list 32*max_tr|
00000130  69 0d 00 96 16 de 20 70  6c 6f 74 5f 70 20 34 2a  |i..... plot_p 4*|
00000140  6d 61 78 5f 74 72 69 0d  00 a0 0c 64 69 73 74 3d  |max_tri....dist=|
00000150  38 30 30 0d 00 aa 10 7a  70 6c 75 73 3d 32 30 30  |800....zplus=200|
00000160  30 30 30 0d 00 b4 05 e1  0d 00 be 05 3a 0d 00 c8  |000.........:...|
00000170  29 dd 20 f2 72 6f 74 61  74 65 28 78 2c 79 2c 7a  |). .rotate(x,y,z|
00000180  2c 61 2c 62 2c 63 2c f8  20 78 32 2c f8 20 79 32  |,a,b,c,. x2,. y2|
00000190  2c f8 20 7a 32 29 0d 00  d2 2a 78 32 3d 78 2a 9b  |,. z2)...*x2=x*.|
000001a0  b2 28 62 2f 61 6e 67 5f  73 63 61 6c 65 29 2b 7a  |.(b/ang_scale)+z|
000001b0  2a b5 b2 28 62 2f 61 6e  67 5f 73 63 61 6c 65 29  |*..(b/ang_scale)|
000001c0  0d 00 dc 08 79 32 3d 79  0d 00 e6 2b 7a 32 3d 2d  |....y2=y...+z2=-|
000001d0  78 2a b5 b2 28 62 2f 61  6e 67 5f 73 63 61 6c 65  |x*..(b/ang_scale|
000001e0  29 2b 7a 2a 9b b2 28 62  2f 61 6e 67 5f 73 63 61  |)+z*..(b/ang_sca|
000001f0  6c 65 29 0d 00 f0 05 e1  0d 00 fa 05 3a 0d 01 04  |le).........:...|
00000200  0f dd 20 f2 6c 6f 61 64  28 66 24 29 0d 01 0e 1a  |.. .load(f$)....|
00000210  ea 20 69 6e 2c 6c 69 6e  65 2c 6b 2c 69 2c 63 75  |. in,line,k,i,cu|
00000220  72 5f 6f 62 6a 24 0d 01  18 18 f1 22 4c 6f 61 64  |r_obj$....."Load|
00000230  69 6e 67 20 27 22 66 24  22 27 2e 2e 2e 22 0d 01  |ing '"f$"'..."..|
00000240  22 0c 69 6e 3d 8e 28 66  24 29 0d 01 2c 0a 6c 69  |".in=.(f$)..,.li|
00000250  6e 65 3d 31 0d 01 36 0f  63 75 72 5f 6f 62 6a 24  |ne=1..6.cur_obj$|
00000260  3d 22 22 0d 01 40 0f 63  75 72 5f 6d 6f 64 65 3d  |=""..@.cur_mode=|
00000270  2d 31 0d 01 4a 21 73 63  61 6c 65 3d 31 30 30 30  |-1..J!scale=1000|
00000280  30 3a f4 20 55 6e 69 74  73 20 69 6e 20 31 2f 31  |0:. Units in 1/1|
00000290  30 6d 6d 0d 01 54 31 61  6e 67 5f 73 63 61 6c 65  |0mm..T1ang_scale|
000002a0  3d 26 31 30 30 30 30 2f  33 36 30 3a f4 20 61 6e  |=&10000/360:. an|
000002b0  67 6c 65 73 20 66 72 6f  6d 20 30 20 74 6f 20 26  |gles from 0 to &|
000002c0  46 46 46 46 0d 01 5e 0d  c8 95 20 ac 20 c5 23 69  |FFFF..^... . .#i|
000002d0  6e 0d 01 68 14 20 73 24  3d a4 73 74 72 69 70 28  |n..h. s$=.strip(|
000002e0  be 23 69 6e 29 0d 01 72  1e 20 e7 20 97 28 73 24  |.#in)..r. . .(s$|
000002f0  29 3e 3d 34 38 20 80 20  97 28 73 24 29 3c 3d 35  |)>=48 . .(s$)<=5|
00000300  37 20 8c 0d 01 7c 15 20  20 e7 20 63 75 72 5f 6d  |7 ...|.  . cur_m|
00000310  6f 64 65 3c 3e 33 20 8c  0d 01 86 2a 20 20 20 f2  |ode<>3 ....*   .|
00000320  65 72 72 6f 72 28 22 43  6f 2d 6f 72 64 69 6e 61  |error("Co-ordina|
00000330  74 65 73 20 6e 6f 74 20  65 78 70 65 63 74 65 64  |tes not expected|
00000340  22 29 0d 01 90 07 20 20  cc 0d 01 9a 10 20 20 20  |")....  .....   |
00000350  e3 20 69 3d 30 20 b8 20  32 0d 01 a4 17 20 20 20  |. i=0 . 2....   |
00000360  20 f2 67 65 74 5f 70 61  72 28 73 24 2c 70 24 29  | .get_par(s$,p$)|
00000370  0d 01 ae 16 20 20 20 20  21 70 3d bb 28 70 24 29  |....    !p=.(p$)|
00000380  2a 73 63 61 6c 65 0d 01  b8 0c 20 20 20 20 70 2b  |*scale....    p+|
00000390  3d 34 0d 01 c2 08 20 20  20 ed 0d 01 cc 11 20 20  |=4....   .....  |
000003a0  20 73 75 72 66 70 21 34  2b 3d 31 0d 01 d6 07 20  | surfp!4+=1.... |
000003b0  20 cd 0d 01 e0 06 20 cc  0d 01 ea 15 20 20 f2 67  | ..... .....  .g|
000003c0  65 74 5f 70 61 72 28 73  24 2c 70 24 29 0d 01 f4  |et_par(s$,p$)...|
000003d0  10 20 20 e7 20 70 24 3c  3e 22 22 20 8c 0d 01 fe  |.  . p$<>"" ....|
000003e0  15 20 20 20 e7 20 c2 70  24 2c 31 29 3d 22 3a 22  |.   . .p$,1)=":"|
000003f0  20 8c 0d 02 08 21 20 20  20 20 6b 3d a4 69 64 65  | ....!    k=.ide|
00000400  6e 74 69 66 79 5f 6b 65  79 77 6f 72 64 28 c0 70  |ntify_keyword(.p|
00000410  24 29 29 0d 02 12 10 20  20 20 20 e7 20 6b 3d 2d  |$))....    . k=-|
00000420  31 20 8c 0d 02 1c 2b 20  20 20 20 20 f2 65 72 72  |1 ....+     .err|
00000430  6f 72 28 22 55 6e 6b 6e  6f 77 6e 20 6b 65 79 77  |or("Unknown keyw|
00000440  6f 72 64 20 27 22 2b 70  24 2b 22 27 22 29 0d 02  |ord '"+p$+"'")..|
00000450  26 09 20 20 20 20 cc 0d  02 30 20 20 20 20 20 20  |&.    ...0      |
00000460  e7 20 6b 3c 6b 65 79 77  6f 72 64 73 20 63 75 72  |. k<keywords cur|
00000470  5f 6d 6f 64 65 3d 6b 0d  02 3a 0f 20 20 20 20 20  |_mode=k..:.     |
00000480  c8 8e 20 6b 20 ca 0d 02  44 14 20 20 20 20 20 20  |.. k ...D.      |
00000490  c9 20 30 3a f4 20 72 65  6d 3a 0d 02 4e 18 20 20  |. 0:. rem:..N.  |
000004a0  20 20 20 20 c9 20 31 3a  f4 20 69 6e 63 6c 75 64  |    . 1:. includ|
000004b0  65 3a 0d 02 58 2f 20 20  20 20 20 20 20 f2 6c 6f  |e:..X/       .lo|
000004c0  61 64 28 a4 66 69 72 73  74 5f 62 69 74 28 66 24  |ad(.first_bit(f$|
000004d0  29 2b 22 2e 22 2b a4 73  74 72 69 70 28 73 24 29  |)+"."+.strip(s$)|
000004e0  29 0d 02 62 17 20 20 20  20 20 20 c9 20 32 3a f4  |)..b.      . 2:.|
000004f0  20 63 6f 6c 6f 75 72 3a  0d 02 6c 14 20 20 20 20  | colour:..l.    |
00000500  20 20 20 63 75 72 5f 63  6f 6c 3d 30 0d 02 76 14  |   cur_col=0..v.|
00000510  20 20 20 20 20 20 20 e3  20 69 3d 31 20 b8 20 33  |       . i=1 . 3|
00000520  0d 02 80 1b 20 20 20 20  20 20 20 20 f2 67 65 74  |....        .get|
00000530  5f 70 61 72 28 73 24 2c  70 24 29 0d 02 8a 21 20  |_par(s$,p$)...! |
00000540  20 20 20 20 20 20 20 63  75 72 5f 63 6f 6c 2b 3d  |       cur_col+=|
00000550  bb 28 70 24 29 3c 3c 28  38 2a 69 29 0d 02 94 0c  |.(p$)<<(8*i)....|
00000560  20 20 20 20 20 20 20 ed  0d 02 9e 18 20 20 20 20  |       .....    |
00000570  20 20 c9 20 33 3a f4 20  73 75 72 66 61 63 65 3a  |  . 3:. surface:|
00000580  0d 02 a8 12 20 20 20 20  20 20 20 73 75 72 66 70  |....       surfp|
00000590  3d 70 0d 02 b2 0f 20 20  20 20 20 20 20 21 70 3d  |=p....       !p=|
000005a0  30 0d 02 bc 10 20 20 20  20 20 20 20 70 21 34 3d  |0....       p!4=|
000005b0  30 0d 02 c6 16 20 20 20  20 20 20 20 70 21 38 3d  |0....       p!8=|
000005c0  63 75 72 5f 63 6f 6c 0d  02 d0 10 20 20 20 20 20  |cur_col....     |
000005d0  20 20 70 2b 3d 31 32 0d  02 da 16 20 20 20 20 20  |  p+=12....     |
000005e0  20 c9 20 34 3a f4 20 6f  62 6a 65 63 74 0d 02 e4  | . 4:. object...|
000005f0  10 20 20 20 20 20 20 20  21 70 3d 2d 31 0d 02 ee  |.       !p=-1...|
00000600  0f 20 20 20 20 20 20 20  70 2b 3d 34 0d 02 f8 1e  |.       p+=4....|
00000610  20 20 20 20 20 20 20 63  75 72 5f 6f 62 6a 24 3d  |       cur_obj$=|
00000620  a4 73 74 72 69 70 28 73  24 29 0d 03 02 2e 20 20  |.strip(s$)....  |
00000630  20 20 20 20 20 e7 20 a4  69 64 65 6e 74 69 66 79  |     . .identify|
00000640  5f 6b 65 79 77 6f 72 64  28 63 75 72 5f 6f 62 6a  |_keyword(cur_obj|
00000650  24 29 3c 3e 2d 31 20 8c  0d 03 0c 32 20 20 20 20  |$)<>-1 ....2    |
00000660  20 20 20 20 f2 65 72 72  6f 72 28 22 27 22 2b 63  |    .error("'"+c|
00000670  75 72 5f 6f 62 6a 24 2b  22 27 20 64 65 66 69 6e  |ur_obj$+"' defin|
00000680  65 64 20 74 77 69 63 65  22 29 0d 03 16 0c 20 20  |ed twice")....  |
00000690  20 20 20 20 20 cc 0d 03  20 21 20 20 20 20 20 20  |     ... !      |
000006a0  20 20 6b 65 79 24 28 6b  65 79 64 65 66 29 3d 63  |  key$(keydef)=c|
000006b0  75 72 5f 6f 62 6a 24 0d  03 2a 19 20 20 20 20 20  |ur_obj$..*.     |
000006c0  20 20 20 6f 62 6a 28 6b  65 79 64 65 66 29 3d 70  |   obj(keydef)=p|
000006d0  0d 03 34 15 20 20 20 20  20 20 20 20 6b 65 79 64  |..4.        keyd|
000006e0  65 66 2b 3d 31 0d 03 3e  0c 20 20 20 20 20 20 20  |ef+=1..>.       |
000006f0  cd 0d 03 48 1a 20 20 20  20 20 20 20 63 75 72 5f  |...H.       cur_|
00000700  63 6f 6c 3d 26 46 46 46  46 46 46 0d 03 52 0a 20  |col=&FFFFFF..R. |
00000710  20 20 20 20 7f 0d 03 5c  13 20 20 20 20 20 20 e3  |    ...\.      .|
00000720  20 69 3d 30 20 b8 20 32  0d 03 66 1a 20 20 20 20  | i=0 . 2..f.    |
00000730  20 20 20 f2 67 65 74 5f  70 61 72 28 73 24 2c 70  |   .get_par(s$,p|
00000740  24 29 0d 03 70 1b 20 20  20 20 20 20 20 6f 28 69  |$)..p.       o(i|
00000750  29 3d bb 28 70 24 29 2a  73 63 61 6c 65 0d 03 7a  |)=.(p$)*scale..z|
00000760  0b 20 20 20 20 20 20 ed  0d 03 84 13 20 20 20 20  |.      .....    |
00000770  20 20 e3 20 69 3d 30 20  b8 20 32 0d 03 8e 1a 20  |  . i=0 . 2.... |
00000780  20 20 20 20 20 20 f2 67  65 74 5f 70 61 72 28 73  |      .get_par(s|
00000790  24 2c 70 24 29 0d 03 98  1f 20 20 20 20 20 20 20  |$,p$)....       |
000007a0  61 28 69 29 3d bb 28 70  24 29 2a 61 6e 67 5f 73  |a(i)=.(p$)*ang_s|
000007b0  63 61 6c 65 0d 03 a2 0b  20 20 20 20 20 20 ed 0d  |cale....      ..|
000007c0  03 ac 11 20 20 20 20 20  20 6d 65 72 67 65 3d a3  |...      merge=.|
000007d0  0d 03 b6 13 20 20 20 20  20 20 c8 95 20 73 24 3c  |....      .. s$<|
000007e0  3e 22 22 0d 03 c0 1a 20  20 20 20 20 20 20 f2 67  |>""....       .g|
000007f0  65 74 5f 70 61 72 28 73  24 2c 70 24 29 0d 03 ca  |et_par(s$,p$)...|
00000800  25 20 20 20 20 20 20 20  c8 8e 20 a4 69 64 65 6e  |%       .. .iden|
00000810  74 69 66 79 5f 6b 65 79  77 6f 72 64 28 70 24 29  |tify_keyword(p$)|
00000820  20 ca 0d 03 d4 17 20 20  20 20 20 20 20 20 c9 20  | .....        . |
00000830  35 3a 6d 65 72 67 65 3d  b9 0d 03 de 0c 20 20 20  |5:merge=.....   |
00000840  20 20 20 20 cb 0d 03 e8  0b 20 20 20 20 20 20 ce  |    .....      .|
00000850  0d 03 f2 13 20 20 20 20  20 20 e7 20 6d 65 72 67  |....      . merg|
00000860  65 20 8c 0d 03 fc 21 20  20 20 20 20 20 20 f2 6d  |e ....!       .m|
00000870  65 72 67 65 28 6f 62 6a  28 6b 29 2c 6f 28 29 2c  |erge(obj(k),o(),|
00000880  61 28 29 29 0d 04 06 0b  20 20 20 20 20 20 cc 0d  |a())....      ..|
00000890  04 10 0f 20 20 20 20 20  20 20 21 70 3d 6b 0d 04  |...       !p=k..|
000008a0  1a 14 20 20 20 20 20 20  20 e3 20 69 3d 30 20 b8  |..       . i=0 .|
000008b0  20 32 0d 04 24 1b 20 20  20 20 20 20 20 20 21 28  | 2..$.        !(|
000008c0  70 2b 34 2b 34 2a 69 29  3d 6f 28 69 29 0d 04 2e  |p+4+4*i)=o(i)...|
000008d0  1c 20 20 20 20 20 20 20  20 21 28 70 2b 31 36 2b  |.        !(p+16+|
000008e0  34 2a 69 29 3d 61 28 69  29 0d 04 38 0c 20 20 20  |4*i)=a(i)..8.   |
000008f0  20 20 20 20 ed 0d 04 42  10 20 20 20 20 20 20 20  |    ...B.       |
00000900  70 2b 3d 32 38 0d 04 4c  0b 20 20 20 20 20 20 cd  |p+=28..L.      .|
00000910  0d 04 56 0a 20 20 20 20  20 cb 0d 04 60 09 20 20  |..V.     ...`.  |
00000920  20 20 cd 0d 04 6a 08 20  20 20 cd 0d 04 74 07 20  |  ...j.   ...t. |
00000930  20 cd 0d 04 7e 06 20 cd  0d 04 88 0c 20 6c 69 6e  | ...~. ..... lin|
00000940  65 2b 3d 31 0d 04 92 05  ce 0d 04 9c 09 21 70 3d  |e+=1.........!p=|
00000950  2d 31 0d 04 a6 08 70 2b  3d 34 0d 04 b0 08 d9 23  |-1....p+=4.....#|
00000960  69 6e 0d 04 ba 05 e1 0d  04 c4 05 3a 0d 04 ce 17  |in.........:....|
00000970  dd 20 f2 6d 65 72 67 65  28 61 2c 6f 28 29 2c 61  |. .merge(a,o(),a|
00000980  28 29 29 0d 04 d8 17 ea  20 64 6f 28 29 2c 64 61  |())..... do(),da|
00000990  28 29 2c 69 2c 62 79 74  65 73 0d 04 e2 11 de 20  |(),i,bytes..... |
000009a0  64 6f 28 32 29 2c 64 61  28 32 29 0d 04 ec 0d c8  |do(2),da(2).....|
000009b0  95 20 21 61 3c 3e 2d 31  0d 04 f6 14 20 e7 20 21  |. !a<>-1.... . !|
000009c0  61 3d 30 20 84 20 21 61  3d 31 20 8c 0d 05 00 0a  |a=0 . !a=1 .....|
000009d0  20 20 21 70 3d 31 0d 05  0a 0b 20 20 6e 3d 61 21  |  !p=1....  n=a!|
000009e0  34 0d 05 14 0b 20 20 70  21 34 3d 6e 0d 05 1e 0d  |4....  p!4=n....|
000009f0  20 20 70 21 38 3d 61 21  38 0d 05 28 0b 20 20 70  |  p!8=a!8..(.  p|
00000a00  2b 3d 31 32 0d 05 32 0b  20 20 61 2b 3d 31 32 0d  |+=12..2.  a+=12.|
00000a10  05 3c 0f 20 20 e3 20 69  3d 31 20 b8 20 6e 0d 05  |.<.  . i=1 . n..|
00000a20  46 3b 20 20 20 f2 72 6f  74 61 74 65 28 21 61 2c  |F;   .rotate(!a,|
00000a30  61 21 34 2c 61 21 38 2c  61 28 30 29 2c 61 28 31  |a!4,a!8,a(0),a(1|
00000a40  29 2c 61 28 32 29 2c 64  6f 28 30 29 2c 64 6f 28  |),a(2),do(0),do(|
00000a50  31 29 2c 64 6f 28 32 29  29 0d 05 50 15 20 20 20  |1),do(2))..P.   |
00000a60  70 21 30 3d 6f 28 30 29  2b 64 6f 28 30 29 0d 05  |p!0=o(0)+do(0)..|
00000a70  5a 15 20 20 20 70 21 34  3d 6f 28 31 29 2b 64 6f  |Z.   p!4=o(1)+do|
00000a80  28 31 29 0d 05 64 15 20  20 20 70 21 38 3d 6f 28  |(1)..d.   p!8=o(|
00000a90  32 29 2b 64 6f 28 32 29  0d 05 6e 0c 20 20 20 70  |2)+do(2)..n.   p|
00000aa0  2b 3d 31 32 0d 05 78 0c  20 20 20 61 2b 3d 31 32  |+=12..x.   a+=12|
00000ab0  0d 05 82 07 20 20 ed 0d  05 8c 06 20 cc 0d 05 96  |....  ..... ....|
00000ac0  3c 20 20 f2 72 6f 74 61  74 65 28 61 21 34 2c 61  |<  .rotate(a!4,a|
00000ad0  21 38 2c 61 21 31 32 2c  61 28 30 29 2c 61 28 31  |!8,a!12,a(0),a(1|
00000ae0  29 2c 61 28 32 29 2c 64  6f 28 30 29 2c 64 6f 28  |),a(2),do(0),do(|
00000af0  31 29 2c 64 6f 28 32 29  29 0d 05 a0 15 20 20 64  |1),do(2))....  d|
00000b00  61 28 30 29 3d 61 21 31  36 2b 61 28 30 29 0d 05  |a(0)=a!16+a(0)..|
00000b10  aa 15 20 20 64 61 28 31  29 3d 61 21 32 30 2b 61  |..  da(1)=a!20+a|
00000b20  28 31 29 0d 05 b4 15 20  20 64 61 28 32 29 3d 61  |(1)....  da(2)=a|
00000b30  21 32 34 2b 61 28 32 29  0d 05 be 11 20 20 64 6f  |!24+a(2)....  do|
00000b40  28 30 29 2b 3d 6f 28 30  29 0d 05 c8 11 20 20 64  |(0)+=o(0)....  d|
00000b50  6f 28 31 29 2b 3d 6f 28  31 29 0d 05 d2 11 20 20  |o(1)+=o(1)....  |
00000b60  64 6f 28 32 29 2b 3d 6f  28 32 29 0d 05 dc 1f 20  |do(2)+=o(2).... |
00000b70  20 f2 6d 65 72 67 65 28  6f 62 6a 28 21 61 29 2c  | .merge(obj(!a),|
00000b80  64 6f 28 29 2c 64 61 28  29 29 0d 05 e6 0b 20 20  |do(),da())....  |
00000b90  61 2b 3d 32 38 0d 05 f0  06 20 cd 0d 05 fa 05 ce  |a+=28.... ......|
00000ba0  0d 06 04 05 e1 0d 06 0e  05 3a 0d 06 18 12 dd 20  |.........:..... |
00000bb0  f2 65 72 72 6f 72 28 65  72 72 24 29 0d 06 22 27  |.error(err$).."'|
00000bc0  f1 20 65 72 72 24 22 20  61 74 20 6c 69 6e 65 20  |. err$" at line |
00000bd0  22 3b 6c 69 6e 65 3b 22  20 6f 66 20 27 22 66 24  |";line;" of '"f$|
00000be0  22 27 22 0d 06 2c 05 e1  0d 06 36 05 3a 0d 06 40  |"'"..,....6.:..@|
00000bf0  14 dd 20 a4 66 69 72 73  74 5f 62 69 74 28 66 24  |.. .first_bit(f$|
00000c00  29 0d 06 4a 07 ea 20 69  0d 06 54 0d 69 3d a9 28  |)..J.. i..T.i=.(|
00000c10  66 24 29 2b 31 0d 06 5e  05 f5 0d 06 68 09 20 69  |f$)+1..^....h. i|
00000c20  2d 3d 31 0d 06 72 18 fd  20 69 3d 31 20 84 20 c1  |-=1..r.. i=1 . .|
00000c30  66 24 2c 69 2c 31 29 3d  22 2e 22 0d 06 7c 0d 3d  |f$,i,1)="."..|.=|
00000c40  c0 66 24 2c 69 2d 31 29  0d 06 86 05 3a 0d 06 90  |.f$,i-1)....:...|
00000c50  1b dd 20 a4 69 64 65 6e  74 69 66 79 5f 6b 65 79  |.. .identify_key|
00000c60  77 6f 72 64 28 6b 24 29  0d 06 9a 07 ea 20 69 0d  |word(k$)..... i.|
00000c70  06 a4 08 69 3d 2d 31 0d  06 ae 05 f5 0d 06 b8 09  |...i=-1.........|
00000c80  20 69 2b 3d 31 0d 06 c2  18 fd 20 69 3d 6d 61 78  | i+=1..... i=max|
00000c90  20 84 20 6b 65 79 24 28  69 29 3d 6b 24 0d 06 cc  | . key$(i)=k$...|
00000ca0  12 e7 20 69 3d 6d 61 78  20 8c 20 69 3d 2d 31 0d  |.. i=max . i=-1.|
00000cb0  06 d6 06 3d 69 0d 06 e0  05 3a 0d 06 ea 19 dd 20  |...=i....:..... |
00000cc0  f2 67 65 74 5f 70 61 72  28 f8 20 73 24 2c f8 20  |.get_par(. s$,. |
00000cd0  70 24 29 0d 06 f4 0a ea  20 69 2c 63 24 0d 06 fe  |p$)..... i,c$...|
00000ce0  11 73 24 3d a4 73 74 72  69 70 28 73 24 29 0d 07  |.s$=.strip(s$)..|
00000cf0  08 0d e7 20 73 24 3d 22  22 20 8c 0d 07 12 0a 20  |... s$="" ..... |
00000d00  70 24 3d 22 22 0d 07 1c  05 cc 0d 07 26 08 20 69  |p$="".......&. i|
00000d10  3d 30 0d 07 30 06 20 f5  0d 07 3a 0a 20 20 69 2b  |=0..0. ...:.  i+|
00000d20  3d 31 0d 07 44 11 20 20  63 24 3d c1 73 24 2c 69  |=1..D.  c$=.s$,i|
00000d30  2c 31 29 0d 07 4e 1e 20  fd 20 63 24 3d 22 22 20  |,1)..N. . c$="" |
00000d40  84 20 63 24 3d 22 2c 22  20 84 20 63 24 3d 22 20  |. c$="," . c$=" |
00000d50  22 0d 07 58 18 20 70 24  3d a4 73 74 72 69 70 28  |"..X. p$=.strip(|
00000d60  c0 73 24 2c 69 2d 31 29  29 0d 07 62 10 20 73 24  |.s$,i-1))..b. s$|
00000d70  3d c1 73 24 2c 69 2b 31  29 0d 07 6c 05 cd 0d 07  |=.s$,i+1)..l....|
00000d80  76 05 e1 0d 07 80 05 3a  0d 07 8a 0d dd 20 a4 6c  |v......:..... .l|
00000d90  63 28 73 24 29 0d 07 94  09 ea 20 69 2c 63 0d 07  |c(s$)..... i,c..|
00000da0  9e 11 e3 20 69 3d 31 20  b8 20 a9 28 73 24 29 0d  |... i=1 . .(s$).|
00000db0  07 a8 0e 20 63 3d 97 c1  73 24 2c 69 29 0d 07 b2  |... c=..s$,i)...|
00000dc0  23 20 e7 20 63 3e 3d 36  35 20 80 20 63 3c 3d 39  |# . c>=65 . c<=9|
00000dd0  30 20 c1 73 24 2c 69 29  3d bd 28 63 2b 33 32 29  |0 .s$,i)=.(c+32)|
00000de0  0d 07 bc 05 ed 0d 07 c6  07 3d 73 24 0d 07 d0 05  |.........=s$....|
00000df0  3a 0d 07 da 10 dd 20 a4  73 74 72 69 70 28 73 24  |:..... .strip(s$|
00000e00  29 0d 07 e4 11 c8 95 20  c0 73 24 2c 31 29 3d 22  |)...... .s$,1)="|
00000e10  20 22 0d 07 ee 0e 20 73  24 3d c1 73 24 2c 32 29  | ".... s$=.s$,2)|
00000e20  0d 07 f8 05 ce 0d 08 02  0f c8 95 20 c2 73 24 29  |........... .s$)|
00000e30  3d 22 20 22 0d 08 0c 0c  20 73 24 3d c0 73 24 29  |=" ".... s$=.s$)|
00000e40  0d 08 16 05 ce 0d 08 20  07 3d 73 24 0d 08 2a 05  |....... .=s$..*.|
00000e50  3a 0d 08 34 44 dd 20 f2  72 65 67 69 73 74 65 72  |:..4D. .register|
00000e60  5f 74 72 69 61 6e 67 6c  65 28 61 2c 74 72 69 28  |_triangle(a,tri(|
00000e70  29 2c 6f 78 2c 6f 79 2c  6f 7a 2c 61 6c 70 68 61  |),ox,oy,oz,alpha|
00000e80  2c 62 65 74 61 2c 67 61  6d 6d 61 2c 6e 65 77 5f  |,beta,gamma,new_|
00000e90  66 61 63 65 29 0d 08 3e  19 ea 20 78 2c 79 2c 7a  |face)..>.. x,y,z|
00000ea0  2c 78 32 2c 79 32 2c 7a  32 2c 69 2c 61 61 0d 08  |,x2,y2,z2,i,aa..|
00000eb0  48 10 e7 20 6e 65 77 5f  66 61 63 65 20 8c 0d 08  |H.. new_face ...|
00000ec0  52 16 20 63 75 72 5f 66  61 63 65 3d 70 6c 6f 74  |R. cur_face=plot|
00000ed0  5f 70 74 72 0d 08 5c 11  20 63 75 72 5f 74 6f 74  |_ptr..\. cur_tot|
00000ee0  61 6c 7a 3d 30 0d 08 66  0e 20 63 75 72 5f 7a 6e  |alz=0..f. cur_zn|
00000ef0  6f 3d 30 0d 08 70 11 20  63 75 72 5f 66 61 63 65  |o=0..p. cur_face|
00000f00  21 34 3d 30 0d 08 7a 10  20 70 6c 6f 74 5f 70 74  |!4=0..z. plot_pt|
00000f10  72 2b 3d 38 0d 08 84 1e  20 70 6c 6f 74 5f 70 21  |r+=8.... plot_p!|
00000f20  28 34 2a 66 61 63 65 73  29 3d 63 75 72 5f 66 61  |(4*faces)=cur_fa|
00000f30  63 65 0d 08 8e 0d 20 66  61 63 65 73 2b 3d 31 0d  |ce.... faces+=1.|
00000f40  08 98 05 cd 0d 08 a2 2f  c8 99 20 22 43 6f 6c 6f  |......./.. "Colo|
00000f50  75 72 54 72 61 6e 73 5f  52 65 74 75 72 6e 47 43  |urTrans_ReturnGC|
00000f60  4f 4c 22 2c 61 21 38 20  b8 20 21 70 6c 6f 74 5f  |OL",a!8 . !plot_|
00000f70  70 74 72 0d 08 ac 0f 70  6c 6f 74 5f 70 74 72 2b  |ptr....plot_ptr+|
00000f80  3d 34 0d 08 b6 0d e3 20  69 3d 30 20 b8 20 32 0d  |=4..... i=0 . 2.|
00000f90  08 c0 16 20 61 61 3d 61  2b 31 32 2b 31 32 2a 74  |... aa=a+12+12*t|
00000fa0  72 69 28 69 29 0d 08 ca  0a 20 78 3d 21 61 61 0d  |ri(i).... x=!aa.|
00000fb0  08 d4 0b 20 79 3d 61 61  21 34 0d 08 de 0b 20 7a  |... y=aa!4.... z|
00000fc0  3d 61 61 21 38 0d 08 e8  2d 20 f2 72 6f 74 61 74  |=aa!8...- .rotat|
00000fd0  65 28 78 2c 79 2c 7a 2c  61 6c 70 68 61 2c 62 65  |e(x,y,z,alpha,be|
00000fe0  74 61 2c 67 61 6d 6d 61  2c 78 32 2c 79 32 2c 7a  |ta,gamma,x2,y2,z|
00000ff0  32 29 0d 08 f2 0b 20 78  32 2b 3d 6f 78 0d 08 fc  |2).... x2+=ox...|
00001000  0b 20 79 32 2b 3d 6f 79  0d 09 06 0b 20 7a 32 2b  |. y2+=oy.... z2+|
00001010  3d 6f 7a 0d 09 10 13 20  63 75 72 5f 74 6f 74 61  |=oz.... cur_tota|
00001020  6c 7a 2b 3d 7a 32 0d 09  1a 0f 20 63 75 72 5f 7a  |lz+=z2.... cur_z|
00001030  6e 6f 2b 3d 31 0d 09 24  21 20 21 70 6c 6f 74 5f  |no+=1..$! !plot_|
00001040  70 74 72 3d 64 69 73 74  2a 78 32 2f 28 7a 32 2b  |ptr=dist*x2/(z2+|
00001050  7a 70 6c 75 73 29 0d 09  2e 22 20 70 6c 6f 74 5f  |zplus)..." plot_|
00001060  70 74 72 21 34 3d 64 69  73 74 2a 79 32 2f 28 7a  |ptr!4=dist*y2/(z|
00001070  32 2b 7a 70 6c 75 73 29  0d 09 38 10 20 70 6c 6f  |2+zplus)..8. plo|
00001080  74 5f 70 74 72 2b 3d 38  0d 09 42 05 ed 0d 09 4c  |t_ptr+=8..B....L|
00001090  11 63 75 72 5f 66 61 63  65 21 34 2b 3d 31 0d 09  |.cur_face!4+=1..|
000010a0  56 20 21 63 75 72 5f 66  61 63 65 3d 63 75 72 5f  |V !cur_face=cur_|
000010b0  74 6f 74 61 6c 7a 2f 63  75 72 5f 7a 6e 6f 0d 09  |totalz/cur_zno..|
000010c0  60 10 74 72 69 61 6e 67  6c 65 73 2b 3d 31 0d 09  |`.triangles+=1..|
000010d0  6a 05 e1 0d 09 74 05 3a  0d 09 7e 12 dd 20 f2 69  |j....t.:..~.. .i|
000010e0  6e 69 74 5f 72 65 63 6f  72 64 0d 09 88 11 6d 61  |nit_record....ma|
000010f0  78 5f 66 72 61 6d 65 73  3d 35 30 0d 09 92 30 de  |x_frames=50...0.|
00001100  20 66 72 61 6d 65 5f 73  74 6f 72 65 20 32 35 30  | frame_store 250|
00001110  2a 31 30 32 34 2c 66 72  61 6d 65 5f 70 74 72 28  |*1024,frame_ptr(|
00001120  6d 61 78 5f 66 72 61 6d  65 73 29 0d 09 9c 0c 66  |max_frames)....f|
00001130  72 61 6d 65 73 3d 30 0d  09 a6 14 66 70 74 72 3d  |rames=0....fptr=|
00001140  66 72 61 6d 65 5f 73 74  6f 72 65 0d 09 b0 05 e1  |frame_store.....|
00001150  0d 09 ba 05 3a 0d 09 c4  15 dd 20 f2 72 65 63 6f  |....:..... .reco|
00001160  72 64 5f 64 69 73 70 6c  61 79 0d 09 ce 23 c8 99  |rd_display...#..|
00001170  20 22 4f 53 5f 48 65 61  70 53 6f 72 74 22 2c 66  | "OS_HeapSort",f|
00001180  61 63 65 73 2c 70 6c 6f  74 5f 70 2c 33 0d 09 d8  |aces,plot_p,3...|
00001190  1a 66 72 61 6d 65 5f 70  74 72 28 66 72 61 6d 65  |.frame_ptr(frame|
000011a0  73 29 3d 66 70 74 72 0d  09 e2 18 e3 20 69 3d 66  |s)=fptr..... i=f|
000011b0  61 63 65 73 2d 31 20 b8  20 30 20 88 20 2d 31 0d  |aces-1 . 0 . -1.|
000011c0  09 ec 13 20 61 3d 70 6c  6f 74 5f 70 21 28 34 2a  |... a=plot_p!(4*|
000011d0  69 29 0d 09 f6 0a 20 6e  3d 61 21 34 0d 0a 00 09  |i).... n=a!4....|
000011e0  20 61 2b 3d 38 0d 0a 0a  17 20 e3 20 6a 3d 30 20  | a+=8.... . j=0 |
000011f0  b8 20 32 38 2a 6e 2d 31  20 88 20 34 0d 0a 14 10  |. 28*n-1 . 4....|
00001200  20 20 66 70 74 72 21 6a  3d 61 21 6a 0d 0a 1e 06  |  fptr!j=a!j....|
00001210  20 ed 0d 0a 28 0f 20 66  70 74 72 2b 3d 32 38 2a  | ...(. fptr+=28*|
00001220  6e 0d 0a 32 05 ed 0d 0a  3c 0c 21 66 70 74 72 3d  |n..2....<.!fptr=|
00001230  2d 31 0d 0a 46 0b 66 70  74 72 2b 3d 34 0d 0a 50  |-1..F.fptr+=4..P|
00001240  0d 66 72 61 6d 65 73 2b  3d 31 0d 0a 5a 05 e1 0d  |.frames+=1..Z...|
00001250  0a 64 05 3a 0d 0a 6e 10  dd 20 f2 70 6c 61 79 5f  |.d.:..n.. .play_|
00001260  62 61 63 6b 0d 0a 78 0a  62 61 6e 6b 3d 31 0d 0a  |back..x.bank=1..|
00001270  82 18 e3 20 66 72 61 6d  65 3d 30 20 b8 20 66 72  |... frame=0 . fr|
00001280  61 6d 65 73 2d 31 0d 0a  8c 07 20 c8 96 0d 0a 96  |ames-1.... .....|
00001290  12 20 c8 99 20 36 2c 31  31 32 2c 62 61 6e 6b 0d  |. .. 6,112,bank.|
000012a0  0a a0 10 20 62 61 6e 6b  3d 33 2d 62 61 6e 6b 0d  |... bank=3-bank.|
000012b0  0a aa 12 20 c8 99 20 36  2c 31 31 33 2c 62 61 6e  |... .. 6,113,ban|
000012c0  6b 0d 0a b4 27 20 c8 99  20 22 43 6f 6c 6f 75 72  |k...' .. "Colour|
000012d0  54 72 61 6e 73 5f 53 65  74 47 43 4f 4c 22 2c 26  |Trans_SetGCOL",&|
000012e0  31 46 42 33 34 37 30 30  0d 0a be 1d 20 c8 93 20  |1FB34700.... .. |
000012f0  c8 90 20 2d 36 34 30 2c  2d 35 31 32 2c 31 32 38  |.. -640,-512,128|
00001300  30 2c 35 31 32 0d 0a c8  27 20 c8 99 20 22 43 6f  |0,512...' .. "Co|
00001310  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 47 43 4f  |lourTrans_SetGCO|
00001320  4c 22 2c 26 46 46 46 46  43 41 30 30 0d 0a d2 1a  |L",&FFFFCA00....|
00001330  20 c8 93 20 c8 90 20 2d  36 34 30 2c 30 2c 31 32  | .. .. -640,0,12|
00001340  38 30 2c 35 31 32 0d 0a  dc 17 20 61 3d 66 72 61  |80,512.... a=fra|
00001350  6d 65 5f 70 74 72 28 66  72 61 6d 65 29 0d 0a e6  |me_ptr(frame)...|
00001360  0e 20 c8 95 20 21 61 3c  3e 2d 31 0d 0a f0 1e 20  |. .. !a<>-1.... |
00001370  20 e6 20 28 21 61 29 3e  3e 32 20 c8 9c 20 28 21  | . (!a)>>2 .. (!|
00001380  61 20 80 20 33 29 3c 3c  36 0d 0a fa 0f 20 20 ec  |a . 3)<<6....  .|
00001390  20 61 21 34 2c 61 21 38  0d 0b 04 11 20 20 ec 20  | a!4,a!8....  . |
000013a0  61 21 31 32 2c 61 21 31  36 0d 0b 0e 14 20 20 f0  |a!12,a!16....  .|
000013b0  20 38 35 2c 61 21 32 30  2c 61 21 32 34 0d 0b 18  | 85,a!20,a!24...|
000013c0  0b 20 20 61 2b 3d 32 38  0d 0b 22 06 20 ce 0d 0b  |.  a+=28..". ...|
000013d0  2c 05 ed 0d 0b 36 05 e1  0d ff                    |,....6....|
000013da