Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.sys.sinclair > #4306 > unrolled thread

Re: Fill routine..zx- spectrum

Back to article view | Back to comp.sys.sinclair

This discussion starts older than the indexed window; earlier articles aren't shown. The article labeled Started by below is the oldest one visible, not the original post.

Contents

  Re: Fill routine..zx- spectrum cfsmart@gmail.com - 2016-12-30 16:03 -0800
    Re: Fill routine..zx- spectrum "Brian-Gaff" <briang1@blueyonder.co.uk> - 2017-01-08 15:37 +0000

#4306 — Re: Fill routine..zx- spectrum

On Wednesday, August 19, 2009 at 12:46:43 PM UTC+1, Paul E Collins wrote:
> "Geoff Wearmouth" <gwearmouth@gmail.com> wrote:
> 
> >   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
> 
> 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.

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.

[toc] | [next] | [standalone]

#4316

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! :-)
<cfsmart@gmail.com> wrote in message 
news:45715c0e-1b00-4587-8aeb-666fa7d26dcd@googlegroups.com...
> On Wednesday, August 19, 2009 at 12:46:43 PM UTC+1, Paul E Collins wrote:
>> "Geoff Wearmouth" <gwearmouth@gmail.com> wrote:
>>
>> >   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
>>
>> 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.
>
> 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. 

[toc] | [prev] | [standalone]

Back to top | Article view | comp.sys.sinclair

csiph-web