0001 function vb_plot_fit_scan(V,F,Coord,Head,trans_mat,imagefile)
0002
0003
0004
0005
0006
0007
0008 fwgcolor = 'none';
0009 edgecolor = 'r';
0010 msize = 10;
0011 mtype = '.r';
0012
0013
0014 FV = vb_affine_trans(Coord.FV, trans_mat);
0015
0016 HV = vb_affine_trans(Head, trans_mat);
0017
0018
0019
0020
0021
0022
0023 figure;
0024
0025
0026 subplot(2,2,1)
0027 vb_plot_surf(V,F,[0.8 0.7 0.6],'none',1);
0028 alpha(0.7)
0029 hold on
0030 vb_plot_surf(FV, Coord.FF, fwgcolor,edgecolor);
0031 plot3(HV(:,1),HV(:,2),HV(:,3),mtype,'MarkerSize',msize)
0032 view([90 0]); axis tight;
0033
0034
0035 subplot(2,2,2)
0036 vb_plot_surf(V,F,[0.8 0.7 0.6],'none',1);
0037 alpha(0.7)
0038 hold on
0039 vb_plot_surf(FV, Coord.FF, fwgcolor,edgecolor);
0040 plot3(HV(:,1),HV(:,2),HV(:,3),mtype,'MarkerSize',msize)
0041 view([180 0]); axis tight;
0042
0043
0044 subplot(2,2,3)
0045 vb_plot_surf(V,F,[0.8 0.7 0.6],'none',1);
0046 alpha(0.7)
0047 hold on
0048 vb_plot_surf(FV, Coord.FF, fwgcolor,edgecolor);
0049 plot3(HV(:,1),HV(:,2),HV(:,3),mtype,'MarkerSize',msize)
0050 view([0 90]); axis tight;
0051
0052
0053 subplot(2,2,4)
0054 vb_plot_surf(V,F,[0.8 0.7 0.6],'none',1);
0055 alpha(0.7)
0056 hold on
0057 vb_plot_surf(FV, Coord.FF, fwgcolor,edgecolor);
0058 plot3(HV(:,1),HV(:,2),HV(:,3),mtype,'MarkerSize',msize)
0059 view([120 30]); axis tight;
0060
0061
0062
0063
0064 zindx = [40:20:200];
0065
0066 Nfig = [3, 3];
0067
0068 Msize = 1;
0069 Mtype = 'y-';
0070
0071 dmax = 10;
0072
0073 xymode = 1;
0074
0075 if exist('imagefile','var')&&~isempty(imagefile)
0076
0077 [B, Vdim, Vsize] = vb_load_analyze_to_right(imagefile);
0078 FV = vb_spm_right_to_analyze_right( [FV], Vdim, Vsize);
0079
0080
0081 vb_plot_slice_surf(B, FV,Coord.FF, zindx,'z', Nfig,Mtype,dmax,xymode,Msize);
0082 end