� 12
:
src_areasize% = 1024*3
(� src_area% src_areasize%
2!!src_area%    = src_areasize%
<src_area%!4   = 0
Fsrc_area%!8   = 16
Psrc_area%!12  = 16
Zspop%         = &2E
d/ș "OS_SpriteOp", &10A, src_area%, "Source"
n+src_spr%      = src_area% + src_area%!8
xareasize% = 1024*3
�� area% areasize%
�!area%    = areasize%
�area%!4   = 0
�area%!8   = 16
�area%!12  = 16
�� trans% 6*4
�:
�	n%=16
�
alpha=�/6
�� an(n%-1):i%=0
�"� a=-�/2 � �/2+1E-8 � �/(n%-1)
� an(i%)=-alpha*�(a)
�
 i%+=1

�

:

� f%(2*n%-3)

"� i%=0 � n%-2

, f%(i%)=i%

6 f%(i%+n%-1)=n%-1-i%

@�

J:

T	s%=64

^:

h=headsize% = s%*s%/2*8 :    � s% cols, s%/2 rows, 8 shifts

r-datasize% = headsize%*n% : � n% rotations

|� data% datasize%

�dptr%=data%

�:

�oldmode%=�

�3ș "Wimp_Initialise",200,&4B534154,"Tmp" � ,th%

�ș 6,229,0,0

�b� � � �$;" at line ";�:h=�:ș "Wimp_CloseDown",th%,&4B534154:� oldmode%:ș "Hourglass_Smash":�

�� 12

�*Run Palette

�ȑ 640,512

�+� 24,(-s%+8)*4;-s%*4;(s%+8)*4-1;s%*4-1;

�� 128+15

�� i%=0 � n%-1

� �
 cs%=4*65536*�(an(i%))
 sn%=4*65536*�(an(i%))
 trans%!0=cs%
& trans%!4=-sn%
0 trans%!8=sn%
: trans%!12=cs%
D) trans%!16=-s%*4*256*�(an(i%)+�/4)*�2
N) trans%!20=-s%*4*256*�(an(i%)+�/4)*�2
X4 ș &2E,512+56,src_area%,src_spr%,0,,0,trans%,,0
b *Screensave DummyIn
lN ș "Wimp_StartTask","ChangeFSI DummyIn DummyOut 12r 1:4 -sharpen -nomode"
v ș 6,229,0,0
�. ș "OS_SpriteOp", &10A, area%, "DummyOut"
� spr% = area% + area%!8
� �genheaddata(dptr%, spr%)
� dptr%+=headsize%
�� i%
�%ș "Wimp_CloseDown",th%,&4B534154
�	� � �
�:
�� oldmode%
�?ș "OS_File", 10, "HeadData", &FFD,, data%, data%+datasize%
��
�:
�:
"� �genheaddata(dataptr%, spr%)
/spri% = spr%+spr%!32:� sprite image pointer
lastimageword%= 0
 lastmaskword% = &FFFFFFFF
*:
4� loop% = 1 � s%*s%/2/8
>" imageword% = !spri%: spri%+=4
H# maskword%  = �mask(imageword%)
R+ � Now ensure masked pixels are zeroed,
\( imageword% = imageword% � maskword%
f � then NOT the mask.
p maskword%  = � maskword%
z offset%    = 0
� iw%        = imageword%
� mw%        = maskword%
� � instance% = 0 � 7
�   dataptr%!(offset%+0) = iw%
�   dataptr%!(offset%+4) = mw%
�,  iw% = (iw%<<4) � (lastimageword%>>>28)
�(  lastimageword% = lastimageword%<<4
�+  mw% = (mw%<<4) � (lastmaskword%>>>28)
�'  lastmaskword%  = lastmaskword%<<4
�  offset%+=s%*s%/2
� �
� dataptr%+=8
�  lastimageword% = imageword%
 lastmaskword%  = maskword%
�
:
$�
.:
8@� �mask(i%) :  � We use pixel colour 15 to mark source image
B.:                 � pixels as transparent.
L=� c%,v%,o%,k%:� This function converts a word of image on
V?� c%=0 � 7    :� the above basis into a conventional sprite
`  v%=i%�15      :� mask word.
j i%=i%>>>4
t � v%=15 o%=0 � o%=15
~ k%=(k%>>>4)�(o%<<28)
��
�=k%
�

00000000  0d 00 0a 08 eb 20 31 32  0d 00 14 05 3a 0d 00 1e  |..... 12....:...|
00000010  1a 73 72 63 5f 61 72 65  61 73 69 7a 65 25 20 3d  |.src_areasize% =|
00000020  20 31 30 32 34 2a 33 0d  00 28 1d de 20 73 72 63  | 1024*3..(.. src|
00000030  5f 61 72 65 61 25 20 73  72 63 5f 61 72 65 61 73  |_area% src_areas|
00000040  69 7a 65 25 0d 00 32 21  21 73 72 63 5f 61 72 65  |ize%..2!!src_are|
00000050  61 25 20 20 20 20 3d 20  73 72 63 5f 61 72 65 61  |a%    = src_area|
00000060  73 69 7a 65 25 0d 00 3c  15 73 72 63 5f 61 72 65  |size%..<.src_are|
00000070  61 25 21 34 20 20 20 3d  20 30 0d 00 46 16 73 72  |a%!4   = 0..F.sr|
00000080  63 5f 61 72 65 61 25 21  38 20 20 20 3d 20 31 36  |c_area%!8   = 16|
00000090  0d 00 50 16 73 72 63 5f  61 72 65 61 25 21 31 32  |..P.src_area%!12|
000000a0  20 20 3d 20 31 36 0d 00  5a 17 73 70 6f 70 25 20  |  = 16..Z.spop% |
000000b0  20 20 20 20 20 20 20 20  3d 20 26 32 45 0d 00 64  |        = &2E..d|
000000c0  2f c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |/.. "OS_SpriteOp|
000000d0  22 2c 20 26 31 30 41 2c  20 73 72 63 5f 61 72 65  |", &10A, src_are|
000000e0  61 25 2c 20 22 53 6f 75  72 63 65 22 0d 00 6e 2b  |a%, "Source"..n+|
000000f0  73 72 63 5f 73 70 72 25  20 20 20 20 20 20 3d 20  |src_spr%      = |
00000100  73 72 63 5f 61 72 65 61  25 20 2b 20 73 72 63 5f  |src_area% + src_|
00000110  61 72 65 61 25 21 38 0d  00 78 16 61 72 65 61 73  |area%!8..x.areas|
00000120  69 7a 65 25 20 3d 20 31  30 32 34 2a 33 0d 00 82  |ize% = 1024*3...|
00000130  15 de 20 61 72 65 61 25  20 61 72 65 61 73 69 7a  |.. area% areasiz|
00000140  65 25 0d 00 8c 19 21 61  72 65 61 25 20 20 20 20  |e%....!area%    |
00000150  3d 20 61 72 65 61 73 69  7a 65 25 0d 00 96 11 61  |= areasize%....a|
00000160  72 65 61 25 21 34 20 20  20 3d 20 30 0d 00 a0 12  |rea%!4   = 0....|
00000170  61 72 65 61 25 21 38 20  20 20 3d 20 31 36 0d 00  |area%!8   = 16..|
00000180  aa 12 61 72 65 61 25 21  31 32 20 20 3d 20 31 36  |..area%!12  = 16|
00000190  0d 00 b4 10 de 20 74 72  61 6e 73 25 20 36 2a 34  |..... trans% 6*4|
000001a0  0d 00 be 05 3a 0d 00 c8  09 6e 25 3d 31 36 0d 00  |....:....n%=16..|
000001b0  d2 0d 61 6c 70 68 61 3d  af 2f 36 0d 00 dc 13 de  |..alpha=./6.....|
000001c0  20 61 6e 28 6e 25 2d 31  29 3a 69 25 3d 30 0d 00  | an(n%-1):i%=0..|
000001d0  e6 22 e3 20 61 3d 2d af  2f 32 20 b8 20 af 2f 32  |.". a=-./2 . ./2|
000001e0  2b 31 45 2d 38 20 88 20  af 2f 28 6e 25 2d 31 29  |+1E-8 . ./(n%-1)|
000001f0  0d 00 f0 17 20 61 6e 28  69 25 29 3d 2d 61 6c 70  |.... an(i%)=-alp|
00000200  68 61 2a b5 28 61 29 0d  00 fa 0a 20 69 25 2b 3d  |ha*.(a).... i%+=|
00000210  31 0d 01 04 05 ed 0d 01  0e 05 3a 0d 01 18 10 de  |1.........:.....|
00000220  20 66 25 28 32 2a 6e 25  2d 33 29 0d 01 22 11 e3  | f%(2*n%-3).."..|
00000230  20 69 25 3d 30 20 b8 20  6e 25 2d 32 0d 01 2c 0e  | i%=0 . n%-2..,.|
00000240  20 66 25 28 69 25 29 3d  69 25 0d 01 36 18 20 66  | f%(i%)=i%..6. f|
00000250  25 28 69 25 2b 6e 25 2d  31 29 3d 6e 25 2d 31 2d  |%(i%+n%-1)=n%-1-|
00000260  69 25 0d 01 40 05 ed 0d  01 4a 05 3a 0d 01 54 09  |i%..@....J.:..T.|
00000270  73 25 3d 36 34 0d 01 5e  05 3a 0d 01 68 3d 68 65  |s%=64..^.:..h=he|
00000280  61 64 73 69 7a 65 25 20  3d 20 73 25 2a 73 25 2f  |adsize% = s%*s%/|
00000290  32 2a 38 20 3a 20 20 20  20 f4 20 73 25 20 63 6f  |2*8 :    . s% co|
000002a0  6c 73 2c 20 73 25 2f 32  20 72 6f 77 73 2c 20 38  |ls, s%/2 rows, 8|
000002b0  20 73 68 69 66 74 73 0d  01 72 2d 64 61 74 61 73  | shifts..r-datas|
000002c0  69 7a 65 25 20 3d 20 68  65 61 64 73 69 7a 65 25  |ize% = headsize%|
000002d0  2a 6e 25 20 3a 20 f4 20  6e 25 20 72 6f 74 61 74  |*n% : . n% rotat|
000002e0  69 6f 6e 73 0d 01 7c 15  de 20 64 61 74 61 25 20  |ions..|.. data% |
000002f0  64 61 74 61 73 69 7a 65  25 0d 01 86 0f 64 70 74  |datasize%....dpt|
00000300  72 25 3d 64 61 74 61 25  0d 01 90 05 3a 0d 01 9a  |r%=data%....:...|
00000310  0e 6f 6c 64 6d 6f 64 65  25 3d eb 0d 01 a4 33 c8  |.oldmode%=....3.|
00000320  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000330  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
00000340  34 2c 22 54 6d 70 22 20  b8 20 2c 74 68 25 0d 01  |4,"Tmp" . ,th%..|
00000350  ae 10 c8 99 20 36 2c 32  32 39 2c 30 2c 30 0d 01  |.... 6,229,0,0..|
00000360  b8 62 ee 20 85 20 f1 20  f6 24 3b 22 20 61 74 20  |.b. . . .$;" at |
00000370  6c 69 6e 65 20 22 3b 9e  3a 68 3d a5 3a c8 99 20  |line ";.:h=.:.. |
00000380  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000390  2c 74 68 25 2c 26 34 42  35 33 34 31 35 34 3a eb  |,th%,&4B534154:.|
000003a0  20 6f 6c 64 6d 6f 64 65  25 3a c8 99 20 22 48 6f  | oldmode%:.. "Ho|
000003b0  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 22 3a e0  |urglass_Smash":.|
000003c0  0d 01 c2 08 eb 20 31 32  0d 01 cc 10 2a 52 75 6e  |..... 12....*Run|
000003d0  20 50 61 6c 65 74 74 65  0d 01 d6 0e c8 91 20 36  | Palette...... 6|
000003e0  34 30 2c 35 31 32 0d 01  e0 2b ef 20 32 34 2c 28  |40,512...+. 24,(|
000003f0  2d 73 25 2b 38 29 2a 34  3b 2d 73 25 2a 34 3b 28  |-s%+8)*4;-s%*4;(|
00000400  73 25 2b 38 29 2a 34 2d  31 3b 73 25 2a 34 2d 31  |s%+8)*4-1;s%*4-1|
00000410  3b 0d 01 ea 0c fb 20 31  32 38 2b 31 35 0d 01 f4  |;..... 128+15...|
00000420  11 e3 20 69 25 3d 30 20  b8 20 6e 25 2d 31 0d 01  |.. i%=0 . n%-1..|
00000430  fe 06 20 db 0d 02 08 1a  20 63 73 25 3d 34 2a 36  |.. ..... cs%=4*6|
00000440  35 35 33 36 2a 9b 28 61  6e 28 69 25 29 29 0d 02  |5536*.(an(i%))..|
00000450  12 1a 20 73 6e 25 3d 34  2a 36 35 35 33 36 2a b5  |.. sn%=4*65536*.|
00000460  28 61 6e 28 69 25 29 29  0d 02 1c 11 20 74 72 61  |(an(i%)).... tra|
00000470  6e 73 25 21 30 3d 63 73  25 0d 02 26 12 20 74 72  |ns%!0=cs%..&. tr|
00000480  61 6e 73 25 21 34 3d 2d  73 6e 25 0d 02 30 11 20  |ans%!4=-sn%..0. |
00000490  74 72 61 6e 73 25 21 38  3d 73 6e 25 0d 02 3a 12  |trans%!8=sn%..:.|
000004a0  20 74 72 61 6e 73 25 21  31 32 3d 63 73 25 0d 02  | trans%!12=cs%..|
000004b0  44 29 20 74 72 61 6e 73  25 21 31 36 3d 2d 73 25  |D) trans%!16=-s%|
000004c0  2a 34 2a 32 35 36 2a b5  28 61 6e 28 69 25 29 2b  |*4*256*.(an(i%)+|
000004d0  af 2f 34 29 2a b6 32 0d  02 4e 29 20 74 72 61 6e  |./4)*.2..N) tran|
000004e0  73 25 21 32 30 3d 2d 73  25 2a 34 2a 32 35 36 2a  |s%!20=-s%*4*256*|
000004f0  9b 28 61 6e 28 69 25 29  2b af 2f 34 29 2a b6 32  |.(an(i%)+./4)*.2|
00000500  0d 02 58 34 20 c8 99 20  26 32 45 2c 35 31 32 2b  |..X4 .. &2E,512+|
00000510  35 36 2c 73 72 63 5f 61  72 65 61 25 2c 73 72 63  |56,src_area%,src|
00000520  5f 73 70 72 25 2c 30 2c  2c 30 2c 74 72 61 6e 73  |_spr%,0,,0,trans|
00000530  25 2c 2c 30 0d 02 62 18  20 2a 53 63 72 65 65 6e  |%,,0..b. *Screen|
00000540  73 61 76 65 20 44 75 6d  6d 79 49 6e 0d 02 6c 4e  |save DummyIn..lN|
00000550  20 c8 99 20 22 57 69 6d  70 5f 53 74 61 72 74 54  | .. "Wimp_StartT|
00000560  61 73 6b 22 2c 22 43 68  61 6e 67 65 46 53 49 20  |ask","ChangeFSI |
00000570  44 75 6d 6d 79 49 6e 20  44 75 6d 6d 79 4f 75 74  |DummyIn DummyOut|
00000580  20 31 32 72 20 31 3a 34  20 2d 73 68 61 72 70 65  | 12r 1:4 -sharpe|
00000590  6e 20 2d 6e 6f 6d 6f 64  65 22 0d 02 76 11 20 c8  |n -nomode"..v. .|
000005a0  99 20 36 2c 32 32 39 2c  30 2c 30 0d 02 80 2e 20  |. 6,229,0,0.... |
000005b0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000005c0  2c 20 26 31 30 41 2c 20  61 72 65 61 25 2c 20 22  |, &10A, area%, "|
000005d0  44 75 6d 6d 79 4f 75 74  22 0d 02 8a 1b 20 73 70  |DummyOut".... sp|
000005e0  72 25 20 3d 20 61 72 65  61 25 20 2b 20 61 72 65  |r% = area% + are|
000005f0  61 25 21 38 0d 02 94 1e  20 f2 67 65 6e 68 65 61  |a%!8.... .genhea|
00000600  64 64 61 74 61 28 64 70  74 72 25 2c 20 73 70 72  |ddata(dptr%, spr|
00000610  25 29 0d 02 9e 15 20 64  70 74 72 25 2b 3d 68 65  |%).... dptr%+=he|
00000620  61 64 73 69 7a 65 25 0d  02 a8 08 ed 20 69 25 0d  |adsize%..... i%.|
00000630  02 b2 25 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..%.. "Wimp_Clos|
00000640  65 44 6f 77 6e 22 2c 74  68 25 2c 26 34 42 35 33  |eDown",th%,&4B53|
00000650  34 31 35 34 0d 02 bc 09  ee 20 85 20 87 0d 02 c6  |4154..... . ....|
00000660  05 3a 0d 02 d0 0e eb 20  6f 6c 64 6d 6f 64 65 25  |.:..... oldmode%|
00000670  0d 02 da 3f c8 99 20 22  4f 53 5f 46 69 6c 65 22  |...?.. "OS_File"|
00000680  2c 20 31 30 2c 20 22 48  65 61 64 44 61 74 61 22  |, 10, "HeadData"|
00000690  2c 20 26 46 46 44 2c 2c  20 64 61 74 61 25 2c 20  |, &FFD,, data%, |
000006a0  64 61 74 61 25 2b 64 61  74 61 73 69 7a 65 25 0d  |data%+datasize%.|
000006b0  02 e4 05 e0 0d 02 ee 05  3a 0d 02 f8 05 3a 0d 03  |........:....:..|
000006c0  02 22 dd 20 f2 67 65 6e  68 65 61 64 64 61 74 61  |.". .genheaddata|
000006d0  28 64 61 74 61 70 74 72  25 2c 20 73 70 72 25 29  |(dataptr%, spr%)|
000006e0  0d 03 0c 2f 73 70 72 69  25 20 3d 20 73 70 72 25  |.../spri% = spr%|
000006f0  2b 73 70 72 25 21 33 32  3a f4 20 73 70 72 69 74  |+spr%!32:. sprit|
00000700  65 20 69 6d 61 67 65 20  70 6f 69 6e 74 65 72 0d  |e image pointer.|
00000710  03 16 15 6c 61 73 74 69  6d 61 67 65 77 6f 72 64  |...lastimageword|
00000720  25 3d 20 30 0d 03 20 1d  6c 61 73 74 6d 61 73 6b  |%= 0.. .lastmask|
00000730  77 6f 72 64 25 20 3d 20  26 46 46 46 46 46 46 46  |word% = &FFFFFFF|
00000740  46 0d 03 2a 05 3a 0d 03  34 1b e3 20 6c 6f 6f 70  |F..*.:..4.. loop|
00000750  25 20 3d 20 31 20 b8 20  73 25 2a 73 25 2f 32 2f  |% = 1 . s%*s%/2/|
00000760  38 0d 03 3e 22 20 69 6d  61 67 65 77 6f 72 64 25  |8..>" imageword%|
00000770  20 3d 20 21 73 70 72 69  25 3a 20 73 70 72 69 25  | = !spri%: spri%|
00000780  2b 3d 34 0d 03 48 23 20  6d 61 73 6b 77 6f 72 64  |+=4..H# maskword|
00000790  25 20 20 3d 20 a4 6d 61  73 6b 28 69 6d 61 67 65  |%  = .mask(image|
000007a0  77 6f 72 64 25 29 0d 03  52 2b 20 f4 20 4e 6f 77  |word%)..R+ . Now|
000007b0  20 65 6e 73 75 72 65 20  6d 61 73 6b 65 64 20 70  | ensure masked p|
000007c0  69 78 65 6c 73 20 61 72  65 20 7a 65 72 6f 65 64  |ixels are zeroed|
000007d0  2c 0d 03 5c 28 20 69 6d  61 67 65 77 6f 72 64 25  |,..\( imageword%|
000007e0  20 3d 20 69 6d 61 67 65  77 6f 72 64 25 20 80 20  | = imageword% . |
000007f0  6d 61 73 6b 77 6f 72 64  25 0d 03 66 19 20 f4 20  |maskword%..f. . |
00000800  74 68 65 6e 20 4e 4f 54  20 74 68 65 20 6d 61 73  |then NOT the mas|
00000810  6b 2e 0d 03 70 1d 20 6d  61 73 6b 77 6f 72 64 25  |k...p. maskword%|
00000820  20 20 3d 20 ac 20 6d 61  73 6b 77 6f 72 64 25 0d  |  = . maskword%.|
00000830  03 7a 13 20 6f 66 66 73  65 74 25 20 20 20 20 3d  |.z. offset%    =|
00000840  20 30 0d 03 84 1c 20 69  77 25 20 20 20 20 20 20  | 0.... iw%      |
00000850  20 20 3d 20 69 6d 61 67  65 77 6f 72 64 25 0d 03  |  = imageword%..|
00000860  8e 1b 20 6d 77 25 20 20  20 20 20 20 20 20 3d 20  |.. mw%        = |
00000870  6d 61 73 6b 77 6f 72 64  25 0d 03 98 18 20 e3 20  |maskword%.... . |
00000880  69 6e 73 74 61 6e 63 65  25 20 3d 20 30 20 b8 20  |instance% = 0 . |
00000890  37 0d 03 a2 20 20 20 64  61 74 61 70 74 72 25 21  |7...   dataptr%!|
000008a0  28 6f 66 66 73 65 74 25  2b 30 29 20 3d 20 69 77  |(offset%+0) = iw|
000008b0  25 0d 03 ac 20 20 20 64  61 74 61 70 74 72 25 21  |%...   dataptr%!|
000008c0  28 6f 66 66 73 65 74 25  2b 34 29 20 3d 20 6d 77  |(offset%+4) = mw|
000008d0  25 0d 03 b6 2c 20 20 69  77 25 20 3d 20 28 69 77  |%...,  iw% = (iw|
000008e0  25 3c 3c 34 29 20 84 20  28 6c 61 73 74 69 6d 61  |%<<4) . (lastima|
000008f0  67 65 77 6f 72 64 25 3e  3e 3e 32 38 29 0d 03 c0  |geword%>>>28)...|
00000900  28 20 20 6c 61 73 74 69  6d 61 67 65 77 6f 72 64  |(  lastimageword|
00000910  25 20 3d 20 6c 61 73 74  69 6d 61 67 65 77 6f 72  |% = lastimagewor|
00000920  64 25 3c 3c 34 0d 03 ca  2b 20 20 6d 77 25 20 3d  |d%<<4...+  mw% =|
00000930  20 28 6d 77 25 3c 3c 34  29 20 84 20 28 6c 61 73  | (mw%<<4) . (las|
00000940  74 6d 61 73 6b 77 6f 72  64 25 3e 3e 3e 32 38 29  |tmaskword%>>>28)|
00000950  0d 03 d4 27 20 20 6c 61  73 74 6d 61 73 6b 77 6f  |...'  lastmaskwo|
00000960  72 64 25 20 20 3d 20 6c  61 73 74 6d 61 73 6b 77  |rd%  = lastmaskw|
00000970  6f 72 64 25 3c 3c 34 0d  03 de 16 20 20 6f 66 66  |ord%<<4....  off|
00000980  73 65 74 25 2b 3d 73 25  2a 73 25 2f 32 0d 03 e8  |set%+=s%*s%/2...|
00000990  06 20 ed 0d 03 f2 10 20  64 61 74 61 70 74 72 25  |. ..... dataptr%|
000009a0  2b 3d 38 0d 03 fc 20 20  6c 61 73 74 69 6d 61 67  |+=8...  lastimag|
000009b0  65 77 6f 72 64 25 20 3d  20 69 6d 61 67 65 77 6f  |eword% = imagewo|
000009c0  72 64 25 0d 04 06 1f 20  6c 61 73 74 6d 61 73 6b  |rd%.... lastmask|
000009d0  77 6f 72 64 25 20 20 3d  20 6d 61 73 6b 77 6f 72  |word%  = maskwor|
000009e0  64 25 0d 04 10 05 ed 0d  04 1a 05 3a 0d 04 24 05  |d%.........:..$.|
000009f0  e1 0d 04 2e 05 3a 0d 04  38 40 dd 20 a4 6d 61 73  |.....:..8@. .mas|
00000a00  6b 28 69 25 29 20 3a 20  20 f4 20 57 65 20 75 73  |k(i%) :  . We us|
00000a10  65 20 70 69 78 65 6c 20  63 6f 6c 6f 75 72 20 31  |e pixel colour 1|
00000a20  35 20 74 6f 20 6d 61 72  6b 20 73 6f 75 72 63 65  |5 to mark source|
00000a30  20 69 6d 61 67 65 0d 04  42 2e 3a 20 20 20 20 20  | image..B.:     |
00000a40  20 20 20 20 20 20 20 20  20 20 20 20 f4 20 70 69  |            . pi|
00000a50  78 65 6c 73 20 61 73 20  74 72 61 6e 73 70 61 72  |xels as transpar|
00000a60  65 6e 74 2e 0d 04 4c 3d  ea 20 63 25 2c 76 25 2c  |ent...L=. c%,v%,|
00000a70  6f 25 2c 6b 25 3a f4 20  54 68 69 73 20 66 75 6e  |o%,k%:. This fun|
00000a80  63 74 69 6f 6e 20 63 6f  6e 76 65 72 74 73 20 61  |ction converts a|
00000a90  20 77 6f 72 64 20 6f 66  20 69 6d 61 67 65 20 6f  | word of image o|
00000aa0  6e 0d 04 56 3f e3 20 63  25 3d 30 20 b8 20 37 20  |n..V?. c%=0 . 7 |
00000ab0  20 20 20 3a f4 20 74 68  65 20 61 62 6f 76 65 20  |   :. the above |
00000ac0  62 61 73 69 73 20 69 6e  74 6f 20 61 20 63 6f 6e  |basis into a con|
00000ad0  76 65 6e 74 69 6f 6e 61  6c 20 73 70 72 69 74 65  |ventional sprite|
00000ae0  0d 04 60 20 20 76 25 3d  69 25 80 31 35 20 20 20  |..`  v%=i%.15   |
00000af0  20 20 20 3a f4 20 6d 61  73 6b 20 77 6f 72 64 2e  |   :. mask word.|
00000b00  0d 04 6a 0e 20 69 25 3d  69 25 3e 3e 3e 34 0d 04  |..j. i%=i%>>>4..|
00000b10  74 19 20 e7 20 76 25 3d  31 35 20 6f 25 3d 30 20  |t. . v%=15 o%=0 |
00000b20  8b 20 6f 25 3d 31 35 0d  04 7e 19 20 6b 25 3d 28  |. o%=15..~. k%=(|
00000b30  6b 25 3e 3e 3e 34 29 84  28 6f 25 3c 3c 32 38 29  |k%>>>4).(o%<<28)|
00000b40  0d 04 88 05 ed 0d 04 92  07 3d 6b 25 0d ff        |.........=k%..|
00000b4e