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 HalfBaseline() {
  20   intersection(){
  21     translate(C + [0, jaw/2])
  22       circle(r=r);
  23     rectfromto([ -width/2, -1, ],
  24                [  width/2, jaw ]);
  25   }
  26 }
  27
  28 module Baseline(){
  29   HalfBaseline();
  30   mirror([0,1]) HalfBaseline();
  31 }
  32
  33 module Plan(){
  34   difference(){
  35     offset(delta=th) Baseline();
  36     Baseline();
  37     rectfromto([-width, -jaw/2],
  38                [0,       jaw/2]);
  39   }
  40 }
  41
  42 module Thing(){
  43   linextr(0,l) Plan();
  44 }
  45
  46 //HalfPlan();
  47 //Plan();
  48 Thing();