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

Vocabulary

gml.viewer

Inputs

world

a 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 ;