chiark / gitweb /
sewing-table: Interlock: move iadj to global; adjust interlock_fine (nfc)
[reprap-play.git] / 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