chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fairphone-case: wip lanyard, introduce outer entry curve (nfc)
[reprap-play.git]
/
screw-recess-test-number.fig.pl
diff --git
a/screw-recess-test-number.fig.pl
b/screw-recess-test-number.fig.pl
index d17365488288f95c17267266d2eb346aa000d334..023b31539f8574631db0e79e52f7f6495a5887fb 100755
(executable)
--- a/
screw-recess-test-number.fig.pl
+++ b/
screw-recess-test-number.fig.pl
@@
-1,12
+1,11
@@
#!/usr/bin/perl
#!/usr/bin/perl
-my $number = shift ARGV;
+my $number = shift
@
ARGV;
die unless $number =~ m/^\d+$/;
my $fontsz = $number * 6 + 12;
die unless $number =~ m/^\d+$/;
my $fontsz = $number * 6 + 12;
-print <DATA> or die $!;
-__DATA__
+print <<END or die $!;
#FIG 3.2 Produced by xfig version 3.2.5b
Landscape
Center
#FIG 3.2 Produced by xfig version 3.2.5b
Landscape
Center
@@
-17,3
+16,4
@@
Single
-2
1200 2
4 0 0 50 -1 18 $fontsz 0.0000 4 285 225 3600 4500 $number\001
-2
1200 2
4 0 0 50 -1 18 $fontsz 0.0000 4 285 225 3600 4500 $number\001
+END