'From Jasmine-rc1 of 7 October 2004 [latest update: #280] on 5 October 2005 at 6:26:37 pm'!

!TeapotMorph methodsFor: 'toys' stamp: 'strick 10/5/2005 18:06'!
makeMars: sp
	| win sp2 p1 p2 lt tframe pic rover |

	p1 _ TPortal new.

	lt _ TLight new.
	lt rotationAroundZ: 120.
	lt addRotationAroundY:2.
	lt translationX: 10 y: 0 z:10.

	sp2 _ TSpace new.
	sp2 addChild: lt.
	sp2 color:(Color r: 0.6 g: 0.5 b: 0.2).

	sp2 url: 'http://www.reed.com/TeaLand/spaces/redplanet.tea'.

	win _ TWindow new.
	win translationX: -20 y: 0.0 z: 0.0.
	win contents: p1.
	sp addChild: win.
	pic _ TTexture new initializeWithFileName: 'McCahill.bmp'
				mipmap: true
				shrinkFit: false.
	win rectFront: pic.
	win closeContents.

	p2 _ TPortal new.
	win _ TWindow new.
	win rotationAroundY: 225.
	win translationX: 40.0 y:-17.0 z: 40.0.
	win contents: p2.
	sp2 addChild: win.
	p1 linkPortal: p2.

	self world doOneCycleNow.

	rover _ TRover new.
	rover translationX:10 y:-19.11 z:0.
	sp2 addChild: rover.

	self world doOneCycleNow.
	tframe _ self loadURL: 'http://www.reed.com/TeaLand/spaces/mars.tea'.
	tframe ifNil:[
		tframe _ (TLoad3DSMax new initializeWithFileName: (FileDirectory pathFromURI: 'Content/Mars/MasterTerrain.ASE') scale: 0.05) frame.
"		tframe rotationAroundX: -90."
		tframe boundsDepth: 2.
		tframe initBounds.
		TExporter export: tframe asBinary:'http://www.reed.com/TeaLand/spaces/mars.tea'.
		].
	tframe translationX: 0.0 y: 22.0 z:0.0.
	TQuadTree new initializeWithSpace: sp2 frame: tframe. 
	self makeSnapshot: sp2 angle: 15 translation:(B3DVector3 x:21.26738166809082 y:-17.4773292541504 z:38.1824035644531).! !