PureBasic Forum
http://forums.purebasic.com/english/

small OpenGL test
http://forums.purebasic.com/english/viewtopic.php?f=16&t=2933
Page 1 of 1

Author:  BackupUser [ Sat Aug 24, 2002 6:49 pm ]
Post subject: 

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)

Author:  BackupUser [ Sat Aug 24, 2002 9:22 pm ]
Post subject: 

Restored from previous forum. Originally posted by VPureBasic.

Quote:
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

Author:  BackupUser [ Fri Aug 30, 2002 8:00 am ]
Post subject: 

Restored from previous forum. Originally posted by Danilo.

Code:
> ;- 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)

Page 1 of 1 All times are UTC + 1 hour
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/