TPrimitive

• boundsChanged
• colorize:
• disableCaching
• enableCaching
• material
• material:
• materialAlpha
• materialAlpha:
• resetCaching
• texture
• texture:
• textureAlpha
• textureAlpha:
• transparency:

• copy

• postImportFrom:

• initBounds
• initialize

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

• boundSphere
• hasAlpha
• opaque
• render:
• renderAlpha:
• renderPrimitive:
• renderPrimitiveCached:

	boundsChanged _ true.
	(cachingEnabled = true)ifTrue: [  self resetCaching. ]. "reset cache"

	| mat |
	mat _ TMaterial new.
	mat ambientColor: col.
	mat diffuseColor: col.
	mat textureMode: GLModulate.

	self material: mat.

	cachingEnabled _ false.

	cachingEnabled _ true.

	^ material.

	mat ifNil:[^self].
	material _ mat.
	material ifNotNil:[
		material hasAlpha ifTrue:[ self materialAlpha: mat.].].

	^ materialAlpha.

	materialAlpha _ mat.

	cachingEnabled _ #reset.

	^ texture.

	texture _ txtr.
	textureAlpha _ txtr.

	^ textureAlpha.

	textureAlpha _ txtr.

	super transparency: trans.
	material ifNotNil:[material transparency: trans].
	materialAlpha ifNotNil:[materialAlpha transparency: trans.].

	| c |
	c _ super copy.
	c boundsChanged.
	^ c.

	super postImportFrom: importer.
	glListID ifNotNil:[
		glListID := nil.
		self enableCaching.
	].
	self boundsChanged. "so as to invalidate the cache"

	super initialize.
	boundsChanged _ true.
	self enableCaching.
	^self

	^materialAlpha ifNil:[1.0] ifNotNil:[materialAlpha getAlpha]

	^material ifNil:[super getColor] ifNotNil:[material getColor]

	^material ifNil:[super getSpecularColor] ifNotNil:[material getSpecularColor]

	self frameChildrenDo:[:each| each setAlpha: newAlpha].
	materialAlpha ifNil:[materialAlpha _ material].
	materialAlpha setAlpha: newAlpha.
	newAlpha <= 0.0 ifTrue:[materialAlpha := nil].

	self frameChildrenDo:[:child| child setColor: newColor].
	material setColor: newColor.
	materialAlpha ifNotNil:[materialAlpha setColor: newColor].

	self frameChildrenDo:[:child| child setSpecularColor: newColor].
	material setSpecularColor: newColor.
	materialAlpha ifNotNil:[materialAlpha setSpecularColor: newColor].

	| |
	boundsChanged ifTrue:[
		self initBounds. 
		boundsChanged _ false.
	"	ts _ TSphere initialize: ogl.
		ts translation: boundSphere localPosition.
		ts radius: boundSphere radius.
		ts material: (TMaterial initialize: ogl).
		ts boundSphere frame: nil.
		ts segments: 4.
		self removeAll.
		self addChild: ts."
		].
	^ boundSphere.

	" Does this object have an alpha channel to render? Return true if it does."
	materialAlpha ifNotNil:[ ^ materialAlpha hasAlpha.].
	^ false.

	" Does this object have an opaque channel to render? Return true if it does."
	material ifNotNil:[ ^ (material hasAlpha) not .].
	^ true.

	self opaque ifTrue:[
		material ifNotNil:[material enable: ogl.].
		texture ifNotNil:[texture enable: ogl].
		self renderPrimitiveCached: ogl.
		material ifNotNil:[material disable: ogl.].
		texture ifNotNil:[texture disable: ogl.].
		].

	materialAlpha ifNotNil:[materialAlpha enable: ogl. ].
	textureAlpha ifNotNil:[textureAlpha enable: ogl].
	self renderPrimitiveCached: ogl.
	materialAlpha ifNotNil:[materialAlpha disable: ogl.].
	textureAlpha ifNotNil:[textureAlpha disable: ogl.].

	super render: ogl

	ogl forceWire ifTrue:[^self renderPrimitive: ogl].
	(cachingEnabled = true) ifFalse:[
		(glListID notNil and:[ oglInstance = ogl instance]) ifTrue:[
			ogl glDeleteLists: glListID with: 1.
			ogl unregisterList: self.
			].
		glListID _ nil.
		cachingEnabled = #reset ifTrue:[ cachingEnabled _ true.].
		^self renderPrimitive: ogl.
	].
	"if there is a cached list and ogl has not changed, call it"
	(glListID notNil and: [oglInstance = ogl instance]) ifTrue:[
		ogl glCallList: glListID.
	] ifFalse:[
		glListID _ ogl glGenLists: 1.
		ogl registerList: glListID range: 1 owner: self.
		oglInstance _ nil.
		ogl glNewList: glListID with: GLCompileAndExecute.
		self renderPrimitive: ogl.
		"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:[oglInstance _ ogl instance].
		ogl glEndList.
	].