� PLOBAK
� by Stelios Michael
� (c) The Micro User
(�7
2�"Line or solid? (L/S)";
<� QW$=�(��&DF)
F� �"LS",QW$)>0:�1
P� QW$="S" �19,7,4;0;
Z�23;8202;0;0;0;
dnumverts%=19
nnumfaces%=17
x� col%(numfaces%)
�� pnt(2,19)
�� face%(numfaces%,3)
�� scr_pts%(1,numverts%)
�� ck%(numfaces%)
�� pnts%(numfaces%)
�cpos=�(.2):spos=�(.2)
�cneg=�(-0.2):sneg=�(-.2)
�D%=2000
�E%=1
�Distance%=500
��Read_data
��
��=0

$� �-73 �Rotate_X(cpos,spos):E%=1

%� �-105 �Rotate_X(cneg,sneg):E%=1

$� �-98 �Rotate_Y(cneg,sneg):E%=1

"$� �-67 �Rotate_Y(cpos,spos):E%=1

,$� �-17 �Rotate_Z(cpos,spos):E%=1

6$� �-34 �Rotate_Z(cneg,sneg):E%=1

@� �-99 �Translate(-50):E%=1

J� �-74 �Translate(50):E%=1

T7� E%=1 �Change:�Check_face:�Which_face:�0,0);�/100

^E%=0:*FX15,1

h� �

r�-30,0,-100

|� 30,0,-100

�
� 60,0,65

�
�-60,0,65

��-25,8,100

�� 25,8,100

��  0,25,50

��-25,-8,100

�� 25,-8,100

��  0,-25,50

��-20,-8,-55

��-18,-10,-40

�� 18,-10,-40

�� 20,-8,-55

��-35,10,40
�-30,6,-30
�-25,14,25
� 25,14,25
&� 30,6,-30
0� 35,10,40
:
� 3,6,1,2
D
� 3,0,1,6
N
� 3,3,0,6
X
� 3,3,6,4
b
� 3,4,6,5
l
� 3,5,6,2
v
� 3,9,0,3
�
� 3,1,0,9
�
� 3,2,1,9
�
� 3,2,9,8
�
� 3,8,9,7
�
� 3,7,9,3
�
� 3,5,2,8
�� 4,5,8,7,4
�
� 3,4,7,3
�� 4,10,11,12,13
�� 3,14,15,16
�� 3,17,18,19
� � -1,-1,-1,-1,-1,-1,-1,-1,-1
�� -1,-1,-1,-1,1,-1,2,2,2
��Read_data
� Vertex%=0 � 19
2� pnt(0,Vertex%),pnt(1,Vertex%),pnt(2,Vertex%)
 �
*� Face%=0 � numfaces%
4� pnts%(Face%)
>!� Pnt_num%=0 � pnts%(Face%)-1
H� face%(Face%,Pnt_num%)
R�:�
\� Face%=0 � numfaces%
f� col%(Face%):�
p�
z��Rotate_X(C,S)
�� Vertex%=0 � numverts%
�%Z=pnt(2,Vertex%):Y=pnt(1,Vertex%)
�pnt(1,Vertex%)=Y*C-Z*S
�pnt(2,Vertex%)=Y*S+Z*C
��:�
���Rotate_Y(C,S)
�� Vertex%=0 � numverts%
�%Z=pnt(2,Vertex%):X=pnt(0,Vertex%)
�pnt(0,Vertex%)=X*C-Z*S
�pnt(2,Vertex%)=X*S+Z*C
��:�
���Rotate_Z(C,S)
�� Vertex%= 0 � numverts%
%Y=pnt(1,Vertex%):X=pnt(0,Vertex%)
pnt(0,Vertex%)=X*C-Y*S
pnt(1,Vertex%)=X*S+Y*C
$�:�
.��Translate(T%)
8� Vertex%=0 � numverts%
B$pnt(2,Vertex%)=pnt(2,Vertex%)+T%
L�:�
V��Change
`� Vertex%=0 � numverts%
jA%=pnt(0,Vertex%)
tB%=pnt(1,Vertex%)
~C%=pnt(2,Vertex%)-Distance%
� scr_pts%(0,Vertex%)=D%*A%/C%
� scr_pts%(1,Vertex%)=D%*B%/C%
��:�
���Check_face
�� F%=0 � numfaces%
�VX0%=face%(F%,0)
�VX1%=face%(F%,1)
�VX2%=face%(F%,2)
�)AX%=scr_pts%(0,VX0%)-scr_pts%(0,VX1%)
�)AY%=scr_pts%(1,VX0%)-scr_pts%(1,VX1%)
�)BX%=scr_pts%(0,VX2%)-scr_pts%(0,VX1%)
�)BY%=scr_pts%(1,VX2%)-scr_pts%(1,VX1%)
NZ%=AX%*BY%-AY%*BX%

"� NZ%>=0 ck%(F%)=1 � ck%(F%)=0
�:�
��Which_face:�
(� Face%=0 � numfaces%
2� ck%(Face%) �Draw_face
<�:�
F��Draw_face
P$�QW$="S" �Solid_face:�0,0 � �0,7
Z%K%=scr_pts%(0,face%(Face%,0))+640
d%M%=scr_pts%(1,face%(Face%,0))+512
n� K%,M%
x� S%=1 � pnts%(Face%)-1
�E� scr_pts%(0,face%(Face%,S%))+640,scr_pts%(1,face%(Face%,S%))+512
��:� K%,M%:�
���Solid_face
�*� col%(Face%)>-1 �0,col%(Face%) � �0,7
�C� scr_pts%(0,face%(Face%,0))+640,scr_pts%(1,face%(Face%,0))+512
�C� scr_pts%(0,face%(Face%,1))+640,scr_pts%(1,face%(Face%,1))+512
�E�85,scr_pts%(0,face%(Face%,2))+640,scr_pts%(1,face%(Face%,2))+512
�� pnts%(Face%)=3 �
�B�scr_pts%(0,face%(Face%,0))+640,scr_pts%(1,face%(Face%,0))+512
�E�85,scr_pts%(0,face%(Face%,3))+640,scr_pts%(1,face%(Face%,3))+512
��
�

00000000  0d 00 0a 0c f4 20 50 4c  4f 42 41 4b 0d 00 14 18  |..... PLOBAK....|
00000010  f4 20 62 79 20 53 74 65  6c 69 6f 73 20 4d 69 63  |. by Stelios Mic|
00000020  68 61 65 6c 0d 00 1e 18  f4 20 28 63 29 20 54 68  |hael..... (c) Th|
00000030  65 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 28 06  |e Micro User..(.|
00000040  eb 37 0d 00 32 1c f1 22  4c 69 6e 65 20 6f 72 20  |.7..2.."Line or |
00000050  73 6f 6c 69 64 3f 20 28  4c 2f 53 29 22 3b 0d 00  |solid? (L/S)";..|
00000060  3c 12 f5 20 51 57 24 3d  bd 28 a5 80 26 44 46 29  |<.. QW$=.(..&DF)|
00000070  0d 00 46 15 fd 20 a7 22  4c 53 22 2c 51 57 24 29  |..F.. ."LS",QW$)|
00000080  3e 30 3a eb 31 0d 00 50  18 e7 20 51 57 24 3d 22  |>0:.1..P.. QW$="|
00000090  53 22 20 ef 31 39 2c 37  2c 34 3b 30 3b 0d 00 5a  |S" .19,7,4;0;..Z|
000000a0  13 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |..23;8202;0;0;0;|
000000b0  0d 00 64 10 6e 75 6d 76  65 72 74 73 25 3d 31 39  |..d.numverts%=19|
000000c0  0d 00 6e 10 6e 75 6d 66  61 63 65 73 25 3d 31 37  |..n.numfaces%=17|
000000d0  0d 00 78 15 de 20 63 6f  6c 25 28 6e 75 6d 66 61  |..x.. col%(numfa|
000000e0  63 65 73 25 29 0d 00 82  0f de 20 70 6e 74 28 32  |ces%)..... pnt(2|
000000f0  2c 31 39 29 0d 00 8c 18  de 20 66 61 63 65 25 28  |,19)..... face%(|
00000100  6e 75 6d 66 61 63 65 73  25 2c 33 29 0d 00 96 1b  |numfaces%,3)....|
00000110  de 20 73 63 72 5f 70 74  73 25 28 31 2c 6e 75 6d  |. scr_pts%(1,num|
00000120  76 65 72 74 73 25 29 0d  00 a0 14 de 20 63 6b 25  |verts%)..... ck%|
00000130  28 6e 75 6d 66 61 63 65  73 25 29 0d 00 aa 16 de  |(numfaces%).....|
00000140  20 70 6e 74 73 25 28 6e  75 6d 66 61 63 65 73 25  | pnts%(numfaces%|
00000150  29 0d 00 b4 19 63 70 6f  73 3d 9b 28 2e 32 29 3a  |)....cpos=.(.2):|
00000160  73 70 6f 73 3d b5 28 2e  32 29 0d 00 be 1c 63 6e  |spos=.(.2)....cn|
00000170  65 67 3d 9b 28 2d 30 2e  32 29 3a 73 6e 65 67 3d  |eg=.(-0.2):sneg=|
00000180  b5 28 2d 2e 32 29 0d 00  c8 0b 44 25 3d 32 30 30  |.(-.2)....D%=200|
00000190  30 0d 00 d2 08 45 25 3d  31 0d 00 dc 11 44 69 73  |0....E%=1....Dis|
000001a0  74 61 6e 63 65 25 3d 35  30 30 0d 00 e6 0e f2 52  |tance%=500.....R|
000001b0  65 61 64 5f 64 61 74 61  0d 00 f0 05 f5 0d 00 fa  |ead_data........|
000001c0  07 d1 3d 30 0d 01 04 24  e7 20 a6 2d 37 33 20 f2  |..=0...$. .-73 .|
000001d0  52 6f 74 61 74 65 5f 58  28 63 70 6f 73 2c 73 70  |Rotate_X(cpos,sp|
000001e0  6f 73 29 3a 45 25 3d 31  0d 01 0e 25 e7 20 a6 2d  |os):E%=1...%. .-|
000001f0  31 30 35 20 f2 52 6f 74  61 74 65 5f 58 28 63 6e  |105 .Rotate_X(cn|
00000200  65 67 2c 73 6e 65 67 29  3a 45 25 3d 31 0d 01 18  |eg,sneg):E%=1...|
00000210  24 e7 20 a6 2d 39 38 20  f2 52 6f 74 61 74 65 5f  |$. .-98 .Rotate_|
00000220  59 28 63 6e 65 67 2c 73  6e 65 67 29 3a 45 25 3d  |Y(cneg,sneg):E%=|
00000230  31 0d 01 22 24 e7 20 a6  2d 36 37 20 f2 52 6f 74  |1.."$. .-67 .Rot|
00000240  61 74 65 5f 59 28 63 70  6f 73 2c 73 70 6f 73 29  |ate_Y(cpos,spos)|
00000250  3a 45 25 3d 31 0d 01 2c  24 e7 20 a6 2d 31 37 20  |:E%=1..,$. .-17 |
00000260  f2 52 6f 74 61 74 65 5f  5a 28 63 70 6f 73 2c 73  |.Rotate_Z(cpos,s|
00000270  70 6f 73 29 3a 45 25 3d  31 0d 01 36 24 e7 20 a6  |pos):E%=1..6$. .|
00000280  2d 33 34 20 f2 52 6f 74  61 74 65 5f 5a 28 63 6e  |-34 .Rotate_Z(cn|
00000290  65 67 2c 73 6e 65 67 29  3a 45 25 3d 31 0d 01 40  |eg,sneg):E%=1..@|
000002a0  1f e7 20 a6 2d 39 39 20  f2 54 72 61 6e 73 6c 61  |.. .-99 .Transla|
000002b0  74 65 28 2d 35 30 29 3a  45 25 3d 31 0d 01 4a 1e  |te(-50):E%=1..J.|
000002c0  e7 20 a6 2d 37 34 20 f2  54 72 61 6e 73 6c 61 74  |. .-74 .Translat|
000002d0  65 28 35 30 29 3a 45 25  3d 31 0d 01 54 37 e7 20  |e(50):E%=1..T7. |
000002e0  45 25 3d 31 20 f2 43 68  61 6e 67 65 3a f2 43 68  |E%=1 .Change:.Ch|
000002f0  65 63 6b 5f 66 61 63 65  3a f2 57 68 69 63 68 5f  |eck_face:.Which_|
00000300  66 61 63 65 3a f1 8a 30  2c 30 29 3b 91 2f 31 30  |face:..0,0);./10|
00000310  30 0d 01 5e 10 45 25 3d  30 3a 2a 46 58 31 35 2c  |0..^.E%=0:*FX15,|
00000320  31 0d 01 68 07 fd 20 a3  0d 01 72 0f dc 2d 33 30  |1..h.. ...r..-30|
00000330  2c 30 2c 2d 31 30 30 0d  01 7c 0f dc 20 33 30 2c  |,0,-100..|.. 30,|
00000340  30 2c 2d 31 30 30 0d 01  86 0d dc 20 36 30 2c 30  |0,-100..... 60,0|
00000350  2c 36 35 0d 01 90 0d dc  2d 36 30 2c 30 2c 36 35  |,65.....-60,0,65|
00000360  0d 01 9a 0e dc 2d 32 35  2c 38 2c 31 30 30 0d 01  |.....-25,8,100..|
00000370  a4 0e dc 20 32 35 2c 38  2c 31 30 30 0d 01 ae 0e  |... 25,8,100....|
00000380  dc 20 20 30 2c 32 35 2c  35 30 0d 01 b8 0f dc 2d  |.  0,25,50.....-|
00000390  32 35 2c 2d 38 2c 31 30  30 0d 01 c2 0f dc 20 32  |25,-8,100..... 2|
000003a0  35 2c 2d 38 2c 31 30 30  0d 01 cc 0f dc 20 20 30  |5,-8,100.....  0|
000003b0  2c 2d 32 35 2c 35 30 0d  01 d6 0f dc 2d 32 30 2c  |,-25,50.....-20,|
000003c0  2d 38 2c 2d 35 35 0d 01  e0 10 dc 2d 31 38 2c 2d  |-8,-55.....-18,-|
000003d0  31 30 2c 2d 34 30 0d 01  ea 10 dc 20 31 38 2c 2d  |10,-40..... 18,-|
000003e0  31 30 2c 2d 34 30 0d 01  f4 0f dc 20 32 30 2c 2d  |10,-40..... 20,-|
000003f0  38 2c 2d 35 35 0d 01 fe  0e dc 2d 33 35 2c 31 30  |8,-55.....-35,10|
00000400  2c 34 30 0d 02 08 0e dc  2d 33 30 2c 36 2c 2d 33  |,40.....-30,6,-3|
00000410  30 0d 02 12 0e dc 2d 32  35 2c 31 34 2c 32 35 0d  |0.....-25,14,25.|
00000420  02 1c 0e dc 20 32 35 2c  31 34 2c 32 35 0d 02 26  |.... 25,14,25..&|
00000430  0e dc 20 33 30 2c 36 2c  2d 33 30 0d 02 30 0e dc  |.. 30,6,-30..0..|
00000440  20 33 35 2c 31 30 2c 34  30 0d 02 3a 0d dc 20 33  | 35,10,40..:.. 3|
00000450  2c 36 2c 31 2c 32 0d 02  44 0d dc 20 33 2c 30 2c  |,6,1,2..D.. 3,0,|
00000460  31 2c 36 0d 02 4e 0d dc  20 33 2c 33 2c 30 2c 36  |1,6..N.. 3,3,0,6|
00000470  0d 02 58 0d dc 20 33 2c  33 2c 36 2c 34 0d 02 62  |..X.. 3,3,6,4..b|
00000480  0d dc 20 33 2c 34 2c 36  2c 35 0d 02 6c 0d dc 20  |.. 3,4,6,5..l.. |
00000490  33 2c 35 2c 36 2c 32 0d  02 76 0d dc 20 33 2c 39  |3,5,6,2..v.. 3,9|
000004a0  2c 30 2c 33 0d 02 80 0d  dc 20 33 2c 31 2c 30 2c  |,0,3..... 3,1,0,|
000004b0  39 0d 02 8a 0d dc 20 33  2c 32 2c 31 2c 39 0d 02  |9..... 3,2,1,9..|
000004c0  94 0d dc 20 33 2c 32 2c  39 2c 38 0d 02 9e 0d dc  |... 3,2,9,8.....|
000004d0  20 33 2c 38 2c 39 2c 37  0d 02 a8 0d dc 20 33 2c  | 3,8,9,7..... 3,|
000004e0  37 2c 39 2c 33 0d 02 b2  0d dc 20 33 2c 35 2c 32  |7,9,3..... 3,5,2|
000004f0  2c 38 0d 02 bc 0f dc 20  34 2c 35 2c 38 2c 37 2c  |,8..... 4,5,8,7,|
00000500  34 0d 02 c6 0d dc 20 33  2c 34 2c 37 2c 33 0d 02  |4..... 3,4,7,3..|
00000510  d0 13 dc 20 34 2c 31 30  2c 31 31 2c 31 32 2c 31  |... 4,10,11,12,1|
00000520  33 0d 02 da 10 dc 20 33  2c 31 34 2c 31 35 2c 31  |3..... 3,14,15,1|
00000530  36 0d 02 e4 10 dc 20 33  2c 31 37 2c 31 38 2c 31  |6..... 3,17,18,1|
00000540  39 0d 02 ee 20 dc 20 2d  31 2c 2d 31 2c 2d 31 2c  |9... . -1,-1,-1,|
00000550  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 2c 2d 31 2c 2d  |-1,-1,-1,-1,-1,-|
00000560  31 0d 02 f8 1c dc 20 2d  31 2c 2d 31 2c 2d 31 2c  |1..... -1,-1,-1,|
00000570  2d 31 2c 31 2c 2d 31 2c  32 2c 32 2c 32 0d 03 02  |-1,1,-1,2,2,2...|
00000580  0f dd f2 52 65 61 64 5f  64 61 74 61 0d 03 0c 14  |...Read_data....|
00000590  e3 20 56 65 72 74 65 78  25 3d 30 20 b8 20 31 39  |. Vertex%=0 . 19|
000005a0  0d 03 16 32 f3 20 70 6e  74 28 30 2c 56 65 72 74  |...2. pnt(0,Vert|
000005b0  65 78 25 29 2c 70 6e 74  28 31 2c 56 65 72 74 65  |ex%),pnt(1,Verte|
000005c0  78 25 29 2c 70 6e 74 28  32 2c 56 65 72 74 65 78  |x%),pnt(2,Vertex|
000005d0  25 29 0d 03 20 05 ed 0d  03 2a 19 e3 20 46 61 63  |%).. ....*.. Fac|
000005e0  65 25 3d 30 20 b8 20 6e  75 6d 66 61 63 65 73 25  |e%=0 . numfaces%|
000005f0  0d 03 34 12 f3 20 70 6e  74 73 25 28 46 61 63 65  |..4.. pnts%(Face|
00000600  25 29 0d 03 3e 21 e3 20  50 6e 74 5f 6e 75 6d 25  |%)..>!. Pnt_num%|
00000610  3d 30 20 b8 20 70 6e 74  73 25 28 46 61 63 65 25  |=0 . pnts%(Face%|
00000620  29 2d 31 0d 03 48 1b f3  20 66 61 63 65 25 28 46  |)-1..H.. face%(F|
00000630  61 63 65 25 2c 50 6e 74  5f 6e 75 6d 25 29 0d 03  |ace%,Pnt_num%)..|
00000640  52 07 ed 3a ed 0d 03 5c  19 e3 20 46 61 63 65 25  |R..:...\.. Face%|
00000650  3d 30 20 b8 20 6e 75 6d  66 61 63 65 73 25 0d 03  |=0 . numfaces%..|
00000660  66 13 f3 20 63 6f 6c 25  28 46 61 63 65 25 29 3a  |f.. col%(Face%):|
00000670  ed 0d 03 70 05 e1 0d 03  7a 13 dd f2 52 6f 74 61  |...p....z...Rota|
00000680  74 65 5f 58 28 43 2c 53  29 0d 03 84 1b e3 20 56  |te_X(C,S)..... V|
00000690  65 72 74 65 78 25 3d 30  20 b8 20 6e 75 6d 76 65  |ertex%=0 . numve|
000006a0  72 74 73 25 0d 03 8e 25  5a 3d 70 6e 74 28 32 2c  |rts%...%Z=pnt(2,|
000006b0  56 65 72 74 65 78 25 29  3a 59 3d 70 6e 74 28 31  |Vertex%):Y=pnt(1|
000006c0  2c 56 65 72 74 65 78 25  29 0d 03 98 1a 70 6e 74  |,Vertex%)....pnt|
000006d0  28 31 2c 56 65 72 74 65  78 25 29 3d 59 2a 43 2d  |(1,Vertex%)=Y*C-|
000006e0  5a 2a 53 0d 03 a2 1a 70  6e 74 28 32 2c 56 65 72  |Z*S....pnt(2,Ver|
000006f0  74 65 78 25 29 3d 59 2a  53 2b 5a 2a 43 0d 03 ac  |tex%)=Y*S+Z*C...|
00000700  07 ed 3a e1 0d 03 b6 13  dd f2 52 6f 74 61 74 65  |..:.......Rotate|
00000710  5f 59 28 43 2c 53 29 0d  03 c0 1b e3 20 56 65 72  |_Y(C,S)..... Ver|
00000720  74 65 78 25 3d 30 20 b8  20 6e 75 6d 76 65 72 74  |tex%=0 . numvert|
00000730  73 25 0d 03 ca 25 5a 3d  70 6e 74 28 32 2c 56 65  |s%...%Z=pnt(2,Ve|
00000740  72 74 65 78 25 29 3a 58  3d 70 6e 74 28 30 2c 56  |rtex%):X=pnt(0,V|
00000750  65 72 74 65 78 25 29 0d  03 d4 1a 70 6e 74 28 30  |ertex%)....pnt(0|
00000760  2c 56 65 72 74 65 78 25  29 3d 58 2a 43 2d 5a 2a  |,Vertex%)=X*C-Z*|
00000770  53 0d 03 de 1a 70 6e 74  28 32 2c 56 65 72 74 65  |S....pnt(2,Verte|
00000780  78 25 29 3d 58 2a 53 2b  5a 2a 43 0d 03 e8 07 ed  |x%)=X*S+Z*C.....|
00000790  3a e1 0d 03 f2 13 dd f2  52 6f 74 61 74 65 5f 5a  |:.......Rotate_Z|
000007a0  28 43 2c 53 29 0d 03 fc  1c e3 20 56 65 72 74 65  |(C,S)..... Verte|
000007b0  78 25 3d 20 30 20 b8 20  6e 75 6d 76 65 72 74 73  |x%= 0 . numverts|
000007c0  25 0d 04 06 25 59 3d 70  6e 74 28 31 2c 56 65 72  |%...%Y=pnt(1,Ver|
000007d0  74 65 78 25 29 3a 58 3d  70 6e 74 28 30 2c 56 65  |tex%):X=pnt(0,Ve|
000007e0  72 74 65 78 25 29 0d 04  10 1a 70 6e 74 28 30 2c  |rtex%)....pnt(0,|
000007f0  56 65 72 74 65 78 25 29  3d 58 2a 43 2d 59 2a 53  |Vertex%)=X*C-Y*S|
00000800  0d 04 1a 1a 70 6e 74 28  31 2c 56 65 72 74 65 78  |....pnt(1,Vertex|
00000810  25 29 3d 58 2a 53 2b 59  2a 43 0d 04 24 07 ed 3a  |%)=X*S+Y*C..$..:|
00000820  e1 0d 04 2e 13 dd f2 54  72 61 6e 73 6c 61 74 65  |.......Translate|
00000830  28 54 25 29 0d 04 38 1b  e3 20 56 65 72 74 65 78  |(T%)..8.. Vertex|
00000840  25 3d 30 20 b8 20 6e 75  6d 76 65 72 74 73 25 0d  |%=0 . numverts%.|
00000850  04 42 24 70 6e 74 28 32  2c 56 65 72 74 65 78 25  |.B$pnt(2,Vertex%|
00000860  29 3d 70 6e 74 28 32 2c  56 65 72 74 65 78 25 29  |)=pnt(2,Vertex%)|
00000870  2b 54 25 0d 04 4c 07 ed  3a e1 0d 04 56 0c dd f2  |+T%..L..:...V...|
00000880  43 68 61 6e 67 65 0d 04  60 1b e3 20 56 65 72 74  |Change..`.. Vert|
00000890  65 78 25 3d 30 20 b8 20  6e 75 6d 76 65 72 74 73  |ex%=0 . numverts|
000008a0  25 0d 04 6a 15 41 25 3d  70 6e 74 28 30 2c 56 65  |%..j.A%=pnt(0,Ve|
000008b0  72 74 65 78 25 29 0d 04  74 15 42 25 3d 70 6e 74  |rtex%)..t.B%=pnt|
000008c0  28 31 2c 56 65 72 74 65  78 25 29 0d 04 7e 1f 43  |(1,Vertex%)..~.C|
000008d0  25 3d 70 6e 74 28 32 2c  56 65 72 74 65 78 25 29  |%=pnt(2,Vertex%)|
000008e0  2d 44 69 73 74 61 6e 63  65 25 0d 04 88 20 73 63  |-Distance%... sc|
000008f0  72 5f 70 74 73 25 28 30  2c 56 65 72 74 65 78 25  |r_pts%(0,Vertex%|
00000900  29 3d 44 25 2a 41 25 2f  43 25 0d 04 92 20 73 63  |)=D%*A%/C%... sc|
00000910  72 5f 70 74 73 25 28 31  2c 56 65 72 74 65 78 25  |r_pts%(1,Vertex%|
00000920  29 3d 44 25 2a 42 25 2f  43 25 0d 04 9c 07 ed 3a  |)=D%*B%/C%.....:|
00000930  e1 0d 04 a6 10 dd f2 43  68 65 63 6b 5f 66 61 63  |.......Check_fac|
00000940  65 0d 04 b0 16 e3 20 46  25 3d 30 20 b8 20 6e 75  |e..... F%=0 . nu|
00000950  6d 66 61 63 65 73 25 0d  04 ba 14 56 58 30 25 3d  |mfaces%....VX0%=|
00000960  66 61 63 65 25 28 46 25  2c 30 29 0d 04 c4 14 56  |face%(F%,0)....V|
00000970  58 31 25 3d 66 61 63 65  25 28 46 25 2c 31 29 0d  |X1%=face%(F%,1).|
00000980  04 ce 14 56 58 32 25 3d  66 61 63 65 25 28 46 25  |...VX2%=face%(F%|
00000990  2c 32 29 0d 04 d8 29 41  58 25 3d 73 63 72 5f 70  |,2)...)AX%=scr_p|
000009a0  74 73 25 28 30 2c 56 58  30 25 29 2d 73 63 72 5f  |ts%(0,VX0%)-scr_|
000009b0  70 74 73 25 28 30 2c 56  58 31 25 29 0d 04 e2 29  |pts%(0,VX1%)...)|
000009c0  41 59 25 3d 73 63 72 5f  70 74 73 25 28 31 2c 56  |AY%=scr_pts%(1,V|
000009d0  58 30 25 29 2d 73 63 72  5f 70 74 73 25 28 31 2c  |X0%)-scr_pts%(1,|
000009e0  56 58 31 25 29 0d 04 ec  29 42 58 25 3d 73 63 72  |VX1%)...)BX%=scr|
000009f0  5f 70 74 73 25 28 30 2c  56 58 32 25 29 2d 73 63  |_pts%(0,VX2%)-sc|
00000a00  72 5f 70 74 73 25 28 30  2c 56 58 31 25 29 0d 04  |r_pts%(0,VX1%)..|
00000a10  f6 29 42 59 25 3d 73 63  72 5f 70 74 73 25 28 31  |.)BY%=scr_pts%(1|
00000a20  2c 56 58 32 25 29 2d 73  63 72 5f 70 74 73 25 28  |,VX2%)-scr_pts%(|
00000a30  31 2c 56 58 31 25 29 0d  05 00 17 4e 5a 25 3d 41  |1,VX1%)....NZ%=A|
00000a40  58 25 2a 42 59 25 2d 41  59 25 2a 42 58 25 0d 05  |X%*BY%-AY%*BX%..|
00000a50  0a 22 e7 20 4e 5a 25 3e  3d 30 20 63 6b 25 28 46  |.". NZ%>=0 ck%(F|
00000a60  25 29 3d 31 20 8b 20 63  6b 25 28 46 25 29 3d 30  |%)=1 . ck%(F%)=0|
00000a70  0d 05 14 07 ed 3a e1 0d  05 1e 12 dd f2 57 68 69  |.....:.......Whi|
00000a80  63 68 5f 66 61 63 65 3a  db 0d 05 28 19 e3 20 46  |ch_face:...(.. F|
00000a90  61 63 65 25 3d 30 20 b8  20 6e 75 6d 66 61 63 65  |ace%=0 . numface|
00000aa0  73 25 0d 05 32 1b e7 20  63 6b 25 28 46 61 63 65  |s%..2.. ck%(Face|
00000ab0  25 29 20 f2 44 72 61 77  5f 66 61 63 65 0d 05 3c  |%) .Draw_face..<|
00000ac0  07 ed 3a e1 0d 05 46 0f  dd f2 44 72 61 77 5f 66  |..:...F...Draw_f|
00000ad0  61 63 65 0d 05 50 24 e7  51 57 24 3d 22 53 22 20  |ace..P$.QW$="S" |
00000ae0  f2 53 6f 6c 69 64 5f 66  61 63 65 3a e6 30 2c 30  |.Solid_face:.0,0|
00000af0  20 8b 20 e6 30 2c 37 0d  05 5a 25 4b 25 3d 73 63  | . .0,7..Z%K%=sc|
00000b00  72 5f 70 74 73 25 28 30  2c 66 61 63 65 25 28 46  |r_pts%(0,face%(F|
00000b10  61 63 65 25 2c 30 29 29  2b 36 34 30 0d 05 64 25  |ace%,0))+640..d%|
00000b20  4d 25 3d 73 63 72 5f 70  74 73 25 28 31 2c 66 61  |M%=scr_pts%(1,fa|
00000b30  63 65 25 28 46 61 63 65  25 2c 30 29 29 2b 35 31  |ce%(Face%,0))+51|
00000b40  32 0d 05 6e 0b ec 20 4b  25 2c 4d 25 0d 05 78 1b  |2..n.. K%,M%..x.|
00000b50  e3 20 53 25 3d 31 20 b8  20 70 6e 74 73 25 28 46  |. S%=1 . pnts%(F|
00000b60  61 63 65 25 29 2d 31 0d  05 82 45 df 20 73 63 72  |ace%)-1...E. scr|
00000b70  5f 70 74 73 25 28 30 2c  66 61 63 65 25 28 46 61  |_pts%(0,face%(Fa|
00000b80  63 65 25 2c 53 25 29 29  2b 36 34 30 2c 73 63 72  |ce%,S%))+640,scr|
00000b90  5f 70 74 73 25 28 31 2c  66 61 63 65 25 28 46 61  |_pts%(1,face%(Fa|
00000ba0  63 65 25 2c 53 25 29 29  2b 35 31 32 0d 05 8c 0f  |ce%,S%))+512....|
00000bb0  ed 3a df 20 4b 25 2c 4d  25 3a e1 0d 05 96 10 dd  |.:. K%,M%:......|
00000bc0  f2 53 6f 6c 69 64 5f 66  61 63 65 0d 05 a0 2a e7  |.Solid_face...*.|
00000bd0  20 63 6f 6c 25 28 46 61  63 65 25 29 3e 2d 31 20  | col%(Face%)>-1 |
00000be0  e6 30 2c 63 6f 6c 25 28  46 61 63 65 25 29 20 8b  |.0,col%(Face%) .|
00000bf0  20 e6 30 2c 37 0d 05 aa  43 ec 20 73 63 72 5f 70  | .0,7...C. scr_p|
00000c00  74 73 25 28 30 2c 66 61  63 65 25 28 46 61 63 65  |ts%(0,face%(Face|
00000c10  25 2c 30 29 29 2b 36 34  30 2c 73 63 72 5f 70 74  |%,0))+640,scr_pt|
00000c20  73 25 28 31 2c 66 61 63  65 25 28 46 61 63 65 25  |s%(1,face%(Face%|
00000c30  2c 30 29 29 2b 35 31 32  0d 05 b4 43 df 20 73 63  |,0))+512...C. sc|
00000c40  72 5f 70 74 73 25 28 30  2c 66 61 63 65 25 28 46  |r_pts%(0,face%(F|
00000c50  61 63 65 25 2c 31 29 29  2b 36 34 30 2c 73 63 72  |ace%,1))+640,scr|
00000c60  5f 70 74 73 25 28 31 2c  66 61 63 65 25 28 46 61  |_pts%(1,face%(Fa|
00000c70  63 65 25 2c 31 29 29 2b  35 31 32 0d 05 be 45 f0  |ce%,1))+512...E.|
00000c80  38 35 2c 73 63 72 5f 70  74 73 25 28 30 2c 66 61  |85,scr_pts%(0,fa|
00000c90  63 65 25 28 46 61 63 65  25 2c 32 29 29 2b 36 34  |ce%(Face%,2))+64|
00000ca0  30 2c 73 63 72 5f 70 74  73 25 28 31 2c 66 61 63  |0,scr_pts%(1,fac|
00000cb0  65 25 28 46 61 63 65 25  2c 32 29 29 2b 35 31 32  |e%(Face%,2))+512|
00000cc0  0d 05 c8 16 e7 20 70 6e  74 73 25 28 46 61 63 65  |..... pnts%(Face|
00000cd0  25 29 3d 33 20 e1 0d 05  d2 42 df 73 63 72 5f 70  |%)=3 ....B.scr_p|
00000ce0  74 73 25 28 30 2c 66 61  63 65 25 28 46 61 63 65  |ts%(0,face%(Face|
00000cf0  25 2c 30 29 29 2b 36 34  30 2c 73 63 72 5f 70 74  |%,0))+640,scr_pt|
00000d00  73 25 28 31 2c 66 61 63  65 25 28 46 61 63 65 25  |s%(1,face%(Face%|
00000d10  2c 30 29 29 2b 35 31 32  0d 05 dc 45 f0 38 35 2c  |,0))+512...E.85,|
00000d20  73 63 72 5f 70 74 73 25  28 30 2c 66 61 63 65 25  |scr_pts%(0,face%|
00000d30  28 46 61 63 65 25 2c 33  29 29 2b 36 34 30 2c 73  |(Face%,3))+640,s|
00000d40  63 72 5f 70 74 73 25 28  31 2c 66 61 63 65 25 28  |cr_pts%(1,face%(|
00000d50  46 61 63 65 25 2c 33 29  29 2b 35 31 32 0d 05 e6  |Face%,3))+512...|
00000d60  05 e1 0d ff                                       |....|
00000d64