rope-adjuster: wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/rope-adjuster.scad b/rope-adjuster.scad
new file mode 100644 (file)
index 0000000..a536770
--- /dev/null
+++ b/rope-adjuster.scad
@@ -0,0 +1,31 @@
+// -*- C -*-
+
+include <utils.scad>
+
+hole_dia = 10;
+around_hole = 5;
+thick = 4;
+lever_len = 50;
+
+module Circles(r) {
+  for (x = [-1,+1] * 0.5 * lever_len) {
+    translate([x, 0])
+      circle(r);
+  }
+}
+
+module Plan() {
+  difference(){
+    hull(){
+      Circles(hole_dia/2 + around_hole);
+    }
+    Circles(hole_dia/2);
+  }
+}
+
+module Adjuster(){
+  linextr(0,thick)
+    Plan();
+}
+
+Adjuster();