Fill routine..zx- spectrum

[Frank Hofmann]

in the 80`s i had an article about the smallest basic grafic fill
routine for the zx-spectrum.
Does anyone has a code for this routine?
It was very very small.

[Geoff Wearmouth]

I remember that and have put a demo of the program here.

http://www.wearmouth.demon.co.uk/gw03/basfill.htm

together with the code.

I think it appeared in Practical Computing and it made a big
impression on me.
I'd love to know the name of the author.

Among the 80s computers, only the Sinclair machines had a GOSUB stack
that could provide this flexibility.

--
Geoff Wearmouth

[Geoff Wearmouth]

I'll put the code here for posterity
5 CLS : PRINT TAB 5;"BASIC RECURSIVE FILL"
10 CIRCLE 128,88,40: CIRCLE 128,88,30
20 LET x=100: LET y=100
30 GO SUB 1000: STOP
1000 PLOT x,y
1010 IF NOT POINT (x+1,y) THEN LET x=x+1: GO SUB 1000: LET x=x-1
1020 IF NOT POINT (x-1,y) THEN LET x=x-1: GO SUB 1000: LET x=x+1
1030 IF NOT POINT (x,y+1) THEN LET y=y+1: GO SUB 1000: LET y=y-1
1040 IF NOT POINT (x,y-1) THEN LET y=y-1: GO SUB 1000: LET y=y+1
1050 RETURN

[Paul E Collins]

"Geoff Wearmouth" <gwear...@gmail.com> wrote:

Matt Westcott used a similar technique not so long ago with this pretty
thing:

10 PLOT 180,60: LET a=12: LET x=2: LET y=2: GO SUB 20: STOP
20 IF a=0 THEN DRAW x,0: RETURN
30 LET a=a-1: GO SUB 20: GO SUB 40: LET a=a+1: RETURN
40 IF a=0 THEN DRAW 0,y: RETURN
50 LET a=a-1: LET y=-y: LET x=-x: GO SUB 20: LET y=-y: LET x=-x: GO SUB 40:
LET a=a+1: RETURN

Eq.

[Frank Hofmann]

thanks all

[cfs...@gmail.com]

I think wrong program for zx spectrum. I will find out fill routine for ZX Spectrum BASIC Program and will post it for BASIC Program later.

[Brian-Gaff]

Sings chorus of rolling back the years...
2009 was a good year but a bit tyre-ing.
Brian

--
From the Sofa of Brian Gaff Reply address is active
Remember, if you don't like where I post
or what I say, you don't have to
read my posts! :-)
<cfs...@gmail.com> wrote in message
news:45715c0e-1b00-4587...@googlegroups.com...