makeYellowSpace: sp | spYellow p1 win1 p2 win2 | "New Space" spYellow _ TSpace new. spYellow color: (Color r: 1.0 g: 0.8 b: 0.3). "Light & Floor" self makeLight: spYellow. self makeFloor: spYellow fileName:'checker.bmp'. "P1 Window" p1 _ TPortal new. win1 _ TWindow new. win1 translationX: 0 y: 0 z: 0 . win1 contents: p1. sp addChild: win1. "P2 Window" p2 _ TPortal new. win2 _ TWindow new. win2 translationX: 0 y: 0 z:3. win2 contents: p2. spYellow addChild: win2. "Link Portal" p1 linkPortal: p2.----------------------------------------
initializeDefaultSpace | space | "space" space _ TSpace new. space color: (Color r: 0.0 g: 0.5 b: 0.0).. "light" self makeLight: space. "floor" self makeFloor: space fileName:'graph128.bmp'. "yellowSpace" self makeYellowSpace: space. ^space----------------------------------------
下の入力ボックスに書き込んで”add to the page”ボタンで登録出来ます。 修正したい場合はページ左のアイコンの”edit”で出てくる画面で編集可能です。 ページ左のアイコンの”uploads”で画像(JPEG,GIF,PNG)のアップロードもできます。 Link to this Page
|