Gl Stars

[Peter]

Hello,
some nice stars. 

I present it here in Oxygen Basic Forum because there are some people out there in
Basicprogramming.org who offend with very ugly words my OpenGL work.

Code: [Select]

include "ogl.inc"
window 1024,768,1
setcaption "Mouse Move test"
Enable GL_LINE_SMOOTH

sys mx,my,s,t, u, v, w
float i, d

while key(27)=0
cls 0,0,0
mx = xMouse
my = yMouse

for s=0 to 120
for i=0 to 20
    d=6.28/7
    t = mx + s * cos(i * d)
    u = my + s * sin(i * d)
    v = mx + s * cos((i + 3) * d)
    w = my + s * sin((i + 3) * d)
    color 255,250,0,255
    line t, u, v, w,2
    d=6.28/8
    t = mx + s * cos(i * d)
    u = my + s * sin(i * d)
    v = mx + s * cos((i + 3) * d)
    w = my + s * sin((i + 3) * d)
    color 200,255,0,255
    line t+210, u+200, v+210, w+200,2
    t = v : u = w
    d=6.28/10
    t = mx + s * cos(i * d)
    u = my + s * sin(i * d)
    v = mx + s * cos((i + 3) * d)
    w = my + s * sin((i + 3) * d)
    color 255,200,100,255
    line t-150, u+260, v-150, w+260,2
    t = v : u = w
next
next

redraw
wait 10
wend
winEnd

.

[Mike Lobanovsky]

Cheer up Peter,

Just tell Aurel and me who that might be and we will troll that scoundrel to death!

[Peter]

cool 
lol