Navigation

surface_weights_positive

EXPRESS specification:

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