#! /n/gnu/bin/gawk -f
# Last edited on 2000-06-29 20:06:54 by mc726

/^ *([#]|$)/{print; next;}

/./ {
  m = $1; x = $2; y = $3;
  if (m == 0) 
    { printf "%05d  %7.1f %7.1f\n", m, x, y;  }
  else
    { rx = x - 241; ry = y - 185; r = sqrt(rx*rx + ry*ry);
      rx = rx/r; ry = ry / r;
      tx = -ry; ty = rx;
      for (dr = -1; dr <= +1; dr+=2)
        for (dt = -1; dt <= +1; dt+=2)
          { xx = x + 2*(dr*rx + dt*tx);
            yy = y + 2*(dr*ry + dt*ty);
            printf "%05d  %7.1f %7.1f\n", 100*m+10*(dr+1)/2+(dt+1)/2, xx, yy;
            
          }
    }
}