1
$\begingroup$

enter image description here

I need to extract a picture from a red square for further transformation over it.

$\endgroup$
  • $\begingroup$ let imgTake=ImageTake.... in the manipulate. Then Export[filename.jpg, imgTake]. $\endgroup$ – bill s Mar 11 at 20:44
3
$\begingroup$

As mentioned in the comments, assign the ImageTake result to a variable -- that will make it available for further processing, or exporting.

pic = Manipulate[Show[img, 
   crop = ImageTake[img, {dR - a - p[[2]], dR + a - p[[2]]}, {p[[1]] - a, p[[1]] + a}]],
  {{p, {dR/2, dC/2}}, Locator}, {a, 20, 100}]

enter image description here

crop

enter image description here

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.