Evaluated proc test url { set w [magic:loadurl $url]; set d [magic:new draw]; magic:apply $d strokewidth 3 strokecolor blue fillcolor red fillopacity 0.1; map [magic:faces $w] {x {@$d rectangle [first $x] [second $x] [+ [first $x] [third $x]] [+ [second $x] [fourth $x]] }}; @$w draw $d; save $w }