FUNCTION mixed_loop_type_set

(* SCHEMA STRUCTURAL_FRAME_SCHEMA; *)


(* Modified for LPM/6 *)
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 := ('STRUCTURAL_FRAME_SCHEMA.POLY_LOOP' IN TYPEOF(l[1]));
	REPEAT i := 2 TO SIZEOF(l);
	 IF(('STRUCTURAL_FRAME_SCHEMA.POLY_LOOP' IN TYPEOF(l[i])) <> poly_loop_type) THEN
	 RETURN(TRUE);
	 END_IF;
	END_REPEAT;
	RETURN(FALSE);
END_FUNCTION;  (* STEP Part 42 (modified for 2nd edition)  *)

Referenced By

Defintion mixed_loop_type_set is references by the following definitions:

Definition	Type
face	ENTITY
subface	ENTITY
wire_shell	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00