FUNCTION check_continuous_edges

(* SCHEMA step_merged_ap_schema; *)

-- DIFF IN AP203e2
-- IN AP203e2/AP242
FUNCTION check_continuous_edges
      (edges : LIST OF UNIQUE edge_curve ) : BOOLEAN;
   LOCAL
      i : INTEGER;
      next_vertex : vertex;
   END_LOCAL;
      IF SIZEOF(edges) = 1 THEN
         RETURN (TRUE);
      END_IF;
      IF (edges[2].edge_start :=: edges[1].edge_end) XOR (edges[2].edge_start :=: edges[1].edge_start) THEN
         next_vertex := edges[2].edge_end;
      ELSE
         IF (edges[2].edge_end :=: edges[1].edge_end) XOR (edges[2].edge_end :=: edges[1].edge_start) THEN
            next_vertex := edges[2].edge_start;
         ELSE
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF SIZEOF(edges) = 2 THEN
         RETURN (TRUE);
      END_IF;
      REPEAT i := 3 TO HIINDEX(edges);
         IF edges[i].edge_start :=: next_vertex THEN
            next_vertex := edges[i].edge_end;
         ELSE
            IF edges[i].edge_end :=: next_vertex THEN
               next_vertex := edges[i].edge_start;
            ELSE
               RETURN (FALSE);
            END_IF;
         END_IF;
      END_REPEAT;
      RETURN (TRUE);
END_FUNCTION;

Referenced By

Defintion check_continuous_edges is references by the following definitions:

Definition	Type
track_blended_solid	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2024-09-06T14:00:33-04:00