Remove the noise

The first few lines don't do much work.

/;{}def/   #{def}def/$_={/Times-Bold exch selectfont}#/_{rmoveto}#/"{dup}#/*/!/$
  ;
/q{exch}#/x;
{
    /J q #}#/ . {
        /T q #}#{stringwidth}#{}#{}# 14 string dup dup dup
260 40 moveto 90 rotate ; %/
      }
};

Previous | Next


Copyright © 2000-2001, Philippe "BooK" Bruhat.