### Author Topic: Gl Stars  (Read 2512 times)

0 Members and 1 Guest are viewing this topic.

#### Peter

• Full Member
• Posts: 161
##### Gl Stars
« 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`
.

#### Mike Lobanovsky

• Hero Member
• Posts: 1993
##### Re: Gl Stars
« Reply #1 on: November 22, 2015, 09:01:44 AM »

Cheer up Peter,

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

Mike
(3.6GHz Intel Core i5 Quad w/ 16GB RAM, nVidia GTX 1060Ti w/ 6GB VRAM, Windows 7 Ultimate Sp1)

#### Peter

• Full Member
• Posts: 161
##### Re: Gl Stars
« Reply #2 on: November 22, 2015, 09:53:53 AM »
cool
lol