From 541b80970ccfd0a4e96608483ddb8551a1b3cdaa Mon Sep 17 00:00:00 2001
From: djerun <djerun@hamburg.ccc.de>
Date: Sat, 1 Jun 2024 17:50:52 +0200
Subject: [PATCH] pressfit_horn v0.1

---
 pressfit_horns.scad | 67 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 pressfit_horns.scad

diff --git a/pressfit_horns.scad b/pressfit_horns.scad
new file mode 100644
index 0000000..a3d4db7
--- /dev/null
+++ b/pressfit_horns.scad
@@ -0,0 +1,67 @@
+include <globals.scad>;
+
+use <pressfit_headband.scad>;
+
+$fn=360;
+A=30;
+N=4;
+R=45;
+LENGTH=100;
+TWIST=720;
+STEPS=360;
+SLICES=max(TWIST, STEPS, LENGTH);
+SHEIGHT=LENGTH/STEPS;
+BEND_X_FACTOR=0.5;
+BEND_Y_FACTOR=1;
+
+COLORS=[
+"#f00",
+"#f70",
+"#7f0",
+"#0f0",
+"#0f7",
+"#07f",
+"#00f",
+"#70f",
+"#f07"
+];
+
+difference() {
+  union() for (step=[1:STEPS]) {
+    a = A*(1-(step-1)/STEPS);
+    b = A*(1-step/STEPS);
+    r = TWIST/STEPS*(step-1);
+    sh_xy = 0;
+    sh_yx = 0;
+    sh_xz = 1/STEPS*step*BEND_X_FACTOR;
+    sh_yz = 1/STEPS*step*BEND_Y_FACTOR;
+    sh_zx = 0;
+    sh_zy = 0;
+    t_x = sh_xz*SHEIGHT*(step-1)*0.5;
+    t_y = sh_yz*SHEIGHT*(step-1)*0.5;
+    t_z = LENGTH/STEPS*(step-1);
+    sc_x = 1;
+    sc_y = 1;
+    sc_z = 1;
+    mm = [
+      [sc_x,  sh_xy, sh_xz, t_x],
+      [sh_yx, sc_y,  sh_yz, t_y],
+      [sh_zx, sh_zy, sc_z,  t_z],
+    ];
+    echo(a, b, b/a, r, mm);
+    multmatrix(mm)
+      color(COLORS[(step-1)%9])
+      linear_extrude(
+        SHEIGHT,
+        center=false,
+        twist=TWIST/STEPS,
+        scale=b/a,
+        slices=SLICES/STEPS
+      ) rotate(R-r)
+        circle(d=a, $fn=N);
+  }
+  translate([0, 0, INSERTICLE_Z/2])
+    inserticle();
+}
+
+echo("twist angle: ", TWIST/STEPS);
\ No newline at end of file
-- 
2.44.2