Path reorg

v1/scad/lib/generic/spool_holder_twist.scad

@@ -0,0 +1,42 @@
+use <spoolmount_twist.scad>
+use <../util/torus.scad>
+
+module spool_holder_twist(h) {
+    assert(h >= 25, "minimum spool_holder_twist height is 25");
+
+    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, h - 5])
+    cylinder(h=5, r=17, $fn=200);
+
+    // Cap fan out
+    translate([0, 0, h - 10])
+    rotate_extrude($fn=200)
+    polygon(points=[
+        [12, 0],
+        [17, 5],
+        [12, 5],
+    ]);
+
+    // Cap rounded edge
+    translate([0, 0, h - 2.5])
+    torus(r_major=17, r_minor=2.5, xs=0.7, $fn=200);
+}
+
+spool_holder_twist(h=100);