这两天用FindFaces做单寸个人照，但是有的头像倾斜的，有没有办法先自动旋转再提取头像啊？

我的想法是先用FindFaces提取头像，然后再根据提取的头像算出倾斜角度，再根据角度旋转照片，最后再次提取头像。但是卡在倾斜角度不会算，求高手指点一二！

发张倾斜的例子上来看看？没有例子也不知道怎么下手

我用PS转的

有什么必要么 如果是一万张图片可能才有什么必要性吧

下图单寸照尺寸示意图，绿色区域为FindFaces识别出来的，这张人脸也有点不正。

FindFace可以添加选项，看https://mathematica.stackexchange.com/questions/16686/findfaces-how-to-improve-the-results-of-the-face-recognition-feature/32288#32288
mma识别人脸是通过 FileNameJoin[{$InstallationDirectory, "SystemFiles", "Data", "Haarcacades", "frontalface.xml"}]下面的这个xml文件，按上面说的在https://github.com/opencv/opencv/tree/master/data/haarcascades 下载第一个识别人眼睛的 haarcascade_eye.xml，然后
FindFaces[image, "TrainingFile" ->“ 路径\\haarcascade_eye.xml"]，就可以确定两个眼睛的位置，按照眼睛的位置转动角度就好了。但是问题来了，我按照上面的做法，总是报错数值计算错误，看下面评论的说法跟电脑有关系，我换了笔记本还是不行。各位老哥可以试一下看看可以咩？

嗯，要不用上面那个的话就要自己找眼睛了。如果每张照片都比较工整，像四楼小胖子一样，可以这样。测试了一下还可以，不过稳不稳定就另说了。
faceRotate[img_]:=Module[{pic=img,findeyes,left,right,l,a,p2,p1},findeyes[pic_]:=SelectComponents[DeleteBorderComponents@ColorNegate[Binarize[ImageTrim[pic,FindFaces[pic][[1]]/.{{x1_,y1_},{x2_,y2_}}:>{{x1,y1+(1(y2-y1))/4},{x2,y2-(y2-y1)/10}}],0.3]],"Count",-2];l=ImageDimensions[findeyes[pic]][[1]]/2.;
{left,right}=ImageValuePositions[#,1]&/@First@ImagePartition[findeyes[pic],Scaled[{1/2,1}]];
p1=First@Sort[MaximalBy[left,Last],First];
p2=Last@Sort[MaximalBy[right,Last],First]+{l,0};
a=-N[ArcTan@@(p2-p1)/Degree];
ImageRotate[pic,a Degree,"SameRatioCropping"]]

顶

11.3出了FacialFeatures，现在更方便了