0001
0002
0003
0004
0005
0006
0007
0008 clear
0009
0010 udir = [getenv('MATHOME') '/SBIdata-new/Retino-TY/vivid/'];
0011
0012
0013
0014 fsubj = '20051221_Yoshioka';
0015
0016
0017 xy_mode = 0;
0018
0019
0020
0021
0022 fname.vivid = [udir fsubj '.vivid.mat'];
0023
0024 load(fname.vivid, 'Coord');
0025
0026
0027 figH = vb_plot_vivid(Coord,xy_mode);
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037
0038 mtype.msize1 = 15;
0039 mtype.mtype1 = '.y';
0040 mtype.msize2 = 20;
0041
0042
0043 mtype.mtype2 = '.r';
0044 Lear = vb_get_ref_point(Coord, 'L', mtype);
0045
0046
0047 mtype.mtype2 = '.r';
0048 Lmark = vb_get_ref_point(Coord, 'L', mtype);
0049
0050
0051 mtype.mtype2 = '.r';
0052 Nose = vb_get_ref_point(Coord, 'F', mtype);
0053
0054
0055 mtype.mtype2 = '.r';
0056 Rear = vb_get_ref_point(Coord, 'R', mtype);
0057
0058
0059 mtype.mtype2 = '.r';
0060 Rmark = vb_get_ref_point(Coord, 'R', mtype);
0061
0062 LandMark = [Lear; Nose; Rear];
0063 Marker = [Lear; Lmark; Rmark; Rear];
0064
0065 vb_save(fname.vivid,'LandMark','Marker');