1
0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-12-30 03:04:37 +02:00
wernermisc/m1/button/bgen

44 lines
693 B
Perl
Executable File

#!/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);