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
  13 module C() {
  14   circle(r = thick/2, $fn=30);
  15 }
  16
  17 module Profile() {
  18   d = rod_dia/2 + thick/2;
  19   e = rod_offset;
  20   hull(){
  21     translate([-d, 0]) C();
  22     translate([-d,-d]) C();
  23   }
  24   difference(){
  25     rectfromto([-d,-d-thick/2], [e,0]);
  26     circle(r= rod_dia/2, $fn=50);
  27   }
  28   hull(){
  29     for (y= [-d, +mainheight]) {
  30       translate([d, y]) C();
  31       rectfromto([d, y-thick/2], [e, y+thick/2]);
  32     }
  33   }
  34 }
  35
  36 module CutProfile(){
  37
  38 }
  39
  40 module Demo(){
  41   Profile();
  42 }