FUNCTION surface_weights_positive

(* SCHEMA STRUCTURAL_FRAME_SCHEMA; *)



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

Referenced By

Defintion surface_weights_positive is references by the following definitions:

Definition	Type
rational_b_spline_surface	ENTITY

[Top Level Definitions] [Exit]

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