screw-recess-test-number.fig.pl

   1 #!/usr/bin/perl
   2
   3 my $number = shift ARGV;
   4 die unless $number =~ m/^\d+$/;
   5
   6 my $fontsz = $number * 6 + 12;
   7
   8 print <DATA> or die $!;
   9 __DATA__
  10 #FIG 3.2  Produced by xfig version 3.2.5b
  11 Landscape
  12 Center
  13 Metric
  14 A4
  15 100.00
  16 Single
  17 -2
  18 1200 2
  19 4 0 0 50 -1 18 $fontsz 0.0000 4 285 225 3600 4500 $number\001