#!/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
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