segment-vertex-normal ( vertex segment -- normal )

Vocabulary

jamshred.gl

Inputs

vertex	an object
segment	an object

Outputs

normal

an object

Definition

USING: accessors kernel math.vectors ;

IN: jamshred.gl

: segment-vertex-normal ( vertex segment -- normal )
    location>> swap v- normalize ;