summit-lantern-hook.scad

   1 // -*- C -*-
   2
   3 include <utils.scad>
   4
   5 height = 60;
   6 th = 6;
   7 curl = 10;
   8 width = 85;
   9 sides_depth = 35;
  10
  11 $fa = 3;
  12 $fs = 0.3;
  13
  14 // calculated
  15
  16 upper_r = th/2;
  17 upper_ctr_maj_r = curl/2 + upper_r;
  18
  19 zmin = curl/2 + th;
  20
  21 module UpperPlan(){
  22   circle(r = upper_r);
  23 }
  24
  25 module Upper(){
  26   translate([upper_ctr_maj_r, 0, 0])
  27     linextr(-0.1, height + 0.1)
  28     UpperPlan();
  29   translate([0, 0, height]){
  30     rotate([90,0,0])
  31       rotate_extrude(angle=180)
  32       translate([upper_ctr_maj_r, 0])
  33       UpperPlan();
  34     translate([-upper_ctr_maj_r, 0,0])
  35       sphere(r= upper_r);
  36   }
  37 }
  38
  39 module Lower(){
  40   difference(){
  41     linextr(-zmin, 0)
  42       square(center = true, [curl + th*2, th]);
  43     linextr_y_xz(-th, th)
  44       circle(r = curl/2);
  45   }
  46   linextr(-zmin, -zmin + th) {
  47     square(center=true, [th, width]);
  48     for (m=[0,1])
  49       mirror([0,m])
  50         hull()
  51       {
  52         for (x= sides_depth/2 * [-1,+1])
  53           translate([ x, width/2 - th/2 ])
  54             circle(r= th/2);
  55       }
  56   }
  57 }
  58
  59 module Hook(){
  60   Upper();
  61   Lower();
  62 }
  63
  64 Hook();