TMesh

• boundsChanged
• boundsDepth
• boundsDepth:
• collapse
• colorize:
• faceGroupsDo:
• forceGlobalToLocal
• frameBox
• fullBright:
• hasAlpha:
• inertiaTensor
• isSolid
• material
• material:
• materialList
• materialList:
• normals
• normals:
• opaque
• opaque:
• pick:
• scale:
• scaleBounds:
• transparency:
• vertices
• vertices:

• collideFloor:
• collidePlane:offset:

• postCopy

• postImportFrom:
• prepareToExportOn:

• checkAlpha
• initBounds
• initializeWithVertices:alias:norms:textureUV:faceGroups:material:
• optimizeFaceGroups
• validateFaceGroups

• getAlpha
• getColor
• getSpecularColor
• setAlpha:
• setColor:
• setSpecularColor:

• boundSphere
• disableCaching
• enableCaching
• hasAlpha
• oldRender:
• oldRenderAlpha:
• render:
• renderAlpha:
• renderPrimitive:alpha:
• resetCaching

• isMesh

	boundsChanged _ true.

	^ boundsDepth.

	boundsDepth _ depth.
	frameChildren ifNotNil:[ frameChildren do:[ :fc | fc boundsDepth: depth].].
	self boundsChanged.

"Forces all frames to identity transform while retaining translation, and pushes the previous transform to the frame children. This is used primarily for meshes and their supporting groups."
	| orient|

	orient _ self orientation.
	1 to: vertices size do:[ :index |
		vertices at: index put:(orient localPointToGlobal: (vertices at: index)).].
	1 to: vtxNormals size do:[ :index |
		vtxNormals at: index put:(orient localPointToGlobal:( vtxNormals at: index)).].
	super collapse.

	self materialList do:[ :ml |
		ml ambientColor: col.
		ml diffuseColor: col.
		ml textureMode: GLModulate.
		].
	self resetCaching.
	self checkAlpha.
	frameChildren ifNotNil:[frameChildren do:[ :fc | fc colorize: col].].

	1 to: faceGroups size by: 2 do:[ :i | aBlock value: (faceGroups at: i+1)].

"This is used by TMesh where we assume that the imported vertices are pre-transformed and we want to put them back into their untransformed state. Only TMesh will probably need this, but TMeshes can have TGroups which don't know what to do."
	| invMat invOrient |

	frameChildren ifNotNil:[ frameChildren do:[ :fc | fc forceGlobalToLocal.]].
	invMat _ self localTransform orthoNormInverse.
	invOrient _ self orientation orthoNormInverse.
	1 to: vertices size do:[ :index | 
		vertices at: index put:(invMat localPointToGlobal: (vertices at: index)).].
	1 to: vtxNormals size do:[ :index |
		vtxNormals at: index put:(invOrient localPointToGlobal: (vtxNormals at: index)).].
	frameParent ifNotNil:[
		self localTransform: (
			frameParent localTransform orthoNormInverse composeWith: self localTransform).
		].

	"Answer the local bounding box of this frame"
	boundsChanged ifTrue:[self initBounds].
	boundSphere ifNil:[^super frameBox].
	^boundSphere box ifNil:[super frameBox]

	super fullBright: bool.
	materialList ifNotNil:[ materialList do:[ :ml | ml fullBright: bool]].

	alpha _ bool.

	| it |

	it _ TTensor initialize.
	1 to: faceGroups size by: 2 do:[:i |
		it addFaces: (faceGroups at: i+1) vertices: vertices.].
	^ it.
	

	^ solid

	^materialList first

	materialList at: 1 put: aMaterial

	^ materialList.

	materialList _ ml.
	self checkAlpha.

	^vtxNormals

	vtxNormals := normals

	^ opaque.

	opaque _ bool.

" We are here because we already picked the top level boundSphere, so we know that is true. Now what we need to test against the hierarchy, which will return a list of faces if true - otherwise, it will return nil."

	^ boundSphere pickChildren: pointer.

	vertices *= scale.
	super scale: scale.
	self scaleBounds: scale.
	"self boundsChanged."

	boundSphere ifNil: [self boundsChanged. ^ self].
	boundSphere scale: scale.

	self materialList do:[ :ml |
		ml transparency: trans.
		].
	self checkAlpha.
	frameChildren ifNotNil:[frameChildren do:[ :fc | fc transparency: trans].].

	^vertices

	vertices _ verts.

	(self boundSphere globalPosition y)-floor > boundSphere radius ifTrue:[ ^ nil ].

	^ boundSphere collideFloor: floor transform: self globalTransform.

	| tNormal tOffset |

" Simple test in world coordinates:"
	(boundSphere globalPosition dot: normal)-offset > boundSphere radius ifTrue:[ ^ nil ].

"Put the global coordinates of the plane into the local coordinate frame."
	tNormal _ self globalOrientation orthoNormInverse localPointToGlobal: normal.
	tOffset _ (tNormal dot: (self globalTransform orthoNormInverse localPointToGlobal: (normal*offset))).

	^ boundSphere collidePlane: tNormal offset: tOffset.

	super postCopy.
	materialList ifNotNil:[
		materialList _ materialList collect:[:mat| mat copy].
	].
	self vertices: vertices copy.
	self boundsChanged.
	glListID _ nil.
	glListAlphaID _ nil.
	self enableCaching.
	^ self.

	super postImportFrom: importer.
	glListID _ nil.
	glListAlphaID _ nil.
	self enableCaching.

	super prepareToExportOn: exporter.

	opaque _ false.
	alpha _ false.
	1 to: faceGroups size by: 2 do:[:i |
		((materialList at:(faceGroups at: i)) hasAlpha) ifTrue: [ self hasAlpha: true. ] ifFalse:[ self opaque: true.].
		].
	boundMaterial ifNotNil:[self hasAlpha: true].

	boundsDepth = 0 ifTrue:[
		boundSphere _ TBoundSphere mtfBall: vertices. ]
	ifFalse:[
		faceGroups size = 2 ifTrue:[	
			boundSphere _ 
			TBoundSphere calcTree: vertices faces: (faceGroups at: 2) depth: boundsDepth. ] 
		ifFalse:[
			boundSphere _ TBoundSphere mtfBall: vertices.
			1 to: faceGroups size by: 2 do:[ :i || child |
				child _ 
				TBoundSphere calcTree: vertices faces: (faceGroups at: i+1) depth: boundsDepth-1.
				boundSphere addChild: child.].
			].].
	boundSphere frame: self.
	boundsChanged _ false.

 

	| mat |
	super initialize.
	vertices _ v.
	alias _ a.
	vtxNormals _ n.
	textureUV _ tuv.
	faceGroups _ fg.
	alpha_ false.
	opaque _ false.
	mat _ ml.
	mat ifNil:[ 
		mat _ TMaterial new.
		mat ambientColor: #(1.0 0.2 0.2 0.5) asFloatArray.
		 ].
	mat subMaterialList ifNotNil:[ materialList _ mat subMaterialList. ]
	ifNil:[
		materialList _ OrderedCollection new.
		materialList add: mat.
		1 to: faceGroups size by: 2 do:[ :i |
			faceGroups at: i put: 1. ].].

	1 to: faceGroups size by: 2 do:[:i |
		faceGroups at: i put: 1+(((faceGroups at: i)-1)\\materialList size).
		((materialList at:(faceGroups at: i)) hasAlpha) ifTrue: [ self hasAlpha: true.] ifFalse:[ self opaque: true].
		].
	self optimizeFaceGroups.

	boundsDepth _ 2. "must always be a mimimum of 1 - the top sphere, and at least one recursion."
	self boundsChanged.
	glListID _ nil.
	glListAlphaID _ nil.
	self enableCaching.

"	This code is used to test the bounds sphere."
"	boundMaterial _ TMaterial new.
	boundMaterial ambientColor: #(0.7  0.2 0.1 0.3)asFloatArray.
	boundMaterial diffuseColor: #(0.7  0.2 0.1 0.3)asFloatArray.
	alpha _ true."
	^self

	"Optimize the face groups to minimize state changes"
	| matList faces index |
	matList := IdentityDictionary new.
	1 to: faceGroups size by: 2 do:[:i|
		index := faceGroups at: i.
		faces := faceGroups at: i+1.
		matList at: index put: ((matList at: index ifAbsent:[#()]) copyWith: faces).
	].
	index := 0.
	matList keysAndValuesDo:[:mIndex :fList|
		fList do:[:fGroup|
			faceGroups at: (index := index+1) put: mIndex.
			faceGroups at: (index := index+1) put: fGroup.
		].
	].

	"Check to see if all face groups are valid. For debugging only."
	| vtxSize face |
	vtxSize := vertices size.
	vtxNormals ifNotNil:[
		vtxNormals size = vertices size ifFalse:[self error:'normal size mismatch'].
	].
	textureUV ifNotNil:[
		textureUV size = vertices size ifFalse:[self error:'texture size mismatch'].
	].
	self faceGroupsDo:[:fg|
		fg basicSize \\ 3 = 0 ifFalse:[self error:'Face group not divisable by 3'].
		1 to: fg basicSize do:[:i|
			face := fg basicAt: i.
			(face >= 0 and:[face < vtxSize]) ifFalse:[self error:'Vertex out of range'].
		].
	].

	^materialList first getAlpha

	^materialList first getColor

	^materialList first getSpecularColor

	super setAlpha: newAlpha.
	materialList do:[ :each | each setAlpha: newAlpha].
	alpha := newAlpha < 1.0.

	self frameChildrenDo:[:child| child setColor: aColor].
	materialList first setColor: aColor

	self frameChildrenDo:[:child| child setColor: aColor].
	materialList first setSpecularColor: aColor

	boundsChanged ifTrue:[
		self initBounds. 
		boundsChanged _ false.
		].
	^ boundSphere.

	cachingEnabled _ false.
	cachingAlphaEnabled _ false.

	cachingEnabled _ true.
	cachingAlphaEnabled _ true.

	^ alpha.

	self opaque ifTrue:[
		(cachingEnabled = true) ifFalse:[
			(glListID notNil and:[ glInstance = ogl instance]) ifTrue:[
				ogl glDeleteLists: glListID with: 1.
				ogl unregisterList: self.
				].
			glListID _ nil.
			cachingEnabled = #reset ifTrue:[ cachingEnabled _ true.].
			^self renderPrimitive: ogl alpha: false.
		].
		"if there is a cached list and ogl has not changed, call it"
		(glListID notNil and: [glInstance = ogl instance]) ifTrue:[
			ogl glCallList: glListID.
		] ifFalse:[
			glListID _ ogl glGenLists: 1.
			ogl registerList: glListID range: 1 owner: self.
			glInstance _ nil.
			ogl glNewList: glListID with: GLCompileAndExecute.
			self renderPrimitive: ogl alpha: false.
			"See if current display list completed correctly.
			If any other has been constructed in the mean time
			defer this lists creation until the next rendering loop."
			(ogl glGetInteger: GLListIndex) = glListID ifTrue:[glInstance _ ogl instance].
			ogl glEndList.
		].
	].

	(cachingAlphaEnabled = true) ifFalse:[
		(glListAlphaID notNil and:[ glInstance = ogl instance]) ifTrue:[
			ogl glDeleteLists: glListAlphaID with: 1.
			ogl unregisterList: self.
			].
		glListAlphaID _ nil.
		cachingAlphaEnabled = #reset ifTrue:[ cachingAlphaEnabled _ true.].
		^self renderPrimitive: ogl alpha: true.
	].
	"if there is a cached list and ogl has not changed, call it"
	(glListAlphaID notNil and: [glInstance = ogl instance]) ifTrue:[
		ogl glCallList: glListAlphaID.
	] ifFalse:[
		glListAlphaID _ ogl glGenLists: 1.
		ogl registerList: glListAlphaID range: 1 owner: self.
		glInstance _ nil.
		ogl glNewList: glListAlphaID with: GLCompileAndExecute.
		self renderPrimitive: ogl alpha: true.
		"See if current display list completed correctly.
		If any other has been constructed in the mean time
		defer this lists creation until the next rendering loop."
		(ogl glGetInteger: GLListIndex) = glListAlphaID ifTrue:[glInstance _ ogl instance].
		ogl glEndList.
	].

	^self renderPrimitive: ogl alpha: false.

	^self renderPrimitive: ogl alpha: true.

	| lastMat nextMat |
	lastMat := nil.
	1 to: faceGroups size by: 2 do:[ :i |
		nextMat _ materialList at: (faceGroups at: i).
		nextMat hasAlpha = alphaPass ifTrue:[
			nextMat == lastMat ifFalse:[
				lastMat ifNotNil:[lastMat disable: ogl].
				nextMat enable: ogl.
				lastMat := nextMat.
			].
			ogl drawIndexedTriangles: (faceGroups at: i+1) 
				vertices: vertices 
				normals: vtxNormals 
				colors: nil texCoords: textureUV.
		].
	].
	lastMat ifNotNil:[lastMat disable: ogl].

"	boundSphere renderBox: self."

	cachingEnabled _ #reset.
	cachingAlphaEnabled _ #reset.

	^ true.