FUNCTION surface_weights_positive

(* SCHEMA Ap210_electronic_assembly_interconnect_and_packaging_design_mim_lf; *)

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;

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
2012-03-27T17:15:33-04:00