screw-recess-test: number varies

diff --git a/screw-recess-test-number.fig.pl b/screw-recess-test-number.fig.pl
index d51aeb7dc508aac3c0b16dbcb1ca98c12d9455ee..d17365488288f95c17267266d2eb346aa000d334 100755 (executable)
--- 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