.� > SHATTER *** Jan Vibe february 1998 ***

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