qi-hardware/wernermisc
1
0
Fork 0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2025-04-21 12:27:27 +03:00
Code Activity

m1/button/: milling process for making M1 buttons from a piece of wood

Browse Source
This commit is contained in:
Werner Almesberger
2011-10-03 17:53:50 -03:00
parent 113fc5c25b
commit 70e88c5651
3 changed files with 75 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
m1/button/bgen Executable file
View File

@@ -0,0 +1,43 @@
#!/usr/bin/perl
$pi = atan2(1, 1)*4;
sub circ
{
local ($r, $d) = @_;
for ($a = 0; $a <= 2*$pi; $a += 2*$pi/200) {
print $x0+$r*sin($a), " ", $y0+$r*cos($a), " ", $z0-$d, "\n";
}
print "\n";
}
$x0 = 123;
$y0 = 19+18;
$z0 = -39.5; # piece surface
$z0 -= 7.9-5; # depth into piece
$ds = 7.8; # shaft diameter
$dp = 10; # pusher plate diameter
$tr = 25.4/8/2;
#&circ($ds/2-$tr, 0);
&circ(1, 0);
&circ(3, 0);
&circ(0.2, 0);
&circ($ds/2+$tr, 0);
&circ($ds/2+$tr, 2);
#&circ($ds/2+$tr, 3.8);
#&circ($ds/2+$tr, 3.8); # twice, for cleaner cuts
&circ($ds/2+$tr, 3.9);
&circ($ds/2+$tr, 4.0); # twice, for cleaner cuts
&circ($dp/2+$tr, 0);
&circ($dp/2+$tr, 3);
&circ($dp/2+$tr, 5+0.3);