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
  18 upper_ctr_maj_r = curl/2 + upper_r;
  19
  20 module UpperPlan(){
  21   circle(r = upper_r);
  22 }
  23
  24 module Upper(){
  25   translate([upper_ctr_maj_r, 0, 0])
  26     linextr(-0.1, height + 0.1)
  27     UpperPlan();
  28   translate([0, 0, height]){
  29     rotate([90,0,0])
  30       rotate_extrude(angle=180)
  31       translate([upper_ctr_maj_r, 0])
  32       UpperPlan();
  33     translate([-upper_ctr_maj_r, 0,0])
  34       sphere(r= upper_r);
  35   }
  36 }
  37
  38 Upper();