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

Path	csiph.com!news.samoylyk.net!newsfeed.pionier.net.pl!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From	Richard Ashbery <basura@invalid.addr.uk>
Newsgroups	comp.sys.acorn.misc
Subject	Re: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine.
Date	Sat, 10 Jan 2026 14:27:24 +0000 (GMT)
Organization	None
Lines	49
Message-ID	<5c99079cdcbasura@invalid.addr.uk> (permalink)
References	<5c989287c3basura@invalid.addr.uk> <b491ab985c.Paul@phorefaux>
X-Trace	individual.net acutLfCxsNzUyQaVTaerDgfxqSnI+KBWA8Z0L1Z5BDMnlLRMiZ
X-Orig-Path	uwclub.net!richard.ashbery
Cancel-Lock	sha1:ep4DEuS3lnfCfDt0YHPJVCQhp+k= sha256:60IzoHPbTttc5hAeGlzo1hAJ2jbMrMMr6kOeZPMj4Kw=
User-Agent	Pluto/3.20 (RISC OS/5.31) NewsHound/v1.54
Xref	csiph.com comp.sys.acorn.misc:21784

Show key headers only | View raw

In article <b491ab985c.Paul@phorefaux>,
   Paul Stewart <phorefaux@gmail.com> wrote:
> In message <5c989287c3basura@invalid.addr.uk>
>           Richard Ashbery <basura@invalid.addr.uk> wrote:

[snip my message]


> Slight improvement by getting current the current screen mode

> MODE MODE
> REM get current screen mode
> SYS"OS_ScreenMode",1 TO r0%,r1%
> x%= r1%!4
> y%= r1%!8
> PRINT x%
> PRINT y%
> x=x%
> y=y%
> x%=(x%*2)-2
> y%=(y%*2)-2

> REM MODE 1360,768,32 : OFF
> REM x = 1360: y = 768
> 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 > x% THEN x = x%
> IF y < 0 THEN y = 0
> IF y > y% THEN y = y%

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

I wanted to keep code to bear minimum but changes are of course
necessary to get code to run on other monitor resolutions.


Richard

Back to comp.sys.acorn.misc | Previous | Next — Previous 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