Werner's Miscellanea
Sign in or create your account | Project List | Help
Werner's Miscellanea Commit Details
Date: | 2010-11-28 05:18:24 (13 years 4 months ago) |
---|---|
Author: | Werner Almesberger |
Commit: | 1d24b2e52ac00d3e952babf8471fe79202429626 |
Message: | 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, |
Files: |
vialtray/tray.pl (4 diffs) |
Change Details
vialtray/tray.pl | ||
---|---|---|
111 | 111 | $z0 = -0.5; |
112 | 112 | |
113 | 113 | # floor depth |
114 | $zf = -17; | |
114 | $zf = -18; | |
115 | 115 | |
116 | 116 | # maximum depth step |
117 | 117 | $zs = 2.5; |
... | ... | |
123 | 123 | $ys = 20; |
124 | 124 | |
125 | 125 | # vial diameter |
126 | $vd = 18.6; | |
126 | $vd = 18.7; | |
127 | 127 | |
128 | 128 | # minimum wall thickness |
129 | 129 | $mw = 2.5; |
... | ... | |
218 | 218 | |
219 | 219 | $x = $x0; |
220 | 220 | for ($c = 0; $c != $nc; $c++) { |
221 | if ($c) { | |
222 | 221 | &do_col($x); |
223 | } | |
224 | 222 | $x += $xs; |
225 | 223 | print "\n"; |
226 | 224 | } |
... | ... | |
237 | 235 | $y = $y0; |
238 | 236 | for ($rw = 0; $rw != $nr; $rw++) { |
239 | 237 | for ($rr = $r0; $rr <= $r1; $rr += $rs) { |
240 | if ($c) { | |
241 | 238 | &circ($x, $y, $rr, 180); |
242 | } | |
243 | 239 | } |
244 | 240 | print "\n"; |
245 | 241 | $y += $ys; |
Branches:
master