Oxygen Basic

Programming => Example Code => Graphics => Topic started by: Peter on November 22, 2015, 04:30:36 AM

Title: Gl Stars
Post by: Peter on November 22, 2015, 04:30:36 AM
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,1setcaption "Mouse Move test"Enable GL_LINE_SMOOTHsys mx,my,s,t, u, v, wfloat i, dwhile key(27)=0cls 0,0,0mx = 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 = wnextnextredrawwait 10wendwinEnd`
.
Title: Re: Gl Stars
Post by: Mike Lobanovsky on November 22, 2015, 09:01:44 AM
:o

Cheer up Peter,

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

:)
Title: Re: Gl Stars
Post by: Peter on November 22, 2015, 09:53:53 AM
cool  ;D
lol