steamer-handle-clip.scad

   1 // -*- C -*-
   2
   3 include <funcs.scad>
   4 include <utils.scad>
   5
   6 width = 20;
   7 cup = 2.5;
   8 jaw = 32.36 - 2.00;
   9 th = 3.0;
  10 l = 15;
  11
  12 a = cup;
  13 b = width/2;
  14 alpha = atan2(a, b);
  15 c = vectorlen2d([a, b]);
  16 r = a / (1 - cos(2*alpha));
  17 C = [0, a-r];
  18
  19 module Baseline() {
  20   intersection(){
  21     hull(){
  22       translate(C)
  23         circle(r=r);
  24       translate([0, -jaw])
  25         square(center=true, [width, 10]);
  26     }
  27     rectfromto([ -width/2, -jaw ],
  28                [  width/2,  20  ]);
  29   }
  30 }
  31
  32 module Plan(){
  33   difference(){
  34     offset(delta=th) Baseline();
  35     Baseline();
  36     rectfromto([-width, -jaw],
  37                [0, 0]);
  38   }
  39 }
  40
  41 module Thing(){
  42   linextr(0,l) Plan();
  43 }
  44
  45 Thing();