mead-horn: first attempt at a mini mead horn for solstice gathering

[clinton/3d-models.git] / mead-horn / mead-horn.scad

// 2021

// Single person mead horn, for winter solstice 2021 since sharing
// mead from the real horn is probably still unsafe.

// https://openhome.cc/eGossip/OpenSCAD/lib3x-golden_spiral_extrude.html
use <dotscad/shape_circle.scad>;
use <dotscad/golden_spiral_extrude.scad>;
use <dotscad/helix_extrude.scad>;

bottom_radius =   4;
top_radius    =  30;
horn_length   = 135;

module helix_horn () {
     helix_levels = 1/6;

     arc_measure  = (360 * helix_levels) * (3.13 / 180) ;
     arc_length   = horn_length;
     
     helix_radius = (arc_length / arc_measure);
     echo (helix_radius);

     
     translate ([helix_radius, 0, 0]) scale ([1, 1/2, 1]) intersection () {
	  sphere (r = bottom_radius);
	  rotate ([90, 0, 0]) cylinder (h = bottom_radius, r = bottom_radius, center=false);
     }
     
     shape_pts = shape_circle (radius = bottom_radius);
     
     helix_extrude(shape_pts,
		   radius = helix_radius,
		   scale = top_radius/bottom_radius,
		   levels = helix_levels,
		   level_dist = top_radius * 5,
		   vt_dir = "SPI_UP"
	  );
}

helix_horn ($fs = 0.3, $fa = 1);



//linear_extrude (height = 120, scale = top_radius/bottom_radius, twist = 500) {
//     circle (r = bottom_radius, $fn=5);
//}


/*
  $fn = 64;
//shape_pts = concat(
//    shape_circle(radius = 3),
//    shape_circle(radius = 2.5)
//);
shape_pts = shape_circle(radius = 2);

golden_spiral_extrude(
    shape_pts, 
    from = 7, 
    to = 10,
    point_distance = 1,
    scale = 10,
    triangles = "SOLID"
);
*/