input epsincl; tertiarydef p scaledto x = p scaled (x/xpart(urcorner(p)-llcorner(p))) enddef; beginfig(100); label(use_eps("testinc0.eps") rotated 30 scaledto 100mm, origin); label(image(fill unitsquare scaled 2mm rotated 45), origin) withcolor .7white; endfig; end