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: ButtonPlan: move bigger and d_D1_y calculations into ButtonPlan ...
[reprap-play.git]
/
commitid-best-test.scad.pl
diff --git
a/commitid-best-test.scad.pl
b/commitid-best-test.scad.pl
index 73cfd8f6dad25d6dfcd8a968733daf7b988ed51d..b0ca1ba0aeb62be961402b0f0b0bad05dc68735d 100755
(executable)
--- a/
commitid-best-test.scad.pl
+++ b/
commitid-best-test.scad.pl
@@
-1,7
+1,7
@@
#!/usr/bin/perl -w
use strict;
#!/usr/bin/perl -w
use strict;
-our @xm = qw(4.7 6.8
10 15 22
33 47 68 100);
+our @xm = qw(4.7 6.8
8.2 10 12 15 18 22 27
33 47 68 100);
our @ym = qw(3.9 5.6 8.2 12 18 27 39 56);
sub p { print @_ or die $!; }
our @ym = qw(3.9 5.6 8.2 12 18 27 39 56);
sub p { print @_ or die $!; }
@@
-18,7
+18,7
@@
foreach my $xm (@xm) {
p " translate(-0.5*p*[1,1]) square([$xm+1,$ym+1]*p);\n";
p " square([$xm,$ym]*p);\n";
p " }\n";
p " translate(-0.5*p*[1,1]) square([$xm+1,$ym+1]*p);\n";
p " square([$xm,$ym]*p);\n";
p " }\n";
- p " Commitid_BestCount_2D([$xm,$ym] * p);\n";
+ p " Commitid_BestCount_2D([$xm,$ym] * p
, margin=0.2
);\n";
p " }\n";
$y += $ym + 2;
}
p " }\n";
$y += $ym + 2;
}