8.9.6.9 IfcCurveWeightsPositive
8.9.6.9.1 Semantic definition
This function checks whether the curve weights of a b-spline are positive.
8.9.6.9.2 Formal representation
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;