chiark / gitweb /
ksafe-base: adjustments from tests
[reprap-play.git] / 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 <<END or die $!;
9 #FIG 3.2  Produced by xfig version 3.2.5b
10 Landscape
11 Center
12 Metric
13 A4      
14 100.00
15 Single
16 -2
17 1200 2
18 4 0 0 50 -1 18 $fontsz 0.0000 4 285 225 3600 4500 $number\001
19 END