---------------------------------------------------
$fn=100;

height=150;
interHeightDifference=50;
size=70;
wall=2;
cutsize=15;
interwallplace=30;
ductHeight=10;
ductLength=15;
module outerCylinder(){cylinder(h=height,r=size);}
module main(){difference(){outerCylinder();translate([0,0,wall]){cylinder(h=height,r=size-wall);}}}
module duct(){rotate([0,90,0]){difference(){cylinder(h=ductLength,r=3);cylinder(h=ductLength,r=2);}}}
module ductnohole(){rotate([0,90,0]){cylinder(h=ductLength,r=3);}}
module wall1(){translate([size-cutsize-wall,-size,0]){cube([cutsize+wall,size*2,height]);}}
module interwall(){translate([size-interwallplace,-size,0]){cube([wall,size*2,height-interHeightDifference]);}}
module wall2(){translate([size-cutsize,-size,0]){cube([cutsize,size*2,height]);}}
module final(){difference(){intersection(){outerCylinder();wall1();}wall2();}}
module body(){
// put final cylinder
difference(){main();wall1();}
// put main board with deleting duct hole
difference(){final();translate([size-cutsize-wall,0,ductHeight]){ductnohole();}}
// put duct
translate([size-cutsize-wall,0,ductHeight]){duct();}
// put interwall 
intersection(){outerCylinder();interwall();}
}
hutaHeight=100;
hutaBorder=30;
hutaMin=20;
module huta(){
translate([0,0,200+hutaHeight-wall]){
difference(){
intersection(){
    difference(){outerCylinder();wall1();}
    translate([-size,-size,0]){cube([size*2,size*2,wall]);}
}
translate([0,0,-hutaHeight+wall]){cylinder(h=hutaHeight,r1=hutaMin,r2=size-hutaBorder);}
}}

translate([0,0,200]){
difference(){
cylinder(h=hutaHeight,r1=hutaMin,r2=size-hutaBorder);
cylinder(h=hutaHeight,r1=hutaMin-wall,r2=size-hutaBorder-wall);
}
}
translate([size-hutaBorder-4,0,200+hutaHeight-5]){
difference(){cylinder(h=5,r=8);cylinder(h=5,r=5);}}
}

body();
huta();
---------------------------------------------------