segment-vertex-and-normal ( segment theta -- vertex normal )

Vocabulary

jamshred.gl

Inputs

segment	an object
theta	an object

Outputs

vertex	an object
normal	an object

Definition

USING: kernel ;

IN: jamshred.gl

: segment-vertex-and-normal
    ( segment theta -- vertex normal )
    swap [ segment-vertex ] keep dupd segment-vertex-normal ;