FUNCTION valid_elementary_trimmed_curves_in_set

(* SCHEMA associative_draughting; *)

  FUNCTION valid_elementary_trimmed_curves_in_set(
               crv: curve;
               schma: STRING
      ): BOOLEAN;
    IF (schma + '.TRIMMED_CURVE') IN TYPEOF(crv) THEN
      RETURN(valid_elementary_trimmed_curves_in_set(crv\trimmed_curve.
          basis_curve,schma));
    ELSE
      IF (schma + '.COMPOSITE_CURVE') IN TYPEOF(crv) THEN
        RETURN(SIZEOF(QUERY ( ccs <* crv\composite_curve.segments | (NOT 
            valid_elementary_trimmed_curves_in_set(ccs.parent_curve,schma)) )) 
           = 0);
      ELSE
        IF SIZEOF([schma + '.LINE',schma + '.CIRCLE',schma + '.ELLIPSE',
            schma + '.PARABOLA',schma + '.HYPERBOLA',schma + '.POLYLINE'] *
             TYPEOF(crv)) = 1 THEN
          RETURN(TRUE);
        END_IF;
      END_IF;
    END_IF;
    RETURN(FALSE);

  END_FUNCTION; -- valid_elementary_trimmed_curves_in_set

Referenced By

Defintion valid_elementary_trimmed_curves_in_set is references by the following definitions:

Definition	Type
elementary_2d_geometric_curve_set_shape_representation	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:14:12-04:00