uilleann

reed-body.scad

 1include<../../common.scad>
 2
 3id = 7.12;
 4od = 8;
 5pluglen = 5;  // Length of the plug at the end
 6opening = [2, 10, 6]; // Opening size
 7cutaway = [10, 0.74, 28]; // Tongue cutaway
 8
 9module reed_body() {
10  difference() {
11    // The main piece
12    cylinder(h=100, d=od);
13
14    // Inner bore
15    translate([0, 0, pluglen]) {
16      difference() {
17        cylinder(h=100, d=id);
18
19        // Leave material for a platform on the tongue cutaway
20        translate([-5, id/2 - cutaway[1], 0]) cube(cutaway);
21      }
22    }
23
24    // Tongue cutaway
25    translate([-5, od/2 - cutaway[1], 0]) cube(cutaway);
26
27    // Opening
28    translate([-opening[0]/2+.6, 0, pluglen]) cube(opening);
29  }
30}
31
32reed_body();