chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
screw-recess-test: number varies
[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 <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