FUNCTION surface_weights_positive

(* SCHEMA integrated_cnc_schema; *)

FUNCTION surface_weights_positive (
    b : rational_b_spline_surface 
    ) : BOOLEAN;
  LOCAL
    result : BOOLEAN := TRUE;
  END_LOCAL;
    REPEAT i := 0 TO b.u_upper;
      REPEAT j := 0 TO b.v_upper;
        IF b.weights[i][j] <= 0.0 THEN
          result := FALSE;
          RETURN (result);
        END_IF;
      END_REPEAT;
    END_REPEAT;
    RETURN (result);
END_FUNCTION; -- 10303-42: geometry_schema

Referenced By

Defintion surface_weights_positive is references by the following definitions:

Definition	Type
rational_b_spline_surface	ENTITY

[Top Level Definitions]

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2010-01-12T10:42:26-02:00