8.9.6.25 IfcSurfaceWeightsPositive
8.9.6.25.1 Semantic definition
8.9.6.25.2 Formal representation
FUNCTION IfcSurfaceWeightsPositive
( B: IfcRationalBSplineSurfaceWithKnots)
: BOOLEAN;
LOCAL
Result : BOOLEAN := TRUE;
Weights : ARRAY [ 0 : B\IfcBSplineSurface.UUpper ] OF ARRAY [ 0 : B\IfcBSplineSurface.VUpper ] OF REAL := B.Weights;
END_LOCAL;
REPEAT i := 0 TO B\IfcBSplineSurface.UUpper;
REPEAT j := 0 TO B\IfcBSplineSurface.VUpper;
IF (Weights[i][j] <= 0.0) THEN
Result := FALSE;
RETURN(Result);
END_IF;
END_REPEAT;
END_REPEAT;
RETURN(Result);
END_FUNCTION;
8.9.6.25.3 References