rotate-view-mode ( world: gml-viewer-world -- )


Vocabulary
gml.viewer

Inputs
worlda gml-viewer-world


Outputs
None

Definition
USING: accessors kernel typed ;

IN: gml.viewer

TYPED: rotate-view-mode ( world: gml-viewer-world -- )
dup view-edges?>> [
dup view-faces?>>
[ f >>view-faces? ] [ f >>view-edges? t >>view-faces? ]
if
] [ t >>view-edges? ] if drop ;