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;