catear-pedestal v0.1

catear_headband.scad

@@ -1,6 +1,7 @@
-include <headband.scad>
+include <globals.scad>;
 
-use <headband.scad>
+use <headband.scad>;
+use <chamfer.scad>;
 
 module catear(height, thickness, fractal=0, side_len=30, bend_factor=0.5, stretch_factor=1.2, debug=false, chamfer=CHAMFER, chamfer_shape=CHAMFER_SHAPE) {
   $A=[0, side_len/2];
@@ -69,7 +70,7 @@ module catear(height, thickness, fractal=0, side_len=30, bend_factor=0.5, stretc
   }
 }
 
-module catear_headband(debug=DEBUG, size=SIZE, height=HEIGHT, thickness=THICKNESS, part=PART, stretch_len=STRETCH_LEN, tip_len=TIP_LEN, tip_bend=TIP_BEND, ear_scale=1.5, ear_bend_factor=0.15, ear_stretch_factor=1.2, ear_angle=42, chamfer=CHAMFER, chamfer_shape=CHAMFER_SHAPE) {
+module catear_headband(debug=DEBUG, size=SIZE, height=HEIGHT, thickness=THICKNESS, part=PART, stretch_len=STRETCH_LEN, tip_len=TIP_LEN, tip_bend=TIP_BEND, ear_scale=1.5, ear_bend_factor=0.15, ear_stretch_factor=1.2, ear_angle=42, chamfer=CHAMFER, chamfer_shape=CHAMFER_SHAPE, with_rake=true) {
 
   $a=size/2*ear_scale;
   $delta=2*(acos($a/(size*2))-90);
@@ -107,7 +108,8 @@ module catear_headband(debug=DEBUG, size=SIZE, height=HEIGHT, thickness=THICKNES
       part=part,
       stretch_len=stretch_len,
       tip_len=tip_len,
-      tip_bend=tip_bend
+      tip_bend=tip_bend,
+      with_rake=with_rake
     );
   };
 }

catear_pedestal.scad

@@ -0,0 +1,49 @@
+include <globals.scad>
+
+use <catear_headband.scad>
+
+SCALE_FACTOR=SIZE/9;
+
+echo("scale factor: ", SCALE_FACTOR);
+echo("bottom diameter: ", SIZE/SCALE_FACTOR);
+
+
+difference() {
+  union()
+    for (i=[-1,1])
+      translate([i*2, 0, 0])
+        rotate(i*90, [0, 1, 0])
+          scale(1/SCALE_FACTOR)
+            union() {
+              translate([0, 0, SIZE+20+60])
+                rotate(90, [0, 1, 0])
+                  scale(1.6)
+                    catear_headband(thickness=5, with_rake=false);
+              translate([0, 0, 20])
+                cylinder(h=10, r=SIZE, $fn=360);
+              cylinder(h=20, d=SIZE, $fn=360);
+            }
+  translate([0, 0, -SIZE*(1/SCALE_FACTOR)*5])
+    cube(SIZE*10*(1/SCALE_FACTOR), center=true);
+}
+
+/*
+scale(1/SCALE_FACTOR) {
+translate([0, 0, 30])
+scale([1, 1, -1])
+difference() {
+  union() {
+    translate([0, 0, 20])
+      cylinder(h=10, r=SIZE, $fn=360);
+    cylinder(h=20, d=SIZE, $fn=360);
+  }
+  translate([0, 0, SIZE+20+60])
+    rotate(90, [0, 1, 0])
+      scale(1.6)
+        catear_headband(thickness=5, with_rake=false);
+}
+scale(1.6)
+  translate([0, 0, HEIGHT/2])
+    catear_headband(thickness=5, with_rake=false);
+}
+*/

globals.scad

@@ -0,0 +1,19 @@
+$fn=90;
+DEBUG=false;
+SIZE=60;
+HEIGHT=4.6;
+THICKNESS=3;
+PART=0.7;
+STRETCH_LEN=40;
+TIP_LEN=0.05;
+TIP_BEND=20;
+RAKE_DEPTH=1;
+RAKE_WIDTH=1;
+RAKE_STRETCH=1;
+RAKE_CHAMFER=0.5;
+CHAMFER=1;
+CHAMFER_SHAPE="cone";
+
+INSERTICLE_X = 4.6;
+INSERTICLE_Y = 7.4;
+INSERTICLE_Z = 5.4;

headband.scad

@@ -1,19 +1,4 @@
-$fn=360;
-DEBUG=false;
-SIZE=60;
-HEIGHT=4.6;
-THICKNESS=3;
-PART=0.7;
-STRETCH_LEN=40;
-TIP_LEN=0.05;
-TIP_BEND=20;
-RAKE_DEPTH=1;
-RAKE_WIDTH=1;
-RAKE_STRETCH=1;
-RAKE_CHAMFER=0.5;
-CHAMFER=1;
-CHAMFER_SHAPE="cone";
-
+include <globals.scad>
 use <chamfer.scad>
 
 module partial_ring(part, radius, thickness, height) {
@@ -23,7 +8,7 @@ module partial_ring(part, radius, thickness, height) {
         square([thickness, height], center=true);
 }
 
-module headband(debug=DEBUG, size=SIZE, height=HEIGHT, thickness=THICKNESS, part=PART, stretch_len=STRETCH_LEN, tip_len=TIP_LEN, tip_bend=TIP_BEND, rake_depth=RAKE_DEPTH, rake_width=RAKE_WIDTH, rake_stretch=RAKE_STRETCH, rake_chamfer=RAKE_CHAMFER, chamfer=CHAMFER, chamfer_shape=CHAMFER_SHAPE) {
+module headband(debug=DEBUG, size=SIZE, height=HEIGHT, thickness=THICKNESS, part=PART, stretch_len=STRETCH_LEN, tip_len=TIP_LEN, tip_bend=TIP_BEND, rake_depth=RAKE_DEPTH, rake_width=RAKE_WIDTH, rake_stretch=RAKE_STRETCH, rake_chamfer=RAKE_CHAMFER, chamfer=CHAMFER, chamfer_shape=CHAMFER_SHAPE, with_rake=true) {
   union() {
     chamfer(size=chamfer, child_h=height, child_bot=-height/2, shape=chamfer_shape) union() {
       color("purple")
@@ -56,7 +41,7 @@ module headband(debug=DEBUG, size=SIZE, height=HEIGHT, thickness=THICKNESS, part
                   );
         }
     }
-    for (i=[-size/2:size/2]) {
+    if (with_rake) for (i=[-size/2:size/2]) {
       rotate(i*2-rake_width/2, [0, 0, 1])
         intersection() {
           scale([1, 1, rake_stretch/(rake_depth/height)])

pressfit_catears.scad

@@ -0,0 +1,32 @@
+include <globals.scad>;
+
+use <catear_headband.scad>;
+use <pressfit_headband.scad>;
+use <chamfer.scad>;
+
+EAR_SCALE = 1.5;
+EAR_BEND_FACTOR = 0.15;
+EAR_STRETCH_FACTOR = 1.2;
+
+difference() {
+translate([20*pow(0.99, SIZE/2*EAR_SCALE-1-THICKNESS), 0, -THICKNESS/2])
+union() for (i=[0:SIZE/2*EAR_SCALE-1]) {
+  j=pow(0.99, i);
+  chamfer_ = floor(abs(2*i/(SIZE/2*EAR_SCALE-1)-1));
+  translate([-j*20, 0, 0])
+    rotate(90, [0, 1, 0])
+      /*chamfer(size=1, child_h=1, child_bot=-0.5, shape=CHAMFER_SHAPE)*/
+        catear(
+          debug=DEBUG,
+          height=INSERTICLE_Z*1.2,
+          thickness=THICKNESS,
+          side_len=SIZE/2*EAR_SCALE-i,
+          bend_factor=EAR_BEND_FACTOR,
+          stretch_factor=EAR_STRETCH_FACTOR,
+          chamfer=chamfer_,
+          chamfer_shape=CHAMFER_SHAPE
+        );
+}
+translate([0, 0, -THICKNESS]) cube([100, 100, THICKNESS], center=true);
+scale([1, 1, 2]) inserticle();
+}

pressfit_headband.scad

@@ -1,7 +1,9 @@
-include <headband.scad>
+include <globals.scad>
+
+use <headband.scad>
 
 module inserticle() {
-    cube([4.6, 7.4, 5.4], center=true);
+    cube([INSERTICLE_X, INSERTICLE_Y, INSERTICLE_Z], center=true);
 }
 
 module pressfit_headband(debug=DEBUG, size=SIZE, height=HEIGHT, thickness=THICKNESS, part=PART, stretch_len=STRETCH_LEN, tip_len=TIP_LEN, tip_bend=TIP_BEND) {

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);