FUNCTION edge_reversed

(* SCHEMA process_planning_schema; *)

  FUNCTION edge_reversed(
               an_edge: edge
      ): oriented_edge;

    LOCAL
      the_reverse : oriented_edge;
    END_LOCAL;
    IF 'PROCESS_PLANNING_SCHEMA.ORIENTED_EDGE' IN TYPEOF(an_edge) THEN
      the_reverse := (dummy_tri || edge(an_edge.edge_end,an_edge.
          edge_start)) || oriented_edge(an_edge\oriented_edge.edge_element,
          NOT an_edge\oriented_edge.orientation);
    ELSE
      the_reverse := (dummy_tri || edge(an_edge.edge_end,an_edge.
          edge_start)) || oriented_edge(an_edge,FALSE);
    END_IF;
    RETURN(the_reverse);

  END_FUNCTION; -- edge_reversed

Referenced By

Defintion edge_reversed is references by the following definitions:

Definition	Type
topology_reversed	FUNCTION

[Top Level Definitions] [Exit]

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