FUNCTION find_representative_shape_representation_of_shape_aspect
(item : shape_aspect) : shape_representation;
LOCAL local_s_r: SET OF shape_representation := []; END_LOCAL; -- find representative_shape_representation OF the shape_aspect local_s_r := QUERY ( z <* find_shape_representation_of_shape_aspect (item)| 'REPRESENTATIVE_SHAPE_REPRESENTATION' IN TYPEOF(z)); IF (SIZEOF (local_s_r) = 1) THEN RETURN (local_s_r[1]); ELSE RETURN(?); END_IF; END_FUNCTION; -- find_representative_shape_representation_of_shape_aspect
|