ポリゴンを表示するプログラム
Posted feedbacks - Smalltalk
Squeak Smalltalk で。Balloon3D というパッケージを用いて正十二面体を回転させました。
1 2 3 4 5 6 7 8 9 | | sceneObj view solid colors |
solid := B3DRegularSolid dodekahedron.
colors := (Color wheel: 12) collect: [:each | each asB3DColor].
solid setFaceColors: colors.
sceneObj := B3DSceneObject named: 'solid'.
sceneObj geometry: solid.
view := AdvancedB3DSceneMorph new.
view scene objects: (OrderedCollection with: sceneObj).
view beRotating; openInHand
|


ところてん
#5940()
Rating0/4=0.00
[ reply ]