3D Examples?

Monkey Forums/Monkey Programming/3D Examples?

benmc

(Posted 2011) [#1]

Has anyone created any other examples of how to use the new 3D OpenGL functionality in Monkey they would like to share in the Code forum?

I'm curious how to texture a polygon or create a model in Blender (or other) and load it up in Monkey - and add a texture to it.

If not, can someone nudge me in the right direction on what to read or how to learn how to do this :)

Dima	(Posted 2011) [#2]

I haven't touched GL in a long time, but back in the day http://nehe.gamedev.net/ was a good place to start learning. I see they still have legacy lessons on the right side which are probably closer to ES 1.1 that Monkey uses. You might want to breeze over the early lessons for fundamentals and then move to the vertex buffer (VBO) tutorials.

AdamRedwoods

(Posted 2011) [#3]

You can try my monkeyGL "textured cube" example from here. You will need to make modifications since the opengl interface Mark wrote is probably a bit different.

Also, I'm using my FloatPtr class, where Mark's implementation is a Databuffer class, which looks like you need to add your own array-to-buffer implementation. (although I just peeked at his code looks like there's an array to buffer that he hasn't implemented yet...)

Import mojo
Import monkeyGL ''may need to be Import opengl/gles11.monkey

Function Main()
	Local myGame:Game = New Game
End Function

Class Game Extends App

	Field two_triangles_vertices:Float[] = [-0.5,-0.125,0.0, -0.25,-0.125,0.0, -0.375,0.125,0.0, 
			0.25,-0.125,0.0, 0.5,-0.125,0.0, 0.375,0.125,0.0]
	
	
	 Field cube_vertices:Float[] = [
		-1.0,-1.0,-1.0,		 -1.0, 1.0,-1.0,		  1.0, 1.0,-1.0,		  1.0,-1.0,-1.0,	
		 -1.0,-1.0, 1.0,		 -1.0, 1.0, 1.0,		  1.0, 1.0, 1.0,		  1.0,-1.0, 1.0,	
		 -1.0,-1.0, 1.0,		 -1.0, 1.0, 1.0,		  1.0, 1.0, 1.0,		 1.0,-1.0, 1.0,
		 -1.0,-1.0,-1.0,		 -1.0, 1.0,-1.0,		  1.0, 1.0,-1.0,		  1.0,-1.0,-1.0,
		 -1.0,-1.0, 1.0,		 -1.0, 1.0, 1.0,		  1.0, 1.0, 1.0,		  1.0,-1.0, 1.0,	
		 -1.0,-1.0,-1.0,		 -1.0, 1.0,-1.0,		  1.0, 1.0,-1.0,		  1.0,-1.0,-1.0  ]

	Field cube_indices:Int[] = [
		0,1,2,	0,2,3,	6,5,4,
		7,6,4,	14,13,9,	10,14,9,
		8,12,15,	8,15,11,	22,18,19,
		23,22,19,	16,17,21,	16,21,20 ]
	
	''0,1,2,	0,2,3,	6,5,4,	7,6,4,	14,13,9,	10,14,9,	8,12,15,	8,15,11,	22,18,19,	23,22,19,	16,17,21,	16,21,20 ]

	
	Field cube_uvs:Float[] = [
		0.0,1.0,	0.0,0.0,  1.0,0.0,  1.0,1.0,		
		1.0,1.0,  1.0,0.0,  0.0,0.0,  0.0,1.0,		
		0.0,1.0,  0.0,0.0,  1.0,0.0,  1.0,1.0,			
		0.0,0.0,  0.0,1.0,  1.0,1.0,  1.0,0.0,	
		0.0,1.0,  0.0,0.0,  1.0,0.0,  1.0,1.0,				
		1.0,1.0,  1.0,0.0,  0.0,0.0,  0.0,1.0 ]
	
	Field cube_normals:Float[] = [
		0.0,0.0,-1.0,		 0.0,0.0,-1.0,		0.0,0.0,-1.0,		 0.0,0.0,-1.0,
		0.0,0.0,1.0,		 0.0,0.0,1.0,		 0.0,0.0,1.0,		 0.0,0.0,1.0,		
		0.0,-1.0,0.0,		 0.0,1.0,0.0,		 0.0,1.0,0.0,		 0.0,-1.0,0.0,				
		0.0,-1.0,0.0,		 0.0,1.0,0.0,		 0.0,1.0,0.0,		 0.0,-1.0,0.0,	
		-1.0,0.0,0.0,		 -1.0,0.0,0.0,		 1.0,0.0,0.0,		1.0,0.0,0.0,				
		-1.0,0.0,0.0,		 -1.0,0.0,0.0,		 1.0,0.0,0.0,		 1.0,0.0,0.0	]
	
	Field cube_colors:Float[] = [
		0.0, 0.0, 0.0,1.0,   0, 0, 1,1,   0, 1, 1,1,   0, 1, 0,1,
		1, 0, 0,1,   1, 0, 1,1,   1, 1, 1,1,   1, 1, 0,1,
		0, 0, 0,1,   0, 0, 1,1,   1, 0, 1,1,   1, 0, 0,1,
		0, 1, 0,1,   0, 1, 1,1,   1, 1, 1,1,   1, 1, 0,1,
		0, 0, 0,1,   0, 1, 0,1,   1, 1, 0,1,   1, 0, 0,1,
		0, 0, 1,1,   0, 1, 1,1,   1, 1, 1,1,   1, 0, 1,1   ]
	
	Field yrot:Float
	Field mytex:TexturePointer
	Field myimage:Image
	Field verticesptr:Pointer
	Field colorptr:Pointer
	Field indicesptr:Pointer
	Field uvptr:Pointer
	Field normalptr:Pointer
	
	
	Method OnCreate()
		
		SetUpdateRate 60
		'myimage = LoadImage("copper.jpg")
		'Print myimage.Width()
		mytex = LoadTextureGL("copper.jpg")
		'Print mytex.texture
		
		InitMonkeyGL()
		glBindTexture(GL_TEXTURE_2D, mytex.texture )
		glTexEnvi( GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE )
		glTexParameteri( GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR )
		glTexParameteri( GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR )

		glTexParameteri( GL_TEXTURE_2D,GL_TEXTURE_WRAP_S,GL_CLAMP_TO_EDGE )
		glTexParameteri( GL_TEXTURE_2D,GL_TEXTURE_WRAP_T,GL_CLAMP_TO_EDGE )
		glBindTexture(GL_TEXTURE_2D, 0 )
		
		verticesptr = FloatPtr(cube_vertices) ''What a pretty hack, eh?
		colorptr = FloatPtr(cube_colors)
		uvptr = FloatPtr(cube_uvs)
		normalptr = FloatPtr(cube_normals)
		indicesptr = ShortPtr(cube_indices)
		
	End
	
	Method OnUpdate()
		Local ms:Int

		If KeyHit(KEY_ESCAPE) Then Error ""
	End
	
	Method OnRender()
		Cls
		InitMonkeyGL() ''need this for android before any gl commands, includes a glBindBuffer(0)
		
		
		glClear(GL_DEPTH_BUFFER_BIT)
		glEnable( GL_DEPTH_TEST)
		glEnable( GL_BLEND )
		glBlendFunc( GL_ONE,GL_ONE_MINUS_SRC_ALPHA )
		
		''switch to zdepth viewport
		glMatrixMode (GL_PROJECTION)
		glPushMatrix()
		glLoadIdentity ()
		glFrustum(0.0, 0.5, 0.5, 0.0, 1.0, 100.0)
		glMatrixMode (GL_MODELVIEW)
		glLoadIdentity ()
		
		
		glTranslatef(2.0,2.0,-8)
		glRotatef(yrot,0,1,1)
			
		'glDisable( GL_TEXTURE_2D )
		glEnable( GL_TEXTURE_2D )
		glEnableClientState(GL_VERTEX_ARRAY)
		glEnableClientState(GL_TEXTURE_COORD_ARRAY )
		
		'glEnableClientState(GL_NORMAL_ARRAY)
		glDisableClientState(GL_NORMAL_ARRAY)
		glEnableClientState(GL_COLOR_ARRAY)
		'glDisableClientState(GL_COLOR_ARRAY )
		
		glNormal3f(0.0, 0.0, 1.0)
		'glColor4f(1.0,1.0,1.0,1.0)
		
		glBindTexture(GL_TEXTURE_2D, mytex.texture )

		glVertexPointer(3, GL_FLOAT, 0, verticesptr.buffer ) 
		glTexCoordPointer(2, GL_FLOAT, 0, uvptr.buffer )
		'glNormalPointer(GL_FLOAT, 0, normalptr.buffer )
		glColorPointer(4, GL_FLOAT, 0, colorptr.buffer ) ''rgba

		glDrawElements(GL_TRIANGLES, cube_indices.Length(), GL_UNSIGNED_SHORT, indicesptr.buffer )
		
		''disable states
		glDisableClientState(GL_VERTEX_ARRAY)
		glDisableClientState(GL_TEXTURE_COORD_ARRAY )
		glDisableClientState(GL_COLOR_ARRAY )
		glBindTexture(GL_TEXTURE_2D, 0 )
		glDisable( GL_TEXTURE_2D )
		glDisable( GL_DEPTH_TEST)
		glEnable( GL_BLEND )
		
		yrot +=2
		If yrot >360 Then yrot =0
		
		
		''switch back to 2d viewport
		glMatrixMode (GL_PROJECTION)
		glPopMatrix()
		'glOrtho(0.0, DeviceWidth(), DeviceHeight(), 0.0, -1.0, 1.0)
		glMatrixMode (GL_MODELVIEW)
		glLoadIdentity ()

		'StopRenderFlush() ''a hack to block monkey2d flush, may/may not need
		
		RestoreMonkey2D() ''bring us back to do some drawing
		SetColor(255,255,255)
		DrawText( "monkeyGL ", 10,10)
		
		
	End	
End

Richard Betson

(Posted 2011) [#4]

I was thinking about trying to port a few of these NeHe examples for BlitzMax:

http://www.blitzbasic.com/Community/posts.php?topic=41689#468105

L8r,