Path: csiph.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Richard Ashbery <basura@invalid.addr.uk>
Newsgroups: comp.sys.acorn.misc
Subject: Simple Graphic Program from 'DeepSeek' Using 'CIRCLE FILL' routine.
Date: Fri, 09 Jan 2026 17:08:30 +0000 (GMT)
Organization: None
Lines: 30
Message-ID: <5c989287c3basura@invalid.addr.uk>
X-Trace: individual.net 9MAxOsgWOj1StH6ktAnvyA57geF7lSxnJYC1/q4ENSMfBRRH/F
X-Orig-Path: uwclub.net!richard.ashbery
Cancel-Lock: sha1:VjHZjIa2ZTnNIOmEwI+nrpXhd5I= sha256:GxcuAIRr3i7fU2zzK4a0KdIax4jxvtBXJTa6zZzJXf8=
User-Agent: Pluto/3.20 (RISC OS/5.31) NewsHound/v1.54
Xref: csiph.com comp.sys.acorn.misc:21777

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

Richards