From 260b2535476759538fa1b27715e6d8d372b978f2 Mon Sep 17 00:00:00 2001
From: Ian Gulliver <github@flamingcow.io>
Date: Sun, 7 Jul 2024 08:59:07 -0700
Subject: [PATCH] Twist checkpoint

---
 lib/spoolmount_twist.scad | 44 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 lib/spoolmount_twist.scad

diff --git a/lib/spoolmount_twist.scad b/lib/spoolmount_twist.scad
new file mode 100644
index 0000000..dd668a1
--- /dev/null
+++ b/lib/spoolmount_twist.scad
@@ -0,0 +1,44 @@
+module spoolmount_twist() {
+    cylinder(h=5, r=23, $fn=200);
+    
+    for (a = [45 : 90 : 135]) {
+        for (o = [-10, 10]) {
+            rotate([0, 0, a + o])
+            scale([0.2, 1.0, 1.0])
+            rotate_extrude($fn=200)
+            translate([23, 0, 0])
+            _spoolmount_twist_profile();
+        }
+    }
+    
+    for (a = [45 : 90 : 335]) {
+        rotate([0, 0, a - 10])
+        rotate_extrude(angle=20, $fn=200)
+        translate([23, 0, 0])
+        _spoolmount_twist_profile();
+    }
+
+    rotate_extrude($fn=200)
+    translate([23, 0, 0])
+    polygon(points=[
+        [0, 3.75],
+        [1.25, 5],
+        [0, 5],
+    ]);
+}
+
+module _spoolmount_twist_profile() {
+    polygon(points=[
+        [0, 1.25],
+        [1.25, 2.5],
+        [0, 3.75],
+    ]);
+    
+    polygon(points=[
+        [0, 0],
+        [1.25, 0],
+        [0, 1.25],
+    ]);
+}
+
+spoolmount_twist();
\ No newline at end of file