use <threads.scad>

$fn=180;

debug=false;

// Zollgewinde 3/4"
// Außen 26,441
// Innen 24,117
// TPI 14
// Steigung 1,814
ZOLL=25.4;

intersection() {
  difference() {
    // Aussenform
    union() {
      cylinder(d=30, h=13); // 3/4" IG
      translate([0,0,13]) cylinder(d1=30, d2=23, h=7);
      for(i=[0:360/30:359]) rotate([0,0,i]) translate([15,0,0]) union() { 
        cylinder(d=2, h=12);
        translate([0,0,12]) sphere(d=2);
      }
    }

    // Innenbohrung
    union() {
      metric_thread (diameter=26.44, pitch=ZOLL/14, length=7, internal=true, test=debug); // 3/4" IG
      translate([0,0,7]) cylinder(d=26.44, h=4); // Innenbohrung
      cylinder(d=19.55, h=30); // Einsatz für Perlator
    }
  }
  //cube(100);
}