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