Phoenix3D - A 3D monkey engine

Monkey Archive Forums/Monkey Projects/Phoenix3D - A 3D monkey engine

NoOdle (Posted 2012) [#1]

Well as the title suggests its a 3d engine for monkey based on the Blitz3D syntax. Still a lot to do and add before it is useful and useable but its going well. Here is an example of a working example: 'import Import mojo Import phoenix3d '/ App Class Class PhoenixApp Extends App 'a camera Field cam : TCamera 'a light Field light : TLight 'a cube Field cube : TMesh '/ Create Method OnCreate() 'init graphics Graphics3D( 640, 480 ) SetUpdateRate 60 'sets ambient light AmbientLight( 128, 128, 128 ) 'create a camera cam = CreateCamera() 'create a light light = CreateLight() PositionEntity( light, 0, -1, 0 ) RotateEntity( light, 45, 90, 0 ) 'create a floor cube cube = CreateCube() PositionEntity( cube, 0, -2, 0 ) ScaleEntity( cube, 10, 1, 10 ) End Method '/ Update Method OnUpdate() 'move camera forward If KeyDown( KEY_UP ) MoveEntity( cam, 0, 0, 0.1 ) Endif 'move camera backward If KeyDown( KEY_DOWN ) MoveEntity( cam, 0, 0, -0.1 ) Endif 'turn camera left If KeyDown( KEY_LEFT ) TurnEntity( cam, 0, 1, 0 ) Endif 'turn camera right If KeyDown( KEY_RIGHT ) TurnEntity( cam, 0, -1, 0 ) Endif End Method '/ Render Method OnRender() 'renders world RenderWorld() End Method End Class 'new app Function Main() New PhoenixApp End Function As you can see its identical to Blitz3D! Currently working on implementing surfaces to meshes and the render routine. Then it will be time to add textures. I must thank Simonh for MiniB3D, looking through the source really helped me understand what needed to be done!

DruggedBunny (Posted 2012) [#2]

Cool, more options are always good. Which version of OpenGL is it based on, assuming it's based on OpenGL? For images, just paste the URL.

AdamRedwoods (Posted 2012) [#3]

Very nice, both engines that are surfacing.

NoOdle (Posted 2012) [#4]

Which version of OpenGL is it based on OpenGL 1.1 for now, 2.0 support might be added. Gonna have a play with that when I get this a bit more finished. For images, just paste the URL. Cheers! Heres a screenshot showing off some new stuff. Fog, FogColor, FogRange, CameraClsColor: And heres the monkey code... trying to keep it as close to Blitz3D as possible. 'import Import mojo Import phoenix3d '/ App Class PhoenixApp Extends App 'a camera Field cam : TCamera 'a light Field light : TLight 'a cube Field cube : TMesh '/ Create Method OnCreate() 'init graphics Graphics3D( 640, 480 ) SetUpdateRate 60 'sets ambient light AmbientLight( 128, 128, 128 ) 'create a camera cam = CreateCamera() CameraFogMode( cam, 1 ) CameraFogColor( cam, 0, 0, 128 ) CameraFogRange( cam, 5, 50 ) CameraClsColor( cam, 0, 0, 128 ) 'create a light light = CreateLight() PositionEntity( light, 0, -1, 0 ) RotateEntity( light, 45, 90, 0 ) 'create a floor cube cube = CreateCube() PositionEntity( cube, 0, -2, 0 ) ScaleEntity( cube, 100, 1, 100 ) 'create some pillars For Local x : Int = -50 To 50 Step 10 For Local z : Int = -50 To 50 Step 10 cube = CreateCube() PositionEntity( cube, x, 3, z ) ScaleEntity( cube, 1, 10, 1 ) Next Next End Method '/ Update Method OnUpdate() 'move camera forward If KeyDown( KEY_UP ) MoveEntity( cam, 0, 0, 0.1 ) Endif 'move camera backward If KeyDown( KEY_DOWN ) MoveEntity( cam, 0, 0, -0.1 ) Endif 'turn camera left If KeyDown( KEY_LEFT ) TurnEntity( cam, 0, 1, 0 ) Endif 'turn camera right If KeyDown( KEY_RIGHT ) TurnEntity( cam, 0, -1, 0 ) Endif End Method '/ Render Method OnRender() 'renders world RenderWorld() End Method End Class '/ New App Function Main() New PhoenixApp End Function

slenkar (Posted 2012) [#5]

looks pretty good so far

NoOdle (Posted 2012) [#6]

thanks! Small update: Added CreateCone and EntityColor now works! There are no normals for the cone at the moment, need to work out how to do that. Also need to write a CreateCylinder and CreateSphere function... sphere may be tricky!!

NoOdle (Posted 2012) [#7]

Another update: LoadMesh now loads .OBJ files. Next big step is to get textures working!

NoOdle (Posted 2012) [#8]

Textures are now working and can also be positioned, scaled and rotated. I need to figure out how to do Mipmaps and then work on blending and alpha. I also noticed a problem with my mesh loader, the uv coords aren't loaded properly. Will be fixing that next!

bruZard (Posted 2012) [#9]

it looks very good! Can you upload a demo so we can test the performance?

NoOdle (Posted 2012) [#10]

it looks very good! Can you upload a demo so we can test the performance? Yea sure, I was planning on releasing a demo pretty soon. I'll upload one when I have sorted out my LoadMesh problem. I noticed yours loads my mesh fine and after looking at the code I realised mine doesn't create new vertices for a different u/v coord like yours does. The result makes the meshes texture seams screw up!

bruZard (Posted 2012) [#11]

is'nt my code, is mark's ;)

NoOdle (Posted 2012) [#12]

Managed to fix the mesh loading routine. No more problems with the seams!

pinete (Posted 2012) [#13]

Hi! firstly congratulations, it seems quite good :) what are the platforms the engine is working on? keep the good work!

DruggedBunny (Posted 2012) [#14]

Woo, nice!

NoOdle (Posted 2012) [#15]

what are the platforms the engine is working on? I haven't tried android but will be soon. I just did a test on the iPhone, slightly odd behaviour... the floor fades in and out depending on the camera rotation. It only happens with floor when its big; I tried a smaller scale size and it didn't do it. It appears to be affected by the fog, will have to look into that... but aside from that it all seems to be working ok [edit] hmm yea very strange behaviour. Can't find any information on what could be causing it..

slenkar (Posted 2012) [#16]

nice horsey,

Difference (Posted 2012) [#17]

Looking good. It only happens with floor when its big; Maybe glDepthRange related ?

xzess (Posted 2012) [#18]

great stuff here, do you have a download for us?

NoOdle (Posted 2012) [#19]

do you have a download for us? Soon, just implementing a few more things first and then I'll release a small teaser demo for mac and windows. Implemented EntityFX full bright, flat shaded and disable fog. Below is a screenshot, the sky sphere uses the new FX.

Gerry Quinn (Posted 2012) [#20]

Coming soon: Horsey 3D ;-)

Samah (Posted 2012) [#21]

Where's the teapot demo though? ;)

DruggedBunny (Posted 2012) [#22]

Need demo... where... shoot teapots... at horses....

slenkar (Posted 2012) [#23]

no.... horsey tea party!

CopperCircle (Posted 2012) [#24]

Ooohh, time to dig out some of my old Blitz3D projects, good work.

Difference (Posted 2012) [#25]

Where's the teapot demo though? ;) http://www.sjbaker.org/wiki/index.php?title=The_History_of_The_Teapot I Just looked at porting my BlitzMax teapot sample, but it doen't look like GLES has glEvalMesh2. In that case, It will propbable be a case of loading a teapot model, or creating a code version of glEvalMesh2 . If anyone fancies a go here's the BlitzMax version. ' The UTAH Teapot. See <a href="http://sjbaker.org/teapot/" target="_blank">sjbaker.org/teapot/</a> For more information ' This Function returns an OpenGL display list. ' BlitzMax port by Peter Scheutz 2004.12.18 Function ogld_TeaPot(grid%) Local x#,y#,z# Local i, n Local verts Local teaList Local rimbank Local bodybank1 Local bodybank2 Local lidbank1 Local lidbank2 Local handlebank1 Local handlebank2 Local spoutbank1 Local spoutbank2 verts=CreateBank(3*4*119) RestoreData teaPotVerts For i=0 To 118 ReadData x# ReadData y# ReadData z# PokeFloat verts,i*12,x PokeFloat verts,i*12+4,y PokeFloat verts,i*12+8,z Next rimbank=CreateBank(16*4*3) bodybank1=CreateBank(16*4*3) bodybank2=CreateBank(16*4*3) lidbank1=CreateBank(16*4*3) lidbank2=CreateBank(16*4*3) handlebank1=CreateBank(16*4*3) handlebank2=CreateBank(16*4*3) spoutbank1=CreateBank(16*4*3) spoutbank2=CreateBank(16*4*3) ' rim RestoreData teaPotRim For n=0 To 15 ReadData i PokeFloat rimbank,n*12,PeekFloat(verts,i*12) PokeFloat rimbank,n*12+4,PeekFloat(verts,i*12+4) PokeFloat rimbank,n*12+8,PeekFloat(verts,i*12+8) Next ' body RestoreData teaPotBody For n=0 To 15 ReadData i PokeFloat bodybank1,n*12,PeekFloat(verts,i*12) PokeFloat bodybank1,n*12+4,PeekFloat(verts,i*12+4) PokeFloat bodybank1,n*12+8,PeekFloat(verts,i*12+8) Next For n=0 To 15 ReadData i PokeFloat bodybank2,n*12,PeekFloat(verts,i*12) PokeFloat bodybank2,n*12+4,PeekFloat(verts,i*12+4) PokeFloat bodybank2,n*12+8,PeekFloat(verts,i*12+8) Next ' lid RestoreData teaPotLid For n=0 To 15 ReadData i PokeFloat lidbank1,n*12,PeekFloat(verts,i*12) PokeFloat lidbank1,n*12+4,PeekFloat(verts,i*12+4) PokeFloat lidbank1,n*12+8,PeekFloat(verts,i*12+8) Next For n=0 To 15 ReadData i PokeFloat lidbank2,n*12,PeekFloat(verts,i*12) PokeFloat lidbank2,n*12+4,PeekFloat(verts,i*12+4) PokeFloat lidbank2,n*12+8,PeekFloat(verts,i*12+8) Next ' handle RestoreData teaPotHandle For n=0 To 15 ReadData i PokeFloat handlebank1,n*12,PeekFloat(verts,i*12) PokeFloat handlebank1,n*12+4,PeekFloat(verts,i*12+4) PokeFloat handlebank1,n*12+8,PeekFloat(verts,i*12+8) Next For n=0 To 15 ReadData i PokeFloat handlebank2,n*12,PeekFloat(verts,i*12) PokeFloat handlebank2,n*12+4,PeekFloat(verts,i*12+4) PokeFloat handlebank2,n*12+8,PeekFloat(verts,i*12+8) Next ' Spout RestoreData teaPotSpout For n=0 To 15 ReadData i PokeFloat spoutbank1,n*12,PeekFloat(verts,i*12) PokeFloat spoutbank1,n*12+4,PeekFloat(verts,i*12+4) PokeFloat spoutbank1,n*12+8,PeekFloat(verts,i*12+8) Next For n=0 To 15 ReadData i PokeFloat spoutbank2,n*12,PeekFloat(verts,i*12) PokeFloat spoutbank2,n*12+4,PeekFloat(verts,i*12+4) PokeFloat spoutbank2,n*12+8,PeekFloat(verts,i*12+8) Next teaList = glGenLists(1) glNewList teaList, GL_COMPILE glPushMatrix glRotatef 270, 1, 0, 0 glEnable GL_MAP2_VERTEX_3 glMapGrid2f grid, 0, 1, grid, 0, 1 For i=0 To 3 glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(rimbank)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(bodybank1)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(bodybank2)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(lidbank1)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(lidbank2)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glRotatef 90, 0, 0, 1 Next For i=0 To 1 glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(handlebank1)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(handlebank2)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(spoutbank1)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glMap2f GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Float Ptr( BankBuf(spoutbank2)) glEvalMesh2 GL_FILL, 0, grid, 0, grid glScalef 1,-1,1 Next glDisable GL_MAP2_VERTEX_3 glPopMatrix glEndList Return teaList End Function #teaPotRim DefData 102, 103, 104, 105, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 #teaPotBody DefData 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27 DefData 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40 #teaPotLid DefData 96, 96, 96, 96, 97, 98, 99, 100, 101, 101, 101, 101, 0, 1, 2, 3 DefData 0, 1, 2, 3, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117 #teaPotHandle DefData 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56 DefData 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 28, 65, 66, 67 #teaPotSpout DefData 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83 DefData 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95 #teaPotVerts DefData 0.2000, 0.0000, 2.70000 , 0.2000, -0.1120, 2.70000 , 0.1120, -0.2000, 2.70000 DefData 0.0000, -0.2000, 2.70000 , 1.3375, 0.0000, 2.53125 , 1.3375, -0.7490, 2.53125 DefData 0.7490, -1.3375, 2.53125 , 0.0000, -1.3375, 2.53125 , 1.4375, 0.0000, 2.53125 DefData 1.4375, -0.8050, 2.53125 , 0.8050, -1.4375, 2.53125 , 0.0000, -1.4375, 2.53125 DefData 1.5000, 0.0000, 2.40000 , 1.5000, -0.8400, 2.40000 , 0.8400, -1.5000, 2.40000 DefData 0.0000, -1.5000, 2.40000 , 1.7500, 0.0000, 1.87500 , 1.7500, -0.9800, 1.87500 DefData 0.9800, -1.7500, 1.87500 , 0.0000, -1.7500, 1.87500 , 2.0000, 0.0000, 1.35000 DefData 2.0000, -1.1200, 1.35000 , 1.1200, -2.0000, 1.35000 , 0.0000, -2.0000, 1.35000 DefData 2.0000, 0.0000, 0.90000 , 2.0000, -1.1200, 0.90000 , 1.1200, -2.0000, 0.90000 DefData 0.0000, -2.0000, 0.90000 , -2.0000, 0.0000, 0.90000 , 2.0000, 0.0000, 0.45000 DefData 2.0000, -1.1200, 0.45000 , 1.1200, -2.0000, 0.45000 , 0.0000, -2.0000, 0.45000 DefData 1.5000, 0.0000, 0.22500 , 1.5000, -0.8400, 0.22500 , 0.8400, -1.5000, 0.22500 DefData 0.0000, -1.5000, 0.22500 , 1.5000, 0.0000, 0.15000 , 1.5000, -0.8400, 0.15000 DefData 0.8400, -1.5000, 0.15000 , 0.0000, -1.5000, 0.15000 , -1.6000, 0.0000, 2.02500 DefData -1.6000, -0.3000, 2.02500 , -1.5000, -0.3000, 2.25000 , -1.5000, 0.0000, 2.25000 DefData -2.3000, 0.0000, 2.02500 , -2.3000, -0.3000, 2.02500 , -2.5000, -0.3000, 2.25000 DefData -2.5000, 0.0000, 2.25000 , -2.7000, 0.0000, 2.02500 , -2.7000, -0.3000, 2.02500 DefData -3.0000, -0.3000, 2.25000 , -3.0000, 0.0000, 2.25000 , -2.7000, 0.0000, 1.80000 DefData -2.7000, -0.3000, 1.80000 , -3.0000, -0.3000, 1.80000 , -3.0000, 0.0000, 1.80000 DefData -2.7000, 0.0000, 1.57500 , -2.7000, -0.3000, 1.57500 , -3.0000, -0.3000, 1.35000 DefData -3.0000, 0.0000, 1.35000 , -2.5000, 0.0000, 1.12500 , -2.5000, -0.3000, 1.12500 DefData -2.6500, -0.3000, 0.93750 , -2.6500, 0.0000, 0.93750 , -2.0000, -0.3000, 0.90000 DefData -1.9000, -0.3000, 0.60000 , -1.9000, 0.0000, 0.60000 , 1.7000, 0.0000, 1.42500 DefData 1.7000, -0.6600, 1.42500 , 1.7000, -0.6600, 0.60000 , 1.7000, 0.0000, 0.60000 DefData 2.6000, 0.0000, 1.42500 , 2.6000, -0.6600, 1.42500 , 3.1000, -0.6600, 0.82500 DefData 3.1000, 0.0000, 0.82500 , 2.3000, 0.0000, 2.10000 , 2.3000, -0.2500, 2.10000 DefData 2.4000, -0.2500, 2.02500 , 2.4000, 0.0000, 2.02500 , 2.7000, 0.0000, 2.40000 DefData 2.7000, -0.2500, 2.40000 , 3.3000, -0.2500, 2.40000 , 3.3000, 0.0000, 2.40000 DefData 2.8000, 0.0000, 2.47500 , 2.8000, -0.2500, 2.47500 , 3.5250, -0.2500, 2.49375 DefData 3.5250, 0.0000, 2.49375 , 2.9000, 0.0000, 2.47500 , 2.9000, -0.1500, 2.47500 DefData 3.4500, -0.1500, 2.51250 , 3.4500, 0.0000, 2.51250 , 2.8000, 0.0000, 2.40000 DefData 2.8000, -0.1500, 2.40000 , 3.2000, -0.1500, 2.40000 , 3.2000, 0.0000, 2.40000 DefData 0.0000, 0.0000, 3.15000 , 0.8000, 0.0000, 3.15000 , 0.8000, -0.4500, 3.15000 DefData 0.4500, -0.8000, 3.15000 , 0.0000, -0.8000, 3.15000 , 0.0000, 0.0000, 2.85000 DefData 1.4000, 0.0000, 2.40000 , 1.4000, -0.7840, 2.40000 , 0.7840, -1.4000, 2.40000 DefData 0.0000, -1.4000, 2.40000 , 0.4000, 0.0000, 2.55000 , 0.4000, -0.2240, 2.55000 DefData 0.2240, -0.4000, 2.55000 , 0.0000, -0.4000, 2.55000 , 1.3000, 0.0000, 2.55000 DefData 1.3000, -0.7280, 2.55000 , 0.7280, -1.3000, 2.55000 , 0.0000, -1.3000, 2.55000 DefData 1.3000, 0.0000, 2.40000 , 1.3000, -0.7280, 2.40000 , 0.7280, -1.3000, 2.40000 DefData 0.0000, -1.3000, 2.40000 , 0.0000, 0.0000, 0.00000

matty47 (Posted 2012) [#26]

Have you stopped this? Or when will a download be available? Thanks

Shinkiro1 (Posted 2012) [#27]

Interested if you are still working on this?

NoOdle (Posted 2012) [#28]

I stopped when I noticed that Adam was working on MiniB3D conversion. Collision would have been a major issue and with other projects to complete I didn't see much point duplicating miniB3D. It was a nice test though, learnt a bit more of opengl than I had previously. I will revisit this soon though as I hadn't got around to properly adding alpha.

DruggedBunny (Posted 2012) [#29]

I'd still like to see this released too, regardless of what's missing/broken. The more the merrier!

Shinkiro1 (Posted 2012) [#30]

Me too.