Evaluated proc imgratio wand {expr [@$wand width]*1.00/[@$wand height]*1.00}