From 1d24b2e52ac00d3e952babf8471fe79202429626 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@openmoko.org>
Date: Sun, 28 Nov 2010 01:18:24 -0300
Subject: [PATCH] vialtray: more parameter adjustments

- 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,
---
 vialtray/tray.pl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

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