// --- ASETUKSET ---
D1 = 25;       // Putken SISÄhalkaisija (mm)
W  = 2.0;      // Seinämän paksuus (mm)
R_bend = 30;   // Mutkan säde (kuinka jyrkkä käännös on)
$fn = 100;     // Tarkkuus (100 = sileä, 45 = kulmikas)

// --- PITUUDET (Yhteensä 152 mm) ---
// Laskelma: Mutkan keskilinjan pituus on noin 47 mm.
// Jäljelle jää 105 mm suoraa putkea.
L1 = 52.5;     // Ensimmäinen suora pätkä
L2 = 52.5;     // Toinen suora pätkä (mutkan jälkeen)

// --- MALLIN RAKENNUS ---
module tube_shape(diameter) {
    // 1. Pystyputki
    cylinder(d=diameter, h=L1);
    
    // 2. Mutka (Torus-pala)
    translate([R_bend, 0, L1]) 
    rotate([90, 0, 0])
    rotate([0, 0, 180]) // Käännetään mutka oikeaan suuntaan
    rotate_extrude(angle=90) 
    translate([R_bend, 0]) 
    circle(d=diameter);
    
    // 3. Vaakaputki
    translate([R_bend, 0, L1]) 
    rotate([0, 90, 0]) 
    translate([R_bend, 0, 0]) // Siirretään mutkan jatkoksi
    cylinder(d=diameter, h=L2);
}

// Tehdään putki ja porataan se ontoksi
difference() {
    // Ulkokuori
    tube_shape(D1 + W*2);
    
    // Sisäreikä (hieman pidempi, jotta päät aukeavat varmasti)
    translate([0,0,-1]) 
        tube_shape(D1);
        
    // Siistiminen: Leikataan varmuuden vuoksi vaakaputken pää auki
    // (Joskus renderöinti jättää sinne kalvon)
    translate([R_bend + L2 + R_bend, 0, L1]) 
        cube([10, D1, D1], center=true);
}