What with OpenGL???

Got an idea for enhancing PureBasic? New command(s) you'd like to see?
Wladek
User
User
Posts: 98
Joined: Mon Feb 23, 2009 4:01 pm
Location: Poland
Contact:

What with OpenGL???

Post by Wladek »

When I can make (in linux and windows) programs ,where mouse and keyboard cooperate with OpenGL?

When I use c++ command
Maximum I can contrive: full screen + keyboard in a Windows.

I suggest(for example) some this:

Code: Select all

If InitOpenGL() = 0 Or InitKeyboard() = 0
  MessageRequester("Error", "Sprite system can't be initialized", 0)
  End
EndIf

If OpenGLScreen(640, 480, 32, "OpenGL")


glShadeModel(#GL_SMOOTH) 
 glClearColor(0.0,0.0,0.0,0.5)
 glClearDepth(1.0) 
 glEnable(#GL_DEPTH_TEST) 
 glDepthFunc(#GL_LEQUAL) 
 glHint(#GL_PERSPECTIVE_CORRECTION_HINT,#GL_NICEST) 

  Repeat

    FlipBuffers()
    
  




glClear(#GL_COLOR_BUFFER_BIT | #GL_DEPTH_BUFFER_BIT)
glTranslatef(0,0.0,-7.0)  
glRotatef(1,1.0,1.0,1.0; 
glBindTexture(#GL_TEXTURE_2D, texture)
glBegin(#GL_QUADS)

  glTexCoord2f(0.0, 0.0): glVertex3f(-1.0, -1.0,  1.0)
  glTexCoord2f(1.0, 0.0): glVertex3f( 1.0, -1.0,  1.0)  
  glTexCoord2f(1.0, 1.0): glVertex3f( 1.0,  1.0,  1.0)  
  glTexCoord2f(0.0, 1.0): glVertex3f(-1.0,  1.0,  1.0)  
  glTexCoord2f(1.0, 0.0): glVertex3f(-1.0, -1.0, -1.0)   
  glTexCoord2f(1.0, 1.0): glVertex3f(-1.0,  1.0, -1.0)   
  glTexCoord2f(0.0, 1.0): glVertex3f( 1.0,  1.0, -1.0)   
  glTexCoord2f(0.0, 0.0): glVertex3f( 1.0, -1.0, -1.0)   
  glTexCoord2f(0.0, 1.0): glVertex3f(-1.0,  1.0, -1.0)   
  glTexCoord2f(0.0, 0.0): glVertex3f(-1.0,  1.0,  1.0)   
  glTexCoord2f(1.0, 0.0): glVertex3f( 1.0,  1.0,  1.0)   
  glTexCoord2f(1.0, 1.0): glVertex3f( 1.0,  1.0, -1.0)   
  glTexCoord2f(1.0, 1.0): glVertex3f(-1.0, -1.0, -1.0)   
  glTexCoord2f(0.0, 1.0): glVertex3f( 1.0, -1.0, -1.0)  
  glTexCoord2f(0.0, 0.0): glVertex3f( 1.0, -1.0,  1.0)   
  glTexCoord2f(1.0, 0.0): glVertex3f(-1.0, -1.0,  1.0)   
  glTexCoord2f(1.0, 0.0): glVertex3f( 1.0, -1.0, -1.0)  
  glTexCoord2f(1.0, 1.0): glVertex3f( 1.0,  1.0, -1.0)  
  glTexCoord2f(0.0, 1.0): glVertex3f( 1.0,  1.0,  1.0)   
  glTexCoord2f(0.0, 0.0): glVertex3f( 1.0, -1.0,  1.0)   
  glTexCoord2f(0.0, 0.0): glVertex3f(-1.0, -1.0, -1.0)   
  glTexCoord2f(1.0, 0.0): glVertex3f(-1.0, -1.0,  1.0)   
  glTexCoord2f(1.0, 1.0): glVertex3f(-1.0,  1.0,  1.0)   
  glTexCoord2f(0.0, 1.0): glVertex3f(-1.0,  1.0, -1.0)   
 glEnd()





    
    ExamineKeyboard()
  Until KeyboardPushed(#PB_Key_Escape)
  
Else
  MessageRequester("Error", "Can't open a 640*480 ", 0)
EndIf

End   
Sorry if I make mistaken