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

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

diff --git a/mead-horn/mead-horn.scad b/mead-horn/mead-horn.scad
new file mode 100644 (file)
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"
+);
+*/