� NBfill2_Ani
� Original by Jan Vibe
'� Updated by Philip Mellor (age 15)
(� For 32-bit machines
2� Acorn User/Star Info
<:
F�9:�
Pdummy=�(-�)
Z� a(16),b(16),c(16)
d� I=0 � 15
n� I,I*17,I*17,I*8.5
x"a(I)=I*17:b(I)=I*17:c(I)=I*8.5
��
�"� C%(4):�N%=1�4:C%(N%)=�(15):�
�)�N%=1�300:�C%(1):Ȓ �(1280),�(1024):�
��F(640,512)
�!� �(2)=1 ad=�(16) � ad=-�(16)
�!� �(2)=1 bd=�(16) � bd=-�(16)
�!� �(2)=1 cd=�(16) � cd=-�(16)
��
�!a(16)+=ad:b(16)+=bd:c(16)+=cd
�� ad>0 � bd>0 � cd>0 ad=-ad
�� ad<0 � bd<0 � cd<0 cd=-cd
�)� �(10)=1 ad=�(16):� �(2)=1 ad=-�(16)
�)� �(10)=1 bd=�(16):� �(2)=1 bd=-�(16)

)� �(10)=1 cd=�(16):� �(2)=1 cd=-�(16)

� a(16)<0 a(16)=0:ad=�(16)

#� a(16)>255 a(16)=255:ad=-�(16)

"� b(16)<0 b(16)=0:bd=�(16)

,#� b(16)>255 b(16)=255:bd=-�(16)

6� c(16)<0 c(16)=0:cd=�(16)

@#� c(16)>255 c(16)=255:cd=-�(16)

J� I=0 � 15

Ta(I)=a(I+1)

^b(I)=b(I+1)

hc(I)=c(I+1)

r� I,a(I),b(I),c(I)

|�

�	Ȗ:Ȗ

��0

��

�

���F(X%,Y%)

�1� �X%,Y%)=0 � C%(1):Ȓ X%,Y%:�F1(X%,Y%,4,0,1)

��

�

���F1(X1%,Y1%,DX%,DY%,CO%)

�� X%,Y%,F%

�X%=X1%:Y%=Y1%

�*ȕ �X%+DX%,Y%+DY%)=0 X%+=DX%:Y%+=DY%:�

�
� C%(CO%)
� DX%<>0 �
step=�(((X%-X1%)/4)/28)
#� X1%<X% charlie=4 � charlie=-4
&col=1:count=0:dir=1:� col
0� bert=X1% � X% � charlie
:Ȓ bert,Y%
Dcount+=1:� count>=step �
Ncount=0
X$col+=dir:� col>=14 col=14:dir=-1
b� col<1 col=1:dir=1
l� col+1
v�
��
��
�step=�(((Y%-Y1%)/4)/28)
�#� Y1%<Y% charlie=4 � charlie=-4
�col=1:count=0:dir=1:� col
�� bert=Y1% � Y% � charlie
�Ȓ X%,bert
�count+=1:� count>=step �
�count=0
�$col+=dir:� col>=14 col=14:dir=-1
�� col<1 col=1:dir=1
�� col+1
��
�
�
�LINE X1%,Y1%,X%,Y%
 �
*F%=0
4
Ȏ � �
>'� �X%+4,Y%)=0:�F1(X%,Y%,4,0,1):F%=1
H'� �X%,Y%+4)=0:�F1(X%,Y%,0,4,2):F%=1
R(� �X%-4,Y%)=0:�F1(X%,Y%,-4,0,3):F%=1
\(� �X%,Y%-4)=0:�F1(X%,Y%,0,-4,4):F%=1
f�
p� F%=0 X%-=DX%:Y%-=DY%
z� X%=X1% � Y%=Y1%
��
�

00000000  0d 00 0a 11 f4 20 4e 42  66 69 6c 6c 32 5f 41 6e  |..... NBfill2_An|
00000010  69 0d 00 14 1a f4 20 4f  72 69 67 69 6e 61 6c 20  |i..... Original |
00000020  62 79 20 4a 61 6e 20 56  69 62 65 0d 00 1e 27 f4  |by Jan Vibe...'.|
00000030  20 55 70 64 61 74 65 64  20 62 79 20 50 68 69 6c  | Updated by Phil|
00000040  69 70 20 4d 65 6c 6c 6f  72 20 28 61 67 65 20 31  |ip Mellor (age 1|
00000050  35 29 0d 00 28 19 f4 20  46 6f 72 20 33 32 2d 62  |5)..(.. For 32-b|
00000060  69 74 20 6d 61 63 68 69  6e 65 73 0d 00 32 1a f4  |it machines..2..|
00000070  20 41 63 6f 72 6e 20 55  73 65 72 2f 53 74 61 72  | Acorn User/Star|
00000080  20 49 6e 66 6f 0d 00 3c  05 3a 0d 00 46 08 eb 39  | Info..<.:..F..9|
00000090  3a 87 0d 00 50 0f 64 75  6d 6d 79 3d b3 28 2d 91  |:...P.dummy=.(-.|
000000a0  29 0d 00 5a 17 de 20 61  28 31 36 29 2c 62 28 31  |)..Z.. a(16),b(1|
000000b0  36 29 2c 63 28 31 36 29  0d 00 64 0e e3 20 49 3d  |6),c(16)..d.. I=|
000000c0  30 20 b8 20 31 35 0d 00  6e 17 fb 20 49 2c 49 2a  |0 . 15..n.. I,I*|
000000d0  31 37 2c 49 2a 31 37 2c  49 2a 38 2e 35 0d 00 78  |17,I*17,I*8.5..x|
000000e0  22 61 28 49 29 3d 49 2a  31 37 3a 62 28 49 29 3d  |"a(I)=I*17:b(I)=|
000000f0  49 2a 31 37 3a 63 28 49  29 3d 49 2a 38 2e 35 0d  |I*17:c(I)=I*8.5.|
00000100  00 82 05 ed 0d 00 8c 22  de 20 43 25 28 34 29 3a  |.......". C%(4):|
00000110  e3 4e 25 3d 31 b8 34 3a  43 25 28 4e 25 29 3d b3  |.N%=1.4:C%(N%)=.|
00000120  28 31 35 29 3a ed 0d 00  96 29 e3 4e 25 3d 31 b8  |(15):....).N%=1.|
00000130  33 30 30 3a e6 43 25 28  31 29 3a c8 92 20 b3 28  |300:.C%(1):.. .(|
00000140  31 32 38 30 29 2c b3 28  31 30 32 34 29 3a ed 0d  |1280),.(1024):..|
00000150  00 a0 0f f2 46 28 36 34  30 2c 35 31 32 29 0d 00  |....F(640,512)..|
00000160  aa 21 e7 20 b3 28 32 29  3d 31 20 61 64 3d b3 28  |.!. .(2)=1 ad=.(|
00000170  31 36 29 20 8b 20 61 64  3d 2d b3 28 31 36 29 0d  |16) . ad=-.(16).|
00000180  00 b4 21 e7 20 b3 28 32  29 3d 31 20 62 64 3d b3  |..!. .(2)=1 bd=.|
00000190  28 31 36 29 20 8b 20 62  64 3d 2d b3 28 31 36 29  |(16) . bd=-.(16)|
000001a0  0d 00 be 21 e7 20 b3 28  32 29 3d 31 20 63 64 3d  |...!. .(2)=1 cd=|
000001b0  b3 28 31 36 29 20 8b 20  63 64 3d 2d b3 28 31 36  |.(16) . cd=-.(16|
000001c0  29 0d 00 c8 05 f5 0d 00  d2 21 61 28 31 36 29 2b  |)........!a(16)+|
000001d0  3d 61 64 3a 62 28 31 36  29 2b 3d 62 64 3a 63 28  |=ad:b(16)+=bd:c(|
000001e0  31 36 29 2b 3d 63 64 0d  00 dc 1f e7 20 61 64 3e  |16)+=cd..... ad>|
000001f0  30 20 80 20 62 64 3e 30  20 80 20 63 64 3e 30 20  |0 . bd>0 . cd>0 |
00000200  61 64 3d 2d 61 64 0d 00  e6 1f e7 20 61 64 3c 30  |ad=-ad..... ad<0|
00000210  20 80 20 62 64 3c 30 20  80 20 63 64 3c 30 20 63  | . bd<0 . cd<0 c|
00000220  64 3d 2d 63 64 0d 00 f0  29 e7 20 b3 28 31 30 29  |d=-cd...). .(10)|
00000230  3d 31 20 61 64 3d b3 28  31 36 29 3a e7 20 b3 28  |=1 ad=.(16):. .(|
00000240  32 29 3d 31 20 61 64 3d  2d b3 28 31 36 29 0d 00  |2)=1 ad=-.(16)..|
00000250  fa 29 e7 20 b3 28 31 30  29 3d 31 20 62 64 3d b3  |.). .(10)=1 bd=.|
00000260  28 31 36 29 3a e7 20 b3  28 32 29 3d 31 20 62 64  |(16):. .(2)=1 bd|
00000270  3d 2d b3 28 31 36 29 0d  01 04 29 e7 20 b3 28 31  |=-.(16)...). .(1|
00000280  30 29 3d 31 20 63 64 3d  b3 28 31 36 29 3a e7 20  |0)=1 cd=.(16):. |
00000290  b3 28 32 29 3d 31 20 63  64 3d 2d b3 28 31 36 29  |.(2)=1 cd=-.(16)|
000002a0  0d 01 0e 1e e7 20 61 28  31 36 29 3c 30 20 61 28  |..... a(16)<0 a(|
000002b0  31 36 29 3d 30 3a 61 64  3d b3 28 31 36 29 0d 01  |16)=0:ad=.(16)..|
000002c0  18 23 e7 20 61 28 31 36  29 3e 32 35 35 20 61 28  |.#. a(16)>255 a(|
000002d0  31 36 29 3d 32 35 35 3a  61 64 3d 2d b3 28 31 36  |16)=255:ad=-.(16|
000002e0  29 0d 01 22 1e e7 20 62  28 31 36 29 3c 30 20 62  |)..".. b(16)<0 b|
000002f0  28 31 36 29 3d 30 3a 62  64 3d b3 28 31 36 29 0d  |(16)=0:bd=.(16).|
00000300  01 2c 23 e7 20 62 28 31  36 29 3e 32 35 35 20 62  |.,#. b(16)>255 b|
00000310  28 31 36 29 3d 32 35 35  3a 62 64 3d 2d b3 28 31  |(16)=255:bd=-.(1|
00000320  36 29 0d 01 36 1e e7 20  63 28 31 36 29 3c 30 20  |6)..6.. c(16)<0 |
00000330  63 28 31 36 29 3d 30 3a  63 64 3d b3 28 31 36 29  |c(16)=0:cd=.(16)|
00000340  0d 01 40 23 e7 20 63 28  31 36 29 3e 32 35 35 20  |..@#. c(16)>255 |
00000350  63 28 31 36 29 3d 32 35  35 3a 63 64 3d 2d b3 28  |c(16)=255:cd=-.(|
00000360  31 36 29 0d 01 4a 0e e3  20 49 3d 30 20 b8 20 31  |16)..J.. I=0 . 1|
00000370  35 0d 01 54 0f 61 28 49  29 3d 61 28 49 2b 31 29  |5..T.a(I)=a(I+1)|
00000380  0d 01 5e 0f 62 28 49 29  3d 62 28 49 2b 31 29 0d  |..^.b(I)=b(I+1).|
00000390  01 68 0f 63 28 49 29 3d  63 28 49 2b 31 29 0d 01  |.h.c(I)=c(I+1)..|
000003a0  72 16 fb 20 49 2c 61 28  49 29 2c 62 28 49 29 2c  |r.. I,a(I),b(I),|
000003b0  63 28 49 29 0d 01 7c 05  ed 0d 01 86 09 c8 96 3a  |c(I)..|........:|
000003c0  c8 96 0d 01 90 06 fd 30  0d 01 9a 05 e0 0d 01 a4  |.......0........|
000003d0  04 0d 01 ae 0e dd f2 46  28 58 25 2c 59 25 29 0d  |.......F(X%,Y%).|
000003e0  01 b8 31 e7 20 b0 58 25  2c 59 25 29 3d 30 20 e6  |..1. .X%,Y%)=0 .|
000003f0  20 43 25 28 31 29 3a c8  92 20 58 25 2c 59 25 3a  | C%(1):.. X%,Y%:|
00000400  f2 46 31 28 58 25 2c 59  25 2c 34 2c 30 2c 31 29  |.F1(X%,Y%,4,0,1)|
00000410  0d 01 c2 05 e1 0d 01 cc  04 0d 01 d6 1d dd f2 46  |...............F|
00000420  31 28 58 31 25 2c 59 31  25 2c 44 58 25 2c 44 59  |1(X1%,Y1%,DX%,DY|
00000430  25 2c 43 4f 25 29 0d 01  e0 0e ea 20 58 25 2c 59  |%,CO%)..... X%,Y|
00000440  25 2c 46 25 0d 01 ea 11  58 25 3d 58 31 25 3a 59  |%,F%....X%=X1%:Y|
00000450  25 3d 59 31 25 0d 01 f4  2a c8 95 20 b0 58 25 2b  |%=Y1%...*.. .X%+|
00000460  44 58 25 2c 59 25 2b 44  59 25 29 3d 30 20 58 25  |DX%,Y%+DY%)=0 X%|
00000470  2b 3d 44 58 25 3a 59 25  2b 3d 44 59 25 3a ce 0d  |+=DX%:Y%+=DY%:..|
00000480  01 fe 0d e6 20 43 25 28  43 4f 25 29 0d 02 08 0e  |.... C%(CO%)....|
00000490  e7 20 44 58 25 3c 3e 30  20 8c 0d 02 12 1b 73 74  |. DX%<>0 .....st|
000004a0  65 70 3d 94 28 28 28 58  25 2d 58 31 25 29 2f 34  |ep=.(((X%-X1%)/4|
000004b0  29 2f 32 38 29 0d 02 1c  23 e7 20 58 31 25 3c 58  |)/28)...#. X1%<X|
000004c0  25 20 63 68 61 72 6c 69  65 3d 34 20 8b 20 63 68  |% charlie=4 . ch|
000004d0  61 72 6c 69 65 3d 2d 34  0d 02 26 1d 63 6f 6c 3d  |arlie=-4..&.col=|
000004e0  31 3a 63 6f 75 6e 74 3d  30 3a 64 69 72 3d 31 3a  |1:count=0:dir=1:|
000004f0  e6 20 63 6f 6c 0d 02 30  1d e3 20 62 65 72 74 3d  |. col..0.. bert=|
00000500  58 31 25 20 b8 20 58 25  20 88 20 63 68 61 72 6c  |X1% . X% . charl|
00000510  69 65 0d 02 3a 0e c8 92  20 62 65 72 74 2c 59 25  |ie..:... bert,Y%|
00000520  0d 02 44 1c 63 6f 75 6e  74 2b 3d 31 3a e7 20 63  |..D.count+=1:. c|
00000530  6f 75 6e 74 3e 3d 73 74  65 70 20 8c 0d 02 4e 0b  |ount>=step ...N.|
00000540  63 6f 75 6e 74 3d 30 0d  02 58 24 63 6f 6c 2b 3d  |count=0..X$col+=|
00000550  64 69 72 3a e7 20 63 6f  6c 3e 3d 31 34 20 63 6f  |dir:. col>=14 co|
00000560  6c 3d 31 34 3a 64 69 72  3d 2d 31 0d 02 62 17 e7  |l=14:dir=-1..b..|
00000570  20 63 6f 6c 3c 31 20 63  6f 6c 3d 31 3a 64 69 72  | col<1 col=1:dir|
00000580  3d 31 0d 02 6c 0b e6 20  63 6f 6c 2b 31 0d 02 76  |=1..l.. col+1..v|
00000590  05 cd 0d 02 80 05 ed 0d  02 8a 05 cc 0d 02 94 1b  |................|
000005a0  73 74 65 70 3d 94 28 28  28 59 25 2d 59 31 25 29  |step=.(((Y%-Y1%)|
000005b0  2f 34 29 2f 32 38 29 0d  02 9e 23 e7 20 59 31 25  |/4)/28)...#. Y1%|
000005c0  3c 59 25 20 63 68 61 72  6c 69 65 3d 34 20 8b 20  |<Y% charlie=4 . |
000005d0  63 68 61 72 6c 69 65 3d  2d 34 0d 02 a8 1d 63 6f  |charlie=-4....co|
000005e0  6c 3d 31 3a 63 6f 75 6e  74 3d 30 3a 64 69 72 3d  |l=1:count=0:dir=|
000005f0  31 3a e6 20 63 6f 6c 0d  02 b2 1d e3 20 62 65 72  |1:. col..... ber|
00000600  74 3d 59 31 25 20 b8 20  59 25 20 88 20 63 68 61  |t=Y1% . Y% . cha|
00000610  72 6c 69 65 0d 02 bc 0e  c8 92 20 58 25 2c 62 65  |rlie...... X%,be|
00000620  72 74 0d 02 c6 1c 63 6f  75 6e 74 2b 3d 31 3a e7  |rt....count+=1:.|
00000630  20 63 6f 75 6e 74 3e 3d  73 74 65 70 20 8c 0d 02  | count>=step ...|
00000640  d0 0b 63 6f 75 6e 74 3d  30 0d 02 da 24 63 6f 6c  |..count=0...$col|
00000650  2b 3d 64 69 72 3a e7 20  63 6f 6c 3e 3d 31 34 20  |+=dir:. col>=14 |
00000660  63 6f 6c 3d 31 34 3a 64  69 72 3d 2d 31 0d 02 e4  |col=14:dir=-1...|
00000670  17 e7 20 63 6f 6c 3c 31  20 63 6f 6c 3d 31 3a 64  |.. col<1 col=1:d|
00000680  69 72 3d 31 0d 02 ee 0b  e6 20 63 6f 6c 2b 31 0d  |ir=1..... col+1.|
00000690  02 f8 05 cd 0d 03 02 05  ed 0d 03 0c 05 cd 0d 03  |................|
000006a0  16 17 f4 4c 49 4e 45 20  58 31 25 2c 59 31 25 2c  |...LINE X1%,Y1%,|
000006b0  58 25 2c 59 25 0d 03 20  05 f5 0d 03 2a 08 46 25  |X%,Y%.. ....*.F%|
000006c0  3d 30 0d 03 34 0a c8 8e  20 b9 20 ca 0d 03 3e 27  |=0..4... . ...>'|
000006d0  c9 20 b0 58 25 2b 34 2c  59 25 29 3d 30 3a f2 46  |. .X%+4,Y%)=0:.F|
000006e0  31 28 58 25 2c 59 25 2c  34 2c 30 2c 31 29 3a 46  |1(X%,Y%,4,0,1):F|
000006f0  25 3d 31 0d 03 48 27 c9  20 b0 58 25 2c 59 25 2b  |%=1..H'. .X%,Y%+|
00000700  34 29 3d 30 3a f2 46 31  28 58 25 2c 59 25 2c 30  |4)=0:.F1(X%,Y%,0|
00000710  2c 34 2c 32 29 3a 46 25  3d 31 0d 03 52 28 c9 20  |,4,2):F%=1..R(. |
00000720  b0 58 25 2d 34 2c 59 25  29 3d 30 3a f2 46 31 28  |.X%-4,Y%)=0:.F1(|
00000730  58 25 2c 59 25 2c 2d 34  2c 30 2c 33 29 3a 46 25  |X%,Y%,-4,0,3):F%|
00000740  3d 31 0d 03 5c 28 c9 20  b0 58 25 2c 59 25 2d 34  |=1..\(. .X%,Y%-4|
00000750  29 3d 30 3a f2 46 31 28  58 25 2c 59 25 2c 30 2c  |)=0:.F1(X%,Y%,0,|
00000760  2d 34 2c 34 29 3a 46 25  3d 31 0d 03 66 05 cb 0d  |-4,4):F%=1..f...|
00000770  03 70 1a e7 20 46 25 3d  30 20 58 25 2d 3d 44 58  |.p.. F%=0 X%-=DX|
00000780  25 3a 59 25 2d 3d 44 59  25 0d 03 7a 15 fd 20 58  |%:Y%-=DY%..z.. X|
00000790  25 3d 58 31 25 20 80 20  59 25 3d 59 31 25 0d 03  |%=X1% . Y%=Y1%..|
000007a0  84 05 e1 0d ff                                    |.....|
000007a5