acorn: v0
[clinton/3d-models.git] / acorn / acorn-threads.scad
diff --git a/acorn/acorn-threads.scad b/acorn/acorn-threads.scad
new file mode 100644 (file)
index 0000000..f532ffe
--- /dev/null
@@ -0,0 +1,124 @@
+// Threads for acorn model
+// Copyright (c) 2017 Clinton Ebadi <clinton@unknownlamer.org>
+
+use <threads.scad>
+use <screw_threads.scad>
+use <Paraboloid.scad>
+
+
+//outer_d = 178;
+thread_pitch = 2.0;
+thread_size = 1.5;
+outer_d = (26 - thread_size - 10)/2;
+base_d = outer_d / 3;
+thread_height = 4;
+wall_thickness = 3;
+base_height = 20;
+
+thread_tolerance = 0.6;
+thread_angle = 60;
+
+
+//cylinder (d = outer_d, h = 10);
+module acorn_thread (outer_d = outer_d, internal = false) {
+     //outer_d = outer_d + (internal ? thread_tolerance : 0);
+     outer_d = outer_d + thread_size;
+     thread_height = thread_height;     // + (internal ? thread_tolerance : 0);
+     local_thread_size = thread_size;   // + (internal ? thread_tolerance : 0);
+
+
+
+     if (internal) {
+         echo ("outer ring = ", outer_d+wall_thickness/2+local_thread_size);
+         ScrewHole (outer_diam=outer_d, height = thread_height, pitch = thread_pitch, angle = thread_angle) {
+              cylinder (d = outer_d+wall_thickness/2+thread_size, h = thread_height);
+         }
+     }
+
+         //translate ([0, 0, internal ? -0.0 : 0]) metric_thread (diameter=outer_d, pitch = thread_pitch, thread_size=local_thread_size, length = thread_height, internal=internal, angle=thread_angle);
+
+     if (!internal) {
+         difference () {
+              ScrewThread (outer_diam=outer_d, height = thread_height, pitch = thread_pitch, tooth_height = local_thread_size, angle = thread_angle);
+              cylinder (d = outer_d-wall_thickness-local_thread_size-0.01, h = thread_height * 4, center=true);
+         }
+     }
+}
+
+
+module acorn_base_1 () {
+     hull () {
+
+         translate ([0, 0, base_height-base_d/2]) cylinder (d=outer_d, h=0.1);
+         sphere (r = base_d);
+     }
+}
+
+module acorn_base_xxx () {
+     difference () {
+         acorn_base_1 ();
+         resize ([outer_d-wall_thickness, 0, 0], auto=true) acorn_base_1 ();
+         translate ([0, 0, base_height-base_d/2-wall_thickness]) cylinder (d = outer_d - wall_thickness, h = 5);
+     }
+}
+
+rfa = 2;
+real_outer_d = 4 * sqrt(outer_d/2)*sqrt(base_height/sqrt(outer_d/2)) + rfa*2;
+echo (real_outer_d);
+module nut_1 () {
+     paraboloid (y=base_height, f=sqrt(outer_d/2),rfa=rfa,fc=0,detail=120, x = outer_d, hi=base_height);
+}
+
+module nut () {
+     //cylinder(d=real_outer_d, h=base_height+1);
+     difference () {
+         nut_1 ();
+         translate ([0, 0, wall_thickness]) resize ([real_outer_d - wall_thickness, 0, 0], auto=true) nut_1 ();
+     }
+
+     translate ([0, 0, base_height-0.1]) acorn_thread (outer_d = real_outer_d);//, $fa=0.1, $fs=0.1);
+
+}
+
+
+
+//$fs = 0.1;
+//$fa = 1;
+
+module nuts () {
+//translate ([real_outer_d+10, 0, 0,])  nut ();
+translate ([0, 0, thread_height]) rotate ([180, 0, 0]) acorn_thread (outer_d = real_outer_d, internal=true); //, outer_d=real_outer_d);
+
+}
+
+//print_test();
+nuts ();
+
+//fit_test ();
+
+module print_test () {
+     translate ([real_outer_d+5, 0, thread_height]) rotate ([180, 0, 0]) acorn_thread (outer_d = real_outer_d, internal=true); //, outer_d=real_outer_d);
+     translate ([0, 0, thread_height]) rotate ([180, 0, 0]) union () {
+         translate ([0, 0, 0]) cylinder (d=real_outer_d-wall_thickness, h=thread_height);
+         translate ([0, 0, -thread_height*3]) cylinder (d=real_outer_d/2, h=thread_height*3);
+         acorn_thread (outer_d = real_outer_d);
+     }
+
+
+}
+
+module fit_test () {
+     intersection () {
+         union () {
+              color ("YellowGreen", 0.5) acorn_thread (outer_d = real_outer_d, internal=true);
+              /* /\*translate ([0, 0, thread_height]) rotate ([180, 0, 0]) *\/ color ("Peru") union () { */
+              /*           translate ([0, 0, 0]) cylinder (d=real_outer_d-wall_thickness, h=thread_height); */
+              /*           translate ([0, 0, -thread_height*3]) cylinder (d=real_outer_d/2, h=thread_height*3); */
+              /*           acorn_thread (outer_d = real_outer_d); */
+              /* } */
+         }
+         //color ("White", 0.5) cube (real_outer_d);
+     }
+
+
+}