v := RWView new.

e := (RWPyramid new) element.
e on: RWMouseButtonDown do: [ :ev |
        ev element shape color: WDColor blue.
        ev element changed.
].
v add: e.

g := (RWCube new) element.
g on: RWMouseButtonDown do: [ :ev |
        ev element shape color: WDColor green.
        ev element changed.
].
g translateBy:(WDVector3 newX: 4.0 y: 0.0 z: 0.0).
v add: g .

f := (RWCylinder new) element.
f on: RWMouseButtonDown do: [ :ev |
        ev element shape color: WDColor red.
        ev element changed.
].
f translateBy:(WDVector3 newX: 2.0 y: 0.0 z: 0.0).
v add: f.

v addInteraction: RWMouseKeyControl.
v camera position: (WDVector3 x: 0.0 y: 0.0 z: 3.0).
v open.