SDK Entity Wrapper

This code has been declared by its author to be Public Domain code.

SDK Entity Wrapper by H&K

2007

Well, I wanted a more object based 3d Engine, along the lines that MiniB3D has as its base. So I knocked this up.
It has several problems.
First, I got all the return types from the B3d manual, which it turns out is wrong ;( Ive corrected the ones I could see are wrong, but you never know
Second, The Base class is way way too heavy, this is partly because I copied were the commands should go from the B3D Manual, rather than the SDK Manual, and partly to make it easyier for B3D users to know which Object I had put the Methods in. It does mean however that you can try and animate a camera etc
Three, Non of the Methods have proper method names, because Ive kept them the same as B3D so its AEntity.MoveEntity rather than AEntity.Move

I Plan to move them arround so that only commands relevent for each entity appear in BLide in Intellesence, make the commands more oop named, and try for
AEntity.Rotation.Point(etc)
And Cut and paste the <summary>s from the original commands

If there is anything clearingly wrong, please say so, cos In honesty I dont know half the B3D commands

Import blitz3d.blitz3dsdk

SuperStrict 


Type TbbEntity
	
	Global List:TList=CreateList()
	
	Field handle:Int
	
	Function HandleToType:TbbEntity (Comparisonhandle:Int)
		
		For Local Ent:TbbEntity = EachIn TbbEntity.List
			If Ent.handle=Comparisonhandle Then Return Ent
		Next
		
		Return Null
	
	End Function
	
	Method CopyEntity:TbbEntity(parent:TbbEntity=Null)
	
		Local New_Ent:TbbEntity = New TbbEntity
		If parent<>Null
			New_Ent.handle = bbCopyEntity(Self.handle,parent.handle)
		Else
			New_Ent.handle = bbCopyEntity(Self.handle)
		EndIf
		List.AddLast(New_Ent)
		Return New_Ent
	
	EndMethod
	
	Method FreeEntity()
	
		bbFreeEntity(Self.handle)	
		Self.List.Remove(Self)
		
	End Method
	
	Method EntityColour(red:Float,green:Float,blue:Float)
		
		bbEntityColor (Self.handle,red,green,blue)
			
	End Method
	
	Method EntityAlpha(alpha:Float)
		
		bbEntityAlpha(Self.handle,alpha)
		
	End Method

	Method EntityShininess(Shininess:Float)
		
		bbEntityShininess(Self.handle,Shininess)
		
	End Method
	
	Method EntityTexture(Texture:TbbTexture,Frame:Int=0,index:Int=0)
	
		bbEntityTexture(Self.handle,Texture.handle,Frame,index)
		
	End Method

	Method EntityBlend(Blend:Int = 0)
		
		bbEntityBlend(Self.handle,Blend)
		
	End Method
	
	Method EntityFX(FX:Int=0)
		
		bbEntityFX(Self.handle,Fx)
		
	End Method
	
	Method EntityAutoFade(Near:Float,Far:Float)
		
		bbEntityAutoFade(Self.handle,Near,Far)
		
	End Method
	
	Method PaintEntity(Brush:TbbBrush)
		
		bbPaintEntity(Self.handle,Brush.handle)
		
	End Method

	Method EntityOrder(Order:Int=0)
		
		bbEntityOrder(Self.handle,Order)
		
	End Method
	
	Method ShowEntity()
		
		bbShowEntity(Self.handle)
		
	End Method
	
	Method NameEntity(name:String)
		
		bbNameEntity(Self.handle,name)
		
	End Method
	
	Method EntityParent(parent:TbbEntity,GlobalSpace:Int=True)
		
		bbEntityParent(Self.handle,parent.handle,GLobalSpace)
		
	End Method
	
	Method GetParent:TbbEntity()
	
		Return Self.HandleToType(bbGetParent(Self.handle))
		
	End Method
	
	Method EntityX:Float(GlobalSpace:Int=False)
		
		Return bbEntityX(Self.handle,GlobalSpace)
		
	End Method
	
	Method EntityY:Float(GlobalSpace:Int=False)
		
		Return bbEntityY(Self.handle,GlobalSpace)
		
	End Method
	
	Method EntityZ:Float(GlobalSpace:Int=False)
		
		Return bbEntityZ(Self.handle,GlobalSpace)
		
	End Method
	
	Method EntityRoll:Float(GlobalSpace:Int=False)
		
		Return bbEntityRoll(Self.handle,GlobalSpace)
		
	End Method
	
	Method EntityYaw:Float(GlobalSpace:Int=False)
		
		Return bbEntityYaw(Self.handle,GlobalSpace)
		
	End Method

	Method EntityPitch:Float(GlobalSpace:Int=False)
		
		Return bbEntityPitch(Self.handle,GlobalSpace)
		
	End Method

	Method EntityClass:String()
		
		Return bbEntityClass(Self.handle)
		
	End Method

	Method EntityName:String()
		
		Return bbEntityName(Self.handle)
		
	End Method
	
	Method CountChildren:Int()
		
		Return bbCountChildren(Self.handle)
		
	End Method
	
	Method GetChild:TbbEntity(index:Int)
	 
		Return Self.HandleToType(bbGetChild(Self.handle,index))
		
	End Method
	
	Method FindChild:TbbEntity (name:String)
		
		Return Self.HandleToType(bbFindChild (Self.handle,name))

	End Method

	Method EntityPick:TbbEntity (Range:Float)
	
		Return Self.HandleToType (bbEntityPick(Self.handle,Range))
		
	End Method

	Method LinePick:TbbEntity(X:Float,Y:Float,Z:Float,DX:Float,DY:Float,DZ:Float,Radius:Float=0.0)
	
		Return Self.HandleToType(bbLinePick(X,Y,Z,DX,DY,DZ,Radius))
	
	End Method
	
	Method EntityVisible:Int(DestEntity:TbbEntity)
		
		Return bbEntityVisible(Self.handle,DestEntity.handle)
		
	End Method
	
	Method EntityDistance:Float(DestEntity:TbbEntity)
		
		Return bbEntityDistance(Self.handle,DestEntity.handle)
		
	End Method

	Method DeltaYaw:Float(DestEntity:TbbEntity)
	
		Return bbDeltaYaw(Self.handle,DestEntity.handle)
	
	End Method

	Method DeltaPitch:Float(DestEntity:TbbEntity)
	
		Return bbDeltaPitch(Self.handle,DestEntity.handle)
	
	End Method
	
	Method TFormPoint(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormPoint(X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method

	Method TFormVector(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormVector (X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method

	Method TFormNormal(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormNormal (X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method
	
	Function TFormedX:Float()
		
		Return bbTFormedX()
		
	End Function
	
	Function TFormedY:Float()
		
		Return bbTFormedY()
		
	End Function
	
	Function TFormedZ:Float()
		
		Return bbTFormedZ()
		
	End Function
	
	Method GetMatElement:Float (row:Int,column:Int )
		
		Return bbGetMatElement(Self.handle,row,column)
		
	End Method
	
	Method ScaleEntity (x_scale:Float,y_scale:Float,z_scalel:Float,GlobalSpace:Int=False)
	
		bbScaleEntity(Self.handle,x_scale,y_scale,z_scalel,GlobalSpace)

	End Method
	
	Method PositionEntity (X:Float,Y:Float,Z:Float,GlobalSpace:Int=False)
	
		bbPositionEntity (Self.handle,X,Y,Z,GlobalSpace)

	End Method	

	Method MoveEntity (X:Float,Y:Float,Z:Float)
	
		bbMoveEntity (Self.handle,X,Y,Z)

	End Method	

	Method TranslateEntity (X:Float,Y:Float,Z:Float,GlobalSpace:Int=False)
	
		bbTranslateEntity (Self.handle,X,Y,Z,GlobalSpace)

	End Method	

	Method RotateEntity (pitch:Float,Yaw:Float,Roll:Float,GlobalSpace:Int=False)
		
		bbRotateEntity (Self.handle,pitch,Yaw,Roll,GlobalSpace)
		
	End Method
	
	Method TurnEntity (pitch:Float,Yaw:Float,Roll:Float,GlobalSpace:Int=False)
		
		bbTurnEntity (Self.handle,pitch,Yaw,Roll,GlobalSpace)
		
	End Method
	
	Method PointEntity (Target:TbbEntity,roll:Float=0)
		
		bbPointEntity (Self.handle,target.handle,roll)
	
	End Method
	
	Method AlignToVector (vector_x:Float,vector_y:Float,vector_z:Float,axis:Int,rate:Float=1.0)
		
		bbAlignToVector (Self.handle,vector_x,vector_y,vector_z,axis,rate)

	End Method
	
	Method LoadAnimSeq:Int (filename:String)
		
		Return bbLoadAnimSeq ( Self.handle,filename)
		
	End Method
	
	Method SetAnimKey (Frame:Int,pos_key:Int=True,rot_key:Int=True,scale_key:Int=True)
	
		bbSetAnimKey (Self.handle,Frame,pos_key,rot_key,scale_key)
	
	End Method
	
	Method AddAnimSeq (length:Int)
	
		bbAddAnimSeq ( Self.handle,length)
	
	End Method

	Method ExtractAnimSeq (first_frame:Int,last_frame:Int,anim_seq:Int=0) 
		
		bbExtractAnimSeq( Self.handle,first_frame,last_frame,anim_seq )

	End Method

	Method Animate (mode:Int=1,speed:Float=1.0,sequence:Int=0,transition:Float=0)
		
		bbAnimate (Self.handle,mode,speed,sequence,transition)
		
	End Method
	
	Method SetAnimTime (time:Float,anim_seq:Int=0)
		
		bbSetAnimTime (Self.handle,time,anim_seq)
		
	End Method
	
	Method AnimSeq:Int ()
		
		Return bbAnimSeq ( Self.handle )
	
	End Method
	
	Method AnimLength:Int ()
		
		Return bbAnimLength ( Self.handle )
	
	End Method	
	
	Method AnimTime:Float ()
		
		Return bbAnimTime ( Self.handle )
	
	End Method
	
	Method Animating:Int ()
		
		Return bbAnimating ( Self.handle )
	
	End Method
	
	Method ResetEntity()
	
		bbResetEntity(Self.handle)
	
	End Method

	Method EntityRadius (x_radius:Float,y_radius:Float=0)
	
		bbEntityRadius (Self.handle,x_radius,y_radius)
	
	End Method
	
	Method EntityBox (X:Float,Y:Float,Z:Float,width:Float,height:Float,depth:Float)
	
		bbEntityBox (Self.handle,X,Y,Z,width,height,depth)
		
	End Method
	
	Method EntityType (collision_type:Int,recursive:Int=False)
		
		bbEntityType (Self.handle,collision_type,recursive)
		
	End Method

	Method EntityPickMode (pick_geometry:Int,obscurer:Int=True)
		
		bbEntityPickMode (Self.handle,pick_geometry,obscurer)

	End Method
	
	Method EntityCollided:TbbEntity ( Src_type:Int )
		
		Return TbbEntity.HandleToType(bbEntityCollided ( Self.handle,Src_Type ))
		
	EndMethod
	
	Method CountCollisions:Int ()
	
		Return bbCountCollisions(Self.handle)
	
	End Method
	
	Method CollisionX:Float (index:Int)
		
		Return bbCollisionX(Self.handle,index)
		
	End Method
	
	Method CollisionY:Float (index:Int)
		
		Return bbCollisionY(Self.handle,index)
		
	End Method
	
	Method CollisionZ:Float (index:Int)
		
		Return bbCollisionZ(Self.handle,index)
		
	End Method
	
	Method CollisionNX:Float (index:Int)
		
		Return bbCollisionNX(Self.handle,index)
		
	End Method
	
	Method CollisionNY:Float (index:Int)
		
		Return bbCollisionNY(Self.handle,index)
		
	End Method
	
	Method CollisionNZ:Float (index:Int)
		
		Return bbCollisionNZ(Self.handle,index)
		
	End Method

	Method CollisionTime:Float (index:Int)
		
		Return bbCollisionTime(Self.handle,index)
		
	End Method
	
	Method CollisionEntity:TbbEntity (index:Int)
		
		Return TbbEntity.HandleToType (bbCollisionEntity(Self.handle,index))
		
	End Method
	
	Method CollisionSurface:TbbSurface (index:Int)
		
		Return TbbSurface.HandleToType (bbCollisionSurface(Self.handle,index))
		
	End Method

	Method CollisionTriangle:Int (index:Int)
		
		Return bbCollisionTriangle(Self.handle,index)
		
	End Method
	
	Method GetEntityType ()
		
		bbGetEntityType ( Self.handle )
		
	End Method
	
	Method EntityInView:Int (camera:TbbEntity)
	
		Return bbEntityInView ( Self.handle,camera.handle)
	
	EndMethod
	
	
End Type

Type TbbBrush

	
	Global List:TList=CreateList()
	
	Field handle:Int
	
	Function HandleToType:TbbBrush (Comparisonhandle:Int)
		
		For Local Ent:TbbBrush = EachIn TbbBrush.List
			If Ent.handle=Comparisonhandle Then Return Ent
		Next
		
		Return Null
	
	End Function
	
	Function CreateBrush:TbbBrush (red:Float=255,green:Float=255,blue:Float=255)
		
		Local New_Brush:TbbBrush = New TbbBrush
		New_Brush.handle = bbCreateBrush ( red,green,blue )
		TbbBrush.List.AddLast(New_Brush)
		Return New_Brush
	
	End Function
	
	Function LoadBrush:TbbBrush (texture_file:String,flags:Int=1,u_scale:Float=1,v_scale:Float=1)
	
		Local New_Brush:TbbBrush = New TbbBrush
		New_Brush.handle = bbLoadBrush ( texture_file,flags,u_scale,v_scale)
		TbbBrush.List.AddLast(New_Brush)
		Return New_Brush
		
	End Function
	
	Method Free()
		
		bbFreeBrush(Self.handle)
		Self.List.Remove(Self)
		
	End Method
	
	Method BrushColor (red:Float,green:Float,blue:Float)
		
		bbBrushColor (Self.handle,red,green,blue)
		
	End Method
	
	Method BrushAlpha (alpha:Float)
	
		bbBrushAlpha (Self.handle,alpha)
		
	EndMethod
	
	Method BrushShininess (Shininess:Float)
	
		bbBrushShininess (Self.handle,Shininess)
		
	EndMethod
	
	Method BrushTexture (texture:TbbTexture,Frame:Int=0,index:Int=0)
	
		bbBrushTexture(Self.handle,Texture.handle,Frame,index)
		
	EndMethod
	
	Method BrushBlend (Blend:Int)
	
		bbBrushBlend (Self.handle,Blend)
		
	EndMethod
	
	Method BrushFX (FX:Int)
	
		bbBrushBlend (Self.handle,FX)
		
	EndMethod
	
	Method GetEntityBrush:TbbBrush(Entity:TbbEntity)
	
		Local New_Brush:TbbBrush = New TbbBrush
		New_Brush.handle = bbGetEntityBrush(Entity.handle)
		TbbBrush.List.AddLast(New_Brush)
		Return New_Brush
		
	End Method
		
	Method GetBrushTexture:TbbTexture (index:Int=0)
	
		Return TbbTexture.HandleToType(bbGetBrushTexture (Self.handle,index))
		
	EndMethod

EndType

Type TbbTexture

	
	Global List:TList=CreateList()
	
	Field handle:Int
	
	Function HandleToType:TbbTexture (Comparisonhandle:Int)
		
		For Local Ent:TbbTexture = EachIn TbbTexture.List
			If Ent.handle=Comparisonhandle Then Return Ent
		Next
		
		Return Null
	
	End Function
	
	Function CreateTexture:TbbTexture (width:Int,height:Int,flags:Int=0,frames:Int=0)
		
		Local New_Texture:TbbTexture = New TbbTexture
		New_Texture.handle = bbCreateTexture (width,height,flags,frames)
		TbbTexture.List.AddLast(New_Texture)
		Return New_Texture
	
	End Function

	Function LoadTexture:TbbTexture (File:String,flags:Int=1)
		
		Local New_Texture:TbbTexture = New TbbTexture
		New_Texture.handle = bbLoadTexture (File,flags)
		TbbTexture.List.AddLast(New_Texture)
		Return New_Texture
	
	End Function

	Function LoadAnimTexture:TbbTexture(file:String,flags:Int,frame_width:Int,frame_height:Int,first_frame:Int,frame_count:Int)
		
		Local New_Texture:TbbTexture = New TbbTexture
		New_Texture.handle = bbLoadAnimTexture (file,flags,frame_width,frame_height,first_frame,frame_count)
		TbbTexture.List.AddLast(New_Texture)
		Return New_Texture
	
	End Function
	
	Method FreeTexture()
		
		bbFreeTexture(Self.handle)
		Self.List.Remove(Self)
		
	End Method	
	
	Method TextureBlend (Blend:Int)
	
		bbTextureBlend (Self.handle,Blend)
		
	EndMethod	
	
	Method TextureCoords (Coords:Int)
	
		bbTextureCoords (Self.handle,Coords:Int)
		
	EndMethod	
	
	Method ScaleTexture (U_Scale:Float,V_Scale:Float)
	
		bbScaleTexture (Self.handle,U_Scale,V_Scale)
		
	EndMethod	
	
	Method PositionTexture (U_Scale:Float,V_Scale:Float)
	
		bbPositionTexture (Self.handle,U_Scale,V_Scale)
		
	EndMethod	
	
	Method RotateTexture (Angle:Float)
	
		bbRotateTexture (Self.handle,Angle)
		
	EndMethod	
	
	Method TextureWidth:Int ()
	
		Return bbTextureWidth (Self.handle)
		
	EndMethod
	
	Method TextureHeight:Int ()
	
		Return bbTextureHeight (Self.handle)
		
	EndMethod	
	
	Method TextureBuffer:Int (Frame:Int = 0)
	
		Return bbTextureBuffer (Self.handle,Frame)
		
	EndMethod
	
	Method TextureName:String ()
	
		Return bbTextureName (Self.handle)
		
	EndMethod
	
	Function ClearTextureFilters()
		
		bbClearTextureFilters()
		
	End Function
	
	Function TextureFilter (match_text:String,flags:Int)
		
		bbTextureFilter (match_text,flags)
		
	End Function
	
	Method SetCubeFace (face:Int)
	
		bbSetCubeFace (Self.handle,face)
	
	End Method
	
	Method SetCubeMode (Mode:Int)
	
		bbSetCubeMode (Self.handle,Mode)
	
	End Method
	
EndType

Type TbbMesh Extends TbbEntity
	
	Function CreateMesh:TbbMesh(parent:TbbEntity=Null)
	
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			New_Mesh.handle = bbCreateMesh(parent.handle)
		Else
			New_Mesh.handle = bbCreateMesh()
		EndIf
		TbbMesh.List.AddLast(New_Mesh)
		Return New_Mesh
		
	End Function
	
	Function LoadMesh:TbbMesh(Filename:String,parent:TbbEntity=Null)
	
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			New_mesh.handle = bbLoadMesh(filename$,parent.handle)
		Else
			New_mesh.handle = bbLoadMesh(filename$)
		EndIf
		
		TbbMesh.List.AddLast(New_Mesh)
		Return New_Mesh
		
	End Function
	
	Function LoadAnimMesh:TbbMesh(Filename:String,parent:TbbEntity=Null)
	
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			New_mesh.handle = bbLoadAnimMesh(filename$,parent.handle)
		Else
			New_mesh.handle = bbLoadAnimMesh(filename$)
		EndIf
		
		TbbMesh.List.AddLast(New_Mesh)
		Return New_Mesh
		
	End Function
	
	Function CreateCube:TbbMesh(parent:TbbEntity=Null)
	
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			New_mesh.handle = bbCreateCube(parent.handle)
		Else
			New_mesh.handle = bbCreateCube()
		EndIf
		
		TbbMesh.List.AddLast(New_Mesh)
		Return New_Mesh
		
	End Function
	
	Function CreateSphere:TbbMesh(Segments:Int=8,parent:TbbEntity=Null)
	
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			New_mesh.handle = bbCreateSphere(Segments,parent.handle)
		Else
			New_mesh.handle = bbCreateSphere(Segments)
		EndIf
		
		TbbMesh.List.AddLast(New_Mesh)
		Return New_Mesh
		
	End Function
	
	Function CreateCylinder:TbbMesh(Segments:Int=8,SOLID:Int=True,parent:TbbEntity=Null)
	
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			New_mesh.handle = bbCreateCylinder(Segments,SOLID,parent.handle)
		Else
			New_mesh.handle = bbCreateCylinder(Segments,SOLID)
		EndIf
		
		TbbMesh.List.AddLast(New_Mesh)
		Return New_Mesh
		
	End Function
	
	Function CreateCone:TbbMesh(Segments:Int=8,SOLID:Int=True,parent:TbbEntity=Null)
	
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			New_mesh.handle = bbCreateCone(Segments,SOLID,parent.handle)
		Else
			New_mesh.handle = bbCreateCone(Segments,SOLID)
		EndIf
		
		TbbMesh.List.AddLast(New_Mesh)
		Return New_Mesh
		
	End Function
	
	Method CopyMesh:TbbMesh (parent:TbbEntity = Null)
		
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			New_Mesh.handle = bbCopyMesh(Self.handle,parent.handle)
		Else
			New_Mesh.handle = bbCopyMesh(Self.handle)
		EndIf
		
		TbbMesh.List.AddLast(New_Mesh)
		Return New_Mesh
		
	End Method
	
	Method AddMesh (dest_mesh:TbbMesh)
		
		bbAddMesh (Self.handle,dest_mesh.handle)
		
	End Method
	
	Method FlipMesh()
	
		bbFlipMesh(Self.handle)
	
	End Method
	
	Method PaintMesh(Brush:TbbBrush)
		
		bbPaintMesh(Self.handle,Brush.handle)
		
	End Method
	
	Method LightMesh (red:Float,green:Float,blue:Float,Range:Float=0,light_x:Float=0,light_y:Float=0,light_z:Float=0)
		
		bbLightMesh (Self.handle,red,green,blue,Range,light_x,light_y,light_z#)
	
	End Method
	
	Method FitMesh (X:Float,Y:Float,z:Float,width:Float,height:Float,depth:Float,uniform:Int=False)
		
		bbFitMesh (Self.handle,X,Y,z,width,height,depth,uniform)
		
	End Method

	Method ScaleMesh (x_scale:Float,y_scale:Float,z_scale:Float)
		
		bbScaleMesh (Self.handle,x_scale,y_scale,z_scale)
	
	End Method
	
	Method RotateMesh (pitch:Float,yaw:Float,roll:Float)
		
		bbRotateMesh (Self.handle,pitch,yaw,roll)
		
	End Method
	
	Method PositionMesh (X:Float,Y:Float,z:Float)
		
		bbPositionMesh (Self.handle,X,Y,z)
		
	End Method
	
	Method UpdateNormals ()
		
		bbUpdateNormals (Self.handle)
		
	End Method
	
	Method MeshesIntersect:Int (mesh_b:TbbMesh )
		
		Return bbMeshesIntersect (Self.handle,mesh_b.handle)
		
	End Method
	
	Method MeshWidth:Float ()
		
		Return bbMeshWidth (Self.handle)
		
	End Method
	
	Method MeshHeight:Float ()
		
		Return bbMeshHeight (Self.handle)
		
	End Method
	
	Method MeshDepth:Float ()
		
		Return bbMeshDepth (Self.handle)
		
	End Method
	
	Method CountSurfaces:Int ()
		
		Return bbCountSurfaces (Self.handle)
	
	End Method

	Method GetSurface:TbbSurface (index:Int)
		
		Return TbbSurface.HandleToType (bbGetSurface ( Self.handle,index))
		
	End Method
	
End Type

Type TbbSurface
	
	Global List:TList=CreateList()
	
	Field handle:Int
	
	Function HandleToType:TbbSurface (Comparisonhandle:Int)
		
		For Local Ent:TbbSurface = EachIn TbbSurface.List
			If Ent.handle=Comparisonhandle Then Return Ent
		Next
		
		Return Null
	
	End Function
	
	Function CreateSurface:TbbSurface(Mesh:TbbMesh,Brush:TbbBrush=Null)
	
		Local New_Surface:TbbSurface = New TbbSurface
		If Brush<>Null
			New_Surface.handle = bbCreateSurface(Mesh.handle,Brush.handle)
		Else
			New_Surface.handle = bbCreateSurface(Mesh.handle)
		EndIf
		TbbSurface.List.AddLast(New_Surface)
		Return New_Surface
		
	End Function
	
	Method PaintSurface(Brush:TbbBrush)
		
		bbPaintSurface (Self.handle,Brush.handle)
		
	End Method
	
	Method ClearSurface (Clear_Verts:Int=True,Clear_Triangles:Int=True)
		
		bbClearSurface(Self.handle,Clear_Verts,Clear_triangles)
		
	End Method
	
	Function FindSurface:TbbSurface ( mesh:TbbMesh,brush:TbbBrush)
	
		Return TbbSurface.HandleToType (bbFindSurface ( mesh.handle,brush.handle))
	
	End Function
	
	Method AddVertex:Int (X:Float,Y:Float,z:Float,u:Float=0,v:Float=0,w:Float=1 )
		
		Return bbAddVertex (Self.handle,X,Y,z,u,v,w )
		
	End Method
	
	Method AddTriangle:Int(v0:Int,v1:Int,V2:Int)
		
		Return bbAddTriangle(Self.handle,v0,v1,v2)
		
	End Method
	
	Method VertexCoords (index:Int,X:Float,Y:Float,z:Float)
		
		bbVertexCoords (Self.handle,index,X,Y,z)
		
	End Method
	
	Method VertexNormal (index:Int,nx:Float,ny:Float,nz:Float)
		
		bbVertexNormal (Self.handle,index,nx,ny,nz)
		
	End Method
	
	Method VertexColor (index:Int,red:Float,green:Float,blue:Float,alpha:Float=1.0)
		
		bbVertexColor (Self.handle,index,red,green,blue,alpha)
		
	End Method
	
	Method VertexTexCoords (index:Int,u:Float,v:Float,w:Float=1.0,coord_set:Float=0.0)
		
		bbVertexTexCoords (Self.handle,index,u,v,w,coord_set)
		
	End Method

	Method CountVertices:Int ()
		
		Return bbCountVertices (Self.handle)
		
	End Method
	
	Method CountTriangles:Int ()
		
		Return bbCountTriangles (Self.handle)
		
	End Method
	
	Method VertexX:Float (index:Int)
	
		Return bbVertexX( Self.handle,index )
	
	End Method
	
	Method VertexY:Float (index:Int)
	
		Return bbVertexY( Self.handle,index )
	
	End Method
	
	Method VertexZ:Float (index:Int)
	
		Return bbVertexZ( Self.handle,index )
	
	End Method
	
	Method VertexNX:Float (index:Int)
	
		Return bbVertexNX( Self.handle,index )
	
	End Method
	
	Method VertexNY:Float (index:Int)
	
		Return bbVertexNY( Self.handle,index )
	
	End Method
	
	Method VertexNZ:Float (index:Int)
	
		Return bbVertexNZ( Self.handle,index )
	
	End Method
	
	Method VertexRed:Float (index:Int)
	
		Return bbVertexRed( Self.handle,index )
	
	End Method
	
	Method VertexGreen:Float (index:Int)
	
		Return bbVertexGreen( Self.handle,index )
	
	End Method
	
	Method VertexBLue:Float (index:Int)
	
		Return bbVertexBlue( Self.handle,index )
	
	End Method
	
	Method VertexAlpha:Float (index:Int)
	
		Return bbVertexAlpha( Self.handle,index )
	
	End Method

	Method VertexU:Float (index:Int,Coord_set:Int=0)
	
		Return bbVertexU (Self.handle,index,Coord_set )
	
	End Method

	Method VertexV:Float (index:Int,Coord_set:Int=0)
	
		Return bbVertexV (Self.handle,index,Coord_set )
	
	End Method

	Method VertexW:Float (index:Int)
	
		Return bbVertexW (Self.handle,index)
	
	End Method
	
	Method TriangleVertex :Float (Triangle_index:Int,Corner:Int)
	
		Return bbTriangleVertex  (Self.handle,Triangle_index,corner )
	
	End Method
	
	Method GetSurfaceBrush:TbbBrush()
	
		Local New_Brush:TbbBrush = New TbbBrush
		New_Brush.handle = bbGetSurfaceBrush(Self.handle)
		TbbBrush.List.AddLast(New_Brush)
		Return New_Brush
		
	End Method
EndType

Type TbbCamera Extends TbbEntity
	
	Function CreateCamera:TbbCamera(parent:TbbEntity=Null)
	
		Local New_Camera:TbbCamera = New TbbCamera
		If parent<>Null
			New_Camera.handle = bbCreateCamera(parent.handle)
		Else
			New_Camera.handle = bbCreateCamera()
		EndIf
		TbbCamera.List.AddLast(New_Camera)
		Return New_Camera
		
	End Function
	
	Method CameraProjMode (mode:Int)
	
		bbCameraProjMode (Self.handle,mode)

	End Method
	
	Method CameraFogMode (mode:Int)
	
		bbCameraFogMode (Self.handle,mode)

	End Method

	Method CameraFogRange (Near:Float,Far:Float)
	
		bbCameraFogRange (Self.handle,Near,Far)

	End Method
	
	Method CameraFogColor (red:Float,green:Float,blue:Float)
	
		bbCameraFogColor (Self.handle,red,green,blue)

	End Method
	
	Method CameraViewPort (X:Int,Y:Int,width:Int,height:Int)
	
		bbCameraViewport (Self.handle,X,Y,width,height)

	End Method
	
	Method CameraClsMode (CLS_Colour:Int,Cls_zBuffer:Int)
	
		bbCameraClsMode (Self.handle,CLS_colour,Cls_ZBuffer)

	End Method
	
	Method CameraClsColor (red:Float,green:Float,blue:Float)
	
		bbCameraClsColor (Self.handle,red,green,blue)

	End Method

	Method CameraRange (Near:Float,Far:Float)
	
		bbCameraRange (Self.handle,Near,Far)

	End Method
	
	Method CameraZoom (Zoom:Float)
	
		bbCameraZoom (Self.handle,Zoom)

	End Method
	
	Method CameraPick (viewport_x:Float,viewport_y:Float )
	
		bbCameraPick (Self.handle,viewport_x,viewport_y)

	End Method

	Function PickedX:Float()
		
		Return bbPickedX( )
		
	End Function

	Function PickedY:Float()
		
		Return bbPickedY( )
		
	End Function

	Function PickedZ:Float()
		
		Return bbPickedZ( )
		
	End Function

	Function PickedNX:Float()
		
		Return bbPickedNX( )
		
	End Function

	Function PickedNY:Float()
		
		Return bbPickedNY( )
		
	End Function

	Function PickedNZ:Float()
		
		Return bbPickedNZ( )
		
	End Function

	Function PickedTime:Int()
		
		Return bbPickedTime( )
		
	End Function

	Function PickedEntity:TbbEntity()
		
		Return TbbEntity.HandleToType(bbPickedEntity( ))
		
	End Function

	Function PickedSurface:TbbSurface()
		
		Return TbbSurface.HandleToType (bbPickedSurface( ))
		
	End Function

	Function PickedTriangle:Int()
		
		Return bbPickedTriangle( )
		
	End Function
	
	Method CameraProject (X:Float,Y:Float,Z:Float)
		
		bbCameraProject (Self.handle,X,Y,Z)
		
	End Method

	Function ProjectedX:Float()
		
		Return bbProjectedX( )
		
	End Function

	Function ProjectedY:Float()
		
		Return bbProjectedY( )
		
	End Function

	Function ProjectedZ:Float()
		
		Return bbProjectedZ( )
		
	End Function
	
End Type

Type TbbLight Extends TbbEntity
	
	Function CreateLight:TbbLight(LightType:Int=0,parent:TbbEntity=Null)
	
		Local New_Light:TbbLight = New TbbLight
		If parent<>Null
			New_Light.handle = bbCreateLight (LightType,parent.handle)
		Else
			New_Light.handle = bbCreateLight(LightType)
		EndIf
		TbbLight.List.AddLast(New_Light)
		Return New_Light
		
	End Function
	
	Method LightRange (Range:Float)
		
		bbLightRange (Self.handle,Range)

	End Method
	
	Method LightColor (red:Float,green:Float,blue:Float)
		
		bbLightColor (Self.handle,red:Float,green:Float,blue:Float)
		
	End Method
	
	Method LightConeAngles (inner_angle:Float,outer_angle:Float)
		
		bbLightConeAngles (Self.handle,inner_angle,outer_angle)
		
	End Method
	
	
End Type

Type TbbPivot Extends TbbEntity

	Function CreatePivot:TbbPivot (LightType:Int=0,parent:TbbEntity=Null)
	
		Local New_Pivot:TbbPivot = New TbbPivot
		If parent<>Null
			New_Pivot.handle = bbCreatePivot (parent.handle)
		Else
			New_Pivot.handle = bbCreatePivot()
		EndIf
		TbbPivot.List.AddLast(New_Pivot)
		Return New_Pivot
		
	End Function
	
End Type

Type TbbMD2 Extends TbbEntity

	Function LoadMD2:TbbMD2( md2_file:String,parent:TbbEntity=Null)
	
		Local New_MD2:TbbMD2 = New TbbMD2
		If parent<>Null
			New_MD2.handle = bbLoadMD2(MD2_File,parent.handle)
		Else
			New_MD2.handle = bbLoadMD2(MD2_File)
		EndIf
		TbbMD2.List.AddLast(New_MD2)
		Return New_MD2
	
	EndFunction
	
	Method AnimateMD2 (mode:Int=0,speed:Float=1.0,first_frame:Int=1,last_frame:Int=0,transition:Float=0.0)
		
		bbAnimateMD2 (Self.handle,mode,speed,first_frame,last_frame,transition)
		
	End Method
	
	Method MD2AnimTime:Int ()
		
		Return bbMD2AnimTime ( Self.handle )
		
	End Method
	
	Method MD2AnimLength:Int()
		
		Return bbMD2AnimLength (Self.handle)
		
	End Method

	Method MD2Animating:Int()
	
	bbMD2Animating (Self.handle)

	End Method
	
EndType

Type TbbBSP Extends TbbEntity

	Function LoadBSP:TbbBSP ( file:String,gamma_adjust:Float=0,parent:TbbEntity=Null)
	
		Local New_BSP:TbbBSP = New TbbBSP
		If parent<>Null
			New_BSP.handle = bbLoadBSP( file,gamma_adjust,parent.handle )
		Else
			New_BSP.handle = bbLoadBSP( file,gamma_adjust)
		EndIf
		TbbBSP.List.AddLast(New_BSP)
		Return New_BSP
	
	EndFunction

	Method BSPAmbientLight (red:Float, green:Float, blue:Float)
		
		bbBSPAmbientLight (Self.handle,red,green,blue)
		
	End Method
	
	Method BSPLighting (use_lightmaps:Int)
		
		bbBSPLighting (Self.handle,use_lightmaps)
		
	End Method

End Type

Type TbbPlane Extends TbbEntity

	Function LoadPlane:TbbPlane (sub_divs:Int=1,parent:TbbEntity=Null )
	
		Local New_Plane:TbbPlane = New TbbPlane
		If parent<>Null
			New_Plane.handle = bbCreatePlane (sub_divs,parent.handle )
		Else
			New_Plane.handle = bbCreatePlane (sub_divs)
		EndIf
		TbbPlane.List.AddLast(New_Plane)
		Return New_Plane
	
	EndFunction

End Type

Type TbbMirror Extends TbbEntity

	Function LoadMirror:TbbMirror (parent:TbbEntity=Null )
	
		Local New_Mirror:TbbMirror = New TbbMirror
		If parent<>Null
			New_Mirror.handle = bbCreateMirror (parent.handle )
		Else
			New_Mirror.handle = bbCreateMirror ()
		EndIf
		TbbMirror.List.AddLast(New_Mirror)
		Return New_Mirror
	
	EndFunction

End Type

Type TbbTerrain Extends TbbEntity

	Function CreateTerrain:TbbTerrain (Grid_size:Int,parent:TbbEntity=Null )
	
		Local New_Terrain:TbbTerrain = New TbbTerrain
		If parent<>Null
			New_Terrain.handle = bbCreateTerrain (Grid_size,parent.handle )
		Else
			New_Terrain.handle = bbCreateTerrain (Grid_size)
		EndIf
		TbbTerrain.List.AddLast(New_Terrain)
		Return New_Terrain
	
	EndFunction
	
	Function LoadTerrain:TbbTerrain (File:String,parent:TbbEntity=Null )
	
		Local New_Terrain:TbbTerrain = New TbbTerrain
		If parent<>Null
			New_Terrain.handle = bbLoadTerrain (File,parent.handle )
		Else
			New_Terrain.handle = bbLoadTerrain (File)
		EndIf
		TbbTerrain.List.AddLast(New_Terrain)
		Return New_Terrain
	
	EndFunction

	Method TerrainSize:Int()
		
		Return bbTerrainSize(Self.handle)
		
	End Method
	
	Method TerrainDetail (detail_level:Int,vertex_morph:Int =0)
		
		bbTerrainDetail (Self.handle,detail_level,vertex_morph)
		
	End Method
	
	Method TerrainShading(Enable:Int)
		
		bbTerrainShading(Self.handle,Enable)
		
	End Method
	
	Method TerrainHeight:Float(grid_x:Int,grid_z:Int )
		
		Return bbTerrainHeight(Self.handle,grid_x,grid_z)
		
	End Method
	
	Method ModifyTerrain (grid_x:Int,grid_z:Int,height:Float,realtime:Int=False)
		
		bbModifyTerrain (Self.handle,grid_x,grid_z,height,realtime)
		
	End Method
	
	Method TerrainX:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainX(Self.handle,X,Y,z)
		
	End Method
	
	Method TerrainY:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainY(Self.handle,X,Y,z)
		
	End Method
	
	Method TerrainZ:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainZ(Self.handle,X,Y,z)
		
	End Method

End Type

'
'bbBeginBlitz3D
'
'bbGraphics3D 800,600,0,2
'
'Local MyCube:TbbMesh = TbbMesh.CreateCube()
'Local MyLight:TbbLight = TbbLight.CreateLight()
'Local MyCamera:TbbCamera = TbbCamera.CreateCamera()
'
'MyCamera.PositionEntity(0,0,-4)
'
'Mylight.LightColor(0,255,255)
'
'While not bbKeyHit(1)
'	MyCube.TurnEntity(.1,.2,.3)
'	bbRenderWorld
'	bbFlip 1
'WEnd

Comments

skidracer

2007

Cool!

For speed reasons I would use a map instead of a list for resolving entity handles.

Or use the new bbSetEntityID bbGetEntityID commands to store an object reference in the entity:

' store the owner object in the entityid when you create it
bbSetEntityID(entityhandle,HandleFromObject(myobject))

' lookup owner object from entityhandle with following
myobject= HandleToObject(bbEntityID(entityhandle))

you should probably store the result of the HandleFromObject and when you kill the entity call Release objecthandle to keep bmx GC happy.

H&K

2007

lol, Thats why I posted My "what was HandleFromObject doing" in bbType post.

H&K

2007

Beta 0.02

Import blitz3d.blitz3dsdk

SuperStrict 

Type TbbBrush

	
	Global List:TList=CreateList()
	
	Field handle:Int

	Function HandleToType:TbbBrush (Comparisonhandle:Int)
		
		Return TbbBrush(HandleToObject(bbEntityID(Comparisonhandle)))

	End Function
	
	Function Allocate:TbbBrush(PHandle:Int)
	
		Local New_Brush:TbbBrush = New TbbBrush
		New_Brush.handle= PHandle
		Self.List.AddLast(New_Brush)
		bbSetEntityID(PHandle,HandleFromObject(New_Brush))
		Return New_Brush
		
	End Function
	
	Function CreateBrush:TbbBrush (red:Float=255,green:Float=255,blue:Float=255)
		
		Return Self.Allocate(bbCreateBrush ( red,green,blue ))
	
	End Function
	
	Function LoadBrush:TbbBrush (texture_file:String,flags:Int=1,u_scale:Float=1,v_scale:Float=1)
	
		Return Self.Allocate( bbLoadBrush ( texture_file,flags,u_scale,v_scale))
		
	End Function
	
	Method Free()
		
		bbFreeBrush(Self.handle)
		Self.List.Remove(Self)
		
	End Method
	
	Method BrushColor (red:Float,green:Float,blue:Float)
		
		bbBrushColor (Self.handle,red,green,blue)
		
	End Method
	
	Method BrushAlpha (alpha:Float)
	
		bbBrushAlpha (Self.handle,alpha)
		
	EndMethod
	
	Method BrushShininess (Shininess:Float)
	
		bbBrushShininess (Self.handle,Shininess)
		
	EndMethod
	
	Method BrushTexture (texture:TbbTexture,Frame:Int=0,index:Int=0)
	
		bbBrushTexture(Self.handle,Texture.handle,Frame,index)
		
	EndMethod
	
	Method BrushBlend (Blend:Int)
	
		bbBrushBlend (Self.handle,Blend)
		
	EndMethod
	
	Method BrushFX (FX:Int)
	
		bbBrushBlend (Self.handle,FX)
		
	EndMethod
	
	Method GetEntityBrush:TbbBrush(Entity:TbbEntity)
	
		Return TbbBrush.Allocate(bbGetEntityBrush(Entity.handle))
		
	End Method
		
	Method GetBrushTexture:TbbTexture (index:Int=0)
	
		Return TbbTexture.HandleToType(bbGetBrushTexture (Self.handle,index))
		
	EndMethod

EndType

Type TbbTexture


	Global List:TList=CreateList()
	
	Field handle:Int
	
	Function HandleToType:TbbTexture (Comparisonhandle:Int)
		
		Return TbbTexture(HandleToObject(bbEntityID(Comparisonhandle)))

	End Function
	
	Function Allocate:TbbTexture(PHandle:Int)
	
		Local New_Texture:TbbTexture = New TbbTexture
		New_Texture.handle= PHandle
		Self.List.AddLast(New_Texture)
		bbSetEntityID(PHandle,HandleFromObject(New_Texture))
		Return New_Texture
		
	End Function
	
	Function CreateTexture:TbbTexture (width:Int,height:Int,flags:Int=0,frames:Int=0)
		
		Return Self.Allocate(bbCreateTexture (width,height,flags,frames))
	
	End Function

	Function LoadTexture:TbbTexture (File:String,flags:Int=1)
		
		Return Self.Allocate (bbLoadTexture (File,flags))
	
	End Function

	Function LoadAnimTexture:TbbTexture(file:String,flags:Int,frame_width:Int,frame_height:Int,first_frame:Int,frame_count:Int)
		
		Return Self.Allocate(bbLoadAnimTexture (file,flags,frame_width,frame_height,first_frame,frame_count))
	
	End Function
	
	Method FreeTexture()
		
		bbFreeTexture(Self.handle)
		Self.List.Remove(Self)
		
	End Method	
	
	Method TextureBlend (Blend:Int)
	
		bbTextureBlend (Self.handle,Blend)
		
	EndMethod	
	
	Method TextureCoords (Coords:Int)
	
		bbTextureCoords (Self.handle,Coords:Int)
		
	EndMethod	
	
	Method ScaleTexture (U_Scale:Float,V_Scale:Float)
	
		bbScaleTexture (Self.handle,U_Scale,V_Scale)
		
	EndMethod	
	
	Method PositionTexture (U_Scale:Float,V_Scale:Float)
	
		bbPositionTexture (Self.handle,U_Scale,V_Scale)
		
	EndMethod	
	
	Method RotateTexture (Angle:Float)
	
		bbRotateTexture (Self.handle,Angle)
		
	EndMethod	
	
	Method TextureWidth:Int ()
	
		Return bbTextureWidth (Self.handle)
		
	EndMethod
	
	Method TextureHeight:Int ()
	
		Return bbTextureHeight (Self.handle)
		
	EndMethod	
	
	Method TextureBuffer:Int (Frame:Int = 0)
	
		Return bbTextureBuffer (Self.handle,Frame)
		
	EndMethod
	
	Method TextureName:String ()
	
		Return bbTextureName (Self.handle)
		
	EndMethod
	
	Function ClearTextureFilters()
		
		bbClearTextureFilters()
		
	End Function
	
	Function TextureFilter (match_text:String,flags:Int)
		
		bbTextureFilter (match_text,flags)
		
	End Function
	
	Method SetCubeFace (face:Int)
	
		bbSetCubeFace (Self.handle,face)
	
	End Method
	
	Method SetCubeMode (Mode:Int)
	
		bbSetCubeMode (Self.handle,Mode)
	
	End Method
	
EndType

Type TbbSurface
	
	Global List:TList=CreateList()
	
	Field handle:Int
	
	Function HandleToType:TbbSurface (Comparisonhandle:Int)
		
		Return TbbSurface(HandleToObject(bbEntityID(Comparisonhandle)))

	End Function
	
	Function Allocate:TbbSurface(PHandle:Int)
	
		Local New_Surface:TbbSurface = New TbbSurface
		New_Surface.handle= PHandle
		Self.List.AddLast(New_Surface)
		bbSetEntityID(PHandle,HandleFromObject(New_Surface))
		Return New_Surface
		
	End Function
	
	Function CreateSurface:TbbSurface(Mesh:TbbMesh,Brush:TbbBrush=Null)
	
		If Brush<>Null
			Return Self.Allocate (bbCreateSurface(Mesh.handle,Brush.handle))
		Else
			Return Self.Allocate (bbCreateSurface(Mesh.handle))
		EndIf
	
	End Function
	
	Method PaintSurface(Brush:TbbBrush)
		
		bbPaintSurface (Self.handle,Brush.handle)
		
	End Method
	
	Method ClearSurface (Clear_Verts:Int=True,Clear_Triangles:Int=True)
		
		bbClearSurface(Self.handle,Clear_Verts,Clear_triangles)
		
	End Method
	
	Function FindSurface:TbbSurface ( mesh:TbbMesh,brush:TbbBrush)
	
		Return TbbSurface.HandleToType (bbFindSurface ( mesh.handle,brush.handle))
	
	End Function
	
	Method AddVertex:Int (X:Float,Y:Float,z:Float,u:Float=0,v:Float=0,w:Float=1 )
		
		Return bbAddVertex (Self.handle,X,Y,z,u,v,w )
		
	End Method
	
	Method AddTriangle:Int(v0:Int,v1:Int,V2:Int)
		
		Return bbAddTriangle(Self.handle,v0,v1,v2)
		
	End Method
	
	Method VertexCoords (index:Int,X:Float,Y:Float,z:Float)
		
		bbVertexCoords (Self.handle,index,X,Y,z)
		
	End Method
	
	Method VertexNormal (index:Int,nx:Float,ny:Float,nz:Float)
		
		bbVertexNormal (Self.handle,index,nx,ny,nz)
		
	End Method
	
	Method VertexColor (index:Int,red:Float,green:Float,blue:Float,alpha:Float=1.0)
		
		bbVertexColor (Self.handle,index,red,green,blue,alpha)
		
	End Method
	
	Method VertexTexCoords (index:Int,u:Float,v:Float,w:Float=1.0,coord_set:Float=0.0)
		
		bbVertexTexCoords (Self.handle,index,u,v,w,coord_set)
		
	End Method

	Method CountVertices:Int ()
		
		Return bbCountVertices (Self.handle)
		
	End Method
	
	Method CountTriangles:Int ()
		
		Return bbCountTriangles (Self.handle)
		
	End Method
	
	Method VertexX:Float (index:Int)
	
		Return bbVertexX( Self.handle,index )
	
	End Method
	
	Method VertexY:Float (index:Int)
	
		Return bbVertexY( Self.handle,index )
	
	End Method
	
	Method VertexZ:Float (index:Int)
	
		Return bbVertexZ( Self.handle,index )
	
	End Method
	
	Method VertexNX:Float (index:Int)
	
		Return bbVertexNX( Self.handle,index )
	
	End Method
	
	Method VertexNY:Float (index:Int)
	
		Return bbVertexNY( Self.handle,index )
	
	End Method
	
	Method VertexNZ:Float (index:Int)
	
		Return bbVertexNZ( Self.handle,index )
	
	End Method
	
	Method VertexRed:Float (index:Int)
	
		Return bbVertexRed( Self.handle,index )
	
	End Method
	
	Method VertexGreen:Float (index:Int)
	
		Return bbVertexGreen( Self.handle,index )
	
	End Method
	
	Method VertexBLue:Float (index:Int)
	
		Return bbVertexBlue( Self.handle,index )
	
	End Method
	
	Method VertexAlpha:Float (index:Int)
	
		Return bbVertexAlpha( Self.handle,index )
	
	End Method

	Method VertexU:Float (index:Int,Coord_set:Int=0)
	
		Return bbVertexU (Self.handle,index,Coord_set )
	
	End Method

	Method VertexV:Float (index:Int,Coord_set:Int=0)
	
		Return bbVertexV (Self.handle,index,Coord_set )
	
	End Method

	Method VertexW:Float (index:Int)
	
		Return bbVertexW (Self.handle,index)
	
	End Method
	
	Method TriangleVertex :Float (Triangle_index:Int,Corner:Int)
	
		Return bbTriangleVertex  (Self.handle,Triangle_index,corner )
	
	End Method
	
	Method GetSurfaceBrush:TbbBrush()
	
		Return TbbBrush.Allocate(bbGetSurfaceBrush(Self.handle))
		
	End Method
	
EndType

Type TbbEntity
	
	Global List:TList=CreateList()
	
	Field handle:Int
	
	Function HandleToType:TbbEntity (Comparisonhandle:Int)
		
		Select bbEntityClass (Comparisonhandle)
			Case "Pivot"
				Return TbbPivot (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Light"
				Return TbbLight (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Camera"
				Return TbbCamera (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Mirror"
				Return TbbMirror (HandleToObject(bbEntityID(Comparisonhandle)))
'			Case "Listener"
'				Return TbbListener (HandleToObject(bbEntityID(Comparisonhandle)))
'			Case "Sprite"
'				Return TbbEntity(HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Terrain"
				Return TbbTerrain (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Plane"
				Return TbbPlane (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Mesh"
				Return TbbMesh (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "MD2"
				Return TbbMD2 (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "BSP"
				Return TbbBSP (HandleToObject(bbEntityID(Comparisonhandle)))
		End Select
		

	End Function
	
	Function Allocate:TbbEntity(PHandle:Int)
		
		Select bbEntityClass (PHandle)
			Case "Pivot"
				Local New_Entity:TbbPivot = New TbbPivot
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Light"
				Local New_Entity:TbbLight = New TbbLight
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Camera"
				Local New_Entity:TbbCamera = New TbbCamera
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Mirror"
				Local New_Entity:TbbMirror = New TbbMirror
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
'			Case "Listener"
'				Local New_Entity:TbbListener = New TbbListener
'			Case "Sprite"
'				Local New_Entity:TbbSprite = New TbbSprite
			Case "Terrain"
				Local New_Entity:TbbTerrain = New TbbTerrain
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Plane"
				Local New_Entity:TbbPlane = New TbbPlane
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Mesh"
				Local New_Entity:TbbMesh = New TbbMesh
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "MD2"
				Local New_Entity:TbbMD2 = New TbbMD2
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "BSP"
				Local New_Entity:TbbBSP = New TbbBSP
				New_Entity.handle= PHandle
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
		End Select		
	
	End Function
	
	Method CopyEntity:TbbEntity(parent:TbbEntity=Null)
	
		If parent<>Null
		 Return TbbEntity.Allocate (bbCopyEntity(Self.handle,parent.handle))
		Else
		 Return  TbbEntity.Allocate (bbCopyEntity(Self.handle))
		EndIf
			
	EndMethod
	
	Method FreeEntity()
	
		bbFreeEntity(Self.handle)	
		Self.List.Remove(Self)
		
	End Method
	
	Method EntityColour(red:Float,green:Float,blue:Float)
		
		bbEntityColor (Self.handle,red,green,blue)
			
	End Method
	
	Method EntityAlpha(alpha:Float)
		
		bbEntityAlpha(Self.handle,alpha)
		
	End Method

	Method EntityShininess(Shininess:Float)
		
		bbEntityShininess(Self.handle,Shininess)
		
	End Method
	
	Method EntityTexture(Texture:TbbTexture,Frame:Int=0,index:Int=0)
	
		bbEntityTexture(Self.handle,Texture.handle,Frame,index)
		
	End Method

	Method EntityBlend(Blend:Int = 0)
		
		bbEntityBlend(Self.handle,Blend)
		
	End Method
	
	Method EntityFX(FX:Int=0)
		
		bbEntityFX(Self.handle,Fx)
		
	End Method
	
	Method EntityAutoFade(Near:Float,Far:Float)
		
		bbEntityAutoFade(Self.handle,Near,Far)
		
	End Method
	
	Method PaintEntity(Brush:TbbBrush)
		
		bbPaintEntity(Self.handle,Brush.handle)
		
	End Method

	Method EntityOrder(Order:Int=0)
		
		bbEntityOrder(Self.handle,Order)
		
	End Method
	
	Method ShowEntity()
		
		bbShowEntity(Self.handle)
		
	End Method
	
	Method NameEntity(name:String)
		
		bbNameEntity(Self.handle,name)
		
	End Method
	
	Method EntityParent(parent:TbbEntity,GlobalSpace:Int=True)
		
		bbEntityParent(Self.handle,parent.handle,GLobalSpace)
		
	End Method
	
	Method GetParent:TbbEntity()
	
		Return Self.HandleToType(bbGetParent(Self.handle))
		
	End Method
	
	Method EntityX:Float(GlobalSpace:Int=False)
		
		Return bbEntityX(Self.handle,GlobalSpace)
		
	End Method
	
	Method EntityY:Float(GlobalSpace:Int=False)
		
		Return bbEntityY(Self.handle,GlobalSpace)
		
	End Method
	
	Method EntityZ:Float(GlobalSpace:Int=False)
		
		Return bbEntityZ(Self.handle,GlobalSpace)
		
	End Method
	
	Method EntityRoll:Float(GlobalSpace:Int=False)
		
		Return bbEntityRoll(Self.handle,GlobalSpace)
		
	End Method
	
	Method EntityYaw:Float(GlobalSpace:Int=False)
		
		Return bbEntityYaw(Self.handle,GlobalSpace)
		
	End Method

	Method EntityPitch:Float(GlobalSpace:Int=False)
		
		Return bbEntityPitch(Self.handle,GlobalSpace)
		
	End Method

	Method EntityClass:String()
		
		Return bbEntityClass(Self.handle)
		
	End Method

	Method EntityName:String()
		
		Return bbEntityName(Self.handle)
		
	End Method
	
	Method CountChildren:Int()
		
		Return bbCountChildren(Self.handle)
		
	End Method
	
	Method GetChild:TbbEntity(index:Int)
	 
		Return Self.HandleToType(bbGetChild(Self.handle,index))
		
	End Method
	
	Method FindChild:TbbEntity (name:String)
		
		Return Self.HandleToType(bbFindChild (Self.handle,name))

	End Method

	Method EntityPick:TbbEntity (Range:Float)
	
		Return Self.HandleToType (bbEntityPick(Self.handle,Range))
		
	End Method

	Method LinePick:TbbEntity(X:Float,Y:Float,Z:Float,DX:Float,DY:Float,DZ:Float,Radius:Float=0.0)
	
		Return Self.HandleToType(bbLinePick(X,Y,Z,DX,DY,DZ,Radius))
	
	End Method
	
	Method EntityVisible:Int(DestEntity:TbbEntity)
		
		Return bbEntityVisible(Self.handle,DestEntity.handle)
		
	End Method
	
	Method EntityDistance:Float(DestEntity:TbbEntity)
		
		Return bbEntityDistance(Self.handle,DestEntity.handle)
		
	End Method

	Method DeltaYaw:Float(DestEntity:TbbEntity)
	
		Return bbDeltaYaw(Self.handle,DestEntity.handle)
	
	End Method

	Method DeltaPitch:Float(DestEntity:TbbEntity)
	
		Return bbDeltaPitch(Self.handle,DestEntity.handle)
	
	End Method
	
	Method TFormPoint(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormPoint(X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method

	Method TFormVector(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormVector (X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method

	Method TFormNormal(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormNormal (X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method
	
	Function TFormedX:Float()
		
		Return bbTFormedX()
		
	End Function
	
	Function TFormedY:Float()
		
		Return bbTFormedY()
		
	End Function
	
	Function TFormedZ:Float()
		
		Return bbTFormedZ()
		
	End Function
	
	Method GetMatElement:Float (row:Int,column:Int )
		
		Return bbGetMatElement(Self.handle,row,column)
		
	End Method
	
	Method ScaleEntity (x_scale:Float,y_scale:Float,z_scalel:Float,GlobalSpace:Int=False)
	
		bbScaleEntity(Self.handle,x_scale,y_scale,z_scalel,GlobalSpace)

	End Method
	
	Method PositionEntity (X:Float,Y:Float,Z:Float,GlobalSpace:Int=False)
	
		bbPositionEntity (Self.handle,X,Y,Z,GlobalSpace)

	End Method	

	Method MoveEntity (X:Float,Y:Float,Z:Float)
	
		bbMoveEntity (Self.handle,X,Y,Z)

	End Method	

	Method TranslateEntity (X:Float,Y:Float,Z:Float,GlobalSpace:Int=False)
	
		bbTranslateEntity (Self.handle,X,Y,Z,GlobalSpace)

	End Method	

	Method RotateEntity (pitch:Float,Yaw:Float,Roll:Float,GlobalSpace:Int=False)
		
		bbRotateEntity (Self.handle,pitch,Yaw,Roll,GlobalSpace)
		
	End Method
	
	Method TurnEntity (pitch:Float,Yaw:Float,Roll:Float,GlobalSpace:Int=False)
		
		bbTurnEntity (Self.handle,pitch,Yaw,Roll,GlobalSpace)
		
	End Method
	
	Method PointEntity (Target:TbbEntity,roll:Float=0)
		
		bbPointEntity (Self.handle,target.handle,roll)
	
	End Method
	
	Method AlignToVector (vector_x:Float,vector_y:Float,vector_z:Float,axis:Int,rate:Float=1.0)
		
		bbAlignToVector (Self.handle,vector_x,vector_y,vector_z,axis,rate)

	End Method
	
	Method LoadAnimSeq:Int (filename:String)
		
		Return bbLoadAnimSeq ( Self.handle,filename)
		
	End Method
	
	Method SetAnimKey (Frame:Int,pos_key:Int=True,rot_key:Int=True,scale_key:Int=True)
	
		bbSetAnimKey (Self.handle,Frame,pos_key,rot_key,scale_key)
	
	End Method
	
	Method AddAnimSeq (length:Int)
	
		bbAddAnimSeq ( Self.handle,length)
	
	End Method

	Method ExtractAnimSeq (first_frame:Int,last_frame:Int,anim_seq:Int=0) 
		
		bbExtractAnimSeq( Self.handle,first_frame,last_frame,anim_seq )

	End Method

	Method Animate (mode:Int=1,speed:Float=1.0,sequence:Int=0,transition:Float=0)
		
		bbAnimate (Self.handle,mode,speed,sequence,transition)
		
	End Method
	
	Method SetAnimTime (time:Float,anim_seq:Int=0)
		
		bbSetAnimTime (Self.handle,time,anim_seq)
		
	End Method
	
	Method AnimSeq:Int ()
		
		Return bbAnimSeq ( Self.handle )
	
	End Method
	
	Method AnimLength:Int ()
		
		Return bbAnimLength ( Self.handle )
	
	End Method	
	
	Method AnimTime:Float ()
		
		Return bbAnimTime ( Self.handle )
	
	End Method
	
	Method Animating:Int ()
		
		Return bbAnimating ( Self.handle )
	
	End Method
	
	Method ResetEntity()
	
		bbResetEntity(Self.handle)
	
	End Method

	Method EntityRadius (x_radius:Float,y_radius:Float=0)
	
		bbEntityRadius (Self.handle,x_radius,y_radius)
	
	End Method
	
	Method EntityBox (X:Float,Y:Float,Z:Float,width:Float,height:Float,depth:Float)
	
		bbEntityBox (Self.handle,X,Y,Z,width,height,depth)
		
	End Method
	
	Method EntityType (collision_type:Int,recursive:Int=False)
		
		bbEntityType (Self.handle,collision_type,recursive)
		
	End Method

	Method EntityPickMode (pick_geometry:Int,obscurer:Int=True)
		
		bbEntityPickMode (Self.handle,pick_geometry,obscurer)

	End Method
	
	Method EntityCollided:TbbEntity ( Src_type:Int )
		
		Return TbbEntity.HandleToType(bbEntityCollided ( Self.handle,Src_Type ))
		
	EndMethod
	
	Method CountCollisions:Int ()
	
		Return bbCountCollisions(Self.handle)
	
	End Method
	
	Method CollisionX:Float (index:Int)
		
		Return bbCollisionX(Self.handle,index)
		
	End Method
	
	Method CollisionY:Float (index:Int)
		
		Return bbCollisionY(Self.handle,index)
		
	End Method
	
	Method CollisionZ:Float (index:Int)
		
		Return bbCollisionZ(Self.handle,index)
		
	End Method
	
	Method CollisionNX:Float (index:Int)
		
		Return bbCollisionNX(Self.handle,index)
		
	End Method
	
	Method CollisionNY:Float (index:Int)
		
		Return bbCollisionNY(Self.handle,index)
		
	End Method
	
	Method CollisionNZ:Float (index:Int)
		
		Return bbCollisionNZ(Self.handle,index)
		
	End Method

	Method CollisionTime:Float (index:Int)
		
		Return bbCollisionTime(Self.handle,index)
		
	End Method
	
	Method CollisionEntity:TbbEntity (index:Int)
		
		Return TbbEntity.HandleToType (bbCollisionEntity(Self.handle,index))
		
	End Method
	
	Method CollisionSurface:TbbSurface (index:Int)
		
		Return TbbSurface.HandleToType (bbCollisionSurface(Self.handle,index))
		
	End Method

	Method CollisionTriangle:Int (index:Int)
		
		Return bbCollisionTriangle(Self.handle,index)
		
	End Method
	
	Method GetEntityType ()
		
		bbGetEntityType ( Self.handle )
		
	End Method
	
	Method EntityInView:Int (camera:TbbEntity)
	
		Return bbEntityInView ( Self.handle,camera.handle)
	
	EndMethod
	
	
End Type

Type TbbMesh Extends TbbEntity

	Method CopyEntity:TbbMesh(parent:TbbEntity=Null)
	
		Return TbbMesh(Super.CopyEntity (parent))
					
	EndMethod
	
	Function CreateMesh:TbbMesh(parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh.Allocate (bbCreateMesh(parent.handle)))
		Else
			Return TbbMesh(TbbMesh.Allocate (bbCreateMesh()))
		EndIf
				
	End Function
	
	Function LoadMesh:TbbMesh(Filename:String,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh.Allocate (bbLoadMesh(filename$,parent.handle)))
		Else
			Return TbbMesh (TbbMesh.Allocate (bbLoadMesh(filename$)))
		EndIf
		
	End Function
	
	Function LoadAnimMesh:TbbMesh(Filename:String,parent:TbbEntity=Null)
	
		If parent<>Null
			Return tbbmesh(TbbMesh.Allocate (bbLoadAnimMesh(filename$,parent.handle)))
		Else
			Return tbbmesh(TbbMesh.Allocate (bbLoadAnimMesh(filename$)))
		EndIf
		
	End Function
	
	Function CreateCube:TbbMesh(parent:TbbEntity=Null)
	
		If parent<>Null
			Return tbbmesh(TbbMesh.Allocate (bbCreateCube(parent.handle)))
		Else
			Return tbbMesh(TbbMesh.Allocate (bbCreateCube()))
		EndIf
		
	End Function
	
	Function CreateSphere:TbbMesh(Segments:Int=8,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh.Allocate (bbCreateSphere(Segments,parent.handle)))
		Else
			Return tbbmesh(TbbMesh.Allocate (bbCreateSphere(Segments)))
		EndIf

	End Function
	
	Function CreateCylinder:TbbMesh(Segments:Int=8,SOLID:Int=True,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh.Allocate (bbCreateCylinder(Segments,SOLID,parent.handle)))
		Else
			Return TbbMesh(TbbMesh.Allocate (bbCreateCylinder(Segments,SOLID)))
		EndIf
		
	End Function
	
	Function CreateCone:TbbMesh(Segments:Int=8,SOLID:Int=True,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh.Allocate (bbCreateCone(Segments,SOLID,parent.handle)))
		Else
			Return TbbMesh(TbbMesh.Allocate (bbCreateCone(Segments,SOLID)))
		EndIf
		
	End Function
	
	Method CopyMesh:TbbMesh (parent:TbbEntity = Null)
		
		Local New_Mesh:TbbMesh = New TbbMesh
		If parent<>Null
			Return TbbMesh(TbbMesh.Allocate (bbCopyMesh(Self.handle,parent.handle)))
		Else
			Return TbbMesh(TbbMesh.Allocate (bbCopyMesh(Self.handle)))
		EndIf
		
	End Method
	
	Method AddMesh (dest_mesh:TbbMesh)
		
		bbAddMesh (Self.handle,dest_mesh.handle)
		
	End Method
	
	Method FlipMesh()
	
		bbFlipMesh(Self.handle)
	
	End Method
	
	Method PaintMesh(Brush:TbbBrush)
		
		bbPaintMesh(Self.handle,Brush.handle)
		
	End Method
	
	Method LightMesh (red:Float,green:Float,blue:Float,Range:Float=0,light_x:Float=0,light_y:Float=0,light_z:Float=0)
		
		bbLightMesh (Self.handle,red,green,blue,Range,light_x,light_y,light_z#)
	
	End Method
	
	Method FitMesh (X:Float,Y:Float,z:Float,width:Float,height:Float,depth:Float,uniform:Int=False)
		
		bbFitMesh (Self.handle,X,Y,z,width,height,depth,uniform)
		
	End Method

	Method ScaleMesh (x_scale:Float,y_scale:Float,z_scale:Float)
		
		bbScaleMesh (Self.handle,x_scale,y_scale,z_scale)
	
	End Method
	
	Method RotateMesh (pitch:Float,yaw:Float,roll:Float)
		
		bbRotateMesh (Self.handle,pitch,yaw,roll)
		
	End Method
	
	Method PositionMesh (X:Float,Y:Float,z:Float)
		
		bbPositionMesh (Self.handle,X,Y,z)
		
	End Method
	
	Method UpdateNormals ()
		
		bbUpdateNormals (Self.handle)
		
	End Method
	
	Method MeshesIntersect:Int (mesh_b:TbbMesh )
		
		Return bbMeshesIntersect (Self.handle,mesh_b.handle)
		
	End Method
	
	Method MeshWidth:Float ()
		
		Return bbMeshWidth (Self.handle)
		
	End Method
	
	Method MeshHeight:Float ()
		
		Return bbMeshHeight (Self.handle)
		
	End Method
	
	Method MeshDepth:Float ()
		
		Return bbMeshDepth (Self.handle)
		
	End Method
	
	Method CountSurfaces:Int ()
		
		Return bbCountSurfaces (Self.handle)
	
	End Method

	Method GetSurface:TbbSurface (index:Int)
		
		Return TbbSurface.HandleToType (bbGetSurface ( Self.handle,index))
		
	End Method
	
End Type

Type TbbCamera Extends TbbEntity

	Method CopyEntity:TbbCamera (parent:TbbEntity=Null)
	
		Return TbbCamera (Super.CopyEntity (parent))
					
	EndMethod
	
	Function CreateCamera:TbbCamera(parent:TbbEntity=Null)
	
		If parent<>Null
			Return tbbcamera(TbbCamera.Allocate (bbCreateCamera(parent.handle)))
		Else
			Return tbbCamera(TbbCamera.Allocate (bbCreateCamera()))
		EndIf
				
	End Function
	
	Method CameraProjMode (mode:Int)
	
		bbCameraProjMode (Self.handle,mode)

	End Method
	
	Method CameraFogMode (mode:Int)
	
		bbCameraFogMode (Self.handle,mode)

	End Method

	Method CameraFogRange (Near:Float,Far:Float)
	
		bbCameraFogRange (Self.handle,Near,Far)

	End Method
	
	Method CameraFogColor (red:Float,green:Float,blue:Float)
	
		bbCameraFogColor (Self.handle,red,green,blue)

	End Method
	
	Method CameraViewPort (X:Int,Y:Int,width:Int,height:Int)
	
		bbCameraViewport (Self.handle,X,Y,width,height)

	End Method
	
	Method CameraClsMode (CLS_Colour:Int,Cls_zBuffer:Int)
	
		bbCameraClsMode (Self.handle,CLS_colour,Cls_ZBuffer)

	End Method
	
	Method CameraClsColor (red:Float,green:Float,blue:Float)
	
		bbCameraClsColor (Self.handle,red,green,blue)

	End Method

	Method CameraRange (Near:Float,Far:Float)
	
		bbCameraRange (Self.handle,Near,Far)

	End Method
	
	Method CameraZoom (Zoom:Float)
	
		bbCameraZoom (Self.handle,Zoom)

	End Method
	
	Method CameraPick (viewport_x:Float,viewport_y:Float )
	
		bbCameraPick (Self.handle,viewport_x,viewport_y)

	End Method

	Function PickedX:Float()
		
		Return bbPickedX( )
		
	End Function

	Function PickedY:Float()
		
		Return bbPickedY( )
		
	End Function

	Function PickedZ:Float()
		
		Return bbPickedZ( )
		
	End Function

	Function PickedNX:Float()
		
		Return bbPickedNX( )
		
	End Function

	Function PickedNY:Float()
		
		Return bbPickedNY( )
		
	End Function

	Function PickedNZ:Float()
		
		Return bbPickedNZ( )
		
	End Function

	Function PickedTime:Int()
		
		Return bbPickedTime( )
		
	End Function

	Function PickedEntity:TbbEntity()
		
		Return TbbEntity.HandleToType(bbPickedEntity( ))
		
	End Function

	Function PickedSurface:TbbSurface()
		
		Return TbbSurface.HandleToType (bbPickedSurface( ))
		
	End Function

	Function PickedTriangle:Int()
		
		Return bbPickedTriangle( )
		
	End Function
	
	Method CameraProject (X:Float,Y:Float,Z:Float)
		
		bbCameraProject (Self.handle,X,Y,Z)
		
	End Method

	Function ProjectedX:Float()
		
		Return bbProjectedX( )
		
	End Function

	Function ProjectedY:Float()
		
		Return bbProjectedY( )
		
	End Function

	Function ProjectedZ:Float()
		
		Return bbProjectedZ( )
		
	End Function
	
End Type

Type TbbLight Extends TbbEntity

	Method CopyEntity:TbbLight (parent:TbbEntity=Null)
	
		Return TbbLight (Super.CopyEntity (parent))
					
	EndMethod
	
	Function CreateLight:TbbLight(LightType:Int=0,parent:TbbEntity=Null)
	
		If parent<>Null
			Return tbblight(TbbLight.Allocate (bbCreateLight (LightType,parent.handle)))
		Else
			Return tbblight(TbbLight.Allocate (bbCreateLight(LightType)))
		EndIf
		
	End Function
	
	Method LightRange (Range:Float)
		
		bbLightRange (Self.handle,Range)

	End Method
	
	Method LightColor (red:Float,green:Float,blue:Float)
		
		bbLightColor (Self.handle,red:Float,green:Float,blue:Float)
		
	End Method
	
	Method LightConeAngles (inner_angle:Float,outer_angle:Float)
		
		bbLightConeAngles (Self.handle,inner_angle,outer_angle)
		
	End Method
	
	
End Type
'
Type TbbPivot Extends TbbEntity

	Method CopyEntity:TbbPivot (parent:TbbEntity=Null)
	
		Return TbbPivot (Super.CopyEntity (parent))
					
	EndMethod

	Function CreatePivot:TbbPivot (LightType:Int=0,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbPivot (TbbPivot.Allocate (bbCreatePivot (parent.handle)))
		Else
			Return TbbPivot (TbbPivot.Allocate (bbCreatePivot()))
		EndIf
				
	End Function
	
End Type

Type TbbMD2 Extends TbbEntity

	Method CopyEntity:TbbMD2 (parent:TbbEntity=Null)
	
		Return TbbMD2 (Super.CopyEntity (parent))
					
	EndMethod

	Function LoadMD2:TbbMD2( md2_file:String,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMD2 (TbbMD2.Allocate (bbLoadMD2(MD2_File,parent.handle)))
		Else
			Return TbbMD2 (TbbMD2.Allocate (bbLoadMD2(MD2_File)))
		EndIf
	
	EndFunction
	
	Method AnimateMD2 (mode:Int=0,speed:Float=1.0,first_frame:Int=1,last_frame:Int=0,transition:Float=0.0)
		
		bbAnimateMD2 (Self.handle,mode,speed,first_frame,last_frame,transition)
		
	End Method
	
	Method MD2AnimTime:Int ()
		
		Return bbMD2AnimTime ( Self.handle )
		
	End Method
	
	Method MD2AnimLength:Int()
		
		Return bbMD2AnimLength (Self.handle)
		
	End Method

	Method MD2Animating:Int()
	
	bbMD2Animating (Self.handle)

	End Method
	
EndType
'
Type TbbBSP Extends TbbEntity

	Method CopyEntity:TbbBSP (parent:TbbEntity=Null)
	
		Return TbbBSP (Super.CopyEntity (parent))
					
	EndMethod
	
	Function LoadBSP:TbbBSP ( file:String,gamma_adjust:Float=0,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbBSP (TbbBSP.Allocate (bbLoadBSP( file,gamma_adjust,parent.handle )))
		Else
			Return TbbBSP (TbbBSP.Allocate (bbLoadBSP( file,gamma_adjust)))
		EndIf
		
	EndFunction

	Method BSPAmbientLight (red:Float, green:Float, blue:Float)
		
		bbBSPAmbientLight (Self.handle,red,green,blue)
		
	End Method
	
	Method BSPLighting (use_lightmaps:Int)
		
		bbBSPLighting (Self.handle,use_lightmaps)
		
	End Method

End Type
'
Type TbbPlane Extends TbbEntity

	Method CopyEntity:TbbPlane (parent:TbbEntity=Null)
	
		Return TbbPlane (Super.CopyEntity (parent))
					
	EndMethod

	Function LoadPlane:TbbPlane (sub_divs:Int=1,parent:TbbEntity=Null )
	
		If parent<>Null
			Return TbbPlane (TbbPlane.Allocate (bbCreatePlane (sub_divs,parent.handle )))
		Else
			Return TbbPlane (TbbPlane.Allocate (bbCreatePlane (sub_divs)))
		EndIf
			
	EndFunction

End Type
'
Type TbbMirror Extends TbbEntity

	Method CopyEntity:TbbMirror (parent:TbbEntity=Null)
	
		Return TbbMirror (Super.CopyEntity (parent))
					
	EndMethod
	
	Function LoadMirror:TbbMirror (parent:TbbEntity=Null )
	
		If parent<>Null
			Return TbbMirror (TbbMirror.Allocate (bbCreateMirror (parent.handle )))
		Else
			Return TbbMirror (TbbMirror.Allocate (bbCreateMirror ()))
		EndIf
		
	EndFunction

End Type
'
Type TbbTerrain Extends TbbEntity

	Method CopyEntity:TbbTerrain (parent:TbbEntity=Null)
	
		Return TbbTerrain (Super.CopyEntity (parent))
					
	EndMethod

	Function CreateTerrain:TbbTerrain (Grid_size:Int,parent:TbbEntity=Null )
	
		If parent<>Null
			Return TbbTerrain (TbbTerrain.Allocate (bbCreateTerrain (Grid_size,parent.handle )))
		Else
			Return TbbTerrain (TbbTerrain.Allocate (bbCreateTerrain (Grid_size)))
		EndIf
		
	EndFunction
	
	Function LoadTerrain:TbbTerrain (File:String,parent:TbbEntity=Null )
	
		If parent<>Null
			Return TbbTerrain (TbbTerrain.Allocate (bbLoadTerrain (File,parent.handle )))
		Else
			Return TbbTerrain (TbbTerrain.Allocate (bbLoadTerrain (File)))
		EndIf
			
	EndFunction

	Method TerrainSize:Int()
		
		Return bbTerrainSize(Self.handle)
		
	End Method
	
	Method TerrainDetail (detail_level:Int,vertex_morph:Int =0)
		
		bbTerrainDetail (Self.handle,detail_level,vertex_morph)
		
	End Method
	
	Method TerrainShading(Enable:Int)
		
		bbTerrainShading(Self.handle,Enable)
		
	End Method
	
	Method TerrainHeight:Float(grid_x:Int,grid_z:Int )
		
		Return bbTerrainHeight(Self.handle,grid_x,grid_z)
		
	End Method
	
	Method ModifyTerrain (grid_x:Int,grid_z:Int,height:Float,realtime:Int=False)
		
		bbModifyTerrain (Self.handle,grid_x,grid_z,height,realtime)
		
	End Method
	
	Method TerrainX:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainX(Self.handle,X,Y,z)
		
	End Method
	
	Method TerrainY:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainY(Self.handle,X,Y,z)
		
	End Method
	
	Method TerrainZ:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainZ(Self.handle,X,Y,z)
		
	End Method

End Type


bbBeginBlitz3D

bbGraphics3D 800,600,0,2

Local MyCube:TbbMesh = TbbMesh.CreateCube()
Local MyLight:TbbLight = TbbLight.CreateLight()
Local MyCamera:TbbCamera = TbbCamera.CreateCamera()
Local My2Cube:TbbMesh = Mycube.CopyEntity() 
My2Cube.PositionEntity (0,2,0)
MyCube.PositionEntity (0,-2,0)

MyCamera.PositionEntity(0,0,-5)

Mylight.LightColor(0,255,255)

While not bbKeyHit(1)
	MyCube.TurnEntity(.1,.2,.3)
	My2Cube.TurnEntity(-.1,-.2,-.3)
	bbRenderWorld
	bbFlip 1
WEnd

TList is now only for Anti GC, so Only AddLast and Remove are used. Is remove Really slow?

Right It sort of works, but it does need a really big rethink. Probably, Im going to rewrite it, so that it only seems that A camera and a Pivot are using the same functions.

H&K

2007

2.01 A totaly New version. To be used with Intelisence.

Import blitz3d.blitz3dsdk

SuperStrict 

Type TbbBrush

	
	Global List:TList=CreateList()
	
	Field handle:Int

	Function _HandleToType:TbbBrush (Comparisonhandle:Int)
		
		For Local Ent:TbbBrush = EachIn TbbBrush.List
			If Ent.handle=Comparisonhandle Then Return Ent
		Next
		
		Return Null

	End Function
	
	Function _Allocate:TbbBrush(PHandle:Int)
	
		Local New_Brush:TbbBrush = New TbbBrush
		New_Brush.handle= PHandle
		Self.List.AddLast(New_Brush)
		Return New_Brush
		
	End Function
	
	Function Create:TbbBrush (red:Float=255,green:Float=255,blue:Float=255)
		
		Return Self._Allocate(bbCreateBrush ( red,green,blue ))
	
	End Function
	
	Function Load:TbbBrush (texture_file:String,flags:Int=1,u_scale:Float=1,v_scale:Float=1)
	
		Return Self._Allocate( bbLoadBrush ( texture_file,flags,u_scale,v_scale))
		
	End Function
	
	Method Free()
		
		bbFreeBrush(Self.handle)
		Self.List.Remove(Self)
		
	End Method
	
	Method Color (red:Float,green:Float,blue:Float)
		
		bbBrushColor (Self.handle,red,green,blue)
		
	End Method
	
	Method alpha (alpha:Float)
	
		bbBrushAlpha (Self.handle,alpha)
		
	EndMethod
	
	Method Shininess (Shininess:Float)
	
		bbBrushShininess (Self.handle,Shininess)
		
	EndMethod
	
	Method Texture (texture:TbbTexture,Frame:Int=0,index:Int=0)
	
		bbBrushTexture(Self.handle,Texture.handle,Frame,index)
		
	EndMethod
	
	Method Blend (Blend:Int)
	
		bbBrushBlend (Self.handle,Blend)
		
	EndMethod
	
	Method FX (FX:Int)
	
		bbBrushBlend (Self.handle,FX)
		
	EndMethod
	
	Function GetEntityBrush:TbbBrush(Entity:TbbEntity)
	
		Return TbbBrush._Allocate(bbGetEntityBrush(Entity.handle))
		
	End Function
		
	Method GetBrushTexture:TbbTexture (index:Int=0)
	
		Return TbbTexture._HandleToType(bbGetBrushTexture (Self.handle,index))
		
	EndMethod

EndType

Type TbbTexture

	Global List:TList = CreateList()
	
	Field handle:Int
	
	Function _HandleToType:TbbTexture (Comparisonhandle:Int)
		
		For Local Ent:TbbTexture = EachIn TbbTexture.List
			If Ent.handle=Comparisonhandle Then Return Ent
		Next
		
		Return Null

	End Function
	
	Function _Allocate:TbbTexture(PHandle:Int)
	
		Local New_Texture:TbbTexture = New TbbTexture
		New_Texture.handle= PHandle
		Self.List.AddLast(New_Texture)
		Return New_Texture
		
	End Function
	
	Function Create:TbbTexture (width:Int,height:Int,flags:Int=0,frames:Int=0)
		
		Return Self._Allocate(bbCreateTexture (width,height,flags,frames))
	
	End Function

	Function Load:TbbTexture (File:String,flags:Int=1)
		
		Return Self._Allocate (bbLoadTexture (File,flags))
	
	End Function

	Function LoadAnim:TbbTexture(file:String,flags:Int,frame_width:Int,frame_height:Int,first_frame:Int,frame_count:Int)
		
		Return Self._Allocate(bbLoadAnimTexture (file,flags,frame_width,frame_height,first_frame,frame_count))
	
	End Function
	
	Method Free()
		
		bbFreeTexture(Self.handle)
		Self.List.Remove(Self)
		
	End Method	
	
	Method Blend (Blend:Int)
	
		bbTextureBlend (Self.handle,Blend)
		
	EndMethod	
	
	Method TextureEntity(Target:TbbEntity,Frame:Int=0,index:Int=0)
	
		bbEntityTexture(Target.handle,Self.handle,Frame,index)
		
	End Method
	
	Method Coords (Coords:Int)
	
		bbTextureCoords (Self.handle,Coords:Int)
		
	EndMethod	
	
	Method Scale (U_Scale:Float,V_Scale:Float)
	
		bbScaleTexture (Self.handle,U_Scale,V_Scale)
		
	EndMethod	
	
	Method Position (U_Scale:Float,V_Scale:Float)
	
		bbPositionTexture (Self.handle,U_Scale,V_Scale)
		
	EndMethod	
	
	Method Rotate (Angle:Float)
	
		bbRotateTexture (Self.handle,Angle)
		
	EndMethod	
	
	Method width:Int ()
	
		Return bbTextureWidth (Self.handle)
		
	EndMethod
	
	Method height:Int ()
	
		Return bbTextureHeight (Self.handle)
		
	EndMethod	
	
	Method buffer:Int (Frame:Int = 0)
	
		Return bbTextureBuffer (Self.handle,Frame)
		
	EndMethod
	
	Method GetName:String ()
	
		Return bbTextureName (Self.handle)
		
	EndMethod
	
	Function ClearFilters()
		
		bbClearTextureFilters()
		
	End Function
	
	Function Filter (match_text:String,flags:Int)
		
		bbTextureFilter (match_text,flags)
		
	End Function
	
	Method SetCubeFace (face:Int)
	
		bbSetCubeFace (Self.handle,face)
	
	End Method
	
	Method SetCubeMode (Mode:Int)
	
		bbSetCubeMode (Self.handle,Mode)
	
	End Method
	
EndType

Type TbbSurface
	
	Global List:TList=CreateList()
	
	Field handle:Int
	
	Function _HandleToType:TbbSurface (Comparisonhandle:Int)
		
		For Local Ent:TbbSurface = EachIn TbbSurface.List
			If Ent.handle=Comparisonhandle Then Return Ent
		Next
		
		Return Null

	End Function
	
	Function _Allocate:TbbSurface(PHandle:Int)
	
		Local New_Surface:TbbSurface = New TbbSurface
		New_Surface.handle= PHandle
		Self.List.AddLast(New_Surface)
		Return New_Surface
		
	End Function
	
	Function Create:TbbSurface(Mesh:TbbMesh,Brush:TbbBrush=Null)
	
		If Brush<>Null
			Return Self._Allocate (bbCreateSurface(Mesh.handle,Brush.handle))
		Else
			Return Self._Allocate (bbCreateSurface(Mesh.handle))
		EndIf
	
	End Function
	
	Method Paint(Brush:TbbBrush)
		
		bbPaintSurface (Self.handle,Brush.handle)
		
	End Method
	
	Method clear (Clear_Verts:Int=True,Clear_Triangles:Int=True)
		
		bbClearSurface(Self.handle,Clear_Verts,Clear_triangles)
		
	End Method
	
	Function Find:TbbSurface ( mesh:TbbMesh,brush:TbbBrush)
	
		Return TbbSurface._HandleToType (bbFindSurface ( mesh.handle,brush.handle))
	
	End Function
	
	Method AddVertex:Int (X:Float,Y:Float,z:Float,u:Float=0,v:Float=0,w:Float=1 )
		
		Return bbAddVertex (Self.handle,X,Y,z,u,v,w )
		
	End Method
	
	Method AddTriangle:Int(v0:Int,v1:Int,V2:Int)
		
		Return bbAddTriangle(Self.handle,v0,v1,v2)
		
	End Method
	
	Method VertexCoords (index:Int,X:Float,Y:Float,z:Float)
		
		bbVertexCoords (Self.handle,index,X,Y,z)
		
	End Method
	
	Method VertexNormal (index:Int,nx:Float,ny:Float,nz:Float)
		
		bbVertexNormal (Self.handle,index,nx,ny,nz)
		
	End Method
	
	Method VertexColor (index:Int,red:Float,green:Float,blue:Float,alpha:Float=1.0)
		
		bbVertexColor (Self.handle,index,red,green,blue,alpha)
		
	End Method
	
	Method VertexTexCoords (index:Int,u:Float,v:Float,w:Float=1.0,coord__Set:Float=0.0)
		
		bbVertexTexCoords (Self.handle,index,u,v,w,coord__Set)
		
	End Method
	
	Function GetSurface:TbbSurface (Mesh:TbbMesh,index:Int)
		
		Return TbbSurface._Allocate(bbGetSurface (Mesh.handle,index))
		
	End Function
	
	Method CountSurfaces:Int (Entity:TbbEntity)
		
		Return bbCountSurfaces (Entity.handle)
	
	End Method

	Method CountVertices:Int ()
		
		Return bbCountVertices (Self.handle)
		
	End Method
	
	Method CountTriangles:Int ()
		
		Return bbCountTriangles (Self.handle)
		
	End Method
	
	Method VertexX:Float (index:Int)
	
		Return bbVertexX( Self.handle,index )
	
	End Method
	
	Method VertexY:Float (index:Int)
	
		Return bbVertexY( Self.handle,index )
	
	End Method
	
	Method VertexZ:Float (index:Int)
	
		Return bbVertexZ( Self.handle,index )
	
	End Method
	
	Method VertexNX:Float (index:Int)
	
		Return bbVertexNX( Self.handle,index )
	
	End Method
	
	Method VertexNY:Float (index:Int)
	
		Return bbVertexNY( Self.handle,index )
	
	End Method
	
	Method VertexNZ:Float (index:Int)
	
		Return bbVertexNZ( Self.handle,index )
	
	End Method
	
	Method VertexRed:Float (index:Int)
	
		Return bbVertexRed( Self.handle,index )
	
	End Method
	
	Method VertexGreen:Float (index:Int)
	
		Return bbVertexGreen( Self.handle,index )
	
	End Method
	
	Method VertexBLue:Float (index:Int)
	
		Return bbVertexBlue( Self.handle,index )
	
	End Method
	
	Method VertexAlpha:Float (index:Int)
	
		Return bbVertexAlpha( Self.handle,index )
	
	End Method

	Method VertexU:Float (index:Int,Coord__Set:Int=0)
	
		Return bbVertexU (Self.handle,index,Coord__Set )
	
	End Method

	Method VertexV:Float (index:Int,Coord__Set:Int=0)
	
		Return bbVertexV (Self.handle,index,Coord__Set )
	
	End Method

	Method VertexW:Float (index:Int)
	
		Return bbVertexW (Self.handle,index)
	
	End Method
	
	Method TriangleVertex :Float (Triangle_index:Int,Corner:Int)
	
		Return bbTriangleVertex  (Self.handle,Triangle_index,corner )
	
	End Method
	
	Method GetSurfaceBrush:TbbBrush()
	
		Return TbbBrush._Allocate(bbGetSurfaceBrush(Self.handle))
		
	End Method
	
EndType

Type TbbEntity
	
	Global List:TList=CreateList()
	
	Field handle:Int
	Field Maths3DCmd:TbsMaths3dCommands	= New TbsMaths3dCommands
	Field PosCmd:TbsPositionCommands	= New TbsPositionCommands
	Field HierachyCmd:TbsHierachyCommands	= New TbsHierachyCommands
	Field CollCmd:TbsCollisionCommands	= New TbsCollisionCommands
	Field PropertyCmd:TbsPropertyCommands	= New TbsPropertyCommands
	Field CompCmd:TbsComparisonCommands	= New TbsComparisonCommands
	Field PickingCmd:TbsPickingCommands	= New TbsPickingCommands

	Function _Allocate:TbbEntity(PHandle:Int)
		
		Select bbEntityClass (PHandle)
			Case "Pivot"
				Local New_Entity:TbbPivot = New TbbPivot
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Light"
				Local New_Entity:TbbLight = New TbbLight
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Camera"
				Local New_Entity:TbbCamera = New TbbCamera
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Mirror"
				Local New_Entity:TbbMirror = New TbbMirror
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Listener"
				Local New_Entity:TbbListener = New TbbListener
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Sprite"
				Local New_Entity:TbbSprite = New TbbSprite
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Terrain"
				Local New_Entity:TbbTerrain = New TbbTerrain
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Plane"
				Local New_Entity:TbbPlane = New TbbPlane
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "Mesh"
				Local New_Entity:TbbMesh = New TbbMesh
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "MD2"
				Local New_Entity:TbbMD2 = New TbbMD2
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
			Case "BSP"
				Local New_Entity:TbbBSP = New TbbBSP
				New_Entity._Set (PHandle)
				Self.List.AddLast(New_Entity)
				bbSetEntityID(PHandle,HandleFromObject(New_Entity))
				Return New_Entity
		End Select		
	
	End Function
	
	Method _Set:TbbEntity(PHandle:Int)
		
		Self.Maths3DCmd.handle	= Self.handle
		Self.PosCmd.handle 	= Self.handle
		Self.HierachyCmd.handle	= Self.handle
		Self.CollCmd.handle	= Self.handle
		Self.PropertyCmd.handle	= Self.handle
		Self.CompCmd.handle	= Self.handle
		Self.PickingCmd.handle	= Self.handle
		Return Self
		
	End Method
	
	Function _HandleToType:TbbEntity (Comparisonhandle:Int)
		
		Select bbEntityClass (Comparisonhandle)
			Case "Pivot"
				Return TbbPivot (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Light"
				Return TbbLight (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Camera"
				Return TbbCamera (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Mirror"
				Return TbbMirror (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Listener"
				Return TbbListener (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Sprite"
				Return TbbSprite(HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Terrain"
				Return TbbTerrain (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Plane"
				Return TbbPlane (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "Mesh"
				Return TbbMesh (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "MD2"
				Return TbbMD2 (HandleToObject(bbEntityID(Comparisonhandle)))
			Case "BSP"
				Return TbbBSP (HandleToObject(bbEntityID(Comparisonhandle)))
		End Select
		
	End Function
		
	Method Emitsound:Int(SoundHandle:Int)
		
		Return bbEmitSound(SoundHandle,Self.handle)
	
	End Method	
	
	Method EntityInView:Int (camera:TbbCamera)
	
		Return bbEntityInView ( Self.handle,camera.handle)
	
	EndMethod
	
	Method Free()
	
		bbFreeEntity(Self.handle)	
		Self.List.Remove(Self)
		
	End Method
		
End Type

Type TbbTerrain Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	Field VisCmd:TbsVisibilityCommands	= New TbsVisibilityCommands
	Field PaintCmd:TbsPaintingCommands	= New TbsPaintingCommands
	
	Method _Set:TbbTerrain(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Self.VisCmd.handle	= Self.handle
		Self.PaintCmd.handle	= Self.handle
		Super._Set(Self.handle)
		Return Self
			
	End Method
	
	Function Load:TbbTerrain (File:String,parent:TbbEntity=Null )
	
		If parent<>Null
			Return TbbTerrain (TbbTerrain._Allocate (bbLoadTerrain (File,parent.handle )))
		Else
			Return TbbTerrain (TbbTerrain._Allocate (bbLoadTerrain (File)))
		EndIf
			
	EndFunction
	
	Function Create:TbbTerrain (Grid_size:Int,parent:TbbEntity=Null )
	
		If parent<>Null
			Return TbbTerrain (TbbTerrain._Allocate (bbCreateTerrain (Grid_size,parent.handle )))
		Else
			Return TbbTerrain (TbbTerrain._Allocate (bbCreateTerrain (Grid_size)))
		EndIf
		
	EndFunction
	
	Method GetSize:Int()
		
		Return bbTerrainSize(Self.handle)
		
	End Method
	
	Method Scale (x_scale:Float,y_scale:Float,z_scalel:Float,GlobalSpace:Int=False)
	
		bbScaleEntity(Self.handle,x_scale,y_scale,z_scalel,GlobalSpace)

	End Method
	
	Method SetDetail (detail_level:Int,vertex_morph:Int =0)
		
		bbTerrainDetail (Self.handle,detail_level,vertex_morph)
		
	End Method
	
	Method SetShading(Enable:Int)
		
		bbTerrainShading(Self.handle,Enable)
		
	End Method
	
	Method GetHeight:Float(grid_x:Int,grid_z:Int )
		
		Return bbTerrainHeight(Self.handle,grid_x,grid_z)
		
	End Method
	
	Method Modify (grid_x:Int,grid_z:Int,height:Float,realtime:Int=False)
		
		bbModifyTerrain (Self.handle,grid_x,grid_z,height,realtime)
		
	End Method
	
	Method GetX:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainX(Self.handle,X,Y,z)
		
	End Method
	
	Method GetY:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainY(Self.handle,X,Y,z)
		
	End Method
	
	Method GetZ:Float (X:Float,Y:Float,z:Float)
		
		Return bbTerrainZ(Self.handle,X,Y,z)
		
	End Method
		
End Type

Type TbbSprite Extends TbbEntity
	
	Field VisCmd:TbsVisibilityCommands	= New TbsVisibilityCommands
	Field PaintCmd:TbsPaintingCommands	= New TbsPaintingCommands
	
	Method _Set:TbbSprite(PHandle:Int)
		
		Self.handle = PHandle
		Self.VisCmd.handle	= Self.handle
		Self.PaintCmd.handle	= Self.handle
		Super._Set(Self.handle)
		Return Self
		
	End Method
	
	Function Create:TbbSprite(parent:TbbEntity=Null)
		
		If parent <> Null
			Return TbbSprite (TbbSprite._Allocate (bbCreateSprite(parent.handle)))
		Else
			Return TbbSprite (TbbSprite._Allocate (bbCreateSprite()))
		EndIf
		
	End Function

	Function Load:TbbSprite(path:String,Tex_Flag:Int=0,parent:TbbEntity=Null)
		
		If parent <> Null
			Return TbbSprite (TbbSprite._Allocate (bbLoadSprite(path,Tex_Flag,parent.handle)))
		Else
			Return TbbSprite (TbbSprite._Allocate (bbLoadSprite(path,Tex_Flag)))
		EndIf
		
	End Function
 	
	Method SetViewMode(View_Mode:Int)
		
 		bbSpriteViewMode(Self.handle,View_Mode)
 
 	End Method
	
	Method Rotate(Angle:Float)
 		
		bbRotateSprite(Self.handle,Angle)
 	
	End Method
 
 	Method Scale(X_Scale:Float,Y_Scale:Float)
 	
		bbScaleSprite (Self.handle,X_Scale,Y_Scale)
 	
	EndMethod
	
	Method SetHandle(X_Handle:Float,Y_Handle:Float)

		bbHandleSprite(Self.handle,X_Handle,Y_Handle)
	
	End Method
		
End Type

Type TbbMesh Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	Field VisCmd:TbsVisibilityCommands	= New TbsVisibilityCommands
	Field PaintCmd:TbsPaintingCommands	= New TbsPaintingCommands
	Field CmdsMesh:TbsMeshCommands	= New TbsMeshCommands
	Field AnimCmd:TbsAnimationCommands	= New TbsAnimationCommands
	
	Method _Set:TbbMesh (PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Self.VisCmd.handle	= Self.handle
		Self.PaintCmd.handle	= Self.handle
		Self.AnimCmd.handle	= Self.handle
		Self.CmdsMesh.handle		= Self.handle
		Super._Set(Self.handle)
		Return Self
		
	End Method
	
	Function CreateCube:TbbMesh(parent:TbbEntity=Null)
	
		If parent<>Null
			Return tbbmesh(TbbMesh._Allocate (bbCreateCube(parent.handle)))
		Else
			Return tbbMesh(TbbMesh._Allocate (bbCreateCube()))
		EndIf
		
	End Function
	
	Function CreateSphere:TbbMesh(Segments:Int=8,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh._Allocate (bbCreateSphere(Segments,parent.handle)))
		Else
			Return tbbmesh(TbbMesh._Allocate (bbCreateSphere(Segments)))
		EndIf

	End Function
	
	Function CreateCylinder:TbbMesh(Segments:Int=8,SOLID:Int=True,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh._Allocate (bbCreateCylinder(Segments,SOLID,parent.handle)))
		Else
			Return TbbMesh(TbbMesh._Allocate (bbCreateCylinder(Segments,SOLID)))
		EndIf
		
	End Function
	
	Function CreateCone:TbbMesh(Segments:Int=8,SOLID:Int=True,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh._Allocate (bbCreateCone(Segments,SOLID,parent.handle)))
		Else
			Return TbbMesh(TbbMesh._Allocate (bbCreateCone(Segments,SOLID)))
		EndIf
		
	End Function
	
	Method CopyMesh:TbbMesh (parent:TbbEntity=Null)
		
		If parent <> Null
			Return New TbbMesh._Set(bbCopyMesh (Self.handle,parent.handle))
		Else
			Return New TbbMesh._Set(bbCopyMesh (Self.handle))
		EndIf
					
	EndMethod
	
	Method CopyEntity:TbbMesh (parent:TbbEntity=Null)
	
		Return New TbbMesh._Set(bbCopyEntity(Self.handle,parent.handle))
					
	EndMethod
	
	Function Create:TbbMesh(parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh._Allocate (bbCreateMesh(parent.handle)))
		Else
			Return TbbMesh(TbbMesh._Allocate (bbCreateMesh()))
		EndIf
				
	End Function
	
	Function Load:TbbMesh(Filename:String,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMesh(TbbMesh._Allocate (bbLoadMesh(filename$,parent.handle)))
		Else
			Return TbbMesh (TbbMesh._Allocate (bbLoadMesh(filename$)))
		EndIf
		
	End Function
	
	Function LoadAnimMesh:TbbMesh(Filename:String,parent:TbbEntity=Null)
	
		If parent<>Null
			Return tbbmesh(TbbMesh._Allocate (bbLoadAnimMesh(filename$,parent.handle)))
		Else
			Return tbbmesh(TbbMesh._Allocate (bbLoadAnimMesh(filename$)))
		EndIf
		
	End Function
	
End Type

Type TbbCamera Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	Field CameraCmd:TbsCameraCommands	= New TbsCameraCommands
	
	Method _Set:TbbCamera(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Self.CameraCmd.handle		= Self.handle
		Super._Set(Self.handle)
		Return Self
	
	End Method
	
	Function Create:TbbCamera(parent:TbbEntity=Null)
	
		If parent<>Null
			Return tbbcamera(TbbCamera._Allocate (bbCreateCamera(parent.handle)))
		Else
			Return tbbCamera(TbbCamera._Allocate (bbCreateCamera()))
		EndIf
				
	End Function
	
End Type

Type TbbPivot Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
		
	Method _Set:TbbPivot(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Super._Set(Self.handle)
		Return Self
		
	End Method
	
	Method Copy:TbbPivot (parent:TbbEntity=Null)
	
		If parent<>Null
			Return New TbbPivot._Set(bbCopyEntity (Self.handle,parent.handle))
		Else
			Return New TbbPivot._Set(bbCopyEntity (Self.handle,parent.handle))
		End	If
	
	EndMethod
	
	Function Create:TbbPivot (LightType:Int=0,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbPivot (TbbPivot._Allocate (bbCreatePivot (parent.handle)))
		Else
			Return TbbPivot (TbbPivot._Allocate (bbCreatePivot()))
		EndIf
				
	End Function
	
End Type

Type TbbLight Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	Field VisCmd:TbsVisibilityCommands	= New TbsVisibilityCommands
		
	Method _Set:TbbLight(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Self.VisCmd.handle	= Self.handle
		Super._Set(Self.handle)
		Return Self
		
	End Method
	
	Function Create:TbbLight(LightType:Int=0,parent:TbbEntity=Null)
	
		If parent<>Null
			Return tbblight(TbbLight._Allocate (bbCreateLight (LightType,parent.handle)))
		Else
			Return tbblight(TbbLight._Allocate (bbCreateLight(LightType)))
		EndIf
		
	End Function
	
	Method Range (Range:Float)
		
		bbLightRange (Self.handle,Range)

	End Method
	
	Method Color (red:Float,green:Float,blue:Float)
		
		bbLightColor (Self.handle,red:Float,green:Float,blue:Float)
		
	End Method
	
	Method ConeAngles (inner_angle:Float,outer_angle:Float)
		
		bbLightConeAngles (Self.handle,inner_angle,outer_angle)
		
	End Method
	
End Type

Type TbbMD2 Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	Field VisCmd:TbsVisibilityCommands	= New TbsVisibilityCommands
	Field PaintCmd:TbsPaintingCommands	= New TbsPaintingCommands
		
	Method _Set:TbbMD2(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Self.VisCmd.handle	= Self.handle
		Self.PaintCmd.handle	= Self.handle
		Super._Set(Self.handle)
		Return Self
		
	End Method
	
	Method Scale (x_scale:Float,y_scale:Float,z_scalel:Float,GlobalSpace:Int=False)
	
		bbScaleEntity(Self.handle,x_scale,y_scale,z_scalel,GlobalSpace)

	End Method
	
	Function Load:TbbMD2( md2_file:String,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbMD2 (TbbMD2._Allocate (bbLoadMD2(MD2_File,parent.handle)))
		Else
			Return TbbMD2 (TbbMD2._Allocate (bbLoadMD2(MD2_File)))
		EndIf
	
	EndFunction
	
	Method Animate (mode:Int=0,speed:Float=1.0,first_frame:Int=1,last_frame:Int=0,transition:Float=0.0)
		
		bbAnimateMD2 (Self.handle,mode,speed,first_frame,last_frame,transition)
		
	End Method
	
	Method AnimTime:Int ()
		
		Return bbMD2AnimTime ( Self.handle )
		
	End Method
	
	Method AnimLength:Int()
		
		Return bbMD2AnimLength (Self.handle)
		
	End Method

	Method IsAnimating:Int()
	
	bbMD2Animating (Self.handle)

	End Method
	
End Type

Type TbbBSP Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	Field VisCmd:TbsVisibilityCommands	= New TbsVisibilityCommands
		
	Method _Set:TbbBSP(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Self.VisCmd.handle	= Self.handle
		Super._Set(Self.handle)
		Return Self
		
	End Method
	
	Method Scale (x_scale:Float,y_scale:Float,z_scalel:Float,GlobalSpace:Int=False)
	
		bbScaleEntity(Self.handle,x_scale,y_scale,z_scalel,GlobalSpace)

	End Method
	
	Function Load:TbbBSP ( file:String,gamma_adjust:Float=0,parent:TbbEntity=Null)
	
		If parent<>Null
			Return TbbBSP (TbbBSP._Allocate (bbLoadBSP( file,gamma_adjust,parent.handle )))
		Else
			Return TbbBSP (TbbBSP._Allocate (bbLoadBSP( file,gamma_adjust)))
		EndIf
		
	EndFunction

	Method SetAmbientLight (red:Float, green:Float, blue:Float)
		
		bbBSPAmbientLight (Self.handle,red,green,blue)
		
	End Method
	
	Method Lighting (use_lightmaps:Int)
		
		bbBSPLighting (Self.handle,use_lightmaps)
		
	End Method
	
End Type

Type TbbPlane Extends TbbEntity
			
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	Field VisCmd:TbsVisibilityCommands	= New TbsVisibilityCommands
	Field PaintCmd:TbsPaintingCommands	= New TbsPaintingCommands
	
	Method _Set:TbbPlane(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Self.VisCmd.handle	= Self.handle
		Self.PaintCmd.handle	= Self.handle
		Super._Set(Self.handle)
		Return Self
		
	End Method
	
	Function Create:TbbPlane (sub_divs:Int=1,parent:TbbEntity=Null )
	
		If parent<>Null
			Return TbbPlane (TbbPlane._Allocate (bbCreatePlane (sub_divs,parent.handle )))
		Else
			Return TbbPlane (TbbPlane._Allocate (bbCreatePlane (sub_divs)))
		EndIf
			
	EndFunction
	
End Type

Type TbbMirror Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	Field VisCmd:TbsVisibilityCommands	= New TbsVisibilityCommands
	
	Method _Set:TbbMirror(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Self.VisCmd.handle	= Self.handle
		Super._Set(Self.handle)
		Return Self
		
	End Method
		
	Function Create:TbbMirror (parent:TbbEntity=Null )
	
		If parent<>Null
			Return TbbMirror (TbbMirror._Allocate (bbCreateMirror (parent.handle )))
		Else
			Return TbbMirror (TbbMirror._Allocate (bbCreateMirror ()))
		EndIf
		
	EndFunction

	
End Type

Type TbbListener Extends TbbEntity
	
	Field RotCmd:TbsRotationCommands	= New TbsRotationCommands
	
	Method _Set:TbbListener(PHandle:Int)
		
		Self.handle = PHandle
		Self.RotCmd.handle 	= Self.handle
		Super._Set(Self.handle)
		Return Self	
		
	End Method
		
	Function Create:tbbListener(parent:TbbEntity)
		
		Return tbblistener(Tbblistener._Allocate (bbCreateListener(parent.handle)))
			
	End Function
	
End Type

Type TbsRotationCommands

	Field handle:Int
	
	Method Rotate (pitch:Float,Yaw:Float,Roll:Float,GlobalSpace:Int=False)
		
		bbRotateEntity (Self.handle,pitch,Yaw,Roll,GlobalSpace)
		
	End Method
	
	Method Turn (pitch:Float,Yaw:Float,Roll:Float,GlobalSpace:Int=False)
		
		bbTurnEntity (Self.handle,pitch,Yaw,Roll,GlobalSpace)
		
	End Method
	
	Method PointAt (Target:TbbEntity,roll:Float=0)
		
		bbPointEntity (Self.handle,target.handle,roll)
	
	End Method
	
	Method AlignToVector (vector_x:Float,vector_y:Float,vector_z:Float,axis:Int,rate:Float=1.0)
		
		bbAlignToVector (Self.handle,vector_x,vector_y,vector_z,axis,rate)

	End Method
	
	Method GetRoll:Float(GlobalSpace:Int=False)
		
		Return bbEntityRoll(Self.handle,GlobalSpace)
		
	End Method
	
	Method GetYaw:Float(GlobalSpace:Int=False)
		
		Return bbEntityYaw(Self.handle,GlobalSpace)
		
	End Method

	Method GetPitch:Float(GlobalSpace:Int=False)
		
		Return bbEntityPitch(Self.handle,GlobalSpace)
		
	End Method
	
	Method GetMatElement:Float (row:Int,column:Int )
		
		Return bbGetMatElement(Self.handle,row,column)
		
	End Method
	 
End Type

Type TbsPositionCommands
	
	Field handle:Int
	
	Method Position (X:Float,Y:Float,Z:Float,GlobalSpace:Int=False)
		Print Self.handle
		bbPositionEntity (Self.handle,X,Y,Z,GlobalSpace)

	End Method	

	Method Move (X:Float,Y:Float,Z:Float)
	
		bbMoveEntity (Self.handle,X,Y,Z)

	End Method	

	Method Translate (X:Float,Y:Float,Z:Float,GlobalSpace:Int=False)
	
		bbTranslateEntity (Self.handle,X,Y,Z,GlobalSpace)

	End Method	
		
	Method GetX:Float(GlobalSpace:Int=False)
		
		Return bbEntityX(Self.handle,GlobalSpace)
		
	End Method
	
	Method GetY:Float(GlobalSpace:Int=False)
		
		Return bbEntityY(Self.handle,GlobalSpace)
		
	End Method
	
	Method GetZ:Float(GlobalSpace:Int=False)
		
		Return bbEntityZ(Self.handle,GlobalSpace)
		
	End Method
	
End Type

Type TbsHierachyCommands

	Field handle:Int

	Method SetParent(parent:TbbEntity,GlobalSpace:Int=True)
		
		bbEntityParent(Self.handle,parent.handle,GLobalSpace)
		
	End Method
	
	Method GetParent:TbbEntity()
	
		Return TbbEntity._HandleToType(bbGetParent(Self.handle))
		
	End Method
	
	Method CountChildren:Int()
		
		Return bbCountChildren(Self.handle)
		
	End Method
	
	Method GetChild:TbbEntity(index:Int)
	 
		Return TbbEntity._HandleToType(bbGetChild(Self.handle,index))
		
	End Method
	
	Method FindChild:TbbEntity (name:String)
		
		Return TbbEntity._HandleToType(bbFindChild (Self.handle,name))

	End Method

End Type

Type TbsVisibilityCommands

	Field handle:Int

	Method Show()
		
		bbShowEntity(Self.handle)
		
	End Method
	
	Method Hide()
		
		bbHideEntity(Self.handle)
		
	End Method
	
	Method AutoFade(Near:Float,Far:Float)
		
		bbEntityAutoFade(Self.handle,Near,Far)
		
	End Method
	
	Method SetOrder(Order:Int=0)
		
		bbEntityOrder(Self.handle,Order)
		
	End Method
	
	Method InView:Int (camera:TbbEntity)
	
		Return bbEntityInView ( Self.handle,camera.handle)
	
	EndMethod

EndType

Type TbsPaintingCommands

	Field handle:Int
	
	Method SetColour(red:Float,green:Float,blue:Float)
		
		bbEntityColor (Self.handle,red,green,blue)
			
	End Method
	
	Method SetAlpha(alpha:Float)
		
		bbEntityAlpha(Self.handle,alpha)
		
	End Method

	Method SetShininess(Shininess:Float)
		
		bbEntityShininess(Self.handle,Shininess)
		
	End Method
	
	Method SetTexture(Texture:TbbTexture,Frame:Int=0,index:Int=0)
	
		bbEntityTexture(Self.handle,Texture.handle,Frame,index)
		
	End Method

	Method SetBlend(Blend:Int = 0)
		
		bbEntityBlend(Self.handle,Blend)
		
	End Method
	
	Method SetFX(FX:Int=0)
		
		bbEntityFX(Self.handle,Fx)
		
	End Method
		
	Method Paint(Brush:TbbBrush)
		
		bbPaintEntity(Self.handle,Brush.handle)
		
	End Method

End Type

Type TbsCollisionCommands

	Field handle:Int

	Function Collisions (src_type:Int,dest_type:Int,detectionmethod:Int,response:Int)
		
		bbCollisions(src_type,dest_type,detectionmethod,response)
		
 	End Function

 	Function ClearCollisions()
		
		bbClearCollisions
		
 	End Function

 	Method EntityType (collision_type:Int,recursive:Int=False)
		
		bbEntityType (Self.handle,collision_type,recursive)
		
	End Method

	Method GetEntityType ()
		
		bbGetEntityType ( Self.handle )
		
	End Method

 	Method ReSetEntity()
	
		bbResetEntity(Self.handle)
	
	End Method

 	Method SetRadius (x_radius:Float,y_radius:Float=0)
	
		bbEntityRadius (Self.handle,x_radius,y_radius)
	
	End Method

	Method SetBox (X:Float,Y:Float,Z:Float,width:Float,height:Float,depth:Float)
	
		bbEntityBox (Self.handle,X,Y,Z,width,height,depth)
		
	End Method

	Method EntityCollided:TbbEntity ( Src_type:Int )
		
		Return TbbEntity._HandleToType(bbEntityCollided ( Self.handle,Src_Type ))
		
	EndMethod
 
	Method CountCollisions:Int ()
	
		Return bbCountCollisions(Self.handle)
	
	End Method

	Method CollisionX:Float (index:Int)
		
		Return bbCollisionX(Self.handle,index)
		
	End Method
	
	Method CollisionY:Float (index:Int)
		
		Return bbCollisionY(Self.handle,index)
		
	End Method
	
	Method CollisionZ:Float (index:Int)
		
		Return bbCollisionZ(Self.handle,index)
		
	End Method
	
	Method CollisionNX:Float (index:Int)
		
		Return bbCollisionNX(Self.handle,index)
		
	End Method
	
	Method CollisionNY:Float (index:Int)
		
		Return bbCollisionNY(Self.handle,index)
		
	End Method
	
	Method CollisionNZ:Float (index:Int)
		
		Return bbCollisionNZ(Self.handle,index)
		
	End Method

	Method CollisionTime:Float (index:Int)
		
		Return bbCollisionTime(Self.handle,index)
		
	End Method
	
	Method CollisionEntity:TbbEntity (index:Int)
		
		Return TbbEntity._HandleToType (bbCollisionEntity(Self.handle,index))
		
	End Method
	
	Method CollisionSurface:TbbSurface (index:Int)
		
		Return TbbSurface._HandleToType (bbCollisionSurface(Self.handle,index))
		
	End Method

	Method CollisionTriangle:Int (index:Int)
		
		Return bbCollisionTriangle(Self.handle,index)
		
	End Method
	
EndType

Type TbsPickingCommands

	Field handle:Int
	
 	Method EntityPickMode (pick_geometry:Int,obscurer:Int=True)
		
		bbEntityPickMode (Self.handle,pick_geometry,obscurer)

	End Method
 	
	Function LinePick:TbbEntity(X:Float,Y:Float,Z:Float,DX:Float,DY:Float,DZ:Float,Radius:Float=0.0)
	
		Return TbbEntity._HandleToType(bbLinePick(X,Y,Z,DX,DY,DZ,Radius))
	
	End Function
 
	Method EntityPick:TbbEntity (Range:Float)
	
		Return TbbEntity._HandleToType (bbEntityPick(Self.handle,Range))
		
	End Method

	Method CameraPick (viewport_x:Float,viewport_y:Float )
	
		bbCameraPick (Self.handle,viewport_x,viewport_y)

	End Method
	
	Function PickedX:Float()
		
		Return bbPickedX( )
		
	End Function

	Function PickedY:Float()
		
		Return bbPickedY( )
		
	End Function

	Function PickedZ:Float()
		
		Return bbPickedZ( )
		
	End Function

	Function PickedNX:Float()
		
		Return bbPickedNX( )
		
	End Function

	Function PickedNY:Float()
		
		Return bbPickedNY( )
		
	End Function

	Function PickedNZ:Float()
		
		Return bbPickedNZ( )
		
	End Function

	Function PickedTime:Int()
		
		Return bbPickedTime( )
		
	End Function

	Function PickedEntity:TbbEntity()
		
		Return TbbEntity._HandleToType(bbPickedEntity( ))
		
	End Function

	Function PickedSurface:TbbSurface()
		
		Return TbbSurface._HandleToType (bbPickedSurface( ))
		
	End Function

	Function PickedTriangle:Int()
		
		Return bbPickedTriangle( )
		
	End Function

EndType

Type TbsPropertyCommands

	Field handle:Int

	Method class:String()
		
		Return bbEntityClass(Self.handle)
		
	End Method

	Method GetName:String()
		
		Return bbEntityName(Self.handle)
		
	End Method

	Method SetName(name:String)
		
		bbNameEntity(Self.handle,name)
		
	End Method
	
	Method GetID:Int()
		
		bbEntityID(Self.handle)
		
	End Method
	
	Method SetId(id:Int)
		
		bbSetEntityID(Self.handle,id)
		
	End Method
	
	Method CaptureEntity()
		
		bbCaptureEntity (Self.handle)
		
	End Method

End Type

Type TbsComparisonCommands

	Field handle:Int
	
	Method EntityVisible:Int(DestEntity:TbbEntity)
		
		Return bbEntityVisible(Self.handle,DestEntity.handle)
		
	End Method
	
	Method EntityDistance:Float(DestEntity:TbbEntity)
		
		Return bbEntityDistance(Self.handle,DestEntity.handle)
		
	End Method

	Method DeltaYaw:Float(DestEntity:TbbEntity)
	
		Return bbDeltaYaw(Self.handle,DestEntity.handle)
	
	End Method

	Method DeltaPitch:Float(DestEntity:TbbEntity)
	
		Return bbDeltaPitch(Self.handle,DestEntity.handle)
	
	End Method

End Type

Type TbsAnimationCommands

	Field handle:Int

	Method Animate (mode:Int=1,speed:Float=1.0,sequence:Int=0,transition:Float=0)
		
		bbAnimate (Self.handle,mode,speed,sequence,transition)
		
	End Method
	
	Method ExtractAnimSeq (first_frame:Int,last_frame:Int,anim_seq:Int=0) 
		
		bbExtractAnimSeq( Self.handle,first_frame,last_frame,anim_seq )

	End Method
	
	Method AddAnimSeq (length:Int)
	
		bbAddAnimSeq ( Self.handle,length)
	
	End Method
	
	Method SetAnimKey (Frame:Int,pos_key:Int=True,rot_key:Int=True,scale_key:Int=True)
	
		bbSetAnimKey (Self.handle,Frame,pos_key,rot_key,scale_key)
	
	End Method
	
	Method LoadAnimSeq:Int (filename:String)
		
		Return bbLoadAnimSeq ( Self.handle,filename)
		
	End Method
	
	Method SetAnimTime (time:Float,anim_seq:Int=0)
		
		bbSetAnimTime (Self.handle,time,anim_seq)
		
	End Method
	
	Method AnimSeq:Int ()
		
		Return bbAnimSeq ( Self.handle )
	
	End Method
	
	Method AnimLength:Int ()
		
		Return bbAnimLength ( Self.handle )
	
	End Method	
	
	Method AnimTime:Float ()
		
		Return bbAnimTime ( Self.handle )
	
	End Method
	
	Method Animating:Int ()
		
		Return bbAnimating ( Self.handle )
	
	End Method

End Type

Type TbsMeshCommands
	
	Field handle:Int
	
	Method Add(dest_mesh:TbbMesh)
		
		bbAddMesh (Self.handle,dest_mesh.handle)
		
	End Method
	
	Method Flip()
	
		bbFlipMesh(Self.handle)
	
	End Method
	
	Method Paint(Brush:TbbBrush)
		
		bbPaintMesh(Self.handle,Brush.handle)
		
	End Method
	
	Method Light(red:Float,green:Float,blue:Float,Range:Float=0,light_x:Float=0,light_y:Float=0,light_z:Float=0)
		
		bbLightMesh (Self.handle,red,green,blue,Range,light_x,light_y,light_z#)
	
	End Method
	
	Method Fit(X:Float,Y:Float,z:Float,width:Float,height:Float,depth:Float,uniform:Int=False)
		
		bbFitMesh (Self.handle,X,Y,z,width,height,depth,uniform)
		
	End Method

	Method Scale(x_scale:Float,y_scale:Float,z_scale:Float)
		
		bbScaleMesh (Self.handle,x_scale,y_scale,z_scale)
	
	End Method
	
	Method Rotate(pitch:Float,yaw:Float,roll:Float)
		
		bbRotateMesh (Self.handle,pitch,yaw,roll)
		
	End Method
	
	Method Position(X:Float,Y:Float,z:Float)
		
		bbPositionMesh (Self.handle,X,Y,z)
		
	End Method
	
	Method UpdateNormals ()
		
		bbUpdateNormals (Self.handle)
		
	End Method
	
	Method MeshesIntersect:Int (mesh_b:TbbMesh )
		
		Return bbMeshesIntersect (Self.handle,mesh_b.handle)
		
	End Method
	
	Method GetWidth:Float ()
		
		Return bbMeshWidth (Self.handle)
		
	End Method
	
	Method GetHeight:Float ()
		
		Return bbMeshHeight (Self.handle)
		
	End Method
	
	Method GetDepth:Float ()
		
		Return bbMeshDepth (Self.handle)
		
	End Method
	
	Method CountSurfaces:Int ()
		
		Return bbCountSurfaces (Self.handle)
	
	End Method

	Method GetSurface:TbbSurface (index:Int)
		
		Return TbbSurface._Allocate (bbGetSurface ( Self.handle,index))
		
	End Method
	
End Type

Type TbsCameraCommands

	Field handle:Int
	
	Method ProjMode (mode:Int)
	
		bbCameraProjMode (Self.handle,mode)

	End Method
	
	Method FogMode (mode:Int)
	
		bbCameraFogMode (Self.handle,mode)

	End Method

	Method FogRange (Near:Float,Far:Float)
	
		bbCameraFogRange (Self.handle,Near,Far)

	End Method
	
	Method FogColor (red:Float,green:Float,blue:Float)
	
		bbCameraFogColor (Self.handle,red,green,blue)

	End Method
	
	Method ViewPort (X:Int,Y:Int,width:Int,height:Int)
	
		bbCameraViewport (Self.handle,X,Y,width,height)

	End Method
	
	Method ClsMode (CLS_Colour:Int,Cls_zBuffer:Int)
	
		bbCameraClsMode (Self.handle,CLS_colour,Cls_ZBuffer)

	End Method
	
	Method clscolor (red:Float,green:Float,blue:Float)
	
		bbCameraClsColor (Self.handle,red,green,blue)

	End Method

	Method Range (Near:Float,Far:Float)
	
		bbCameraRange (Self.handle,Near,Far)

	End Method
	
	Method Zoom (Zoom:Float)
	
		bbCameraZoom (Self.handle,Zoom)

	End Method
		
	Method Project (X:Float,Y:Float,Z:Float)
		
		bbCameraProject (Self.handle,X,Y,Z)
		
	End Method

	Function ProjectedX:Float()
		
		Return bbProjectedX( )
		
	End Function

	Function ProjectedY:Float()
		
		Return bbProjectedY( )
		
	End Function

	Function ProjectedZ:Float()
		
		Return bbProjectedZ( )
		
	End Function
	
	Method EntityInView:Int (Entity:TbbEntity)
	
		Return bbEntityInView (Entity.handle,Self.handle)
	
	EndMethod

End Type

Type TbsMaths3dCommands

	Field handle:Int

	Method TFormPoint(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormPoint(X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method

	Method TFormVector(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormVector (X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method

	Method TFormNormal(X:Float,Y:Float,Z:Float,DestEntity:TbbEntity)
		
		bbTFormNormal (X,Y,Z,Self.handle,DestEntity.handle)
		
	End Method
	
	Function TFormedX:Float()
		
		Return bbTFormedX()
		
	End Function
	
	Function TFormedY:Float()
		
		Return bbTFormedY()
		
	End Function
	
	Function TFormedZ:Float()
		
		Return bbTFormedZ()
		
	End Function
	
End Type

Import "wrap4.bmx"
SuperStrict
bbBeginBlitz3D

bbGraphics3D 800,600,0,2

Global cube:TbbMesh = TbbMesh.CreateCube()
Global light:TbbLight =TbbLight.Create()
Global camera:TbbCamera= TbbCamera.Create()
Global Tex:TbbTexture = TbbTexture.Load ("Pic.jpg")


Tex.TextureEntity(Cube)
'Cube.PaintCmd.SetTexture(Tex)

Camera.PosCmd.Position(0,0,-4)

While not bbKeyHit(1)
	Cube.RotCmd.Turn(.1,.2,.3)
	bbRenderWorld
	bbFlip 1
Wend

Import "wrap4.bmx"
SuperStrict
bbBeginBlitz3D

bbGraphics3D 800,600

Global Camera:TbbCamera = TbbCamera.Create()
Global Light:TbbLight = TbbLight.Create()

Global Rocket:TbbMesh =TbbMesh.Load( "rocket.3ds" )

Rocket.PosCmd.Position (0,0,7)


  While not bbKeyHit(1)

      If bbKeyDown(200) Then
         Rocket.PosCmd.Move (0,.05,0)
      EndIf

      If bbKeyDown(203) Then
         Rocket.RotCmd.Turn (0,0,1.0)
      EndIf

      If bbKeyDown(205) Then
         Rocket.RotCmd.Turn(0,0,-1.0)
      EndIf

  bbUpdateWorld
  bbRenderWorld

  bbText 320,500,"Movement & Rotation"

  bbFlip

  Wend
  End

Import "wrap4.bmx"
SuperStrict
bbBeginBlitz3D

bbGraphics3D 800,600

Global Camera:TbbCamera = Tbbcamera.Create()
Camera.CameraCmd.ViewPort (0,0,800,600)

Global Light:TbbLight = Tbblight.Create()
Global House:TbbMesh = Tbbmesh.Load( "House.3ds")

House.RotCmd.Rotate (0,90,0)

  While not bbKeyHit(1)

      If bbKeyDown(200) Then
         Camera.PosCmd.Move(0,0,1)
      EndIf

      If bbKeyDown(208) Then
         Camera.PosCmd.Move(0,0,-1)
      EndIf

      If bbKeyDown(203) Then
          Camera.RotCmd.Turn(0,1.0,0)
      EndIf

      If bbKeyDown(205) Then
          Camera.RotCmd.Turn(0,-1.0,0)
      EndIf

  bbUpdateWorld
  bbRenderWorld

  bbText 335,500,"Camera Movement"

  bbFlip

  Wend
  End

Code Archives Forum