Restored from previous forum. Originally posted by Danilo.
Small OpenGL test i wrote for halo today.
Maybe there are some more people interested in this,
so here it is: http://home.t-online.de/home/ExpressTrack/PureGL.zip
Thanks go to VPureBasic for his GLU32f library,
to traumatic (nice talk today on IRC) and ofcourse
to NeHe ( http://NeHe.GameDev.net ).
Still waiting for the first big 3D engine for PB...
cya,
...Danilo
(registered PureBasic user)
small OpenGL test
-
- PureBasic Guru
- Posts: 16777133
- Joined: Tue Apr 22, 2003 7:42 pm
Restored from previous forum. Originally posted by VPureBasic.
Your example is fine! I am still working on... Please try this for the subwindow procedure. I fix the problem we encountered.
Procedure.l OpenSubWindow( Number.l,X,Y,W,H,Style.l,XStyle.l Title.s, Parent.l )
WndStyle.l = #WS_VISIBLE
If WindowID( Parent )
SubWnd = OpenWindow( Number,X,Y,W,H,WndStyle,Title )
If SubWnd
If XStyle
SetWindowLong_( WindowID(Number),#GWL_EXSTYLE,XStyle )
EndIf
SetWindowLong_( WindowID(Number),#GWL_STYLE,#WS_CLIPSIBLINGS|#WS_CLIPCHILDREN|Style )
SetParent_ ( WindowID(Number),WindowID(0) )
;- This line fixed the problem we had...
SetWindowPos_ ( WindowID(Number),0,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE|#SWP_FRAMECHANGED )
EndIf
ProcedureReturn SubWnd
EndIf
ProcedureReturn 0
EndProcedure
U will be able to use PBasic openwindow command.
Do you have free time? Maybe we can work together on this project? 3D Engine ( OpenGL ) and 3D objects editor!?!
Roger Beausoleil
Quebec - Canada
Hi Danilo,Still waiting for the first big 3D engine for PB...
Your example is fine! I am still working on... Please try this for the subwindow procedure. I fix the problem we encountered.
Procedure.l OpenSubWindow( Number.l,X,Y,W,H,Style.l,XStyle.l Title.s, Parent.l )
WndStyle.l = #WS_VISIBLE
If WindowID( Parent )
SubWnd = OpenWindow( Number,X,Y,W,H,WndStyle,Title )
If SubWnd
If XStyle
SetWindowLong_( WindowID(Number),#GWL_EXSTYLE,XStyle )
EndIf
SetWindowLong_( WindowID(Number),#GWL_STYLE,#WS_CLIPSIBLINGS|#WS_CLIPCHILDREN|Style )
SetParent_ ( WindowID(Number),WindowID(0) )
;- This line fixed the problem we had...
SetWindowPos_ ( WindowID(Number),0,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE|#SWP_FRAMECHANGED )
EndIf
ProcedureReturn SubWnd
EndIf
ProcedureReturn 0
EndProcedure
U will be able to use PBasic openwindow command.
Do you have free time? Maybe we can work together on this project? 3D Engine ( OpenGL ) and 3D objects editor!?!
Roger Beausoleil
Quebec - Canada
-
- PureBasic Guru
- Posts: 16777133
- Joined: Tue Apr 22, 2003 7:42 pm
Restored from previous forum. Originally posted by Danilo.
I didnt have a problem, so i dont know
what you want to say.
> Do you have free time?
Not much, so it depends for what i need free time...
(for some things you just take the time )
> Maybe we can work together on this project?
> 3D Engine ( OpenGL ) and 3D objects editor!?!
I dont know OpenGL, so i cant help anyway...
I´ll work on a Toolbox for PureBasic Windows
programming for the next month, so i dont have
the time to join other projects.
If you have some special questions, just ask
here. You´ll get an answer... i´m sure.
good luck,
...Danilo
(registered PureBasic user)
Code: Select all
> ;- This line fixed the problem we had...
> SetWindowPos_ ( WindowID(Number),0,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE|#SWP_FRAMECHANGED )
what you want to say.
> Do you have free time?
Not much, so it depends for what i need free time...
(for some things you just take the time )
> Maybe we can work together on this project?
> 3D Engine ( OpenGL ) and 3D objects editor!?!
I dont know OpenGL, so i cant help anyway...
I´ll work on a Toolbox for PureBasic Windows
programming for the next month, so i dont have
the time to join other projects.
If you have some special questions, just ask
here. You´ll get an answer... i´m sure.
good luck,
...Danilo
(registered PureBasic user)