gml-poly2doubleface ( registers gml -- registers gml )

Vocabulary

gml.modeling

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: euler.modeling gml.runtime kernel.private sequences ;

IN: gml.modeling

: gml-poly2doubleface ( registers gml -- registers gml )
    { gml } declare 2 1 [
        {
            smooth-smooth
            sharp-smooth
            smooth-sharp
            sharp-sharp
            smooth-like-vertex
            sharp-like-vertex
            smooth-continue
            sharp-continue
        } nth polygon>double-face
    ] gml-primitive ;