// get the transform of the instance and transform the points of the
// first shape and print the new coordinates to stderr
decl saveMap;
decl trans, points;
saveMap = db_get_map();
trans = db_get_instance_attribute(db_find_instance("mydsn",REP_LAY,"TL1"), 
INST_TRANSFORM);
db_setup_transform(trans);
decl pointsCopy=points=db_first_point(db_first_dg(db_first_mask 
(db_get_design_attribute(db_get_design("mydsn"),DESIGN_REP_LAY))));
pointsCopy = db_transform_points(pointsCopy);
while(points)
{
    decl coord= db_get_coord(points);
    decl x1=db_get_x(coord);
    decl y1=db_get_y(coord);
    fputs(stderr,fmt_tokens(list(x1,y1)));
    points=db_next_point(points);
}
db_set_map(saveMap); // restore the original mapping