source: trunk/src/read_field.m @ 534

Last change on this file since 534 was 534, checked in by sommeria, 9 years ago

bugs repaired. color images

File size: 6.5 KB
Line 
1%'read_field': read the fields from files in different formats (netcdf files, images, video)
2%--------------------------------------------------------------------------
3%  function [Field,ParamOut,errormsg] = read_field(FileName,FileType,ParamIn,num)
4%
5% OUTPUT:
6% Field: matlab structure representing the field
7% ParamOut: structure representing parameters:
8%        .FieldName; field name
9%        .FieldList: menu of possible fields
10%        .VelType
11%        .CivStage: stage of civx processing (=0, not Civx, =1 (civ1), =2  (fix1)....     
12%        .Npx,.Npy: for images, nbre of pixels in x and y
13% errormsg: error message, ='' by default
14%
15%INPUT
16% FileName: name of the input file
17% FileType: type of file, as determined by the function get_file_type.m
18% ParamIn: movie object or Matlab structure of input parameters
19%     .FieldName: name (char string) of the input field (for Civx data)
20%     .VelType: char string giving the type of velocity data ('civ1', 'filter1', 'civ2'...)
21%     .ColorVar: variable used for vector color
22%     .Npx, .Npy: nbre of pixels along x and y (used for .vol input files)
23% num: frame number for movies
24%
25% see also read_image.m,read_civxdata.m,read_civdata.m,
26
27function [Field,ParamOut,errormsg] = read_field(FileName,FileType,ParamIn,num)
28Field=[];
29if ~exist('num','var')
30    num=1;
31end
32if ~exist('ParamIn','var')
33    ParamIn=[];
34end
35ParamOut=ParamIn;%default
36errormsg='';
37A=[];
38if isstruct(ParamIn)
39    if isfield(ParamIn,'FieldName')&& ischar(ParamIn.FieldName)
40        ParamIn.FieldName={ParamIn.FieldName};
41    end
42    if isfield(ParamIn,'ColorVar')
43        InputField=[ParamIn.FieldName {ParamIn.ColorVar}];
44        check_colorvar=1;
45    else
46        InputField= ParamIn.FieldName;
47        check_colorvar=0;
48    end
49end
50%% distingush different input file types
51switch FileType
52    case 'civdata'
53        [Field,ParamOut.VelType,errormsg]=read_civdata(FileName,InputField,ParamIn.VelType);
54        if ~isempty(errormsg),errormsg=['read_civdata / ' errormsg];return,end
55        ParamOut.CivStage=Field.CivStage;
56    case 'civx'
57        ParamOut.FieldName='velocity';%Civx data found, set .FieldName='velocity' by default
58        [Field,ParamOut.VelType,errormsg]=read_civxdata(FileName,InputField,ParamIn.VelType);
59        if ~isempty(errormsg),errormsg=['read_civxdata / ' errormsg];return,end
60        ParamOut.CivStage=Field.CivStage;
61    case 'netcdf'
62        ListVar={};
63        for ilist=1:numel(InputField)
64            r=regexp(InputField{ilist},'(?<Operator>(^vec|^norm))\((?<UName>.+),(?<VName>.+)\)$','names');
65            if isempty(r)
66                ListVar=[ListVar InputField(ilist)];
67                Role{numel(ListVar)}='scalar';
68                %                     FieldRequest{numel(ListVar)}='interp_lin';%scalar field (requires interpolation for plot)
69            else
70                ListVar=[ListVar {r.UName,r.VName}];
71                Role{numel(ListVar)}='vector_y';
72                Role{numel(ListVar)-1}='vector_x';
73                %                    TODO; introduce that for unstructured coordinates
74                %                     switch r.Operator TODO; introduce that for unstructured coordinates
75                %                         case 'norm'
76                %                             FieldRequest{numel(ListVar)-1}='interp_lin';%scalar field (requires interpolation for plot)
77                %                             FieldRequest{numel(ListVar)}='interp_lin';
78                %                         otherwise
79                %                            FieldRequest{numel(ListVar)-1}='';
80                %                     end
81            end
82        end
83        if check_colorvar
84            Role{numel(ListVar)}='ancillary';% scalar used for color vector (not projected)
85        end
86        [Field,var_detect,ichoice]=nc2struct(FileName,[ParamIn.Coord_x ParamIn.Coord_y ListVar]);
87        if isfield(Field,'Txt')
88            errormsg=Field.Txt;
89            return
90        end
91        for ivar=1:numel(ListVar)
92            Field.VarAttribute{ivar+2}.Role=Role{ivar};
93            %                 Field.VarAttribute{ivar+2}.FieldRequest=FieldRequest{ivar};
94        end
95       
96    case 'video'
97        if strcmp(class(ParamIn),'VideoReader')
98            A=read(ParamIn,num);
99        else
100            ParamOut=VideoReader(FileName);
101            A=read(ParamOut,num);
102        end
103    case 'mmreader'
104        if strcmp(class(ParamIn),'mmreader')
105            A=read(ParamIn,num);
106        else
107            ParamOut=mmreader(FileName);
108            A=read(ParamOut,num);
109        end
110    case 'vol'
111        A=imread(FileName);
112        Npz=size(A,1)/ParamIn.Npy;
113        A=reshape(A',ParamIn.Npx,ParamIn.Npy,Npz);
114        A=permute(A,[3 2 1]);
115    case 'multimage'
116        warning 'off'
117        A=imread(FileName,num);
118    case 'image'
119        A=imread(FileName);
120end
121if ~isempty(errormsg)
122    errormsg=[FileType ' input: ' errormsg];
123    return
124end
125
126%% case of image
127if ~isempty(A)
128    if isstruct(ParamOut)
129    ParamOut.FieldName='image';
130    ParamOut.FieldList={'image'};
131    end
132    Npz=1;%default
133    npxy=size(A);
134%     Rangx=[0.5 npxy(2)-0.5]; % coordinates of the first and last pixel centers
135%     Rangy=[npxy(1)-0.5 0.5]; %
136    Field.NbDim=2;%default
137    Field.AName='image';
138    Field.ListVarName={'AY','AX','A'}; %
139    if ndims(A)==3
140        if Npz==1;%color
141            Field.VarDimName={'AY','AX',{'AY','AX','rgb'}}; %
142            Field.AY=[npxy(1)-0.5 0.5];
143            Field.AX=[0.5 npxy(2)-0.5]; % coordinates of the first and last pixel centers
144            if isstruct(ParamOut)
145            ParamOut.Npx=npxy(2);% display image size on the interface
146            ParamOut.Npy=npxy(1);
147            end
148            Field.VarAttribute{3}.Mesh=1;
149        else
150            Field.NbDim=3;
151            Field.ListVarName=['AZ' Field.ListVarName];
152            Field.VarDimName={'AZ','AY','AX',{'AZ','AY','AX'}};
153            Field.AZ=[npxy(1)-0.5 0.5];
154            Field.AY=[npxy(2)-0.5 0.5];
155            Field.AX=[0.5 npxy(3)-0.5]; % coordinates of the first and last pixel centers
156            if isstruct(ParamOut)
157            ParamOut.Npx=npxy(3);% display image size on the interface
158            ParamOut.Npy=npxy(2);
159             end
160            Field.VarAttribute{4}.Mesh=1;
161        end
162    else
163        Field.VarDimName={'AY','AX',{'AY','AX'}}; %
164        Field.AY=[npxy(1)-0.5 0.5];
165        Field.AX=[0.5 npxy(2)-0.5]; % coordinates of the first and last pixel centers
166        ParamOut.Npx=npxy(2);% display image size on the interface
167        ParamOut.Npy=npxy(1);
168        Field.VarAttribute{3}.Mesh=1;
169    end
170    Field.A=A;
171    Field.CoordUnit='pixel'; %used for mouse_motion
172end
173
174
175
Note: See TracBrowser for help on using the repository browser.