8.9.6.25 IfcSurfaceWeightsPositive（曲面权重正）

8.9.6.25.1 语义定义

8.9.6.25.2 形式化表示

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 参考

IfcRationalBSplineSurfaceWithKnots