X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=screw-recess-test-number.fig.pl;h=023b31539f8574631db0e79e52f7f6495a5887fb;hp=d51aeb7dc508aac3c0b16dbcb1ca98c12d9455ee;hb=4428d4d1ae86c5a90d6afd564052b1b74b7af0da;hpb=c7e6a83cf784da2657bdf2678800e321574e4d9f

diff --git a/screw-recess-test-number.fig.pl b/screw-recess-test-number.fig.pl
index d51aeb7..023b315 100755
--- a/screw-recess-test-number.fig.pl
+++ b/screw-recess-test-number.fig.pl
@@ -1,6 +1,11 @@
 #!/usr/bin/perl
-print <DATA> or die $!;
-__DATA__
+
+my $number = shift @ARGV;
+die unless $number =~ m/^\d+$/;
+
+my $fontsz = $number * 6 + 12;
+
+print <<END or die $!;
 #FIG 3.2  Produced by xfig version 3.2.5b
 Landscape
 Center
@@ -10,4 +15,5 @@ A4
 Single
 -2
 1200 2
-4 0 0 50 -1 18 24 0.0000 4 285 225 3600 4500 2\001
+4 0 0 50 -1 18 $fontsz 0.0000 4 285 225 3600 4500 $number\001
+END