Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine.

Path	csiph.com!eternal-september.org!feeder.eternal-september.org!nntp.eternal-september.org!.POSTED!not-for-mail
From	Paul Stewart <phorefaux@gmail.com>
Newsgroups	comp.sys.acorn.misc
Subject	Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine.
Date	Fri, 09 Jan 2026 21:43:28 GMT
Organization	A noiseless patient Spider
Lines	39
Message-ID	<3fb4ab985c.Paul@phorefaux> (permalink)
References	<5c989287c3basura@invalid.addr.uk>
Injection-Date	Fri, 09 Jan 2026 22:10:56 +0000 (UTC)
Injection-Info	dont-email.me; posting-host="89e62129b3749af2b38d5279b897fb9f"; logging-data="2874223"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19YVmIWWYuFkq4SKIquyLV4"
User-Agent	Messenger-Pro/9.00 (MsgServe/9.00) (RISC-OS/4.42) NewsHound/v1.54
Cancel-Lock	sha1:wCxU4TN5KmEBOh+Qpyq+HIE4I48=
X-Editor	EmailEdit 2.04
Xref	csiph.com comp.sys.acorn.misc:21781

Show key headers only | View raw

In message <5c989287c3basura@invalid.addr.uk>
          Richard Ashbery <basura@invalid.addr.uk> wrote:

> Thought this might be of interest...

> MODE 1920,1080,32 : OFF
> x = 1920: y = 1080
> REPEAT
> REM Random direction
> dir = RND(4)
> IF dir = 1 THEN y = y + 10  : REM Up
> IF dir = 2 THEN x = x + 10  : REM Right
> IF dir = 3 THEN y = y - 10  : REM Down
> IF dir = 4 THEN x = x - 10  : REM Left

> REM Keep graphic on screen
> IF x < 0 THEN x = 0
> IF x > 3838 THEN x = 3838
> IF y < 0 THEN y = 0
> IF y > 2158 THEN y = 2158

> GCOL RND(255),RND(255),RND(255)
> CIRCLE FILL x, y, 20
> FOR delay = 1 TO 1000 : NEXT delay
> UNTIL FALSE

> Parameters set for 1920 x 1080 monitors - alter as required.

> Warning: Very fast graphic routine and might cause migraine - if
> concerned simply increase delay (suggest 100000 instead of 1000).

Had to Google what DeepSeek was!
Good to see AI cable of writing BBC BASIC code!



-- 
Paul Stewart
Sent from A9home running RISC OS 4.42

Back to comp.sys.acorn.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine. Richard Ashbery <basura@invalid.addr.uk> - 2026-01-09 17:08 +0000
  Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine. Harriet Bazley <harriet@bazleyfamily.co.uk> - 2026-01-09 18:51 +0000
  Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine. Paul Sprangers <Paul@sprie.nl> - 2026-01-09 20:22 +0100
    Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine. Richard Ashbery <basura@invalid.addr.uk> - 2026-01-10 14:15 +0000
  Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine. freeaak67@freeaakmaaiil.dee - 2026-01-09 21:58 +0100
  Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine. Paul Stewart <phorefaux@gmail.com> - 2026-01-09 21:43 +0000
  Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine. Paul Stewart <phorefaux@gmail.com> - 2026-01-09 21:42 +0000
    Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine. Richard Ashbery <basura@invalid.addr.uk> - 2026-01-10 14:27 +0000

csiph-web