TTexture

• bMipmap
• extension
• extent:
• fileName
• formExtent
• isStatic
• isStatic:
• magFilter
• minFilter
• mode
• mode:
• scale
• scale:
• shrinkFit
• shrinkFit:
• targetExtent
• targetForm
• textureForm
• updateRect:
• uvAngle
• uvAngle:
• uvOffset
• uvOffset:
• uvScale
• uvScale:

• copy

• isLoaded

• delete
• destroy
• flipVertically
• initializeOpaque:extent:
• initializeWithFileName:
• initializeWithFileName:mipmap:
• initializeWithFileName:mipmap:shrinkFit:
• initializeWithFileName:mipmap:shrinkFit:extension:
• initializeWithForm:mipmap:shrinkFit:
• initializeWithForm:mipmap:shrinkFit:extension:
• setup

• disable:
• enable:
• renderFrame:parent:root:
• renderFrame:space:
• renderPrimitive:
• update
• upload
• uploadDirtyRect:

• isTexture

	^ tform bMipmap.

	
	^ tform extension.

	super extent: ext.
	baseScale _ (extent x/tform extent x) asFloat.

	^ tform fileName.

	^ tform extent.

	^ tform isStatic.

	
	tform isStatic: aBool.

	^ tform magFilter.

	^ tform minFilter.

	^ mode.

	mode _ md.

	^ baseScale.

	baseScale _ baseScale * sc.
	self translation: (self translation * sc).
	extent _ tform extent * baseScale. 	"save the original value if we have to render this object."
	self boundsChanged.

^ tform bShrinkFit.

 tform shrinkFit: bSF.

	^ tform extent.

	^tform form.

	^tform form.

	tform updateRect: aRect.

	^ uvAngle.

	uvAngle _ uva.

	^ uvOffset.

	uvOffset_ uvo.

	^uvScale.

	uvScale_ uvs.

	^ self shallowCopy.

	^tform isLoaded.

"Very important - a TTexture is not allowed to delete a TForm. This is because a TForm may be shared among multiple TTextures."
	tform invalidate: Croquet world ogl.

	"destroy me"
	super destroy.
	self delete.

	"Flip the texture vertically"
	tform form flipVertically.
	tform updateAll.

| mat |
	self 
		initializeWithForm: (Form extent: targetExtent depth: 32) 
		mipmap: false "aCroquetWorld ogl autoMipmap"
		shrinkFit: false. "the form needs to grow"
	uvScale _ (tform extent/tform trueExtent) asFloatPoint.
	mat _ TMaterial new.
	aBool ifTrue:[
		mat ambientColor: #(1.0 1.0 1.0 1) asFloatArray.
		mat diffuseColor: #(1.0 1.0 1.0 1) asFloatArray.
	] ifFalse:[
		mat ambientColor: #(1.0 1.0 1.0 0.9) asFloatArray.
		mat diffuseColor: #(1.0 1.0 1.0 0.9) asFloatArray.
	].
	mat emissiveColor: #(1.0 1.0 1.0 1.0) asFloatArray.
	super material: mat.
	^self.

	^self initializeWithFileName: fName mipmap: true shrinkFit: false.

	^self initializeWithFileName: fName mipmap: bMM shrinkFit: false.

 

	^self initializeWithFileName: fName mipmap: bMM shrinkFit: false extension: nil.

	tform _ TForm fromFileNamed: fName mipmap: bMM shrinkFit: bSF extension: ext.
	self setup.

 

	self initializeWithForm: baseForm mipmap: bMM shrinkFit: bSF extension: nil.

	tform _ TForm fromForm: baseForm mipmap: bMM shrinkFit: bSF extension: ext.
	self setup.

	baseScale _ 0.01.
	extent _ tform extent * baseScale.
	self aspectFixed: true.
	self aspect: (extent y/extent x) asFloat.
	self texture: self.
	uvScale _ 1.0@1.0.
	uvOffset _ 0.0@0.0.
	uvAngle _ 0.0.
	extent _ extent * baseScale. 	"save the original value if we have to render this object."
	self objectName: tform fileName.
	tform addParent: self.
	mode _ GLModulate.

	ogl changeTexture ifFalse:[^false].
	ogl glDisable: GLTexture2d.

	(tform notNil and: [tform bind: ogl]) ifTrue:[.
		ogl glEnable: GLTexture2d.

		timeStamp ~= ogl timeStamp ifTrue:[self update.].
		ogl glTexParameteri: GLTexture2d with: GLTextureWrapS with:GLRepeat;
			glTexParameteri: GLTexture2d with: GLTextureWrapT with:GLRepeat.].
	timeStamp _ ogl timeStamp.

	self update.
	^ super renderFrame: ogl parent: parent root: root.

	self update.
	^ super renderFrame: ogl space: space.

	self enable: ogl.
	ogl glTexEnvi: GLTextureEnv with: GLTextureEnvMode with: mode.
	super renderPrimitive: ogl.
	self disable:ogl.

"This is used when you are about to use or render this texture. This is called whenever we are send #enable: to the texture, and it is only called once per render."

	tform updateAll.

	tform upload: Croquet world ogl dirtyRect: aRectangle

	^ true.