FUNCTION get_geometric_model
(input : item_shape) : SET [0:?] OF shape_representation;
LOCAL sda : SET OF Shape_description_association := []; gm : SET OF Shape_representation := []; END_LOCAL; sda := bag_to_set(USEDIN(input, 'SHAPE_PROPERTY_ASSIGNMENT_XIM.' + 'SHAPE_DESCRIPTION_ASSOCIATION.' + 'REPRESENTED_CHARACTERISTIC')); REPEAT i := 1 TO SIZEOF(sda) BY 1; gm := gm + sda[i].representation; END_REPEAT; RETURN(gm); END_FUNCTION; -- get_geometric_model
|