Re: ImageTaker[img, {{x1,y1},{x2,y2}} ] useful toolfunction
- To: mathgroup at smc.vnet.net
- Subject: [mg130318] Re: ImageTaker[img, {{x1,y1},{x2,y2}} ] useful toolfunction
- From: roby <roby.nowak at gmail.com>
- Date: Tue, 2 Apr 2013 03:30:09 -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> <kj66f6$ogu$1@smc.vnet.net>
Am Samstag, 30. M=E4rz 2013 09:07:02 UTC+1 schrieb roby: > Just a little bit more compact version: > > > > ImageTaker[img_, c_] := ImageTake[img, Sequence @@ ( > > c // Transpose // Reverse // Sort /@ #& // > > MapAt[First@ImageDimensions@img - Reverse@#&, #, 1]&)] > > > > > > Robert Ok just, learned that starting with Mathematica 8 ImageTrim[] does the miracle. thx to Matthias Odisio Robert