From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 28 Feb 2015 13:03:36 +0000 (+0000)
Subject: screw-recess-test: number varies
X-Git-Tag: filamentspool-v2-release~187
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=60140e533ef80976fd24cb9a18c6af4214a3be2d

screw-recess-test: number varies
---

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