LOCAL s : SET  [ 1 : ? ] OF  geometric_set_select := gset . elements ; trset : SET [ 0 : ? ] OF geometric_set_select := [ ] ; END_LOCAL ; REPEAT j := 1 TO SIZEOF ( s ) ; IF  ( 'geometry_schema.curve' IN  TYPEOF  ( s [ j ] ) ) THEN  trset := trset + dummy_gri || curve ( ) || curve_replica ( s [ j ] , tr ) ; ELSE  IF  ( 'geometry_schema.point' IN  TYPEOF  ( s [ j ] ) ) THEN  trset := trset + dummy_gri || point ( ) || point_replica ( s [ j ] , tr ) ; ELSE IF ( 'geometry_schema.surface' IN TYPEOF ( s [ j ] ) ) THEN trset := trset + dummy_gri || surface ( ) || surface_replica ( s [ j ] , tr || cartesian_transformation_operator_3d ( ? ) ) ; END_IF  ; END_IF  ; END_IF ; END_REPEAT ; RETURN ( trset ) ;