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

Groups > comp.sys.sinclair > #4316

Re: Fill routine..zx- spectrum

Show all headers | View raw

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. 

Back to comp.sys.sinclair | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

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

csiph-web