0001 function figH = vb_plot_vivid(Coord,xy_mode)
0002
0003
0004
0005
0006
0007
0008
0009
0010 if nargin <2, xy_mode = 0; end;
0011
0012 if isfield(Coord, 'Fimg')
0013 NX = 3;
0014 NY = 2;
0015 Flg = 1;
0016 else
0017 NX = 2;
0018 NY = 2;
0019 Flg = 0;
0020 end
0021
0022
0023 fwgcolor = 'w';
0024 edgecolor = 'k';
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036 angleL = [-100 10];
0037 angleF = [ 30 -10];
0038 angleR = [ 100 10];
0039
0040 figH = figure;
0041
0042
0043
0044
0045
0046
0047 nfig = 1;
0048 subplot(NY,NX,nfig)
0049 vb_plot_2d_image(Coord.Limg ,xy_mode); hold on
0050
0051 if Flg==1
0052
0053 nfig = nfig + 1;
0054 subplot(NY,NX,nfig)
0055 vb_plot_2d_image(Coord.Fimg ,xy_mode); hold on
0056 end
0057
0058
0059 nfig = nfig + 1;
0060 subplot(NY,NX,nfig)
0061 vb_plot_2d_image(Coord.Rimg ,xy_mode); hold on
0062
0063
0064
0065
0066
0067
0068 nfig = nfig + 1;
0069 subplot(NY,NX,nfig)
0070 vb_plot_surf(Coord.LV, Coord.LF, fwgcolor,edgecolor);
0071 view(angleL); axis tight; hold on
0072
0073 if Flg==1
0074
0075 nfig = nfig + 1;
0076 subplot(NY,NX,nfig)
0077 vb_plot_surf(Coord.FV, Coord.FF, fwgcolor,edgecolor);
0078 view(angleF); axis tight; hold on
0079 end
0080
0081
0082 nfig = nfig + 1;
0083 subplot(NY,NX,nfig)
0084 vb_plot_surf(Coord.RV, Coord.RF, fwgcolor,edgecolor);
0085 view(angleR); axis tight; hold on