From 09d3555a6bd4114b20a2029dfcbe09ad7e984f39 Mon Sep 17 00:00:00 2001
From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Sun, 5 Dec 2021 21:02:33 -0500
Subject: [PATCH] mead-horn: first attempt at a mini mead horn for solstice
 gathering

Due to covid yadda yadda not passing the regular horn around. See if
individual printed horns will work instead.
---
 mead-horn/mead-horn.scad | 66 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 mead-horn/mead-horn.scad

diff --git a/mead-horn/mead-horn.scad b/mead-horn/mead-horn.scad
new file mode 100644
index 0000000..9a26f8d
--- /dev/null
+++ b/mead-horn/mead-horn.scad
@@ -0,0 +1,66 @@
+// 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"
+);
+*/
-- 
2.20.1