with-camera ( L-SYSTEM QUOT -- )


Vocabulary
L-system

Inputs
L-SYSTEMan object
QUOTan object


Outputs
None

Definition
USING: accessors kernel ui.gadgets ;

IN: L-system

:: with-camera ( L-SYSTEM QUOT -- )
L-SYSTEM camera>> QUOT call drop L-SYSTEM relayout-1 ;
inline