From 59218eb2c9dd1d6126570eb015e92ad4f34b4c44 Mon Sep 17 00:00:00 2001
From: Ian Gulliver <github@flamingcow.io>
Date: Mon, 8 Jul 2024 22:48:19 -0700
Subject: [PATCH] Twist models

---
 extension_twist_25mm.scad      |  3 +++
 lib/extension_twist.scad       | 19 ++++++++++++++++
 spool_holder_simple_twist.scad | 40 ++++++++++++++++++++++++++++++++++
 3 files changed, 62 insertions(+)
 create mode 100644 extension_twist_25mm.scad
 create mode 100644 lib/extension_twist.scad
 create mode 100644 spool_holder_simple_twist.scad

diff --git a/extension_twist_25mm.scad b/extension_twist_25mm.scad
new file mode 100644
index 0000000..a226f27
--- /dev/null
+++ b/extension_twist_25mm.scad
@@ -0,0 +1,3 @@
+use <lib/extension_twist.scad>
+
+extension_twist(h=25);
\ No newline at end of file
diff --git a/lib/extension_twist.scad b/lib/extension_twist.scad
new file mode 100644
index 0000000..70ff62d
--- /dev/null
+++ b/lib/extension_twist.scad
@@ -0,0 +1,19 @@
+use <spoolmount_twist.scad>
+
+module extension_twist(h) {
+    assert(h >= 10, "minimum extension height is 10");
+
+    // Bottom spoolmount twist
+    spoolmount_twist();
+
+    // Top spoolmount twist
+    translate([0, 0, h])
+    rotate([180, 0, 0])
+    spoolmount_twist();
+
+    // Center cylinder
+    translate([0, 0, 5])
+    cylinder(h=h - 10, r=24.9, $fn=200);
+}
+
+extension_twist(h=25);
\ No newline at end of file
diff --git a/spool_holder_simple_twist.scad b/spool_holder_simple_twist.scad
new file mode 100644
index 0000000..1066e32
--- /dev/null
+++ b/spool_holder_simple_twist.scad
@@ -0,0 +1,40 @@
+use <lib/spoolmount_twist.scad>
+use <lib/torus.scad>
+
+module spool_holder_simple_twist() {
+    spoolmount_twist();
+
+    // Main body
+    translate([0, 0, 5])
+    cylinder(h=95, r=12, $fn=200);
+
+    // Base fan in
+    translate([0, 0, 5])
+    rotate_extrude($fn=200)
+    translate([12, 0])
+    difference() {
+        square(10);
+
+        translate([10, 10])
+        circle(r=10);
+    }
+
+    // Cap
+    translate([0, 0, 95])
+    cylinder(h=5, r=17, $fn=200);
+
+    // Cap fan out
+    translate([0, 0, 90])
+    rotate_extrude($fn=200)
+    polygon(points=[
+        [12, 0],
+        [17, 5],
+        [12, 5],
+    ]);
+
+    // Cap rounded edge
+    translate([0, 0, 97.5])
+    torus(r_major=17, r_minor=2.5, xs=0.7, $fn=200);
+}
+
+spool_holder_simple_twist();
\ No newline at end of file