headsearch.pl

FERET人脸库的处理代码。内函预处理

#!/usr/local/bin/perl
# This function takes FERET's eye coordinate file which is in format
# "filename  col1 row1 col2 row2"
# and converts it to a headsearch ms_eigsearch.out format which is 
# "filename  scale 1  row col  1.0

die "\nUsage:\t headsearch.pl   file1   file2\n" if $#ARGV != 1;
open(F, $ARGV[0]) || die "$ARGV[0] not openable\n";
open(G, ">$ARGV[1]") || die "$ARGV[1] not openable\n";

while ($f=<F>){
    @foo = split(/\b /,$f);
    $foo[1]=$foo[1]+1;
    $foo[2]=$foo[2]+1;
    $foo[3]=$foo[3]+1;
    $foo[4]=$foo[4]+1;
	
    $x1=int($foo[2]/2.0 + 0.5);
    $x2=int($foo[4]/2.0 + 0.5);
    $y1=int($foo[1]/2.0 + 0.5);
    $y2=int($foo[3]/2.0 + 0.5);

    $mx=int(($x1+$x2)/2.0 + 0.5);
    $my=int(($y1+$y2)/2.0 + 0.5);
	
    $dx=($x2-$x1);
    $dy=($y2-$y1);
    $dist=sqrt($dx*$dx + $dy*$dy);
    $scale=6.0/$dist;

    printf G ("$foo[0] \t $scale \t 1   $mx   $my \t 1.0\n")

}