![]()  | Curve Weights Positive | 
This function checks whether the curve weights of a b-spline are positive.
NOTE Function adapted from curve_weights_positive defined in ISO 10303-42.
HISTORY New function in IFC2x
FUNCTION IfcCurveWeightsPositive
( B: IfcRationalBSplineCurveWithKnots)
: BOOLEAN;
  LOCAL
    Result : BOOLEAN := TRUE;
  END_LOCAL;
  REPEAT i := 0 TO B.UpperIndexOnControlPoints;
    IF B.Weights[i] <= 0.0  THEN
      Result := FALSE;
      RETURN(Result);
    END_IF;
  END_REPEAT;
  RETURN(Result);
END_FUNCTION;
  References: IfcRationalBSplineCurveWithKnots