FUNCTION valid_wireframe_edge_curve

(* SCHEMA aic_shell_based_wireframe; *)

FUNCTION valid_wireframe_edge_curve (crv   : curve) : BOOLEAN;
  -- check for valid basic curve types

  IF SIZEOF (['AIC_SHELL_BASED_WIREFRAME.LINE',
			  'AIC_SHELL_BASED_WIREFRAME.CONIC',
              'AIC_SHELL_BASED_WIREFRAME.B_SPLINE_CURVE',
              'AIC_SHELL_BASED_WIREFRAME.POLYLINE'] * TYPEOF (crv)) = 1
    THEN RETURN (TRUE);
  ELSE
  -- recursively check for valid basic curves for curve_replica
    IF ('AIC_SHELL_BASED_WIREFRAME.CURVE_REPLICA') IN TYPEOF (crv)
      THEN RETURN (valid_wireframe_edge_curve
                         (crv\curve_replica.parent_curve));
    ELSE
      -- recursively check for valid basis curves for offset_curve
      IF ('AIC_SHELL_BASED_WIREFRAME.OFFSET_CURVE_3D') IN TYPEOF (crv)
        THEN RETURN (valid_wireframe_edge_curve
                           (crv\offset_curve_3d.basis_curve));
      END_IF;
    END_IF;
  END_IF;
  RETURN (FALSE);
END_FUNCTION;

Referenced By

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