#! /usr/bin/gawk -f
# Last edited on 2012-09-25 23:12:00 by stolfilocal

/[<].*[>]/ { 
  lin = $0;
  gsub(/[ ]*[\/][\/].*$/, "", lin);
  col = lin;
  gsub(/^.*[<]/, "", col);
  gsub(/[>].*$/, "", col);
  gsub(/[,]/, " ", col);
  chns = split(col, rgb);
  if (chns != 3) { printf "** BUG\n" > "/dev/stderr"; exit(1); }
  printf "%s // %6.4f\n", lin, 0.29*rgb[1] + 0.60*rgb[2] + 0.11*rgb[3];
  next;
}

// { print; next; }