REM  gradient shapes
REM -Hotwrench-
REM Draws a shape then draws a smaller/larger shape with slightly different color
REM on top of last shape drawn etc. till for-to loop ends
REM try to keep color-size with a ratio of 255 or you'll have stripes
REM such as the large red oval and circle

gr.open 255,0,0,0,0
gr.screen w, h
x1=w/800
y1=h/480 
gr.scale x1,y1 
gr.bitmap.create ball,100,100
gr.bitmap.drawinto.start ball
gr.set.stroke 3
 rad=25
for t= 1 to rad
 gr.color 255,255-t*2,255-t*2,255-t*2,0  %white
 gr.circle tbd,35,35,t
next 
gr.bitmap.drawinto.end

gr.bitmap.draw ball1,ball,380,40  %draw white ball

gr.set.stroke 4
rad=200
for t=1to rad
 gr.color 255,t*250,0,0,0  %red
 gr.circle tbd,600,240,t
next

for t=1 to rad
 gr.color 255,t*10,0,0,0  %red
 gr.oval ovl,0,0,2*t,t*2
next

for t = 1 to 50
 gr.color 255,0,0,5*t,0 %blue 
 gr.rect r1,50-t/10,420+t,150-t/10,470-t  %button
 gr.rect r2,200+t,420+t,250-t,470-t  %square
next 
gr.render

 gr.set.stroke 3
 rad=25
for t= rad to 1 step-1
 gr.color 255,0,0,250*t,0  %blue
 gr.circle tbd,405,340+t*2,t  %droplet
REM gr.render  %remove rem to animate, nice cone effect
next 

gr.render

touch:
gr.touch touched,x,y
if touched then end
goto touch