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>
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

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