salter-scale-hook.scad

   1 // -*- C -*-
   2
   3 include <utils.scad>
   4
   5 rod_dia = 8+2;
   6 thick = 8;
   7 screw_dia = 3.5 + 0.75;
   8 screw_head_dia = 8.2 + 1.0;
   9 rod_offset = 14 + 2;
  10 mainheight = 25;
  11 width = 40;
  12 rearthick = 3;
  13
  14 // calculated
  15
  16 d = rod_dia/2 + thick/2;
  17 yminc = -d;
  18 ymin = yminc-thick/2;
  19 ymaxc = mainheight;
  20 ymax = mainheight+thick/2;
  21
  22 module C() {
  23   circle(r = thick/2, $fn=30);
  24 }
  25
  26 module Profile() {
  27   e = rod_offset;
  28   hull(){
  29     translate([-d, 0]) C();
  30     translate([-d,-d]) C();
  31   }
  32   difference(){
  33     rectfromto([-d,ymin], [e,0]);
  34     circle(r= rod_dia/2, $fn=50);
  35   }
  36   hull(){
  37     for (y= [-d, +mainheight]) {
  38       translate([d, y]) C();
  39       rectfromto([d, y-thick/2], [e, y+thick/2]);
  40     }
  41   }
  42 }
  43
  44 module CutProfile(){
  45 //  rectfromto([
  46 }
  47
  48 module Demo(){
  49   Profile();
  50 }
  51
  52 Demo();