http://www.purebasic.com
https://www.purebasic.fr/english/
I have an OpenGL 1.4 ATI card on a Windows ME pc and it seems to work.flaith wrote:Sorry to dig up this post, but I need to know if Purebasic still use OpenGL 1.2 because I tried with my old laptop (OpenGL 1.4) and the sprite system no longer works.
He could be useful to check the OpenGL version and to have a function for this or a warning from the compiler
Code: Select all
CompilerIf Subsystem("OpenGL")
#GL_VERSION=$1F02
Procedure.s Get_OpenGL_Version()
Protected *ext,text$,ver$,version$,revision$
*ext = glGetString_(#GL_VERSION)
If *ext
text$=PeekS(*ext,256,#PB_Ascii)
ver$=StringField(text$,1," ")
version$=StringField(ver$,1,".")
revision$=StringField(ver$,2,".")
If revision$ And version$
text$=version$+"."+revision$
ElseIf version$
text$=version$
Else
text$=""
EndIf
EndIf
ProcedureReturn text$
EndProcedure
CompilerEndIf
If InitSprite() = 0
MessageRequester("Error", "Can't open screen & sprite environment!", 0)
End
EndIf
If OpenWindow(0, 0, 0, 220, 160, "A screen in a window...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 170, 135, 45, 20, "Quit")
If OpenWindowedScreen(WindowID(0), 0, 0, 160, 160)
CreateSprite(0, 20, 20)
If StartDrawing(SpriteOutput(0))
Box(0, 0, 20, 20, RGB(255, 0, 155))
Box(5, 5, 10, 10, RGB(155, 0, 255))
StopDrawing()
EndIf
Else
MessageRequester("Error", "Can't open windowed screen!", 0)
End
EndIf
EndIf
Debug "WTF"
Debug Program_Get_OpenGL_Version()
Debug "WTF"
direction = 2
Repeat
; It's very important to process all the events remaining in the queue at each frame
;
Repeat
Event = WindowEvent()
Select Event
Case #PB_Event_Gadget
If EventGadget() = 0
End
EndIf
Case #PB_Event_CloseWindow
End
EndSelect
Until Event = 0
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
DisplaySprite(0, x, x)
x + direction
If x > 140 : direction = -2 : EndIf
If x < 0 : direction = 2 : EndIf
Delay(1)
ForEver
Code: Select all
CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
ImportC "/System/Library/Frameworks/OpenGL.framework/OpenGL"
glGetString_(Version.i) As "_glGetString"
EndImport
CompilerEndIf
CompilerIf Subsystem("OpenGL") And #PB_Compiler_OS = #PB_OS_Windows Or #PB_Compiler_OS = #PB_OS_MacOS
#GL_VERSION=$1F02
Procedure.s Get_OpenGL_Version()
Protected *ext,text$,ver$,version$,revision$
*ext = glGetString_(#GL_VERSION)
If *ext
text$=PeekS(*ext,256,#PB_Ascii)
ver$=StringField(text$,1," ")
version$=StringField(ver$,1,".")
revision$=StringField(ver$,2,".")
If revision$ And version$
text$=version$+"."+revision$
ElseIf version$
text$=version$
Else
text$=""
EndIf
EndIf
ProcedureReturn text$
EndProcedure
CompilerEndIf
If InitSprite() = 0
MessageRequester("Error", "Can't open screen & sprite environment!", 0)
End
EndIf
If OpenWindow(0, 0, 0, 220, 160, "A screen in a window...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 170, 135, 45, 20, "Quit")
If OpenWindowedScreen(WindowID(0), 0, 0, 160, 160)
CreateSprite(0, 20, 20)
If StartDrawing(SpriteOutput(0))
Box(0, 0, 20, 20, RGB(255, 0, 155))
Box(5, 5, 10, 10, RGB(155, 0, 255))
StopDrawing()
EndIf
Else
MessageRequester("Error", "Can't open windowed screen!", 0)
End
EndIf
EndIf
Debug "WTF"
Debug Get_OpenGL_Version()
Debug "WTF"
direction = 2
Repeat
; It's very important to process all the events remaining in the queue at each frame
;
Repeat
Event = WindowEvent()
Select Event
Case #PB_Event_Gadget
If EventGadget() = 0
End
EndIf
Case #PB_Event_CloseWindow
End
EndSelect
Until Event = 0
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
DisplaySprite(0, x, x)
x + direction
If x > 140 : direction = -2 : EndIf
If x < 0 : direction = 2 : EndIf
Delay(1)
ForEverOn the same hw ? I mean are you using the MacBook Air 2010 from your signature and you get 2.1 on OSX and 1.3 on XP ?J. Baker wrote:... returns OpenGL version 1.3 here on XP and 2.1 on Snow Leopard. Looks like this returns what your graphics card can currently handle and not PureBasic's OpenGL version. I would guess PureBasic is still using 1.2+ like Fred had said a while back?
Oh no. I have XP on a different machine. It has an older ATI card, which I like for development. That way I know the game I'm working on will work with older computers. Plus it allows me to make sure the game is running optimized. So hopefully no complaints on performance issues when I'm done with it. As for the driver though, it's the latest available for XP due to its age.luis wrote:On the same hw ? I mean are you using the MacBook Air 2010 from your signature and you get 2.1 on OSX and 1.3 on XP ?J. Baker wrote:... returns OpenGL version 1.3 here on XP and 2.1 on Snow Leopard. Looks like this returns what your graphics card can currently handle and not PureBasic's OpenGL version. I would guess PureBasic is still using 1.2+ like Fred had said a while back?
Because in this case you can probably just update your Windows drivers.
Again if it's the same card, what card is it exactly ? Just curious.
Funny thing is, I have issues with sleep. Three to four hours of sleep is pretty common with me but I eventually crash. Sometimes it takes a week or two but I eventually get almost eight hours.electrochrisso wrote:
J. Baker, I see you are still running, do you ever get tired.
Not all the time, lol.luis wrote:I hope he's running in the right direction ...
Hey Fred! See what PureBasic can do to a person.J. Baker wrote:Funny thing is, I have issues with sleep. Three to four hours of sleep is pretty common with me but I eventually crash. Sometimes it takes a week or two but I eventually get almost eight hours.
LOL! You got that right.electrochrisso wrote:Hey Fred! See what PureBasic can do to a person.J. Baker wrote:Funny thing is, I have issues with sleep. Three to four hours of sleep is pretty common with me but I eventually crash. Sometimes it takes a week or two but I eventually get almost eight hours.