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