salter-scale-hook: wip

[reprap-play.git] / salter-scale-hook.scad

diff --git a/salter-scale-hook.scad b/salter-scale-hook.scad
index 849c31435b5db26af7756279df7d07e5196f9ecd..e67ed73765f7c10278b2ce88b547223d5a152967 100644 (file)
--- a/salter-scale-hook.scad
+++ b/salter-scale-hook.scad
@@ -1,22 +1,52 @@
 // -*- C -*-
 
+include <utils.scad>
+
 rod_dia = 8+2;
 thick = 8;
 screw_dia = 3.5 + 0.75;
 screw_head_dia = 8.2 + 1.0;
 rod_offset = 14 + 2;
+mainheight = 25;
 width = 40;
+rearthick = 3;
+
+// calculated
+
+d = rod_dia/2 + thick/2;
+yminc = -d;
+ymin = yminc-thick/2;
+ymaxc = mainheight;
+ymax = mainheight+thick/2;
 
 module C() {
-  circle(r = rod_dia/2, $fn=20);
+  circle(r = thick/2, $fn=30);
 }
 
 module Profile() {
-  d = rod_dia/2 + thick/2;
+  e = rod_offset;
   hull(){
     translate([-d, 0]) C();
     translate([-d,-d]) C();
   }
+  difference(){
+    rectfromto([-d,ymin], [e,0]);
+    circle(r= rod_dia/2, $fn=50);
+  }
+  hull(){
+    for (y= [-d, +mainheight]) {
+      translate([d, y]) C();
+      rectfromto([d, y-thick/2], [e, y+thick/2]);
+    }
+  }
+}
+
+module CutProfile(){
+//  rectfromto([
+}
+
+module Demo(){
+  Profile();
 }
 
-Profile();
+Demo();