Evaluated proc facereplace {url faceurl} { set w [magic:loadurl $url]; map [magic:faces $w] {x { set o [magic:loadurl $faceurl]; magic:scalex $o [*r [third $x] 1.3]; @$w composite $o over [heads_x [first $x]] [heads_y [second $x]] }}; save $w }