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

diff --git a/screw-recess-test-number.fig.pl b/screw-recess-test-number.fig.pl
index d51aeb7..d173654 100755
--- a/screw-recess-test-number.fig.pl
+++ b/screw-recess-test-number.fig.pl
@@ -1,4 +1,10 @@
 #!/usr/bin/perl
+
+my $number = shift ARGV;
+die unless $number =~ m/^\d+$/;
+
+my $fontsz = $number * 6 + 12;
+
 print <DATA> or die $!;
 __DATA__
 #FIG 3.2  Produced by xfig version 3.2.5b
@@ -10,4 +16,4 @@ 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