Navigation

topology_reversed

EXPRESS specification:

FUNCTION topology_reversed
(an_item : reversible_topology) : reversible_topology;
 
 IF ('STRUCTURAL_FRAME_SCHEMA.EDGE' IN TYPEOF (an_item)) THEN
 RETURN (edge_reversed (an_item));
 END_IF;
 
 IF ('STRUCTURAL_FRAME_SCHEMA.PATH' IN TYPEOF (an_item)) THEN
 RETURN (path_reversed (an_item));
 END_IF;
 
 IF ('STRUCTURAL_FRAME_SCHEMA.FACE_BOUND' IN TYPEOF (an_item)) THEN
 RETURN (face_bound_reversed (an_item));
 END_IF;

 IF ('STRUCTURAL_FRAME_SCHEMA.FACE' IN TYPEOF (an_item)) THEN
 RETURN (face_reversed (an_item));
 END_IF;
 
 IF ('STRUCTURAL_FRAME_SCHEMA.SHELL' IN TYPEOF (an_item)) THEN
 RETURN (shell_reversed (an_item));
 END_IF;
 
 IF ('SET' IN TYPEOF (an_item)) THEN
 RETURN (set_of_topology_reversed (an_item));
 END_IF;
 
 IF ('LIST' IN TYPEOF (an_item)) THEN
 RETURN (list_of_topology_reversed (an_item));
 END_IF;
 
 RETURN (?);
END_FUNCTION;