segment-vertex ( theta segment -- vertex )

Vocabulary

jamshred.gl

Inputs

theta	an object
segment	an object

Outputs

vertex

an object

Definition

USING: accessors kernel math.functions math.vectors ;

IN: jamshred.gl

: segment-vertex ( theta segment -- vertex )
    [
        [ wall-up swap sin v*n ] [ wall-left swap cos v*n ] 2bi
        v+
    ] [ location>> v+ ] bi ;