Now updated so that the colours reset to 255 when 0 is reached, and made a slow and fast draw.
Rem Project: etcha
Rem ***** Main Source File *****
sync on : sync rate 0 :
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 :set text transparent
_width=screen width()/2:_height=screen height()/2:r=255:g=255:b=255:flash=0
do
ink 0,0:box 0,0,text height("1")*3,text height("1")*2:ink rgb(r,0,0),0:text 20,0,"r="+str$(r):ink rgb(0,g,0),0:text 20,text height("1"),"g="+str$(g):ink rgb(0,0,b),0:text 20,text height("1")*2,"b="+str$(b):ink RGB(255,255,255),0:text 20,text height("1")*3," s=slow f=fast":dot _width,_height,RGB(r,g,b)
if inkey$()="s" and pressed<>1:pressed=pressed-1:sync rate 100:endif:if inkey$()="f" and pressed<>1:pressed=pressed-1:sync rate 0:endif
if upkey():dec _height:if _height<0: _height=1:endif:endif
if downkey():inc _height:if _height>=screen height():_height=screen height()-1:endif:endif
if rightkey():inc _width:if _width>=screen width():_width=screen width()-1:endif:endif
if leftkey():dec _width:if _width<0:_width=1:endif:endif
if inkey$()="r" and pressed<>1:pressed=pressed-1:if r<>0:dec r:if r=0:r=255:endif:endif:endif
if inkey$()="g" and pressed<>1:pressed=pressed-1:if g<>0:dec g:if g=0:g=255:endif:endif:endif
if inkey$()="b" and pressed<>1:pressed=pressed-1:if b<>0:dec b:if b=0:b=255:endif:endif:endif
if inkey$()="" then pressed=0
if inkey$():if flash<>1:flash=1:dot _width,_height,RGB(0,0,0):else:flash=0:dot _width,_height,RGB(255,255,255):endif:endif
sync
loop
In Space No One can Hear You Scream! (When your comm Line is cut?)
