Hi folks, wow this place looks bare and full of cobwebs.
Theres a few lines of code below that draw gradient Circles with hope that someone replies and sweeps up the webs
.... erm....cough...bring a brush.
(Since January of this year Ive been infused with creating a Sprite Designer for GLBasic. Its come on well and is almost complete.)
Heres an example of how you can to draw colour/gradient circles. Press a Key to animate.
GLOBAL x , y , radius , r , g , b , size , col
radius = 50
////
/////
// Da Loop
/////
////
WHILE TRUE // PRESS A KEY TO CONTINUE
FOR loop = 1 TO 20+RND(10)
x= RND(800) // New Xpos
y= RND(800) // not used
FOR a = 1 TO 90
random=RND(255) // ot used
r = a * 2
g = a + 1
b = g + 1
col=RGB(r,g,b)
DRAWLINE x-COS(a)*radius, size+SIN(a)*radius, x,size+SIN(a)*radius, col
DRAWLINE x+COS(a)*radius, size+SIN(a)*radius, x,size+SIN(a)*radius, col
DRAWLINE x+COS(a)*radius, size-SIN(a)*radius, x,size-SIN(a)*radius, col
DRAWLINE x-COS(a)*radius, size-SIN(a)*radius, x,size-SIN(a)*radius, col
NEXT
//size=RND(700)
x=RND(700)
radius = 10 + RND(50) // New size to shape
INC size ; IF size > 600 THEN size = 0 // Primitive scroll
NEXT
SHOWSCREEN
KEYWAIT
WEND
...
I hope it helps others with thier projects.
