Home » Archimedes archive » Acorn User » AU 1994-03.adf » !StarInfo_StarInfo » Vibe/NBfill
Vibe/NBfill
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-03.adf » !StarInfo_StarInfo |
| Filename: | Vibe/NBfill |
| Read OK: | ✔ |
| File size: | 0297 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >NBfill
2REM By Jan Vibe
3REM For 32-bit machines
4REM (c) AU March 1994
5
6MODE13:OFF
7DIM C%(4):FORN%=1TO4:C%(N%)=RND(63):NEXT
8FORN%=1TO300:GCOLC%(RND(4)):POINT RND(1280),RND(1024):NEXT
9GCOL63:ELLIPSE 640,512,630,500:PROCF(640,512)
10END
11
12DEFPROCF(X%,Y%)
13IF POINT(X%,Y%)=0 GCOL C%(1):POINT X%,Y%:PROCF1(X%,Y%,4,0,1)
14ENDPROC
15
16DEFPROCF1(X1%,Y1%,DX%,DY%,CO%)
17LOCAL X%,Y%,F%
18X%=X1%:Y%=Y1%
19WHILE POINT(X%+DX%,Y%+DY%)=0 X%+=DX%:Y%+=DY%:ENDWHILE
20GCOL C%(CO%):LINE X1%,Y1%,X%,Y%
21REPEAT
22F%=0
23CASE TRUE OF
24WHEN POINT(X%+4,Y%)=0:PROCF1(X%,Y%,4,0,1):F%=1
25WHEN POINT(X%,Y%+4)=0:PROCF1(X%,Y%,0,4,2):F%=1
26WHEN POINT(X%-4,Y%)=0:PROCF1(X%,Y%,-4,0,3):F%=1
27WHEN POINT(X%,Y%-4)=0:PROCF1(X%,Y%,0,-4,4):F%=1
28ENDCASE
29IF F%=0 X%-=DX%:Y%-=DY%
30UNTIL X%=X1% AND Y%=Y1%
31ENDPROC
� >NBfill � By Jan Vibe � For 32-bit machines � (c) AU March 1994 �13:� "� C%(4):�N%=1�4:C%(N%)=�(63):� ,�N%=1�300:�C%(�(4)):Ȓ �(1280),�(1024):� &�63:ȝ 640,512,630,500:�F(640,512) � ��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%):� X1%,Y1%,X%,Y% � F%=0 Ȏ � � '� �X%+4,Y%)=0:�F1(X%,Y%,4,0,1):F%=1 '� �X%,Y%+4)=0:�F1(X%,Y%,0,4,2):F%=1 (� �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%=0 X%-=DX%:Y%-=DY% � X%=X1% � Y%=Y1% � �
00000000 0d 00 01 10 f4 20 20 20 20 3e 4e 42 66 69 6c 6c |..... >NBfill| 00000010 0d 00 02 12 f4 20 42 79 20 20 4a 61 6e 20 56 69 |..... By Jan Vi| 00000020 62 65 0d 00 03 19 f4 20 46 6f 72 20 33 32 2d 62 |be..... For 32-b| 00000030 69 74 20 6d 61 63 68 69 6e 65 73 0d 00 04 17 f4 |it machines.....| 00000040 20 28 63 29 20 41 55 20 4d 61 72 63 68 20 31 39 | (c) AU March 19| 00000050 39 34 0d 00 05 04 0d 00 06 09 eb 31 33 3a 87 0d |94.........13:..| 00000060 00 07 22 de 20 43 25 28 34 29 3a e3 4e 25 3d 31 |..". C%(4):.N%=1| 00000070 b8 34 3a 43 25 28 4e 25 29 3d b3 28 36 33 29 3a |.4:C%(N%)=.(63):| 00000080 ed 0d 00 08 2c e3 4e 25 3d 31 b8 33 30 30 3a e6 |....,.N%=1.300:.| 00000090 43 25 28 b3 28 34 29 29 3a c8 92 20 b3 28 31 32 |C%(.(4)):.. .(12| 000000a0 38 30 29 2c b3 28 31 30 32 34 29 3a ed 0d 00 09 |80),.(1024):....| 000000b0 26 e6 36 33 3a c8 9d 20 36 34 30 2c 35 31 32 2c |&.63:.. 640,512,| 000000c0 36 33 30 2c 35 30 30 3a f2 46 28 36 34 30 2c 35 |630,500:.F(640,5| 000000d0 31 32 29 0d 00 0a 05 e0 0d 00 0b 04 0d 00 0c 0e |12).............| 000000e0 dd f2 46 28 58 25 2c 59 25 29 0d 00 0d 31 e7 20 |..F(X%,Y%)...1. | 000000f0 b0 58 25 2c 59 25 29 3d 30 20 e6 20 43 25 28 31 |.X%,Y%)=0 . C%(1| 00000100 29 3a c8 92 20 58 25 2c 59 25 3a f2 46 31 28 58 |):.. X%,Y%:.F1(X| 00000110 25 2c 59 25 2c 34 2c 30 2c 31 29 0d 00 0e 05 e1 |%,Y%,4,0,1).....| 00000120 0d 00 0f 04 0d 00 10 1d dd f2 46 31 28 58 31 25 |..........F1(X1%| 00000130 2c 59 31 25 2c 44 58 25 2c 44 59 25 2c 43 4f 25 |,Y1%,DX%,DY%,CO%| 00000140 29 0d 00 11 0e ea 20 58 25 2c 59 25 2c 46 25 0d |)..... X%,Y%,F%.| 00000150 00 12 11 58 25 3d 58 31 25 3a 59 25 3d 59 31 25 |...X%=X1%:Y%=Y1%| 00000160 0d 00 13 2a c8 95 20 b0 58 25 2b 44 58 25 2c 59 |...*.. .X%+DX%,Y| 00000170 25 2b 44 59 25 29 3d 30 20 58 25 2b 3d 44 58 25 |%+DY%)=0 X%+=DX%| 00000180 3a 59 25 2b 3d 44 59 25 3a ce 0d 00 14 1d e6 20 |:Y%+=DY%:...... | 00000190 43 25 28 43 4f 25 29 3a 86 20 58 31 25 2c 59 31 |C%(CO%):. X1%,Y1| 000001a0 25 2c 58 25 2c 59 25 0d 00 15 05 f5 0d 00 16 08 |%,X%,Y%.........| 000001b0 46 25 3d 30 0d 00 17 0a c8 8e 20 b9 20 ca 0d 00 |F%=0...... . ...| 000001c0 18 27 c9 20 b0 58 25 2b 34 2c 59 25 29 3d 30 3a |.'. .X%+4,Y%)=0:| 000001d0 f2 46 31 28 58 25 2c 59 25 2c 34 2c 30 2c 31 29 |.F1(X%,Y%,4,0,1)| 000001e0 3a 46 25 3d 31 0d 00 19 27 c9 20 b0 58 25 2c 59 |:F%=1...'. .X%,Y| 000001f0 25 2b 34 29 3d 30 3a f2 46 31 28 58 25 2c 59 25 |%+4)=0:.F1(X%,Y%| 00000200 2c 30 2c 34 2c 32 29 3a 46 25 3d 31 0d 00 1a 28 |,0,4,2):F%=1...(| 00000210 c9 20 b0 58 25 2d 34 2c 59 25 29 3d 30 3a f2 46 |. .X%-4,Y%)=0:.F| 00000220 31 28 58 25 2c 59 25 2c 2d 34 2c 30 2c 33 29 3a |1(X%,Y%,-4,0,3):| 00000230 46 25 3d 31 0d 00 1b 28 c9 20 b0 58 25 2c 59 25 |F%=1...(. .X%,Y%| 00000240 2d 34 29 3d 30 3a f2 46 31 28 58 25 2c 59 25 2c |-4)=0:.F1(X%,Y%,| 00000250 30 2c 2d 34 2c 34 29 3a 46 25 3d 31 0d 00 1c 05 |0,-4,4):F%=1....| 00000260 cb 0d 00 1d 1a e7 20 46 25 3d 30 20 58 25 2d 3d |...... F%=0 X%-=| 00000270 44 58 25 3a 59 25 2d 3d 44 59 25 0d 00 1e 15 fd |DX%:Y%-=DY%.....| 00000280 20 58 25 3d 58 31 25 20 80 20 59 25 3d 59 31 25 | X%=X1% . Y%=Y1%| 00000290 0d 00 1f 05 e1 0d ff |.......| 00000297
.