Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

multiply by 90 dpi to get the right units

  • Loading branch information...
commit 9b7b8fcb3489933fe844f372e0902c1c36bfb68e 1 parent 0270438
Luke Closs authored
Showing with 4 additions and 0 deletions.
  1. +4 −0 make-a-shelf.pl
View
4 make-a-shelf.pl
@@ -14,6 +14,7 @@
'smudge|s=s',
) or usage();
+
$p{smudge} //= 1.417;
$p{output} //= 'shelf.svg';
@@ -38,6 +39,8 @@
my $inches_to_dpi = sub { $_[0] * 90 };
my $material_thickness = 19.5;
+$p{$_} *= 90 for qw/width height depth/;
+
# 25.4mm, but gap is 26.2 = 0.8mm -> 0.4mm tweak
# +----+
# |4 5|
@@ -114,6 +117,7 @@
);
$y->polygon(%$points);
+# XXX make this red
my $half_way = $p{width} / 2;
my @shelf_hole_points = (
[ $half_way - ($material_thickness / 2), $p{depth} / 3 ], # 1
Please sign in to comment.
Something went wrong with that request. Please try again.