Groups > comp.sys.acorn.programmer > #6219

Instability in rectangular cursor

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.programmer
Subject	Instability in rectangular cursor
Date	Fri, 13 Nov 2020 13:17:57 +0000 (GMT)
Organization	None
Lines	20
Message-ID	<58cec65a21basura@invalid.addr.uk> (permalink)
X-Trace	individual.net Hqhc6BlFWSuWWuqRDy3FCA89MYrXBLl9AK4e8ygo3Rh8oodTcx
X-Orig-Path	uwclub.net!richard.ashbery
Cancel-Lock	sha1:JhKizVcaIj1GDutF6U9XbXR7N6Y=
User-Agent	Pluto/3.16 (RISC OS/5.27) NewsHound/v1.52-32
Xref	csiph.com comp.sys.acorn.programmer:6219

Show key headers only | View raw

Are there any BASIC programmers out there who may have missed my
posting on ROOL > Forums > General about an issue with a routine that
simply animates a rectangular cursor across the screen by moving the
mouse? The mouse overlays another horizontal rectangle but in so doing
results in instability and spoils the rendering. Any solutions would
be welcome.

MODE 1920,1080,32
PX%=0
PY%=0
REPEAT
  GCOL 0,0,255
  RECTANGLE FILL 0,0,3838,100
  MOUSE MX%,MY%,MB%
  GCOL 255,0,0
  RECTANGLE FILL PX%-50,PY%,100
  IF MX%<PX% THEN : PX%=PX%-1 : ENDIF
  IF MX%>PX% THEN : PX%=PX%+1 : ENDIF
UNTIL0

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

Thread

Instability in rectangular cursor Richard Ashbery <basura@invalid.addr.uk> - 2020-11-13 13:17 +0000
  Re: Instability in rectangular cursor Steve Drain <steve@kappa.me.uk> - 2020-11-13 14:10 +0000
    Re: Instability in rectangular cursor Richard Ashbery <basura@invalid.addr.uk> - 2020-11-13 17:12 +0000
      Re: Instability in rectangular cursor Steve Fryatt <news@stevefryatt.org.uk> - 2020-11-13 19:24 +0000
        Re: Instability in rectangular cursor Steve Drain <steve@kappa.me.uk> - 2020-11-13 20:33 +0000

csiph-web