zoom-demo-world ( distance gadget -- )


Vocabulary
opengl.demo-support

Inputs
distancean object
gadgetan object


Outputs
None

Definition
USING: accessors kernel math ui.gadgets ;

IN: opengl.demo-support

: zoom-demo-world ( distance gadget -- )
[ + ] with change-distance relayout-1 ;