;=====================================================================================
; CONTEXTE SDL POUR OPENGL
;=====================================================================================
Procedure g3d_OpenScreen(Width,Height,Depth,Fullscreen.b)
If SDL_Init_(#SDL_INIT_VIDEO )=>0
    Select Fullscreen
      Case 0 : Screen = SDL_SetVideoMode_(Width,Height,Depth, #SDL_OPENGL)
      Case 1 : Screen = SDL_SetVideoMode_(Width,Height,Depth, #SDL_OPENGL|#SDL_FULLSCREEN)
     
    EndSelect
   
glEnable_(#GL_POLYGON_SMOOTH);
  ; Debug SDL_GL_SetAttribute_(#SDL_GL_MULTISAMPLESAMPLES, 6)
   
Else
  MessageRequester("Fatal error.","Can't initialize SDL environement")
EndIf
EndProcedure
;=====================================================================================
;
;=====================================================================================
Procedure g3d_ClearScreen(red,green,blue)
  glClearColor_(red/255,green/255,blue/255,0)
  glClear_(#GL_COLOR_BUFFER_BIT|#GL_DEPTH_BUFFER_BIT)
EndProcedure
;=====================================================================================
;
;=====================================================================================
Procedure g3d_FlipBuffers()
  glFlush_()
  SDL_GL_SwapBuffers_()
EndProcedure