kochanek-bartels-tangents ( points m0 mn c1 c2 -- tangents )

Vocabulary

math.splines.private

Inputs

points	an object
m0	an object
mn	an object
c1	an object
c2	an object

Outputs

tangents

an object

Definition

USING: grouping math.vectors sequences ;

IN: math.splines.private

:: kochanek-bartels-tangents
    ( points m0 mn c1 c2 -- tangents )
    points 3 clump [
        first3 :> ( pi-1 pi pi+1 ) pi pi-1 v- c1 v*n pi+1 pi v-
        c2 v*n v+
    ] map m0 prefix mn suffix ;