YellowSpace2

■YellowSpaceを修正するです。

• TestZooTea.st

makeYellowSpace: sp
	| spYellow p1 win1 p2 win2  light spinner pumpkin url |
	"New Space"
	spYellow _ TSpace new.
	spYellow color: (Color r: 1.0 g: 0.8 b: 0.3).
	
	"Light"
	light _ TLight new.
	spinner _ TSpinner new.
	spinner translationX: -10 y:0.0 z: 0.0.
	spinner rotationAroundX: -100.
	spinner matNil.
	spinner contents: light.
	spYellow addChild: spinner.

	"Floor"
	self makeFloor: spYellow fileName:'checker.bmp'.

	"Furniture"
	url _ 'http://www.thoruman.com/TeaLand/pumpkin/pumpkin.tea'. 
	pumpkin _ self loadURL: url. 
	pumpkin ifNil: [
		pumpkin _ (TLoadMetasequoia new initializeWithFileName: 
			(FileDirectory pathFrom:
			 {FileDirectory default pathName . 'Content'. 'mqoData'. 'pumpkin.mqo'}) 
			scale: 0.1 shadeAngle: 90.1 textureMode: GLModulate) frame.
	].
	spYellow  addChild: pumpkin.
	pumpkin translationX: 0 y: -3 z: 0.
	pumpkin boundsDepth: 3.
	pumpkin initBounds.

	"Export Tea"
	url _ 'http://www.thoruman.com/TeaLand/pumpkin/pumpkin.tea'. 
	TExporter export: pumpkin asBinary:url.

	"P1 Window"
	p1 _ TPortal new.
	win1 _ TWindow new.
	win1 translationX: 0 y: 0  z: 0 .
	win1 contents: p1. 
	win1 closeContents.
	sp addChild: win1.

	"P2 Window"
	p2 _ TPortal new.
	win2 _ TWindow new.
	win2 translationX: 0 y: 0  z:40.
	win2 addRotationAroundY: 180.
	win2 contents: p2.
	spYellow addChild: win2. 

	"Link Portal"
	p1  linkPortal: p2.

■モデリングデータをWebにアップ