uilleann

commit

4bf72bb

parent

978b49b

author

Neale Pickett

date

2025-01-26 19:38:52 -0700 MST

reed refinements

 1@@ -5,22 +5,32 @@ include <../../common.scad>
 2 // 9 - 7.5 = 2.5 thickness; 4.5-2.5=2 cutaway from center
 3 
 4 length = 45;
 5-thickness = 0.5;
 6+thickness = 0.55;
 7 d = 9;
 8 base_thickness = 1.5;
 9 
10-scrape_angle = atan((base_thickness-thickness)/length)*1.5;
11-
12-module reed_chopper(d) {
13-  difference() {
14-    translate([-d/2, 0, 0]) cube([d, d/2, d]);
15-    cylinder(d=d, h=d);
16-  }
17-}
18+scrape_angle = atan((base_thickness-thickness)/length)*2.6;
19 
20+translate([0, 0, -d/2+base_thickness])
21 difference() {
22-  cylinder(d=d, h=length);
23-  translate([-5, -d/2+base_thickness, 0]) cube([10, 10, length*2]);
24-  translate([-5, -d/2+base_thickness-thickness, length]) rotate([-scrape_angle, 180, 180]) cube([10, 10, 50]);
25-  translate([0, 0, length-d/2]) rotate([90, 0, 0]) reed_chopper(d);
26+  rotate([-88, 0, 0]) cylinder(d=d, h=length);
27+
28+  // Chop off excess cylinder at the base
29+  translate([-d/2, -d, 0]) cube(d);
30+
31+  // Shave off reed
32+  translate([-d/2, -length, -d/2-base_thickness]) cube([d, length*3, d]);
33+
34+  // Scrape reed
35+  translate([0, length, d/2-base_thickness+thickness]) rotate([-scrape_angle, 0, 0]) translate([-d/2, -length, 0]) cube([d, length, d]);
36+
37+  // Reed chopper
38+  translate([0, length, 0]) {
39+    translate([0, -d/2, 0]) {
40+      difference() {
41+        translate([-d/2, 0, 0]) cube([d, d/2, d]);
42+        cylinder(d=d, h=d);
43+      }
44+    }
45+  }
46 }