chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
poster-tube-lid: WallMountBase wip (nfc)
[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