commit 287dfb82c28b65668ca316374d85196c3a611fff
Author: Stephen Carpenter <sjc@carpanet.net>
Date:   Thu Jan 14 15:44:07 2021 -0500

    Initial import of Baller.scad

diff --git a/Baller.scad b/Baller.scad
new file mode 100644
index 0000000..bb51dbd
--- /dev/null
+++ b/Baller.scad
@@ -0,0 +1,126 @@
+use <inserts.scad>
+use <threads.scad>
+
+
+//$fa = ($preview) ? 12 : .01;
+//$fs = ($preview) ?  2 : .01;
+//$fn = ($preview) ?  0 : 27;
+$incolor = false;
+
+module ball() {
+	bd=65;
+	difference() {
+		sphere(d=bd);
+		translate([0,0,bd/2])thread_insertM3($die=true);
+		translate([0,0,-bd/2]) rotate(0,180,0) thread_insertM3($die=true);
+	}
+}
+
+module post() {
+	translate([0,0,0])cylinder(d=6, h=77, center=true);
+}
+
+module underball() {
+	translate([0,0,0]) intersection() { 
+		cylinder(d=65, h=5, center=true);
+		translate([0,0,-48]) sphere(d=100, $fa=3);
+	}
+
+	translate([0,0,5]) cylinder(d=55, h=10, center=true);
+	translate([0,0,9]) rotate_extrude(angle=360) translate([10+15/2,0,0])circle(d=20);
+}
+
+module ring(d,id) {
+	rotate_extrude(angle=360) translate([(d+id)/2,0,0])circle(d=d);
+}
+
+//ball();
+
+//underball();
+BallD = 65;
+module top(bd) {
+	color($incolor ? "yellow" : undef) cylinder(d=95, h=4);
+	translate([0,0,4]) {
+		difference() {
+			color($incolor ? "lightblue" : undef) sphere(d=bd);
+			translate([0,0,-70/2])cylinder(d=95, h=70/2);
+		}
+		cylinder(d=10, id=bd/2);
+		color($incolor ? "red" : undef) ring(d=5, id=bd+5);
+		cylinder(d=8, h=bd/2+5);
+	}
+		difference() {
+		union() {
+			cylinder(d=100, h=1+8);
+		}
+		translate([0,0,1+8-8])metric_thread(diameter=95,length=8.01, internal=true);
+
+		cylinder(d=92, h=1+6);
+	}
+}
+
+module middle_top(bd) {
+	difference() {
+		color($incolor ? "yellow" : undef) cylinder(d=95, h=4);
+		translate([0,0,4]) color($incolor ? "red" : undef ) ring(d=5, id=bd+5);
+	}
+	translate([0,0,4]) {
+		difference() {
+			color("lightblue") sphere(d=bd);
+			translate([0,0,-70/2])cylinder(d=95, h=70/2);
+		}
+		cylinder(d=10, id=bd/2);
+		cylinder(d=8, h=bd/2+4);
+	}
+	difference() {
+		union() {
+			cylinder(d=100, h=1+8);
+		}
+		translate([0,0,1+8-8])metric_thread(diameter=95,length=8.01, internal=true);
+
+		cylinder(d=92, h=1+6);
+	}
+	
+}
+
+module middle_bottom(bd) {
+	difference() {
+		color($incolor ? "yellow" : undef) cylinder(d=95, h=4);
+		translate([0,0,4]) color($incolor ? "red" : undef) ring(d=5, id=bd+5);
+	}
+	translate([0,0,4]) {
+		underball();
+		cylinder(d=10, id=bd/2);
+		cylinder(d=8, h=20);
+	}
+	difference() {
+		union() {
+			cylinder(d=100, h=1+8);
+		}
+		translate([0,0,1+8-8])metric_thread(diameter=95,length=8.01, internal=true);
+
+		cylinder(d=92, h=1+6);
+	}
+	
+}
+// 20 + bd/2+4
+module middle(bd, bh=20) {
+	tot = bd/2 + bh;
+	th = 2*8;
+	midl=tot-th;
+	difference() {
+		union() {
+			translate([0,0,8])cylinder(d=100, h=midl);
+			metric_thread(diameter=95,length=8.01);
+			translate([0,0,8+midl]) metric_thread(diameter=95,length=8.01);
+
+		}
+
+		translate([0,0,-.01]) cylinder(d=92, h=tot+1);
+	}
+}
+
+translate([100,100]) top(bd=BallD);
+middle(bd=BallD);
+translate([0,100]) middle_bottom(bd = BallD);
+translate([100,0]) middle_top(bd = BallD);