salter-scale-hook: wip

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

diff --git a/salter-scale-hook.scad b/salter-scale-hook.scad
new file mode 100644 (file)
index 0000000..849c314
--- /dev/null
+++ b/salter-scale-hook.scad
@@ -0,0 +1,22 @@
+// -*- C -*-
+
+rod_dia = 8+2;
+thick = 8;
+screw_dia = 3.5 + 0.75;
+screw_head_dia = 8.2 + 1.0;
+rod_offset = 14 + 2;
+width = 40;
+
+module C() {
+  circle(r = rod_dia/2, $fn=20);
+}
+
+module Profile() {
+  d = rod_dia/2 + thick/2;
+  hull(){
+    translate([-d, 0]) C();
+    translate([-d,-d]) C();
+  }
+}
+
+Profile();