gettrnsetcoor.m

人脸识别中使用的特征定位源码。 是MATLAB编写的基于多方案统计学的完整的动态形状定位源代码。

%%%%%%%%%%%%%%%%%%%%%%%%%%
%(c) Ghassan Hamarneh 1999
%%%%%%%%%%%%%%%%%%%%%%%%%%
function [Xu,TrnImgFiles]=GetTrnSetCoor(NumTrnSetImgs,NumLandMarkPts)
%function Xu=GetTrnSetCoor(NumTrnSetImgs,NumLandMarkPts)

%modified on July 8th,2004 to maintain the same dir when loading the trainging set...

Xu=[];
ind1=1;
%CjlNote:cell means ?
TrnImgFiles=cell(NumTrnSetImgs,1);
%CjlNote:curdir means ?
curdir=pwd;
while ind1<=NumTrnSetImgs,
   FileName=0;
   %PathName=0; 
   if ind1>1, cd(PathName); end
   [FileName,PathName]=uigetfile('*.bmp;*.png;*.jpg;*.tif',['ASM: Choose Image ',num2str(ind1),'/',num2str(NumTrnSetImgs)]);
   if FileName==0 Xu=0; return; end
   TrnImgFiles{ind1}=[PathName,FileName];
   Img=imread([PathName,FileName]);   
   
   [Y,X]=landmark(Img,['Labeling Image: ',num2str(ind1)],NumLandMarkPts);
   %CjlNote:round() means ?
   Xu=[Xu,[round(X);round(Y)]];
   ind1=ind1+1;
end
close;
cd(curdir);