FUNCTION edge_reversed

(* SCHEMA step_ship_schema; *)

FUNCTION edge_reversed(
             an_edge: edge
    ): oriented_edge;

  LOCAL
    the_reverse : oriented_edge;
  END_LOCAL;
  IF 'STEP_SHIP_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;

Referenced By

Defintion edge_reversed is references by the following definitions:

Definition	Type
topology_reversed	FUNCTION

[Top Level Definitions] [Exit]

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2007-09-24T12:42:22-04:00