steamer-handle-clip.scad

   1 // -*- C -*-
   2
   3 include <funcs.scad>
   4 include <utils.scad>
   5
   6 width = 30 - 2;
   7 cup = 2.5;
   8 jaw = 32.36 - 2.00 - 2.00 - 3.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 $fa = 1;
  20
  21 module HalfBaseline() {
  22   intersection(){
  23     translate(C + [0, jaw/2])
  24       circle(r=r);
  25     rectfromto([ -width/2, -1, ],
  26                [  width/2, jaw ]);
  27   }
  28 }
  29
  30 module Baseline(){
  31   HalfBaseline();
  32   mirror([0,1]) HalfBaseline();
  33 }
  34
  35 module Plan(){
  36   difference(){
  37     offset(delta=th) Baseline();
  38     Baseline();
  39     rectfromto([-width, -jaw/2],
  40                [0,       jaw/2]);
  41   }
  42 }
  43
  44 module Thing(){
  45   linextr(0,l) Plan();
  46 }
  47
  48 //HalfPlan();
  49 //Plan();
  50 Thing();