filamentspool-number.eps.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 die unless @ARGV==1 && $ARGV[0] =~ m/^\d+/;
   4 my $num = $ARGV[0];
   5 $num /= 1000;
   6 printf <<END, $num or die $!;
   7 %%!
   8 /Helvetica-Bold findfont
   9 15 scalefont
  10 setfont
  11 0 0 moveto
  12 (%.1f) show
  13 showpage
  14 END