add-ring ( ring base-face -- )

Vocabulary

euler.b-rep

Inputs

ring	an object
base-face	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: euler.b-rep

: add-ring ( ring base-face -- )
    [ >>base-face drop ] [ next-ring>> >>next-ring drop ]
    [ swap >>next-ring drop ] 2tri ;