// Drahtspule für 0,14mm² u.ä.
d_spule = 89.5;
d_kern_innen = 30.5;
wandstaerke = 1.5;
wandstaerke_kern = 4;
klebenaht = 2;
h_spule = 11.5;
n_kreissegmente = 120;
steckpassung = 0.2;
d_draht = 1.5;

// unterteil
difference(){
    union(){
        cylinder( h = wandstaerke
                , d = d_spule
                , $fn = n_kreissegmente);

        translate([0,0,wandstaerke])
        cylinder( h = h_spule
                , d = d_kern_innen + wandstaerke_kern
                , $fn = n_kreissegmente);

        translate([0,0,h_spule+wandstaerke])
        cylinder( h = wandstaerke
            , d = d_kern_innen+(wandstaerke_kern-klebenaht)
            , $fn = n_kreissegmente);  
    }

translate([0,0,-0.01])
    cylinder( h = 2*wandstaerke+h_spule+0.02
            , d = d_kern_innen
            , $fn = n_kreissegmente);    
}

// oberteil
translate([d_spule+5,0,0])
difference(){
    d_oberteil_loch = d_kern_innen+(wandstaerke_kern-klebenaht)+steckpassung;
        cylinder( h = wandstaerke
            , d = d_spule
            , $fn = n_kreissegmente);
    translate([0,0,-0.01])
    cylinder( h = wandstaerke+0.02
            , d = d_oberteil_loch
            , $fn = n_kreissegmente);  
   // Loch für Drahtdurchführung 
   translate([0,wandstaerke_kern*0.5+d_oberteil_loch*0.5+d_draht*0.45,-0.01])
    cylinder( h= wandstaerke+0.02
    , d=d_draht
    , $fn = 36);
}