FUNCTION default_b_spline_knots
(degree : INTEGER, up_knots : INTEGER, uniform : knot_type) : LIST [2:?] OF parameter_value;
LOCAL
knots : LIST [1:up_knots] OF parameter_value := [0:up_knots];
ishift : INTEGER := 1;
END_LOCAL;
IF (uniform = uniform_knots) THEN
ishift := degree + 1;
END_if;
IF (uniform = uniform_knots) OR
(uniform = quasi_uniform_knots) OR
(uniform = piecewise_bezier_knots) THEN
REPEAT i := 1 TO up_knots;
knots[i] := i - ishift;
END_REPEAT;
END_IF;
RETURN(knots); END_FUNCTION; -- default_b_spline_knots
|