/� > SHATTER2 *** Jan Vibe february 1998 ***

�148:�20:�
(%�N%=0�15:�R%,G%,B%:�N%,R%,G%,B%:�
2
<� NAME% &100
F
P�''�36)"Shatter"',
Z4�"This program can 'shatter' a sprite picture."'
dP�"The program asks for a spritefile, and uses the first sprite in this file"
nN�"for the process. The file must be in 16 colour format, and be sure that"
xR�"the sprite uses the standard 16 colour palette, as this is what the program"
�F�"expects. Any other palette will make the colours look strange."'
�A�"The current directory contains the following spritefiles:"'
�
�
SEQ%=0
��
�/ș "OS_GBPB",8,,NAME%,1,SEQ% � ,,,NUM%,SEQ%
�� NUM%=0 �
�(NAME%?(1+?NAME%)=13:NAME$=$(NAME%+1)
�&ș "OS_File",5,NAME$ � FOU%,,TYPE%
�#TYPE%=TYPE%>>8:TYPE%=TYPE%�&FFF
� � FOU%=1 � TYPE%=&FF9 �NAME$
��
�
� NUM%

�



�"Spritefile="SPF$:�

"

,/ș"OS_FSControl",28,SPF$ � ,,LG%:LG%=LG%*10

6� SPR LG%,BUF 16

@(SPR!0=LG%:SPR!4=0:SPR!8=16:SPR!12=16

J#ș"OS_SpriteOp",256+10,SPR,SPF$

T%ș"OS_SpriteOp",256+8,SPR � ,,,A%

^'ș"OS_SpriteOp",256+13,SPR,BUF,16,1

hN$="":P%=0:�

rT%=BUF?P%:� T%<>0 N$+=�T%

|P%+=1:� T%=0

�,ș"OS_SpriteOp",256+40,SPR,N$ � ,,,W%,H%

�W%=2*W%:H%=2*H%

�

�3� TX%(50,15),TY%(50,15),TN%(50),AX%(15),AY%(15)

�

�'XMIN%=(1280-W%)/2:YMIN%=(1024-H%)/2

�S1%=1:S2%=2

�*ș 6,112,S1%:ș 6,113,S2%:�:Ȕ S1%,S2%

�-ș"OS_SpriteOp",256+34,SPR,N$,XMIN%,YMIN%

�*ș 6,112,S1%:ș 6,113,S2%:�:Ȕ S1%,S2%

�-ș"OS_SpriteOp",256+34,SPR,N$,XMIN%,YMIN%

�

�!TX%(1,1)=XMIN%:TY%(1,1)=YMIN%
$TX%(1,2)=XMIN%+W%:TY%(1,2)=YMIN%
'TX%(1,3)=XMIN%+W%:TY%(1,3)=YMIN%+H%
$TX%(1,4)=XMIN%:TY%(1,4)=YMIN%+H%
&TN%(1)=4
0
:�I%=1�49
D� I%=1 �
NR%=1
X�
bMAX%=0:�N%=1�I%
lX1%=0:Y1%=0
v5�M%=1 � TN%(N%):X1%+=TX%(N%,M%):Y1%+=TY%(N%,M%):�
�#X1%=X1%/TN%(N%):Y1%=Y1%/TN%(N%)
�'A%=0:�M%=1�TN%(N%):M1%=M%�TN%(N%)+1
�AX2%=TX%(N%,M%):Y2%=TY%(N%,M%):X3%=TX%(N%,M1%):Y3%=TY%(N%,M1%)
�;A%+=(X1%*Y2%+Y1%*X3%+Y3%*X2%-Y2%*X3%-Y1%*X2%-X1%*Y3%)/2
��
�� A%>MAX% MAX%=A%:R%=N%
��
��
�P%=TN%(R%)
�4�N%=1�P%:AX%(N%)=TX%(R%,N%):AY%(N%)=TY%(R%,N%):�
�L%=0:�N%=1�P%:N1%=N%�P%+1
�0G%=(AX%(N%)-AX%(N1%))^2+(AY%(N%)-AY%(N1%))^2
�� G%>L% L%=G%:D11%=N%
�
�:D21%=�(P%):� D11%<>D21%
� D11%>D21% Ȕ D11%,D21%
 !D12%=D11%�P%+1:D22%=D21%�P%+1
*F1%=�(2):F2%=3-F1%
4(PX1%=(F1%*AX%(D11%)+F2%*AX%(D12%))/3
>(PY1%=(F1%*AY%(D11%)+F2%*AY%(D12%))/3
H(PX2%=(F1%*AX%(D21%)+F2%*AX%(D22%))/3
R(PY2%=(F1%*AY%(D21%)+F2%*AY%(D22%))/3
\K%=0:�N%=1�P%
f/K%+=1:TX%(R%,K%)=AX%(N%):TY%(R%,K%)=AY%(N%)
p� N%=D11% �
z)K%+=1:TX%(R%,K%)=PX1%:TY%(R%,K%)=PY1%
�)K%+=1:TX%(R%,K%)=PX2%:TY%(R%,K%)=PY2%
�N%=D21%
��
��:TN%(R%)=K%
�Q%=I%+1
�(K%=1:TX%(Q%,K%)=PX1%:TY%(Q%,K%)=PY1%
��N%=D11%+1�D21%
�/K%+=1:TX%(Q%,K%)=AX%(N%):TY%(Q%,K%)=AY%(N%)
��
�4K%+=1:TX%(Q%,K%)=PX2%:TY%(Q%,K%)=PY2%:TN%(Q%)=K%
��
�
�!�I%=1�50:T%=TN%(I%):NV$=�(I%)
%XMIN%=TX%(I%,T%):YMIN%=TY%(I%,T%)
%XMAX%=TX%(I%,T%):YMAX%=TY%(I%,T%)
�N%=1�T%-1
$&�TX%(I%,N%)<XMIN% XMIN%=TX%(I%,N%)
.&�TY%(I%,N%)<YMIN% YMIN%=TY%(I%,N%)
8&�TX%(I%,N%)>XMAX% XMAX%=TX%(I%,N%)
B&�TY%(I%,N%)>YMAX% YMAX%=TY%(I%,N%)
L�
V<ș"OS_SpriteOp",256+16,SPR,NV$,0,XMIN%,YMIN%,XMAX%,YMAX%
`"ș"OS_SpriteOp",256+29,SPR,NV$
j"ș"OS_SpriteOp",256+61,SPR,NV$
t�0:�
~�15
�'� TX%(I%,T%)-XMIN%,TY%(I%,T%)-YMIN%
��N%=1�T%
�'� TX%(I%,T%)-XMIN%,TY%(I%,T%)-YMIN%
�)�85,TX%(I%,N%)-XMIN%,TY%(I%,N%)-YMIN%
��
� ș"OS_SpriteOp",256+61,SPR,0
�#TX%(I%,1)=XMIN%:TY%(I%,1)=YMIN%
�7TX%(I%,2)=(XMAX%-XMIN%)/2:TY%(I%,2)=(YMAX%-YMIN%)/2
��
�
���DZE
��I=1�2�.02
-ș 6,112,S1%:ș 6,113,S2%:Ȗ:�:Ȕ S1%,S2%

�N%=1�50:NV$=�(N%)
1EX%=(TX%(N%,1)-640+TX%(N%,2))*I+640-TX%(N%,2)
1EY%=(TY%(N%,1)-512+TY%(N%,2))*I+512-TY%(N%,2)
(,ș"OS_SpriteOp",256+34,SPR,NV$,EX%,EY%,8
2�:Q=�(10):�
<ș 6,112,S1%
F�
P
Z#ș 6,112,S1%:�:�" at line "Þ:�
d
n� 255,255,255
x� 221,221,221
�� 187,187,187
�� 153,153,153
�� 119,119,119
�� 85,85,85
�� 51,51,51
�� 0,0,0
�� 0,68,153
�� 238,238,0
�
� 0,204,0
�
� 221,0,0
�� 238,238,187
�� 85,136,0
�� 255,187,0
� 0,187,255
�

00000000  0d 00 0a 2f f4 20 3e 20  53 48 41 54 54 45 52 32  |.../. > SHATTER2|
00000010  20 2a 2a 2a 20 4a 61 6e  20 56 69 62 65 20 66 65  | *** Jan Vibe fe|
00000020  62 72 75 61 72 79 20 31  39 39 38 20 2a 2a 2a 0d  |bruary 1998 ***.|
00000030  00 14 04 0d 00 1e 0e eb  31 34 38 3a eb 32 30 3a  |........148:.20:|
00000040  87 0d 00 28 25 e3 4e 25  3d 30 b8 31 35 3a f3 52  |...(%.N%=0.15:.R|
00000050  25 2c 47 25 2c 42 25 3a  fb 4e 25 2c 52 25 2c 47  |%,G%,B%:.N%,R%,G|
00000060  25 2c 42 25 3a ed 0d 00  32 04 0d 00 3c 10 de 20  |%,B%:...2...<.. |
00000070  4e 41 4d 45 25 20 26 31  30 30 0d 00 46 04 0d 00  |NAME% &100..F...|
00000080  50 16 f1 27 27 8a 33 36  29 22 53 68 61 74 74 65  |P..''.36)"Shatte|
00000090  72 22 27 2c 0d 00 5a 34  f1 22 54 68 69 73 20 70  |r"',..Z4."This p|
000000a0  72 6f 67 72 61 6d 20 63  61 6e 20 27 73 68 61 74  |rogram can 'shat|
000000b0  74 65 72 27 20 61 20 73  70 72 69 74 65 20 70 69  |ter' a sprite pi|
000000c0  63 74 75 72 65 2e 22 27  0d 00 64 50 f1 22 54 68  |cture."'..dP."Th|
000000d0  65 20 70 72 6f 67 72 61  6d 20 61 73 6b 73 20 66  |e program asks f|
000000e0  6f 72 20 61 20 73 70 72  69 74 65 66 69 6c 65 2c  |or a spritefile,|
000000f0  20 61 6e 64 20 75 73 65  73 20 74 68 65 20 66 69  | and uses the fi|
00000100  72 73 74 20 73 70 72 69  74 65 20 69 6e 20 74 68  |rst sprite in th|
00000110  69 73 20 66 69 6c 65 22  0d 00 6e 4e f1 22 66 6f  |is file"..nN."fo|
00000120  72 20 74 68 65 20 70 72  6f 63 65 73 73 2e 20 54  |r the process. T|
00000130  68 65 20 66 69 6c 65 20  6d 75 73 74 20 62 65 20  |he file must be |
00000140  69 6e 20 31 36 20 63 6f  6c 6f 75 72 20 66 6f 72  |in 16 colour for|
00000150  6d 61 74 2c 20 61 6e 64  20 62 65 20 73 75 72 65  |mat, and be sure|
00000160  20 74 68 61 74 22 0d 00  78 52 f1 22 74 68 65 20  | that"..xR."the |
00000170  73 70 72 69 74 65 20 75  73 65 73 20 74 68 65 20  |sprite uses the |
00000180  73 74 61 6e 64 61 72 64  20 31 36 20 63 6f 6c 6f  |standard 16 colo|
00000190  75 72 20 70 61 6c 65 74  74 65 2c 20 61 73 20 74  |ur palette, as t|
000001a0  68 69 73 20 69 73 20 77  68 61 74 20 74 68 65 20  |his is what the |
000001b0  70 72 6f 67 72 61 6d 22  0d 00 82 46 f1 22 65 78  |program"...F."ex|
000001c0  70 65 63 74 73 2e 20 41  6e 79 20 6f 74 68 65 72  |pects. Any other|
000001d0  20 70 61 6c 65 74 74 65  20 77 69 6c 6c 20 6d 61  | palette will ma|
000001e0  6b 65 20 74 68 65 20 63  6f 6c 6f 75 72 73 20 6c  |ke the colours l|
000001f0  6f 6f 6b 20 73 74 72 61  6e 67 65 2e 22 27 0d 00  |ook strange."'..|
00000200  8c 41 f1 22 54 68 65 20  63 75 72 72 65 6e 74 20  |.A."The current |
00000210  64 69 72 65 63 74 6f 72  79 20 63 6f 6e 74 61 69  |directory contai|
00000220  6e 73 20 74 68 65 20 66  6f 6c 6c 6f 77 69 6e 67  |ns the following|
00000230  20 73 70 72 69 74 65 66  69 6c 65 73 3a 22 27 0d  | spritefiles:"'.|
00000240  00 96 04 0d 00 a0 0a 53  45 51 25 3d 30 0d 00 aa  |.......SEQ%=0...|
00000250  05 f5 0d 00 b4 2f c8 99  20 22 4f 53 5f 47 42 50  |...../.. "OS_GBP|
00000260  42 22 2c 38 2c 2c 4e 41  4d 45 25 2c 31 2c 53 45  |B",8,,NAME%,1,SE|
00000270  51 25 20 b8 20 2c 2c 2c  4e 55 4d 25 2c 53 45 51  |Q% . ,,,NUM%,SEQ|
00000280  25 0d 00 be 0e e7 20 4e  55 4d 25 3d 30 20 8c 0d  |%..... NUM%=0 ..|
00000290  00 c8 28 4e 41 4d 45 25  3f 28 31 2b 3f 4e 41 4d  |..(NAME%?(1+?NAM|
000002a0  45 25 29 3d 31 33 3a 4e  41 4d 45 24 3d 24 28 4e  |E%)=13:NAME$=$(N|
000002b0  41 4d 45 25 2b 31 29 0d  00 d2 26 c8 99 20 22 4f  |AME%+1)...&.. "O|
000002c0  53 5f 46 69 6c 65 22 2c  35 2c 4e 41 4d 45 24 20  |S_File",5,NAME$ |
000002d0  b8 20 46 4f 55 25 2c 2c  54 59 50 45 25 0d 00 dc  |. FOU%,,TYPE%...|
000002e0  23 54 59 50 45 25 3d 54  59 50 45 25 3e 3e 38 3a  |#TYPE%=TYPE%>>8:|
000002f0  54 59 50 45 25 3d 54 59  50 45 25 80 26 46 46 46  |TYPE%=TYPE%.&FFF|
00000300  0d 00 e6 20 e7 20 46 4f  55 25 3d 31 20 80 20 54  |... . FOU%=1 . T|
00000310  59 50 45 25 3d 26 46 46  39 20 f1 4e 41 4d 45 24  |YPE%=&FF9 .NAME$|
00000320  0d 00 f0 05 cd 0d 00 fa  0a fd 20 4e 55 4d 25 0d  |.......... NUM%.|
00000330  01 04 05 f1 0d 01 0e 04  0d 01 18 18 e8 22 53 70  |............."Sp|
00000340  72 69 74 65 66 69 6c 65  3d 22 53 50 46 24 3a db  |ritefile="SPF$:.|
00000350  0d 01 22 04 0d 01 2c 2f  c8 99 22 4f 53 5f 46 53  |.."...,/.."OS_FS|
00000360  43 6f 6e 74 72 6f 6c 22  2c 32 38 2c 53 50 46 24  |Control",28,SPF$|
00000370  20 b8 20 2c 2c 4c 47 25  3a 4c 47 25 3d 4c 47 25  | . ,,LG%:LG%=LG%|
00000380  2a 31 30 0d 01 36 14 de  20 53 50 52 20 4c 47 25  |*10..6.. SPR LG%|
00000390  2c 42 55 46 20 31 36 0d  01 40 28 53 50 52 21 30  |,BUF 16..@(SPR!0|
000003a0  3d 4c 47 25 3a 53 50 52  21 34 3d 30 3a 53 50 52  |=LG%:SPR!4=0:SPR|
000003b0  21 38 3d 31 36 3a 53 50  52 21 31 32 3d 31 36 0d  |!8=16:SPR!12=16.|
000003c0  01 4a 23 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.J#.."OS_SpriteO|
000003d0  70 22 2c 32 35 36 2b 31  30 2c 53 50 52 2c 53 50  |p",256+10,SPR,SP|
000003e0  46 24 0d 01 54 25 c8 99  22 4f 53 5f 53 70 72 69  |F$..T%.."OS_Spri|
000003f0  74 65 4f 70 22 2c 32 35  36 2b 38 2c 53 50 52 20  |teOp",256+8,SPR |
00000400  b8 20 2c 2c 2c 41 25 0d  01 5e 27 c8 99 22 4f 53  |. ,,,A%..^'.."OS|
00000410  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 31  |_SpriteOp",256+1|
00000420  33 2c 53 50 52 2c 42 55  46 2c 31 36 2c 31 0d 01  |3,SPR,BUF,16,1..|
00000430  68 10 4e 24 3d 22 22 3a  50 25 3d 30 3a f5 0d 01  |h.N$="":P%=0:...|
00000440  72 1d 54 25 3d 42 55 46  3f 50 25 3a e7 20 54 25  |r.T%=BUF?P%:. T%|
00000450  3c 3e 30 20 4e 24 2b 3d  bd 54 25 0d 01 7c 10 50  |<>0 N$+=.T%..|.P|
00000460  25 2b 3d 31 3a fd 20 54  25 3d 30 0d 01 86 2c c8  |%+=1:. T%=0...,.|
00000470  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00000480  35 36 2b 34 30 2c 53 50  52 2c 4e 24 20 b8 20 2c  |56+40,SPR,N$ . ,|
00000490  2c 2c 57 25 2c 48 25 0d  01 90 13 57 25 3d 32 2a  |,,W%,H%....W%=2*|
000004a0  57 25 3a 48 25 3d 32 2a  48 25 0d 01 9a 04 0d 01  |W%:H%=2*H%......|
000004b0  a4 33 de 20 54 58 25 28  35 30 2c 31 35 29 2c 54  |.3. TX%(50,15),T|
000004c0  59 25 28 35 30 2c 31 35  29 2c 54 4e 25 28 35 30  |Y%(50,15),TN%(50|
000004d0  29 2c 41 58 25 28 31 35  29 2c 41 59 25 28 31 35  |),AX%(15),AY%(15|
000004e0  29 0d 01 ae 04 0d 01 b8  27 58 4d 49 4e 25 3d 28  |).......'XMIN%=(|
000004f0  31 32 38 30 2d 57 25 29  2f 32 3a 59 4d 49 4e 25  |1280-W%)/2:YMIN%|
00000500  3d 28 31 30 32 34 2d 48  25 29 2f 32 0d 01 c2 0f  |=(1024-H%)/2....|
00000510  53 31 25 3d 31 3a 53 32  25 3d 32 0d 01 cc 2a c8  |S1%=1:S2%=2...*.|
00000520  99 20 36 2c 31 31 32 2c  53 31 25 3a c8 99 20 36  |. 6,112,S1%:.. 6|
00000530  2c 31 31 33 2c 53 32 25  3a db 3a c8 94 20 53 31  |,113,S2%:.:.. S1|
00000540  25 2c 53 32 25 0d 01 d6  2d c8 99 22 4f 53 5f 53  |%,S2%...-.."OS_S|
00000550  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 33 34 2c  |priteOp",256+34,|
00000560  53 50 52 2c 4e 24 2c 58  4d 49 4e 25 2c 59 4d 49  |SPR,N$,XMIN%,YMI|
00000570  4e 25 0d 01 e0 2a c8 99  20 36 2c 31 31 32 2c 53  |N%...*.. 6,112,S|
00000580  31 25 3a c8 99 20 36 2c  31 31 33 2c 53 32 25 3a  |1%:.. 6,113,S2%:|
00000590  db 3a c8 94 20 53 31 25  2c 53 32 25 0d 01 ea 2d  |.:.. S1%,S2%...-|
000005a0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000005b0  32 35 36 2b 33 34 2c 53  50 52 2c 4e 24 2c 58 4d  |256+34,SPR,N$,XM|
000005c0  49 4e 25 2c 59 4d 49 4e  25 0d 01 f4 04 0d 01 fe  |IN%,YMIN%.......|
000005d0  21 54 58 25 28 31 2c 31  29 3d 58 4d 49 4e 25 3a  |!TX%(1,1)=XMIN%:|
000005e0  54 59 25 28 31 2c 31 29  3d 59 4d 49 4e 25 0d 02  |TY%(1,1)=YMIN%..|
000005f0  08 24 54 58 25 28 31 2c  32 29 3d 58 4d 49 4e 25  |.$TX%(1,2)=XMIN%|
00000600  2b 57 25 3a 54 59 25 28  31 2c 32 29 3d 59 4d 49  |+W%:TY%(1,2)=YMI|
00000610  4e 25 0d 02 12 27 54 58  25 28 31 2c 33 29 3d 58  |N%...'TX%(1,3)=X|
00000620  4d 49 4e 25 2b 57 25 3a  54 59 25 28 31 2c 33 29  |MIN%+W%:TY%(1,3)|
00000630  3d 59 4d 49 4e 25 2b 48  25 0d 02 1c 24 54 58 25  |=YMIN%+H%...$TX%|
00000640  28 31 2c 34 29 3d 58 4d  49 4e 25 3a 54 59 25 28  |(1,4)=XMIN%:TY%(|
00000650  31 2c 34 29 3d 59 4d 49  4e 25 2b 48 25 0d 02 26  |1,4)=YMIN%+H%..&|
00000660  0c 54 4e 25 28 31 29 3d  34 0d 02 30 04 0d 02 3a  |.TN%(1)=4..0...:|
00000670  0c e3 49 25 3d 31 b8 34  39 0d 02 44 0c e7 20 49  |..I%=1.49..D.. I|
00000680  25 3d 31 20 8c 0d 02 4e  08 52 25 3d 31 0d 02 58  |%=1 ...N.R%=1..X|
00000690  05 cc 0d 02 62 13 4d 41  58 25 3d 30 3a e3 4e 25  |....b.MAX%=0:.N%|
000006a0  3d 31 b8 49 25 0d 02 6c  0f 58 31 25 3d 30 3a 59  |=1.I%..l.X1%=0:Y|
000006b0  31 25 3d 30 0d 02 76 35  e3 4d 25 3d 31 20 b8 20  |1%=0..v5.M%=1 . |
000006c0  54 4e 25 28 4e 25 29 3a  58 31 25 2b 3d 54 58 25  |TN%(N%):X1%+=TX%|
000006d0  28 4e 25 2c 4d 25 29 3a  59 31 25 2b 3d 54 59 25  |(N%,M%):Y1%+=TY%|
000006e0  28 4e 25 2c 4d 25 29 3a  ed 0d 02 80 23 58 31 25  |(N%,M%):....#X1%|
000006f0  3d 58 31 25 2f 54 4e 25  28 4e 25 29 3a 59 31 25  |=X1%/TN%(N%):Y1%|
00000700  3d 59 31 25 2f 54 4e 25  28 4e 25 29 0d 02 8a 27  |=Y1%/TN%(N%)...'|
00000710  41 25 3d 30 3a e3 4d 25  3d 31 b8 54 4e 25 28 4e  |A%=0:.M%=1.TN%(N|
00000720  25 29 3a 4d 31 25 3d 4d  25 83 54 4e 25 28 4e 25  |%):M1%=M%.TN%(N%|
00000730  29 2b 31 0d 02 94 41 58  32 25 3d 54 58 25 28 4e  |)+1...AX2%=TX%(N|
00000740  25 2c 4d 25 29 3a 59 32  25 3d 54 59 25 28 4e 25  |%,M%):Y2%=TY%(N%|
00000750  2c 4d 25 29 3a 58 33 25  3d 54 58 25 28 4e 25 2c  |,M%):X3%=TX%(N%,|
00000760  4d 31 25 29 3a 59 33 25  3d 54 59 25 28 4e 25 2c  |M1%):Y3%=TY%(N%,|
00000770  4d 31 25 29 0d 02 9e 3b  41 25 2b 3d 28 58 31 25  |M1%)...;A%+=(X1%|
00000780  2a 59 32 25 2b 59 31 25  2a 58 33 25 2b 59 33 25  |*Y2%+Y1%*X3%+Y3%|
00000790  2a 58 32 25 2d 59 32 25  2a 58 33 25 2d 59 31 25  |*X2%-Y2%*X3%-Y1%|
000007a0  2a 58 32 25 2d 58 31 25  2a 59 33 25 29 2f 32 0d  |*X2%-X1%*Y3%)/2.|
000007b0  02 a8 05 ed 0d 02 b2 1b  e7 20 41 25 3e 4d 41 58  |......... A%>MAX|
000007c0  25 20 4d 41 58 25 3d 41  25 3a 52 25 3d 4e 25 0d  |% MAX%=A%:R%=N%.|
000007d0  02 bc 05 ed 0d 02 c6 05  cd 0d 02 d0 0e 50 25 3d  |.............P%=|
000007e0  54 4e 25 28 52 25 29 0d  02 da 34 e3 4e 25 3d 31  |TN%(R%)...4.N%=1|
000007f0  b8 50 25 3a 41 58 25 28  4e 25 29 3d 54 58 25 28  |.P%:AX%(N%)=TX%(|
00000800  52 25 2c 4e 25 29 3a 41  59 25 28 4e 25 29 3d 54  |R%,N%):AY%(N%)=T|
00000810  59 25 28 52 25 2c 4e 25  29 3a ed 0d 02 e4 1d 4c  |Y%(R%,N%):.....L|
00000820  25 3d 30 3a e3 4e 25 3d  31 b8 50 25 3a 4e 31 25  |%=0:.N%=1.P%:N1%|
00000830  3d 4e 25 83 50 25 2b 31  0d 02 ee 30 47 25 3d 28  |=N%.P%+1...0G%=(|
00000840  41 58 25 28 4e 25 29 2d  41 58 25 28 4e 31 25 29  |AX%(N%)-AX%(N1%)|
00000850  29 5e 32 2b 28 41 59 25  28 4e 25 29 2d 41 59 25  |)^2+(AY%(N%)-AY%|
00000860  28 4e 31 25 29 29 5e 32  0d 02 f8 19 e7 20 47 25  |(N1%))^2..... G%|
00000870  3e 4c 25 20 4c 25 3d 47  25 3a 44 31 31 25 3d 4e  |>L% L%=G%:D11%=N|
00000880  25 0d 03 02 05 ed 0d 03  0c 1d f5 3a 44 32 31 25  |%..........:D21%|
00000890  3d b3 28 50 25 29 3a fd  20 44 31 31 25 3c 3e 44  |=.(P%):. D11%<>D|
000008a0  32 31 25 0d 03 16 1c e7  20 44 31 31 25 3e 44 32  |21%..... D11%>D2|
000008b0  31 25 20 c8 94 20 44 31  31 25 2c 44 32 31 25 0d  |1% .. D11%,D21%.|
000008c0  03 20 21 44 31 32 25 3d  44 31 31 25 83 50 25 2b  |. !D12%=D11%.P%+|
000008d0  31 3a 44 32 32 25 3d 44  32 31 25 83 50 25 2b 31  |1:D22%=D21%.P%+1|
000008e0  0d 03 2a 16 46 31 25 3d  b3 28 32 29 3a 46 32 25  |..*.F1%=.(2):F2%|
000008f0  3d 33 2d 46 31 25 0d 03  34 28 50 58 31 25 3d 28  |=3-F1%..4(PX1%=(|
00000900  46 31 25 2a 41 58 25 28  44 31 31 25 29 2b 46 32  |F1%*AX%(D11%)+F2|
00000910  25 2a 41 58 25 28 44 31  32 25 29 29 2f 33 0d 03  |%*AX%(D12%))/3..|
00000920  3e 28 50 59 31 25 3d 28  46 31 25 2a 41 59 25 28  |>(PY1%=(F1%*AY%(|
00000930  44 31 31 25 29 2b 46 32  25 2a 41 59 25 28 44 31  |D11%)+F2%*AY%(D1|
00000940  32 25 29 29 2f 33 0d 03  48 28 50 58 32 25 3d 28  |2%))/3..H(PX2%=(|
00000950  46 31 25 2a 41 58 25 28  44 32 31 25 29 2b 46 32  |F1%*AX%(D21%)+F2|
00000960  25 2a 41 58 25 28 44 32  32 25 29 29 2f 33 0d 03  |%*AX%(D22%))/3..|
00000970  52 28 50 59 32 25 3d 28  46 31 25 2a 41 59 25 28  |R(PY2%=(F1%*AY%(|
00000980  44 32 31 25 29 2b 46 32  25 2a 41 59 25 28 44 32  |D21%)+F2%*AY%(D2|
00000990  32 25 29 29 2f 33 0d 03  5c 11 4b 25 3d 30 3a e3  |2%))/3..\.K%=0:.|
000009a0  4e 25 3d 31 b8 50 25 0d  03 66 2f 4b 25 2b 3d 31  |N%=1.P%..f/K%+=1|
000009b0  3a 54 58 25 28 52 25 2c  4b 25 29 3d 41 58 25 28  |:TX%(R%,K%)=AX%(|
000009c0  4e 25 29 3a 54 59 25 28  52 25 2c 4b 25 29 3d 41  |N%):TY%(R%,K%)=A|
000009d0  59 25 28 4e 25 29 0d 03  70 0f e7 20 4e 25 3d 44  |Y%(N%)..p.. N%=D|
000009e0  31 31 25 20 8c 0d 03 7a  29 4b 25 2b 3d 31 3a 54  |11% ...z)K%+=1:T|
000009f0  58 25 28 52 25 2c 4b 25  29 3d 50 58 31 25 3a 54  |X%(R%,K%)=PX1%:T|
00000a00  59 25 28 52 25 2c 4b 25  29 3d 50 59 31 25 0d 03  |Y%(R%,K%)=PY1%..|
00000a10  84 29 4b 25 2b 3d 31 3a  54 58 25 28 52 25 2c 4b  |.)K%+=1:TX%(R%,K|
00000a20  25 29 3d 50 58 32 25 3a  54 59 25 28 52 25 2c 4b  |%)=PX2%:TY%(R%,K|
00000a30  25 29 3d 50 59 32 25 0d  03 8e 0b 4e 25 3d 44 32  |%)=PY2%....N%=D2|
00000a40  31 25 0d 03 98 05 cd 0d  03 a2 10 ed 3a 54 4e 25  |1%..........:TN%|
00000a50  28 52 25 29 3d 4b 25 0d  03 ac 0b 51 25 3d 49 25  |(R%)=K%....Q%=I%|
00000a60  2b 31 0d 03 b6 28 4b 25  3d 31 3a 54 58 25 28 51  |+1...(K%=1:TX%(Q|
00000a70  25 2c 4b 25 29 3d 50 58  31 25 3a 54 59 25 28 51  |%,K%)=PX1%:TY%(Q|
00000a80  25 2c 4b 25 29 3d 50 59  31 25 0d 03 c0 13 e3 4e  |%,K%)=PY1%.....N|
00000a90  25 3d 44 31 31 25 2b 31  b8 44 32 31 25 0d 03 ca  |%=D11%+1.D21%...|
00000aa0  2f 4b 25 2b 3d 31 3a 54  58 25 28 51 25 2c 4b 25  |/K%+=1:TX%(Q%,K%|
00000ab0  29 3d 41 58 25 28 4e 25  29 3a 54 59 25 28 51 25  |)=AX%(N%):TY%(Q%|
00000ac0  2c 4b 25 29 3d 41 59 25  28 4e 25 29 0d 03 d4 05  |,K%)=AY%(N%)....|
00000ad0  ed 0d 03 de 34 4b 25 2b  3d 31 3a 54 58 25 28 51  |....4K%+=1:TX%(Q|
00000ae0  25 2c 4b 25 29 3d 50 58  32 25 3a 54 59 25 28 51  |%,K%)=PX2%:TY%(Q|
00000af0  25 2c 4b 25 29 3d 50 59  32 25 3a 54 4e 25 28 51  |%,K%)=PY2%:TN%(Q|
00000b00  25 29 3d 4b 25 0d 03 e8  05 ed 0d 03 f2 04 0d 03  |%)=K%...........|
00000b10  fc 21 e3 49 25 3d 31 b8  35 30 3a 54 25 3d 54 4e  |.!.I%=1.50:T%=TN|
00000b20  25 28 49 25 29 3a 4e 56  24 3d c3 28 49 25 29 0d  |%(I%):NV$=.(I%).|
00000b30  04 06 25 58 4d 49 4e 25  3d 54 58 25 28 49 25 2c  |..%XMIN%=TX%(I%,|
00000b40  54 25 29 3a 59 4d 49 4e  25 3d 54 59 25 28 49 25  |T%):YMIN%=TY%(I%|
00000b50  2c 54 25 29 0d 04 10 25  58 4d 41 58 25 3d 54 58  |,T%)...%XMAX%=TX|
00000b60  25 28 49 25 2c 54 25 29  3a 59 4d 41 58 25 3d 54  |%(I%,T%):YMAX%=T|
00000b70  59 25 28 49 25 2c 54 25  29 0d 04 1a 0e e3 4e 25  |Y%(I%,T%).....N%|
00000b80  3d 31 b8 54 25 2d 31 0d  04 24 26 e7 54 58 25 28  |=1.T%-1..$&.TX%(|
00000b90  49 25 2c 4e 25 29 3c 58  4d 49 4e 25 20 58 4d 49  |I%,N%)<XMIN% XMI|
00000ba0  4e 25 3d 54 58 25 28 49  25 2c 4e 25 29 0d 04 2e  |N%=TX%(I%,N%)...|
00000bb0  26 e7 54 59 25 28 49 25  2c 4e 25 29 3c 59 4d 49  |&.TY%(I%,N%)<YMI|
00000bc0  4e 25 20 59 4d 49 4e 25  3d 54 59 25 28 49 25 2c  |N% YMIN%=TY%(I%,|
00000bd0  4e 25 29 0d 04 38 26 e7  54 58 25 28 49 25 2c 4e  |N%)..8&.TX%(I%,N|
00000be0  25 29 3e 58 4d 41 58 25  20 58 4d 41 58 25 3d 54  |%)>XMAX% XMAX%=T|
00000bf0  58 25 28 49 25 2c 4e 25  29 0d 04 42 26 e7 54 59  |X%(I%,N%)..B&.TY|
00000c00  25 28 49 25 2c 4e 25 29  3e 59 4d 41 58 25 20 59  |%(I%,N%)>YMAX% Y|
00000c10  4d 41 58 25 3d 54 59 25  28 49 25 2c 4e 25 29 0d  |MAX%=TY%(I%,N%).|
00000c20  04 4c 05 ed 0d 04 56 3c  c8 99 22 4f 53 5f 53 70  |.L....V<.."OS_Sp|
00000c30  72 69 74 65 4f 70 22 2c  32 35 36 2b 31 36 2c 53  |riteOp",256+16,S|
00000c40  50 52 2c 4e 56 24 2c 30  2c 58 4d 49 4e 25 2c 59  |PR,NV$,0,XMIN%,Y|
00000c50  4d 49 4e 25 2c 58 4d 41  58 25 2c 59 4d 41 58 25  |MIN%,XMAX%,YMAX%|
00000c60  0d 04 60 22 c8 99 22 4f  53 5f 53 70 72 69 74 65  |..`".."OS_Sprite|
00000c70  4f 70 22 2c 32 35 36 2b  32 39 2c 53 50 52 2c 4e  |Op",256+29,SPR,N|
00000c80  56 24 0d 04 6a 22 c8 99  22 4f 53 5f 53 70 72 69  |V$..j".."OS_Spri|
00000c90  74 65 4f 70 22 2c 32 35  36 2b 36 31 2c 53 50 52  |teOp",256+61,SPR|
00000ca0  2c 4e 56 24 0d 04 74 08  e6 30 3a da 0d 04 7e 07  |,NV$..t..0:...~.|
00000cb0  e6 31 35 0d 04 88 27 ec  20 54 58 25 28 49 25 2c  |.15...'. TX%(I%,|
00000cc0  54 25 29 2d 58 4d 49 4e  25 2c 54 59 25 28 49 25  |T%)-XMIN%,TY%(I%|
00000cd0  2c 54 25 29 2d 59 4d 49  4e 25 0d 04 92 0c e3 4e  |,T%)-YMIN%.....N|
00000ce0  25 3d 31 b8 54 25 0d 04  9c 27 ec 20 54 58 25 28  |%=1.T%...'. TX%(|
00000cf0  49 25 2c 54 25 29 2d 58  4d 49 4e 25 2c 54 59 25  |I%,T%)-XMIN%,TY%|
00000d00  28 49 25 2c 54 25 29 2d  59 4d 49 4e 25 0d 04 a6  |(I%,T%)-YMIN%...|
00000d10  29 f0 38 35 2c 54 58 25  28 49 25 2c 4e 25 29 2d  |).85,TX%(I%,N%)-|
00000d20  58 4d 49 4e 25 2c 54 59  25 28 49 25 2c 4e 25 29  |XMIN%,TY%(I%,N%)|
00000d30  2d 59 4d 49 4e 25 0d 04  b0 05 ed 0d 04 ba 20 c8  |-YMIN%........ .|
00000d40  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00000d50  35 36 2b 36 31 2c 53 50  52 2c 30 0d 04 c4 23 54  |56+61,SPR,0...#T|
00000d60  58 25 28 49 25 2c 31 29  3d 58 4d 49 4e 25 3a 54  |X%(I%,1)=XMIN%:T|
00000d70  59 25 28 49 25 2c 31 29  3d 59 4d 49 4e 25 0d 04  |Y%(I%,1)=YMIN%..|
00000d80  ce 37 54 58 25 28 49 25  2c 32 29 3d 28 58 4d 41  |.7TX%(I%,2)=(XMA|
00000d90  58 25 2d 58 4d 49 4e 25  29 2f 32 3a 54 59 25 28  |X%-XMIN%)/2:TY%(|
00000da0  49 25 2c 32 29 3d 28 59  4d 41 58 25 2d 59 4d 49  |I%,2)=(YMAX%-YMI|
00000db0  4e 25 29 2f 32 0d 04 d8  05 ed 0d 04 e2 04 0d 04  |N%)/2...........|
00000dc0  ec 0b ee 85 e5 8d 44 5a  45 0d 04 f6 0e e3 49 3d  |......DZE.....I=|
00000dd0  31 b8 32 88 2e 30 32 0d  05 00 2d c8 99 20 36 2c  |1.2..02...-.. 6,|
00000de0  31 31 32 2c 53 31 25 3a  c8 99 20 36 2c 31 31 33  |112,S1%:.. 6,113|
00000df0  2c 53 32 25 3a c8 96 3a  db 3a c8 94 20 53 31 25  |,S2%:..:.:.. S1%|
00000e00  2c 53 32 25 0d 05 0a 16  e3 4e 25 3d 31 b8 35 30  |,S2%.....N%=1.50|
00000e10  3a 4e 56 24 3d c3 28 4e  25 29 0d 05 14 31 45 58  |:NV$=.(N%)...1EX|
00000e20  25 3d 28 54 58 25 28 4e  25 2c 31 29 2d 36 34 30  |%=(TX%(N%,1)-640|
00000e30  2b 54 58 25 28 4e 25 2c  32 29 29 2a 49 2b 36 34  |+TX%(N%,2))*I+64|
00000e40  30 2d 54 58 25 28 4e 25  2c 32 29 0d 05 1e 31 45  |0-TX%(N%,2)...1E|
00000e50  59 25 3d 28 54 59 25 28  4e 25 2c 31 29 2d 35 31  |Y%=(TY%(N%,1)-51|
00000e60  32 2b 54 59 25 28 4e 25  2c 32 29 29 2a 49 2b 35  |2+TY%(N%,2))*I+5|
00000e70  31 32 2d 54 59 25 28 4e  25 2c 32 29 0d 05 28 2c  |12-TY%(N%,2)..(,|
00000e80  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000e90  32 35 36 2b 33 34 2c 53  50 52 2c 4e 56 24 2c 45  |256+34,SPR,NV$,E|
00000ea0  58 25 2c 45 59 25 2c 38  0d 05 32 0f ed 3a 51 3d  |X%,EY%,8..2..:Q=|
00000eb0  a6 28 31 30 29 3a ed 0d  05 3c 10 c8 99 20 36 2c  |.(10):...<... 6,|
00000ec0  31 31 32 2c 53 31 25 0d  05 46 05 e0 0d 05 50 04  |112,S1%..F....P.|
00000ed0  0d 05 5a 23 c8 99 20 36  2c 31 31 32 2c 53 31 25  |..Z#.. 6,112,S1%|
00000ee0  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 c3  |:.:." at line ".|
00000ef0  9e 3a ee 0d 05 64 04 0d  05 6e 11 dc 20 32 35 35  |.:...d...n.. 255|
00000f00  2c 32 35 35 2c 32 35 35  0d 05 78 11 dc 20 32 32  |,255,255..x.. 22|
00000f10  31 2c 32 32 31 2c 32 32  31 0d 05 82 11 dc 20 31  |1,221,221..... 1|
00000f20  38 37 2c 31 38 37 2c 31  38 37 0d 05 8c 11 dc 20  |87,187,187..... |
00000f30  31 35 33 2c 31 35 33 2c  31 35 33 0d 05 96 11 dc  |153,153,153.....|
00000f40  20 31 31 39 2c 31 31 39  2c 31 31 39 0d 05 a0 0e  | 119,119,119....|
00000f50  dc 20 38 35 2c 38 35 2c  38 35 0d 05 aa 0e dc 20  |. 85,85,85..... |
00000f60  35 31 2c 35 31 2c 35 31  0d 05 b4 0b dc 20 30 2c  |51,51,51..... 0,|
00000f70  30 2c 30 0d 05 be 0e dc  20 30 2c 36 38 2c 31 35  |0,0..... 0,68,15|
00000f80  33 0d 05 c8 0f dc 20 32  33 38 2c 32 33 38 2c 30  |3..... 238,238,0|
00000f90  0d 05 d2 0d dc 20 30 2c  32 30 34 2c 30 0d 05 dc  |..... 0,204,0...|
00000fa0  0d dc 20 32 32 31 2c 30  2c 30 0d 05 e6 11 dc 20  |.. 221,0,0..... |
00000fb0  32 33 38 2c 32 33 38 2c  31 38 37 0d 05 f0 0e dc  |238,238,187.....|
00000fc0  20 38 35 2c 31 33 36 2c  30 0d 05 fa 0f dc 20 32  | 85,136,0..... 2|
00000fd0  35 35 2c 31 38 37 2c 30  0d 06 04 0f dc 20 30 2c  |55,187,0..... 0,|
00000fe0  31 38 37 2c 32 35 35 0d  ff                       |187,255..|
00000fe9