qi-hardware/wernermisc
1
0
Fork 0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-11-22 01:33:43 +02:00
Code

vialtray: more parameter adjustments

Browse Source 
- tray.pl (zf): lower floor by another mm, leaving 3-4 mm of material
- tray.pl (vd): increase vial diameter by 0.1 mm to allow for vial
  tolerance and material expansion. Also, working from the inside to the
  outside (instead of plunging into uncut material first) decreased the
  hole radius slightly.
- tray.pl (do_cols, do_circles): removed exclusion of the first column

  radius after vial
  tolerance,
This commit is contained in:
Werner Almesberger 2010-11-28 01:18:24 -03:00
parent 649e00b28e
commit 1d24b2e52a
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
vialtray/tray.pl
View File

@ -111,7 +111,7 @@ sub circ
$z0 = -0.5; $z0 = -0.5;
# floor depth # floor depth
$zf = -17; $zf = -18;
# maximum depth step # maximum depth step
$zs = 2.5; $zs = 2.5;
@ -123,7 +123,7 @@ $xs = 24;
$ys = 20; $ys = 20;
# vial diameter # vial diameter
$vd = 18.6; $vd = 18.7;
# minimum wall thickness # minimum wall thickness
$mw = 2.5; $mw = 2.5;
@ -218,9 +218,7 @@ sub do_cols
$x = $x0; $x = $x0;
for ($c = 0; $c != $nc; $c++) { for ($c = 0; $c != $nc; $c++) {
if ($c) {
&do_col($x); &do_col($x);
}
$x += $xs; $x += $xs;
print "\n"; print "\n";
} }
@ -237,9 +235,7 @@ sub do_circles
$y = $y0; $y = $y0;
for ($rw = 0; $rw != $nr; $rw++) { for ($rw = 0; $rw != $nr; $rw++) {
for ($rr = $r0; $rr <= $r1; $rr += $rs) { for ($rr = $r0; $rr <= $r1; $rr += $rs) {
if ($c) {
&circ($x, $y, $rr, 180); &circ($x, $y, $rr, 180);
}
} }
print "\n"; print "\n";
$y += $ys; $y += $ys;