filamentspool: wip scale, nfc as yet because if (0)

[reprap-play.git] / filamentspool-number.eps.pl

diff --git a/filamentspool-number.eps.pl b/filamentspool-number.eps.pl
new file mode 100755 (executable)
index 0000000..c9cce78
--- /dev/null
+++ b/filamentspool-number.eps.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+use strict;
+die unless @ARGV==1 && $ARGV[0] =~ m/^\d+/;
+my $num = $ARGV[0];
+$num /= 1000;
+printf <<END, $num or die $!;
+%!
+/Helvetica-Bold findfont
+15 scalefont
+setfont
+0 0 moveto
+(%.1f) show
+showpage
+END