FUNCTION volume_weights_positive

(* SCHEMA STRUCTURAL_FRAME_SCHEMA; *)


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; (* STEP Part 42 (new in 2nd edition)  *)

Referenced By

Defintion volume_weights_positive is references by the following definitions:
DefinitionType
 rational_b_spline_volume ENTITY


[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00