Hello OpenGL Forum!!!

BlitzMax Forums/OpenGL Module/Hello OpenGL Forum!!!

bradford6 (Posted 2005) [#1]

' thenks to PaulJG for excellent tutorial Global GW:Int=800 Global GH:Int=600 Global angle:Float=0 Global mode = GL_QUADS Global msg:String = "GL_QUADS" bglCreateContext(GW,GH,32,0,BGL_BACKBUFFER|BGL_DEPTHBUFFER)'|BGL_FULLSCREEN) init() Repeat click_timer:-1 If click_timer < 0 Then click_timer = 0 If MouseDown(1) = 1 And click_timer = 0 glmode = glmode + 1 If glmode>6 Then glmode = 0 Select glmode Case 0 mode = GL_QUADS ; msg$ = "GL_QUADS" Case 1 mode = GL_LINES ; msg$ = "GL_LINES" Case 2 mode = GL_POLYGON ; msg$ = "GL_POLYGON" Case 3 mode = GL_TRIANGLES ; msg$ = "GL_TRIANGLES" Case 4 mode = GL_LINE_STRIP ; msg$ = "GL_LINE_STRIP" Case 5 mode = GL_LINE_LOOP ; msg$ = "GL_LINE_LOOP" Case 6 mode = GL_POINTS ; msg$ = "GL_POINTS" End Select click_timer = 50 EndIf frametimer(2) display(mode) idle_function() glColor3f(1.0,1.0,1.0) bglDrawText(msg$,10,10) bglSwapBuffers Until KeyDown(KEY_ESCAPE) End Function init() glClearColor(0.0, 0.0, 0.0, 0.0) glClearDepth(1.0) glEnable(GL_CULL_FACE) glMatrixMode(GL_PROJECTION) glLoadIdentity() gluPerspective(45.0, Float(GW)/Float(GH), 0.1, 100.0) glMatrixMode(GL_MODELVIEW) glLoadIdentity() End Function Function display(mode) glClear (GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT) glLoadIdentity() glTranslatef(0.0, 0.0, (Sin(angle)*10)-15) glRotatef(angle, 0.0, -1.0, 1.0) glBegin(mode) glColor3f(1.0,1.0,0.0) ' Front Face yellow glVertex3f(-1.0, -1.0, 1.0) glVertex3f( 1.0, -1.0, 1.0) glColor3f(1.0,0.0,0.0) ' Red glVertex3f( 1.0, 1.0, 1.0) glVertex3f(-1.0, 1.0, 1.0) glColor3f(0.0,0.5,0.0) ' Back Face Dark Green glVertex3f(-1.0, -1.0, -1.0) glVertex3f(-1.0, 1.0, -1.0) glVertex3f( 1.0, 1.0, -1.0) glColor3f(0.0,1.0,0.0) glVertex3f( 1.0, -1.0, -1.0) glColor3f(1.0,0.0,0.0) ' Top Face Red glVertex3f(-1.0, 1.0, -1.0) glVertex3f(-1.0, 1.0, 1.0) glVertex3f( 1.0, 1.0, 1.0) glVertex3f( 1.0, 1.0, -1.0) glColor3f(0.0,0.0,1.0) ' Bottom Face Blue glVertex3f(-1.0, -1.0, -1.0) glVertex3f( 1.0, -1.0, -1.0) glColor3f(0.0,0.0,0.1) glVertex3f( 1.0, -1.0, 1.0) glVertex3f(-1.0, -1.0, 1.0) glColor3f(0.1,0.1,0.1) ' Right face Gray?? glVertex3f( 1.0, -1.0, -1.0) glVertex3f( 1.0, 1.0, -1.0) glColor3f(0.0,0.0,0.0) glVertex3f( 1.0, 1.0, 1.0) glVertex3f( 1.0, -1.0, 1.0) glColor3f(1.0,1.0,1.0) ' Left Face White glVertex3f(-1.0, -1.0, -1.0) glVertex3f(-1.0, -1.0, 1.0) glColor3f(0.0,0.0,.75) 'blue glVertex3f(-1.0, 1.0, 1.0) glVertex3f(-1.0, 1.0, -1.0) glEnd() End Function Function idle_function() angle:+.1 If angle>360.0 angle=0.0 End Function Function frametimer(msecs) now = MilliSecs() Repeat passed = MilliSecs()-now Until passed > msecs End Function

N (Posted 2005) [#2]

Woot!

Akira (Posted 2005) [#3]

Great Demo. I especially like it how you can change the drawing mode. I made the following small changes to your code. - added some text to display the current mode and prompt the user. - modified the click timing routine so it's more efficient. - changed the rotation of the cube so that all six sides will be seen. - changed the "gray??" colour to purple :) ' rem OPENGL spinnning cube by Bill Radford V1 ' thanks to PaulJG for excellent tutorial Global GW:Int=1024 Global GH:Int=768 Global angle:Float=0 Global mode = GL_QUADS Global msg:String="GL_QUADS" bglCreateContext(GW,GH,32,0,BGL_BACKBUFFER|BGL_DEPTHBUFFER|BGL_FULLSCREEN) init() Repeat If MilliSecs() > click_timer If MouseDown(1) = True glmode :+ 1 If glmode>6 Then glmode = 0 Select glmode Case 0 mode = GL_QUADS ; msg$ = "GL_QUADS" Case 1 mode = GL_LINES ; msg$ = "GL_LINES" Case 2 mode = GL_POLYGON ; msg$ = "GL_POLYGON" Case 3 mode = GL_TRIANGLES ; msg$ = "GL_TRIANGLES" Case 4 mode = GL_LINE_STRIP ; msg$ = "GL_LINE_STRIP" Case 5 mode = GL_LINE_LOOP ; msg$ = "GL_LINE_LOOP" Case 6 mode = GL_POINTS ; msg$ = "GL_POINTS" End Select click_timer = MilliSecs() + 250 EndIf EndIf frametimer(2) display(mode) bglDrawText("Mode: "+msg$,10,10) bglDrawText("Use Left Mouse Button to cycle through modes.",10,30) idle_function() bglSwapBuffers Until KeyDown(KEY_ESCAPE) End Function init() glClearColor(0.0, 0.0, 0.0, 0.0) glClearDepth(1.0) glEnable(GL_CULL_FACE) glMatrixMode(GL_PROJECTION) glLoadIdentity() gluPerspective(45.0, Float(GW)/Float(GH), 0.1, 100.0) glMatrixMode(GL_MODELVIEW) glLoadIdentity() End Function Function display(mode) glClear (GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT) glLoadIdentity() glTranslatef(0.0, 0.0, (Sin(angle)*10)-15) glRotatef(angle, 1.0, -1.0, 1.0) glBegin(mode) glColor3f(1.0,1.0,0.0) ' Front Face yellow glVertex3f(-1.0, -1.0, 1.0) glVertex3f( 1.0, -1.0, 1.0) glVertex3f( 1.0, 1.0, 1.0) glVertex3f(-1.0, 1.0, 1.0) glColor3f(0.0,1.0,0.0) ' Back Face Green glVertex3f(-1.0, -1.0, -1.0) glVertex3f(-1.0, 1.0, -1.0) glVertex3f( 1.0, 1.0, -1.0) glVertex3f( 1.0, -1.0, -1.0) glColor3f(1.0,0.0,0.0) ' Top Face Red glVertex3f(-1.0, 1.0, -1.0) glVertex3f(-1.0, 1.0, 1.0) glVertex3f( 1.0, 1.0, 1.0) glVertex3f( 1.0, 1.0, -1.0) glColor3f(0.0,0.0,1.0) ' Bottom Face Blue glVertex3f(-1.0, -1.0, -1.0) glVertex3f( 1.0, -1.0, -1.0) glVertex3f( 1.0, -1.0, 1.0) glVertex3f(-1.0, -1.0, 1.0) glColor3f(0.8,0.0,1.0) ' Right face Purple glVertex3f( 1.0, -1.0, -1.0) glVertex3f( 1.0, 1.0, -1.0) glVertex3f( 1.0, 1.0, 1.0) glVertex3f( 1.0, -1.0, 1.0) glColor3f(1.0,1.0,1.0) ' Left Face White glVertex3f(-1.0, -1.0, -1.0) glVertex3f(-1.0, -1.0, 1.0) glVertex3f(-1.0, 1.0, 1.0) glVertex3f(-1.0, 1.0, -1.0) glEnd() End Function Function idle_function() angle:+.05 If angle>360.0 angle=0.0 End Function Function frametimer(msecs) now = MilliSecs() Repeat passed = MilliSecs()-now Until passed > msecs End Function Code box working now... :) Thanks Perturbatio.

Perturbatio (Posted 2005) [#4]

use codebox instead of code. see What are the forum codes? for more info.