use <threads.scad>

$fn=90;

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); // Konus Reduzierung
      for(i=[0:360/45:359]) rotate([0,0,i]) translate([15,0,0]) union() { 
        translate([0,0,1]) sphere(d=2);
        translate([0,0,1]) cylinder(d=2, h=11);
        translate([0,0,12]) sphere(d=2);
      }
    }

    // Innenbohrung
    #union() {
      metric_thread (diameter=26.5, 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
    }
  }
  if (debug) cube(100);
}