FUNCTION mixed_loop_type_set

(* SCHEMA integrated_cnc_schema; *)

FUNCTION mixed_loop_type_set (
    l : SET [0:?] OF loop 
    ) : LOGICAL;
  LOCAL
    poly_loop_type : LOGICAL;
  END_LOCAL;
    IF SIZEOF(l) <= 1 THEN
      RETURN (FALSE);
    END_IF;
    poly_loop_type := 'INTEGRATED_CNC_SCHEMA.POLY_LOOP' IN TYPEOF(l[1]);
    REPEAT i := 2 TO SIZEOF(l);
      IF ('INTEGRATED_CNC_SCHEMA.POLY_LOOP' IN TYPEOF(l[i])) <> 
        poly_loop_type THEN
        RETURN (TRUE);
      END_IF;
    END_REPEAT;
    RETURN (FALSE);
END_FUNCTION; -- 10303-42: topology_schema

Referenced By

Defintion mixed_loop_type_set is references by the following definitions:

Definition	Type
face	ENTITY
wire_shell	ENTITY

[Top Level Definitions]

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2010-01-12T10:42:26-02:00