//Hilfe gibt es hier:
//https://github.com/revarbat/BOSL2/wiki/metric_screws.scad


include <bosl2/std.scad>;
include <bosl2/screws.scad>;
include <bosl2/threading.scad>;
$fn=100;

a=38;
aX=30;
aY=0;
aZ=15;
l=40;

////This is the main and most important part//
difference()
{
adapter();

yrot(-a)
translate([-aX,-aY,aZ])
translate([0,0,-18])
cylinder(55,d=38.8);

yrot(a)
translate([aX,aY,aZ])
translate([0,0,-18])
cylinder(55,d=38.8);

translate([0,0,-85])
color("red") cylinder(25,d=66.2);

translate([00,00,-37.5])
sphere(40);
}
//end of main


//these are the two adapters from main to the machine
$slop=0.15;


translate([-70,70,0])
union()
{
translate([0,0,20])
pipe();
tube(h=15, id1=42.2, id2=44,wall=2.5);
translate([0,0,-15])
tube(h=15, id=42.2, wall=2.5);
}

translate([80,-80,0])
union()
{
translate([0,0,20])
pipe();
tube(h=15, id1=65, id2=42.2,wall=2.5);
translate([0,0,-15])
tube(h=15, id=65, wall=2.5);
}

//end adapters


module adapter()
{
yrot(-a) translate([-aX,-aY,aZ])
pipe();

yrot(a) translate([aX,-aY,aZ])
pipe();

translate([00,00,-40])
sphere(45);


translate([00,00,-80])
tube(h=30,id=66.2,wall=2.5);
};


module pipe()
{
translate([0,0,6])
tube(h=l, id=44, wall=2.5);    

translate([0,0,16])
thread_helix(d=39.2, pitch=4.425, left_handed=true, thread_depth=2.4, flank_angle=-15, turns=2.5,  $fn=72);
}
//generic_threaded_nut(d = 20, l = 50, pitch = 2.5, anchor=BOT, bevel = true, $fn = 64);
//z.B. ein Glühbirnengewinde