1 | % 'ima_color2BW': transform a color image to grey scale image
|
---|
2 | %------------------------------------------------------------------------
|
---|
3 | %%%% Use the general syntax for transform fields with a single input %%%%
|
---|
4 | % OUTPUT:
|
---|
5 | % DataOut: output field structure
|
---|
6 | %
|
---|
7 | %INPUT:
|
---|
8 | % DataIn: first input field structure
|
---|
9 |
|
---|
10 | %=======================================================================
|
---|
11 | % Copyright 2008-2024, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
|
---|
12 | % http://www.legi.grenoble-inp.fr
|
---|
13 | % Joel.Sommeria - Joel.Sommeria (A) univ-grenoble-alpes.fr
|
---|
14 | %
|
---|
15 | % This file is part of the toolbox UVMAT.
|
---|
16 | %
|
---|
17 | % UVMAT is free software; you can redistribute it and/or modify
|
---|
18 | % it under the terms of the GNU General Public License as published
|
---|
19 | % by the Free Software Foundation; either version 2 of the license,
|
---|
20 | % or (at your option) any later version.
|
---|
21 | %
|
---|
22 | % UVMAT is distributed in the hope that it will be useful,
|
---|
23 | % but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
24 | % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
25 | % GNU General Public License (see LICENSE.txt) for more details.
|
---|
26 | %=======================================================================
|
---|
27 |
|
---|
28 | function DataOut=ima_color2BW(DataIn,XmlData)
|
---|
29 | DataOut=[];
|
---|
30 | if isfield(DataIn,'Action') && isfield(DataIn.Action,'RUN') && isequal(DataIn.Action.RUN,0)
|
---|
31 | return
|
---|
32 | end
|
---|
33 | DataOut=DataIn; %default
|
---|
34 | if ndims(DataOut.A)==3
|
---|
35 | DataOut.A=uint16(sum(double(DataOut.A),3));%sum on color components, transform in 16 bit BW images
|
---|
36 | end
|
---|
37 |
|
---|