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