small OpenGL test

Advanced game related topics
BackupUser
PureBasic Guru
PureBasic Guru
Posts: 16777133
Joined: Tue Apr 22, 2003 7:42 pm

Post by BackupUser »

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)
BackupUser
PureBasic Guru
PureBasic Guru
Posts: 16777133
Joined: Tue Apr 22, 2003 7:42 pm

Post by BackupUser »

Restored from previous forum. Originally posted by VPureBasic.
Still waiting for the first big 3D engine for PB...
Hi Danilo,

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
BackupUser
PureBasic Guru
PureBasic Guru
Posts: 16777133
Joined: Tue Apr 22, 2003 7:42 pm

Post by BackupUser »

Restored from previous forum. Originally posted by Danilo.

Code: Select all

> ;- This line fixed the problem we had...
> SetWindowPos_ ( WindowID(Number),0,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE|#SWP_FRAMECHANGED )
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)
Post Reply