多边形的面积

#!/bin/awk -f
#filename : /usr/local/scripts/poly_area/cal.awk
BEGIN{
line = 0;
q1=0;
q2=0;
}
/^#OS/{
   line++;
   px[line]=$2;
   py[line]=$3;

}
END{
    a = 1
    b = a + 1
    while ( a <= line )
    {
        if ( a==line ) b=1;
        q1=q1+px[a]*py[b];
        q2=q2+py[a]*px[b];
        a++;
        b++;
    }
   
    x=(q1-q2)/2;
    if  ( x < 0 ) x=0-x;
    print x;

}
  
还没有考虑surface的holes,需要继续修改!