FUNCTION curve_weights_positive

(* SCHEMA explicit_draughting; *)

   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;

Referenced By

Defintion curve_weights_positive is references by the following definitions:

Definition	Type
rational_b_spline_curve	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:14:03-04:00