$fn=120;
use <./ht-rohr.scad>;

intersection() {
  difference() {
    cylinder(d=135, h=90);
    cylinder(d=125, h=90); // DN125!!
    translate([40,0,40]) rotate([80,0,17.5]) cylinder(d=50, h=80);
    for(r=[-85:(85+35)/3:35]) rotate([0,0,r]) union() {
      translate([0,0,10]) rotate([0,90,0]) cylinder(d=6, h=100);
      translate([0,0,80]) rotate([0,90,0]) cylinder(d=6, h=100);
    }
    translate([0,0,45]) rotate([0,90,-85]) cylinder(d=6, h=100);
    translate([0,0,45]) rotate([0,90,35]) cylinder(d=6, h=100);
  }
  for(r=[-90:360/$fn:45]) rotate([0,0,r]) hull() {
    rotate([0,0,-360/$fn]) cube([100,0.001,100]);
    rotate([0,0,+360/$fn]) cube([100,0.001,100]);
  }
}
translate([40,0,40]) rotate([80,0,17.5]) HT_Pipe(DN=50, length=100);