From 60140e533ef80976fd24cb9a18c6af4214a3be2d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 28 Feb 2015 13:03:36 +0000
Subject: [PATCH 1/1] screw-recess-test: number varies

---
 screw-recess-test-number.fig.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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
-- 
2.30.2