uilleann

reed.scad

 1include <../../common.scad>
 2
 3// 9mm od
 4// 7.5mm from plane on reed holder to back
 5// 9 - 7.5 = 2.5 thickness; 4.5-2.5=2 cutaway from center
 6
 7length = 45;
 8thickness = 0.55;
 9d = 9;
10base_thickness = 1.5;
11
12scrape_angle = atan((base_thickness-thickness)/length)*2.6;
13
14translate([0, 0, -d/2+base_thickness])
15difference() {
16  rotate([-88, 0, 0]) cylinder(d=d, h=length);
17
18  // Chop off excess cylinder at the base
19  translate([-d/2, -d, 0]) cube(d);
20
21  // Shave off reed
22  translate([-d/2, -length, -d/2-base_thickness]) cube([d, length*3, d]);
23
24  // Scrape reed
25  translate([0, length, d/2-base_thickness+thickness]) rotate([-scrape_angle, 0, 0]) translate([-d/2, -length, 0]) cube([d, length, d]);
26
27  // Reed chopper
28  translate([0, length, 0]) {
29    translate([0, -d/2, 0]) {
30      difference() {
31        translate([-d/2, 0, 0]) cube([d, d/2, d]);
32        cylinder(d=d, h=d);
33      }
34    }
35  }
36}