eval-bases ( curve t interval values order -- values' )

Vocabulary

nurbs

Inputs

curve	an object
t	an object
interval	an object
values	an object
order	an object

Outputs

values'

an object

Definition

USING: accessors grouping kernel math sequences ;

IN: nurbs

:: eval-bases ( curve t interval values order -- values' )
    order 2 - curve (knot-constants)>> nth
    :> all-knot-constants interval order interval +
    all-knot-constants clip-range
    :> ( from to ) from to all-knot-constants subseq
    :> knot-constants values { 0.0 } { 0.0 } surround 2 <clumps>
    :> bases knot-constants bases [ t eval-base ] 2map
    :> values' order curve order>> =
    [ values' from to curve control-points>> subseq eval-curve ]
    [ curve t interval 1 - values' order 1 + eval-bases ] if ;