char.scm (pigpen-char:width, pigpen-char:height): New procedures

* pigpen/char.scm (pigpen-char:width, pigpen-char:height): New
  procedures.
string.scm (fill): Use `pigpen-char:width'