autocrop [-3 -3 .. -1 0 .. 0 -1 .. 2 1] draw /path1 lastpath def [0 2 100 {} for] {path1 pathpoint circ2} apply