� >Make4bpp
� By Dave Lawrence
� for *info May 1995
	�init
� "Filename    : "leaf$
/� "Width (8)   : "xsize : � xsize=0 xsize=8
 0� "Height (17) : "ysize : � ysize=0 ysize=17
�
�;ș spop,&10F,spr,"x"+�xsize+"y"+�ysize+"s12d3",0,1,1,25
�
�� c=32 � 255
�  name$=�"00"+�~c,2)+":"
�,  � c>31 � c<>127 name$+=�c � name$+="*"
�-  ș spop,&10F,spr,name$,1,xsize,ysize,27

%  ș spop,&118,spr,name$ � ,,addr

  pal=addr+44

  � i=0 � 15

"   !pal=pal(i):pal!4=pal(i)

,
   pal+=8

6  �

��

�"ș spop,&10C,spr,"4bpp."+leaf$

��

�

�� �init

�5ș "OS_SWINumberFromString",,"OS_SpriteOp" � spop

�4font_dir$="ADFS::Alpha.$.!Boot.Resources.!Fonts"

�� spr 100*1024,buf 256

�!spr=100*1024

�spr!8=16

�ș spop,&109,spr

�
� pal(15)
� c=0 � 15
 w=0
 � s=8 � 28 � 4
&  w+=(c<<s)
0 �
: pal(15-c)=w
D�
N�
�

00000000  0d 00 0a 0f f4 20 3e 4d  61 6b 65 34 62 70 70 0d  |..... >Make4bpp.|
00000010  00 0b 16 f4 20 42 79 20  44 61 76 65 20 4c 61 77  |.... By Dave Law|
00000020  72 65 6e 63 65 0d 00 0c  18 f4 20 66 6f 72 20 2a  |rence..... for *|
00000030  69 6e 66 6f 20 4d 61 79  20 31 39 39 35 0d 00 14  |info May 1995...|
00000040  09 f2 69 6e 69 74 0d 00  1e 1b e8 20 22 46 69 6c  |..init..... "Fil|
00000050  65 6e 61 6d 65 20 20 20  20 3a 20 22 6c 65 61 66  |ename    : "leaf|
00000060  24 0d 00 1f 2f e8 20 22  57 69 64 74 68 20 28 38  |$.../. "Width (8|
00000070  29 20 20 20 3a 20 22 78  73 69 7a 65 20 3a 20 e7  |)   : "xsize : .|
00000080  20 78 73 69 7a 65 3d 30  20 78 73 69 7a 65 3d 38  | xsize=0 xsize=8|
00000090  0d 00 20 30 e8 20 22 48  65 69 67 68 74 20 28 31  |.. 0. "Height (1|
000000a0  37 29 20 3a 20 22 79 73  69 7a 65 20 3a 20 e7 20  |7) : "ysize : . |
000000b0  79 73 69 7a 65 3d 30 20  79 73 69 7a 65 3d 31 37  |ysize=0 ysize=17|
000000c0  0d 00 aa 04 0d 00 b4 3b  c8 99 20 73 70 6f 70 2c  |.......;.. spop,|
000000d0  26 31 30 46 2c 73 70 72  2c 22 78 22 2b c3 78 73  |&10F,spr,"x"+.xs|
000000e0  69 7a 65 2b 22 79 22 2b  c3 79 73 69 7a 65 2b 22  |ize+"y"+.ysize+"|
000000f0  73 31 32 64 33 22 2c 30  2c 31 2c 31 2c 32 35 0d  |s12d3",0,1,1,25.|
00000100  00 be 04 0d 00 d3 10 e3  20 63 3d 33 32 20 b8 20  |........ c=32 . |
00000110  32 35 35 0d 00 e6 1c 20  20 6e 61 6d 65 24 3d c2  |255....  name$=.|
00000120  22 30 30 22 2b c3 7e 63  2c 32 29 2b 22 3a 22 0d  |"00"+.~c,2)+":".|
00000130  00 f0 2c 20 20 e7 20 63  3e 33 31 20 80 20 63 3c  |..,  . c>31 . c<|
00000140  3e 31 32 37 20 6e 61 6d  65 24 2b 3d bd 63 20 8b  |>127 name$+=.c .|
00000150  20 6e 61 6d 65 24 2b 3d  22 2a 22 0d 00 fa 2d 20  | name$+="*"...- |
00000160  20 c8 99 20 73 70 6f 70  2c 26 31 30 46 2c 73 70  | .. spop,&10F,sp|
00000170  72 2c 6e 61 6d 65 24 2c  31 2c 78 73 69 7a 65 2c  |r,name$,1,xsize,|
00000180  79 73 69 7a 65 2c 32 37  0d 01 04 25 20 20 c8 99  |ysize,27...%  ..|
00000190  20 73 70 6f 70 2c 26 31  31 38 2c 73 70 72 2c 6e  | spop,&118,spr,n|
000001a0  61 6d 65 24 20 b8 20 2c  2c 61 64 64 72 0d 01 0e  |ame$ . ,,addr...|
000001b0  11 20 20 70 61 6c 3d 61  64 64 72 2b 34 34 0d 01  |.  pal=addr+44..|
000001c0  18 10 20 20 e3 20 69 3d  30 20 b8 20 31 35 0d 01  |..  . i=0 . 15..|
000001d0  22 1f 20 20 20 21 70 61  6c 3d 70 61 6c 28 69 29  |".   !pal=pal(i)|
000001e0  3a 70 61 6c 21 34 3d 70  61 6c 28 69 29 0d 01 2c  |:pal!4=pal(i)..,|
000001f0  0d 20 20 20 70 61 6c 2b  3d 38 0d 01 36 07 20 20  |.   pal+=8..6.  |
00000200  ed 0d 01 90 05 ed 0d 01  9a 22 c8 99 20 73 70 6f  |.........".. spo|
00000210  70 2c 26 31 30 43 2c 73  70 72 2c 22 34 62 70 70  |p,&10C,spr,"4bpp|
00000220  2e 22 2b 6c 65 61 66 24  0d 01 a4 05 e0 0d 01 ae  |."+leaf$........|
00000230  04 0d 01 b8 0b dd 20 f2  69 6e 69 74 0d 01 c2 35  |...... .init...5|
00000240  c8 99 20 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |.. "OS_SWINumber|
00000250  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 4f 53  |FromString",,"OS|
00000260  5f 53 70 72 69 74 65 4f  70 22 20 b8 20 73 70 6f  |_SpriteOp" . spo|
00000270  70 0d 01 cc 34 66 6f 6e  74 5f 64 69 72 24 3d 22  |p...4font_dir$="|
00000280  41 44 46 53 3a 3a 41 6c  70 68 61 2e 24 2e 21 42  |ADFS::Alpha.$.!B|
00000290  6f 6f 74 2e 52 65 73 6f  75 72 63 65 73 2e 21 46  |oot.Resources.!F|
000002a0  6f 6e 74 73 22 0d 01 d6  1a de 20 73 70 72 20 31  |onts"..... spr 1|
000002b0  30 30 2a 31 30 32 34 2c  62 75 66 20 32 35 36 0d  |00*1024,buf 256.|
000002c0  01 e0 11 21 73 70 72 3d  31 30 30 2a 31 30 32 34  |...!spr=100*1024|
000002d0  0d 01 ea 0c 73 70 72 21  38 3d 31 36 0d 01 f4 14  |....spr!8=16....|
000002e0  c8 99 20 73 70 6f 70 2c  26 31 30 39 2c 73 70 72  |.. spop,&109,spr|
000002f0  0d 01 fe 0d de 20 70 61  6c 28 31 35 29 0d 02 08  |..... pal(15)...|
00000300  0e e3 20 63 3d 30 20 b8  20 31 35 0d 02 12 08 20  |.. c=0 . 15.... |
00000310  77 3d 30 0d 02 1c 13 20  e3 20 73 3d 38 20 b8 20  |w=0.... . s=8 . |
00000320  32 38 20 88 20 34 0d 02  26 0f 20 20 77 2b 3d 28  |28 . 4..&.  w+=(|
00000330  63 3c 3c 73 29 0d 02 30  06 20 ed 0d 02 3a 10 20  |c<<s)..0. ...:. |
00000340  70 61 6c 28 31 35 2d 63  29 3d 77 0d 02 44 05 ed  |pal(15-c)=w..D..|
00000350  0d 02 4e 05 e1 0d ff                              |..N....|
00000357