FUNCTION volume_weights_positive
(b : rational_b_spline_volume) : BOOLEAN;
LOCAL result : BOOLEAN := TRUE; END_LOCAL;
REPEAT i := 0 TO b.u_upper; REPEAT j := 0 TO b.v_upper; REPEAT k := 0 TO b.w_upper; IF (b.weights[i][j][k] <= 0.0) THEN result := FALSE; RETURN(result); END_IF; END_REPEAT; END_REPEAT; END_REPEAT; RETURN(result); END_FUNCTION; -- volume_weights_positive
|