PureBasic

Code : Tout sélectionner

InitSprite()
InitKeyboard()
InitMouse()



If OpenWindow(0, 0, 0, 0,0, " Polygons_Maker",#PB_Window_Maximize|#PB_Window_BorderLess)=0
  Beep_(500,250) : Delay(150) : Beep_(500,250)
  Debug ("OpenWindow() impossible")
  End
EndIf

If OpenGLGadget(1,0,0,1920,1080)=0
  Beep_(500,250) : Delay(150) : Beep_(500,250)
  Debug ("OpenGLGadget() impossible")
  End
EndIf


AddKeyboardShortcut(0,  #PB_Shortcut_Escape, 666)


Repeat
 
  SetGadgetAttribute(1,#PB_OpenGL_FlipBuffers,#True)
 
  StopDrawing()
 
  ;  Repeat
  Event = WaitWindowEvent()
 
  Select Event
     
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          Select EventType()
            Case #PB_EventType_LeftClick        : Debug "Clic avec le bouton gauche de la souris"
            Case #PB_EventType_RightClick       : Debug "Clic avec le bouton droit de la souris"
          EndSelect
      EndSelect
    Case #PB_Event_Menu
      Select EventMenu()
        Case 666
          End
      EndSelect
  EndSelect
 
ForEver

Code : Tout sélectionner

EnableExplicit

Global window, ww = 800, wh = 600, viewport, Key

OpenWindow(#PB_Any, 0, 0, ww, wh, "Test Opengl", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)

viewport = OpenGLGadget(#PB_Any, 0, 0, ww, wh, #PB_OpenGL_NoDepthBuffer | #PB_OpenGL_Keyboard)
SetActiveGadget(viewport)

ShowCursor_(0)

While #True
  Repeat     
    Select EventType()
        
      Case #PB_EventType_KeyDown  ;Une touche a été pressée (Exemple les fléches du clavier)
         Key = GetGadgetAttribute(viewport, #PB_OpenGL_Key)
        Select Key
          Case #PB_Shortcut_Left
            Debug "Left : Fleche gauche"
            
          Case #PB_Shortcut_Right
            Debug "Right : Fleche droite"            
        EndSelect
                
      Case #PB_EventType_KeyUp  ;Une touche a été relâchée (Exemple Escape)
        Key = GetGadgetAttribute(viewport, #PB_OpenGL_Key)
        Select Key
          Case #PB_Shortcut_Escape
            Debug "Esc : Je sors"
            ShowCursor_(1)
            End   
        EndSelect
        
      Case #PB_EventType_LeftButtonDown ;Le bouton gauche de la souris a été pressé    
        Debug "Bouton gauche de la souris"
    EndSelect
  Until WindowEvent() = 0
Wend

Code : Tout sélectionner

SetGadgetAttribute(TonGadgetOpenGL, #PB_OpenGL_Cursor, #PB_Cursor_Invisible)

Code : Tout sélectionner

SetGadgetAttribute(TonGadgetOpenGL, #PB_OpenGL_Cursor, #PB_Cursor_Default)