Evaluated proc magic:getpixel {wand x y {c 1} {r 1} {f RGB}} {str2hex [img do $wand GetPixels $x $y $c $r $f char] {}}