use <threads.scad>
$fn=180;

// Adapter für Staubsaugerdüse:

intersection() {
  difference() {
    union(){
      cylinder(d1=31, d2=29, h=30);
    }
    translate([0,0,-0.001]) union(){
      stg=1.5; // Steigung
      dia=24.5; // Innengewinde Kerndurchmesser
      //thr=dia+(stg*sqrt(3)*5/8); // Innengewinde Außendurchmesser
      thr=25;
      echo(thr);
      // h=a*sqrt(3)/2 gleichseitiges Dreieck (https://de.wikipedia.org/wiki/Gleichseitiges_Dreieck)
      // h*5/8 metrisches ISO Gewinde 60° (https://de.wikipedia.org/wiki/Metrisches_ISO-Gewinde)
      metric_thread (diameter=thr+0.1, pitch=stg, length=9, internal=true, test=false);
      translate([0,0,-0.001]) cylinder(d=dia, h=35);
      cylinder(d=thr, h=1);
    }
  }
  // Für Test, ob Gewinde passt, kurz abschneiden:
  translate([0,0,-0.001]) cylinder(d=40, h=8);
}