� > MOSAIC

�103
(
2*�"This program converts a sprite into"
<&�"a mosaic with irregular tiles."'
F,�"SPRITEFILE="SPF$,'"NEW SPRITEFILE="NF$
P�
Z
d$ș"OS_FSControl",28,SPF$ � ,,LG%
nLG%=LG%*1.3
x
�� SPR LG%,BUF 16
�� XF%(1000),YF%(1000)
�*SPR!0=LG%-1:SPR!4=0:SPR!8=16:SPR!12=16
�
�#ș"OS_SpriteOp",256+10,SPR,SPF$
�'ș"OS_SpriteOp",256+13,SPR,BUF,16,1
�N$="":P%=0:�
�T%=BUF?P%:� T%<>0 N$+=�T%
�P%+=1:� T%=0
�-ș"OS_SpriteOp",256+40,SPR,N$ � ,,, W%,H%
�W%=2*W%:H%=2*H%
�3XA=(1600-W%)/2:XB=XA+W%:YA=(1200-H%)/2:YB=YA+H%
�W=XB-XA:H=YB-YA:A=W*H/100



4ș"OS_SpriteOp",256+15,SPR,"MOSA",0,W%/2,H%/2,19

%ș"OS_SpriteOp",256+60,SPR,"MOSA"

"#S%=8:A%=(W%+3*S%)/S%:P%=1:OP%=2

,� PX%(A%,2),PY%(A%,2)

64�X%=0�A%:PX%(X%,P%)=�(S%/2):PY%(X%,P%)=�(S%/2):�

@�Y%=0�H%+S%�S%:Ȕ OP%,P%

J4�X%=0�A%:PX%(X%,P%)=�(S%/2):PY%(X%,P%)=�(S%/2):�

T#�X%=0�A%-1:X1%=S%*X%:X2%=X1%+S%

^P� X1%+PX%(X%,OP%)-S%,Y%+PY%(X%,OP%)-S%,X1%+PX%(X%,P%)-S%,Y%+S%+PY%(X%,P%)-S%

hS� X1%+PX%(X%,OP%)-S%,Y%+PY%(X%,OP%)-S%,X2%+PX%(X%+1,OP%)-S%,Y%+PY%(X%+1,OP%)-S%

r�,

|�M%=0� H �2:�N%=0� W �2

�� �N%,M%)=0 �

� �1:PF%=0:R%=0:G%=0:B%=0:L%=0

�
�F(N%,M%)

� ș"OS_SpriteOp",256+60,SPR,0

�+R%=R%/PF%:G%=G%/PF%:B%=B%/PF%:L%=L%/PF%

�C%=R%+G%*4+B%*16

�� C% Ȝ L%

�(�P%=1�PF%:Ȓ XF%(P%)+XA,YF%(P%)+YA:�

�%ș"OS_SpriteOp",256+60,SPR,"MOSA"

��

��,

�"�:ș"OS_SpriteOp",256+60,SPR,0

�� NF$<>"" �
*SPR!0=LG%-1:SPR!4=0:SPR!8=16:SPR!12=16
ș"OS_SpriteOp",256+9,SPR
9ș"OS_SpriteOp",256+16,SPR,"Mosaic",0,XA,YA,XA+W,YA+H
&"ș"OS_SpriteOp",256+12,SPR,NF$
0�
:�
D
N��F(X%,Y%)
X� �X%,Y%)=0 �
b+PF%+=1:XF%(PF%)=X%:YF%(PF%)=Y%:Ȓ X%,Y%
l8ș"OS_SpriteOp",256+41,SPR,N$,X%/2,Y%/2 � ,,,,,C%,T%
v
L%+=T%
�R%+=C%�3
�G%+=(C%�12)�4
�B%+=(C%�48)�16
��
�� �X%+2,Y%)=0 � �F(X%+2,Y%)
�� �X%-2,Y%)=0 � �F(X%-2,Y%)
�� �X%,Y%+2)=0 � �F(X%,Y%+2)
�� �X%,Y%-2)=0 � �F(X%,Y%-2)
��
�

00000000  0d 00 0a 0e f4 20 3e 20  4d 4f 53 41 49 43 0d 00  |..... > MOSAIC..|
00000010  14 04 0d 00 1e 08 eb 31  30 33 0d 00 28 04 0d 00  |.......103..(...|
00000020  32 2a f1 22 54 68 69 73  20 70 72 6f 67 72 61 6d  |2*."This program|
00000030  20 63 6f 6e 76 65 72 74  73 20 61 20 73 70 72 69  | converts a spri|
00000040  74 65 20 69 6e 74 6f 22  0d 00 3c 26 f1 22 61 20  |te into"..<&."a |
00000050  6d 6f 73 61 69 63 20 77  69 74 68 20 69 72 72 65  |mosaic with irre|
00000060  67 75 6c 61 72 20 74 69  6c 65 73 2e 22 27 0d 00  |gular tiles."'..|
00000070  46 2c e8 22 53 50 52 49  54 45 46 49 4c 45 3d 22  |F,."SPRITEFILE="|
00000080  53 50 46 24 2c 27 22 4e  45 57 20 53 50 52 49 54  |SPF$,'"NEW SPRIT|
00000090  45 46 49 4c 45 3d 22 4e  46 24 0d 00 50 05 db 0d  |EFILE="NF$..P...|
000000a0  00 5a 04 0d 00 64 24 c8  99 22 4f 53 5f 46 53 43  |.Z...d$.."OS_FSC|
000000b0  6f 6e 74 72 6f 6c 22 2c  32 38 2c 53 50 46 24 20  |ontrol",28,SPF$ |
000000c0  b8 20 2c 2c 4c 47 25 0d  00 6e 0f 4c 47 25 3d 4c  |. ,,LG%..n.LG%=L|
000000d0  47 25 2a 31 2e 33 0d 00  78 04 0d 00 82 14 de 20  |G%*1.3..x...... |
000000e0  53 50 52 20 4c 47 25 2c  42 55 46 20 31 36 0d 00  |SPR LG%,BUF 16..|
000000f0  8c 19 de 20 58 46 25 28  31 30 30 30 29 2c 59 46  |... XF%(1000),YF|
00000100  25 28 31 30 30 30 29 0d  00 96 2a 53 50 52 21 30  |%(1000)...*SPR!0|
00000110  3d 4c 47 25 2d 31 3a 53  50 52 21 34 3d 30 3a 53  |=LG%-1:SPR!4=0:S|
00000120  50 52 21 38 3d 31 36 3a  53 50 52 21 31 32 3d 31  |PR!8=16:SPR!12=1|
00000130  36 0d 00 a0 04 0d 00 aa  23 c8 99 22 4f 53 5f 53  |6.......#.."OS_S|
00000140  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 31 30 2c  |priteOp",256+10,|
00000150  53 50 52 2c 53 50 46 24  0d 00 b4 27 c8 99 22 4f  |SPR,SPF$...'.."O|
00000160  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00000170  31 33 2c 53 50 52 2c 42  55 46 2c 31 36 2c 31 0d  |13,SPR,BUF,16,1.|
00000180  00 be 10 4e 24 3d 22 22  3a 50 25 3d 30 3a f5 0d  |...N$="":P%=0:..|
00000190  00 c8 1d 54 25 3d 42 55  46 3f 50 25 3a e7 20 54  |...T%=BUF?P%:. T|
000001a0  25 3c 3e 30 20 4e 24 2b  3d bd 54 25 0d 00 d2 10  |%<>0 N$+=.T%....|
000001b0  50 25 2b 3d 31 3a fd 20  54 25 3d 30 0d 00 dc 2d  |P%+=1:. T%=0...-|
000001c0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000001d0  32 35 36 2b 34 30 2c 53  50 52 2c 4e 24 20 b8 20  |256+40,SPR,N$ . |
000001e0  2c 2c 2c 20 57 25 2c 48  25 0d 00 e6 13 57 25 3d  |,,, W%,H%....W%=|
000001f0  32 2a 57 25 3a 48 25 3d  32 2a 48 25 0d 00 f0 33  |2*W%:H%=2*H%...3|
00000200  58 41 3d 28 31 36 30 30  2d 57 25 29 2f 32 3a 58  |XA=(1600-W%)/2:X|
00000210  42 3d 58 41 2b 57 25 3a  59 41 3d 28 31 32 30 30  |B=XA+W%:YA=(1200|
00000220  2d 48 25 29 2f 32 3a 59  42 3d 59 41 2b 48 25 0d  |-H%)/2:YB=YA+H%.|
00000230  00 fa 1d 57 3d 58 42 2d  58 41 3a 48 3d 59 42 2d  |...W=XB-XA:H=YB-|
00000240  59 41 3a 41 3d 57 2a 48  2f 31 30 30 0d 01 04 04  |YA:A=W*H/100....|
00000250  0d 01 0e 34 c8 99 22 4f  53 5f 53 70 72 69 74 65  |...4.."OS_Sprite|
00000260  4f 70 22 2c 32 35 36 2b  31 35 2c 53 50 52 2c 22  |Op",256+15,SPR,"|
00000270  4d 4f 53 41 22 2c 30 2c  57 25 2f 32 2c 48 25 2f  |MOSA",0,W%/2,H%/|
00000280  32 2c 31 39 0d 01 18 25  c8 99 22 4f 53 5f 53 70  |2,19...%.."OS_Sp|
00000290  72 69 74 65 4f 70 22 2c  32 35 36 2b 36 30 2c 53  |riteOp",256+60,S|
000002a0  50 52 2c 22 4d 4f 53 41  22 0d 01 22 23 53 25 3d  |PR,"MOSA".."#S%=|
000002b0  38 3a 41 25 3d 28 57 25  2b 33 2a 53 25 29 2f 53  |8:A%=(W%+3*S%)/S|
000002c0  25 3a 50 25 3d 31 3a 4f  50 25 3d 32 0d 01 2c 19  |%:P%=1:OP%=2..,.|
000002d0  de 20 50 58 25 28 41 25  2c 32 29 2c 50 59 25 28  |. PX%(A%,2),PY%(|
000002e0  41 25 2c 32 29 0d 01 36  34 e3 58 25 3d 30 b8 41  |A%,2)..64.X%=0.A|
000002f0  25 3a 50 58 25 28 58 25  2c 50 25 29 3d b3 28 53  |%:PX%(X%,P%)=.(S|
00000300  25 2f 32 29 3a 50 59 25  28 58 25 2c 50 25 29 3d  |%/2):PY%(X%,P%)=|
00000310  b3 28 53 25 2f 32 29 3a  ed 0d 01 40 1c e3 59 25  |.(S%/2):...@..Y%|
00000320  3d 30 b8 48 25 2b 53 25  88 53 25 3a c8 94 20 4f  |=0.H%+S%.S%:.. O|
00000330  50 25 2c 50 25 0d 01 4a  34 e3 58 25 3d 30 b8 41  |P%,P%..J4.X%=0.A|
00000340  25 3a 50 58 25 28 58 25  2c 50 25 29 3d b3 28 53  |%:PX%(X%,P%)=.(S|
00000350  25 2f 32 29 3a 50 59 25  28 58 25 2c 50 25 29 3d  |%/2):PY%(X%,P%)=|
00000360  b3 28 53 25 2f 32 29 3a  ed 0d 01 54 23 e3 58 25  |.(S%/2):...T#.X%|
00000370  3d 30 b8 41 25 2d 31 3a  58 31 25 3d 53 25 2a 58  |=0.A%-1:X1%=S%*X|
00000380  25 3a 58 32 25 3d 58 31  25 2b 53 25 0d 01 5e 50  |%:X2%=X1%+S%..^P|
00000390  86 20 58 31 25 2b 50 58  25 28 58 25 2c 4f 50 25  |. X1%+PX%(X%,OP%|
000003a0  29 2d 53 25 2c 59 25 2b  50 59 25 28 58 25 2c 4f  |)-S%,Y%+PY%(X%,O|
000003b0  50 25 29 2d 53 25 2c 58  31 25 2b 50 58 25 28 58  |P%)-S%,X1%+PX%(X|
000003c0  25 2c 50 25 29 2d 53 25  2c 59 25 2b 53 25 2b 50  |%,P%)-S%,Y%+S%+P|
000003d0  59 25 28 58 25 2c 50 25  29 2d 53 25 0d 01 68 53  |Y%(X%,P%)-S%..hS|
000003e0  86 20 58 31 25 2b 50 58  25 28 58 25 2c 4f 50 25  |. X1%+PX%(X%,OP%|
000003f0  29 2d 53 25 2c 59 25 2b  50 59 25 28 58 25 2c 4f  |)-S%,Y%+PY%(X%,O|
00000400  50 25 29 2d 53 25 2c 58  32 25 2b 50 58 25 28 58  |P%)-S%,X2%+PX%(X|
00000410  25 2b 31 2c 4f 50 25 29  2d 53 25 2c 59 25 2b 50  |%+1,OP%)-S%,Y%+P|
00000420  59 25 28 58 25 2b 31 2c  4f 50 25 29 2d 53 25 0d  |Y%(X%+1,OP%)-S%.|
00000430  01 72 06 ed 2c 0d 01 7c  1b e3 4d 25 3d 30 b8 20  |.r..,..|..M%=0. |
00000440  48 20 88 32 3a e3 4e 25  3d 30 b8 20 57 20 88 32  |H .2:.N%=0. W .2|
00000450  0d 01 86 11 e7 20 b0 4e  25 2c 4d 25 29 3d 30 20  |..... .N%,M%)=0 |
00000460  8c 0d 01 90 20 e6 31 3a  50 46 25 3d 30 3a 52 25  |.... .1:PF%=0:R%|
00000470  3d 30 3a 47 25 3d 30 3a  42 25 3d 30 3a 4c 25 3d  |=0:G%=0:B%=0:L%=|
00000480  30 0d 01 9a 0d f2 46 28  4e 25 2c 4d 25 29 0d 01  |0.....F(N%,M%)..|
00000490  a4 20 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |. .."OS_SpriteOp|
000004a0  22 2c 32 35 36 2b 36 30  2c 53 50 52 2c 30 0d 01  |",256+60,SPR,0..|
000004b0  ae 2b 52 25 3d 52 25 2f  50 46 25 3a 47 25 3d 47  |.+R%=R%/PF%:G%=G|
000004c0  25 2f 50 46 25 3a 42 25  3d 42 25 2f 50 46 25 3a  |%/PF%:B%=B%/PF%:|
000004d0  4c 25 3d 4c 25 2f 50 46  25 0d 01 b8 14 43 25 3d  |L%=L%/PF%....C%=|
000004e0  52 25 2b 47 25 2a 34 2b  42 25 2a 31 36 0d 01 c2  |R%+G%*4+B%*16...|
000004f0  0e e6 20 43 25 20 c8 9c  20 4c 25 0d 01 cc 28 e3  |.. C% .. L%...(.|
00000500  50 25 3d 31 b8 50 46 25  3a c8 92 20 58 46 25 28  |P%=1.PF%:.. XF%(|
00000510  50 25 29 2b 58 41 2c 59  46 25 28 50 25 29 2b 59  |P%)+XA,YF%(P%)+Y|
00000520  41 3a ed 0d 01 d6 25 c8  99 22 4f 53 5f 53 70 72  |A:....%.."OS_Spr|
00000530  69 74 65 4f 70 22 2c 32  35 36 2b 36 30 2c 53 50  |iteOp",256+60,SP|
00000540  52 2c 22 4d 4f 53 41 22  0d 01 e0 05 cd 0d 01 ea  |R,"MOSA"........|
00000550  06 ed 2c 0d 01 f4 22 db  3a c8 99 22 4f 53 5f 53  |..,...".:.."OS_S|
00000560  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 36 30 2c  |priteOp",256+60,|
00000570  53 50 52 2c 30 0d 01 fe  0f e7 20 4e 46 24 3c 3e  |SPR,0..... NF$<>|
00000580  22 22 20 8c 0d 02 08 2a  53 50 52 21 30 3d 4c 47  |"" ....*SPR!0=LG|
00000590  25 2d 31 3a 53 50 52 21  34 3d 30 3a 53 50 52 21  |%-1:SPR!4=0:SPR!|
000005a0  38 3d 31 36 3a 53 50 52  21 31 32 3d 31 36 0d 02  |8=16:SPR!12=16..|
000005b0  12 1d c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |...."OS_SpriteOp|
000005c0  22 2c 32 35 36 2b 39 2c  53 50 52 0d 02 1c 39 c8  |",256+9,SPR...9.|
000005d0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
000005e0  35 36 2b 31 36 2c 53 50  52 2c 22 4d 6f 73 61 69  |56+16,SPR,"Mosai|
000005f0  63 22 2c 30 2c 58 41 2c  59 41 2c 58 41 2b 57 2c  |c",0,XA,YA,XA+W,|
00000600  59 41 2b 48 0d 02 26 22  c8 99 22 4f 53 5f 53 70  |YA+H..&".."OS_Sp|
00000610  72 69 74 65 4f 70 22 2c  32 35 36 2b 31 32 2c 53  |riteOp",256+12,S|
00000620  50 52 2c 4e 46 24 0d 02  30 05 cd 0d 02 3a 05 e0  |PR,NF$..0....:..|
00000630  0d 02 44 04 0d 02 4e 0e  dd f2 46 28 58 25 2c 59  |..D...N...F(X%,Y|
00000640  25 29 0d 02 58 11 e7 20  b0 58 25 2c 59 25 29 3d  |%)..X.. .X%,Y%)=|
00000650  30 20 8c 0d 02 62 2b 50  46 25 2b 3d 31 3a 58 46  |0 ...b+PF%+=1:XF|
00000660  25 28 50 46 25 29 3d 58  25 3a 59 46 25 28 50 46  |%(PF%)=X%:YF%(PF|
00000670  25 29 3d 59 25 3a c8 92  20 58 25 2c 59 25 0d 02  |%)=Y%:.. X%,Y%..|
00000680  6c 38 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |l8.."OS_SpriteOp|
00000690  22 2c 32 35 36 2b 34 31  2c 53 50 52 2c 4e 24 2c  |",256+41,SPR,N$,|
000006a0  58 25 2f 32 2c 59 25 2f  32 20 b8 20 2c 2c 2c 2c  |X%/2,Y%/2 . ,,,,|
000006b0  2c 43 25 2c 54 25 0d 02  76 0a 4c 25 2b 3d 54 25  |,C%,T%..v.L%+=T%|
000006c0  0d 02 80 0c 52 25 2b 3d  43 25 80 33 0d 02 8a 11  |....R%+=C%.3....|
000006d0  47 25 2b 3d 28 43 25 80  31 32 29 81 34 0d 02 94  |G%+=(C%.12).4...|
000006e0  12 42 25 2b 3d 28 43 25  80 34 38 29 81 31 36 0d  |.B%+=(C%.48).16.|
000006f0  02 9e 05 cd 0d 02 a8 1f  e7 20 b0 58 25 2b 32 2c  |......... .X%+2,|
00000700  59 25 29 3d 30 20 8c 20  f2 46 28 58 25 2b 32 2c  |Y%)=0 . .F(X%+2,|
00000710  59 25 29 0d 02 b2 1f e7  20 b0 58 25 2d 32 2c 59  |Y%)..... .X%-2,Y|
00000720  25 29 3d 30 20 8c 20 f2  46 28 58 25 2d 32 2c 59  |%)=0 . .F(X%-2,Y|
00000730  25 29 0d 02 bc 1f e7 20  b0 58 25 2c 59 25 2b 32  |%)..... .X%,Y%+2|
00000740  29 3d 30 20 8c 20 f2 46  28 58 25 2c 59 25 2b 32  |)=0 . .F(X%,Y%+2|
00000750  29 0d 02 c6 1f e7 20 b0  58 25 2c 59 25 2d 32 29  |)..... .X%,Y%-2)|
00000760  3d 30 20 8c 20 f2 46 28  58 25 2c 59 25 2d 32 29  |=0 . .F(X%,Y%-2)|
00000770  0d 02 d0 05 e1 0d ff                              |.......|
00000777