Author Topic: Gl Stars  (Read 2511 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,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

  • Hero Member
  • *****
  • Posts: 1993
Re: Gl Stars
« Reply #1 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! >:(

:)
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  ;D
lol