FUNCTION fd_get_transforms
(input1 : SET [1:1] OF shape_representation, input2 : SET [2:2] OF shape_representation) : SET [0:?] OF representation_relationship_with_transformation;
LOCAL
gmrwt : SET OF representation_relationship_with_transformation := [];
END_LOCAL;
gmrwt := bag_to_set(USEDIN(input1[1],'EXTENDED_BASIC_GEOMETRY_XIM.SHAPE_REPRESENTATION_RELATIONSHIP.REP_1'));
REPEAT i := 1 TO HIINDEX(gmrwt);
IF NOT
((gmrwt[i]\shape_representation_relationship.rep_2 IN input2)
AND
('EXTENDED_BASIC_GEOMETRY_XIM.REPRESENTATION_RELATIONSHIP_WITH_TRANSFORMATION' IN
TYPEOF(gmrwt[i]\Shape_representation_relationship.rep_2)))
THEN
RETURN(?);
END_IF;
RETURN(gmrwt);
END_REPEAT;
RETURN (?); END_FUNCTION; -- fd_get_transforms
|