Vocabulary
nurbs

Inputs
curvean object
tan object
intervalan object
valuesan object
orderan object


Outputs
values'an object


Definition


:: 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 ;