In[67]:=

th = RegionProcessing[Threshold[#1, 164, {0, 255}] &, id, Rectangle[{1, 1}, {rct[[4]], rct[[3]]}]]

Out[67]=

-ImageData-

Converted by Mathematica  (July 17, 2003)