# line_len.ak
#awkm to convert a Excel comma deliminated list of files and create a list to copy and rename then 
#NOTE: add one to the last lineament number to get the last one
#Nov16, 2003 updated program for new spids.pl



BEGIN {
  }
#Middle
    {
   xdif = ($10-$5)/ 1000.0
   xdif = xdif * xdif
   ydif = ($11-$6) / 1000.0
   ydif = ydif * ydif
   len = sqrt (ydif + xdif)
#   printf("%s\n",$0)
   printf("%8.2f %s\n",len, $2);
}

END {  }