Re: ImageTaker[img, {{x1,y1},{x2,y2}} ] useful toolfunction
- To: mathgroup at smc.vnet.net
- Subject: [mg130260] Re: ImageTaker[img, {{x1,y1},{x2,y2}} ] useful toolfunction
- From: roby <roby.nowak at gmail.com>
- Date: Sat, 30 Mar 2013 04:08:16 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <kj2bnf$m4u$1@smc.vnet.net>
Just a little bit more compact version:
ImageTaker[img_, c_] := ImageTake[img, Sequence @@ (
c // Transpose // Reverse // Sort /@ #& //
MapAt[First@ImageDimensions@img - Reverse@#&, #, 1]&)]
Robert