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

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> (permalink)
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

Show key headers only | View raw

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

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