Navigation

curve_weights_positive

EXPRESS specification:

FUNCTION curve_weights_positive
(b: rational_b_spline_curve) : BOOLEAN;
   LOCAL
 result : BOOLEAN := TRUE;
   END_LOCAL;
 
   REPEAT i := 0 TO b.upper_index_on_control_points;
 IF b.weights[i] <= 0.0 THEN
 result := FALSE;
 RETURN(result);
 END_IF;
   END_REPEAT;
 RETURN(result);
END_FUNCTION;