// PRUSA iteration4
// nozzle-fan
// GNU GPL v3
// Josef Průša <iam@josefprusa.cz> and contributors
// http://www.reprap.org/wiki/Prusa_Mendel
// http://prusamendel.org

module fan()
{
    cube([19.5, 15, 50]);
    translate([0, 9.5, 0]) cube([19.5, 5.5, 50]);
    translate([0, 0, 0]) cube([19.5, 6, 50]);
    translate([-1.50, 6, 0]) cube([1.5, 3, 50]);
    translate([9, -5, 40]) cube([1, 5.5, 10]);
}

module inner_half()
{
    difference()
    {
        union()
        {
            // outlets
            difference()
            {
                union()
                {
                    translate([-8, 12, -63]) rotate([25, 0, 0]) cube([18, 30, 6]);
                    translate([-6, 10.2, -60]) rotate([25, 0, 60]) cube([9, 20, 4]);
                }
                translate([-28, 0, -55]) rotate([0, 0, 70]) cube([65, 20, 15]);
            }

            // inner body
            difference()
            {
                // base shape
                translate([-25, 14, -52]) rotate([0, 0, 0]) cube([25, 37, 7]);
                translate([-14, 2, -55]) rotate([0, 0, 60]) cube([10, 20, 15]);

                translate([-28, 0, -55]) rotate([0, 0, 70]) cube([65, 20, 15]);
                difference()
                {
                    // heatblock cut
                    translate([-13, 10, -55]) rotate([0, 0, 0]) cube([20, 20, 15]);
                    translate([-16, 21.7, -55]) rotate([0, 0, 45]) cube([20, 20, 15]);
                }

                // front shape
                translate([-8, 15, -55]) rotate([25, 0, 0]) cube([16, 30, 6]);
                translate([-25, 0, -55]) rotate([25, 0, 0]) cube([16, 30, 6]);
                translate([-15, 51, -58]) rotate([45, 0, 0]) cube([16, 30, 6]);
            }
        }

        difference()
        {
            translate([-16.8, 19.5, -55]) cylinder(r = 6, h = 12, $fn = 30);
            translate([-16.8, 19.5, -55]) cylinder(r = 4, h = 30, $fn = 30);
            translate([-25, 21, -58]) cube([20, 20, 16]);
            translate([-18, 11, -58]) cube([20, 220, 16]);
        }

        translate([-6, 9, -56]) rotate([25, -15, 60]) cube([20, 25, 5]);
        translate([-20, 50, -54]) rotate([50, 0, 0]) cube([21, 10, 20]);
        translate([-14, 2, -48]) rotate([0, 50, 60]) cube([10, 25, 18]);
        translate([-12, 3.4, -60]) rotate([25, 0, 60]) cube([9, 20, 7]);
    }
}


module inner()
{
    difference()
    {
        union()
        {
            inner_half();
            mirror([1, 0, 0]) inner_half();

            // fan cut
            translate([9.8, 48, -53]) rotate([40, 0, 180]) fan();
            difference()
            {
                translate([-9.7, 41.65, -60.7]) rotate([50, 0, 0]) cube([9.75 * 2, 20, 15]);
                translate([-10, 32, -67]) rotate([0, 0, 0]) cube([20, 20, 15]);
            }
        }
        translate([-20, 44, -57]) cube([40, 10, 5]);
    }
}

module outer_half()
{
    difference()
    {
        union()
        {
            translate([-25, 13, -53]) rotate([0, 0, 0]) cube([25, 39, 9]);
            translate([-18, 45, -55]) rotate([50, 0, 0]) cube([18, 10, 15]);
        }

        // front shape
        translate([-14, 0, -55]) rotate([0, 0, 60]) cube([10, 20, 15]);

        // sides
        translate([-30, 0, -55]) rotate([0, 0, 70]) cube([65, 20, 15]);
        difference()
        {
            translate([-12, 9, -55]) rotate([0, 0, 0]) cube([20, 20, 15]);
            translate([-16, 20.7, -55]) rotate([0, 0, 45]) cube([20, 20, 15]);
        }

        translate([-25, -2, -55]) rotate([25, 0, 0]) cube([16, 30, 6]);
        translate([-15, 54, -58]) rotate([60, 0, 0]) cube([16, 30, 6]);
        translate([-6, 8, -54]) rotate([25, -15, 60]) cube([20, 25, 5]);

        translate([-20, 51, -52]) rotate([50, 0, 0]) cube([21, 10, 20]);
        translate([-20, 40, -63]) cube([21, 10, 10]);
    }
}

module outer()
{
    outer_half();
    mirror([1, 0, 0]) outer_half();
    translate([-11.2, 50.5, -52]) rotate([50, 0, 0]) cube([22.5, 2, 1.3]);
    translate([9.5, 50.5, -52]) rotate([50, 0, 0]) cube([1.8, 2, 17.3]);
    translate([-11.5, 37.7, -42]) rotate([50, 0, 0]) cube([23, 2.6, 1.05]);
}

module nozzle_fan()
{
    difference()
    {
        union()
        {
            outer();
            translate([10.5, 35, -53]) cube([8, 5, 17]);
        }
        inner();
        translate([14.5, 46, -40.5]) rotate([90, 0, 0]) cylinder(r = 3, h = 8, $fn = 30);
        translate([14.5, 45, -40.5]) rotate([90, 0, 0]) cylinder(r = 1.6, h = 30, $fn = 30);

        translate([-25, 30, -44]) cube([50, 5, 17]);
    }

    // center fin
    difference()
    {
        translate([-0.3, 29, -53]) cube([0.6, 20, 11]);
        translate([-2.5, 35.5, -41]) rotate([-45, 0, 0]) cube([5, 20, 9]);
        translate([-2.5, 26, -44]) cube([5, 10, 9]);
        translate([-2.5, 26.5, -43]) cube([5, 10, 9]);
    }

    // right fin
    difference()
    {
        translate([-8, 29, -53]) cube([0.6, 20, 11]);
        translate([-9, 31, -42]) rotate([-45, 0, 0]) cube([5, 20, 14]);
        translate([-9, 26, -44]) cube([5, 10, 9]);
        translate([-9, 26.5, -43]) cube([5, 10, 9]);
    }

    // left fin
    difference()
    {
        translate([7.4, 29, -53]) cube([0.6, 20, 11]);
        translate([7, 31, -42]) rotate([-45, 0, 0]) cube([5, 20, 14]);
        translate([7, 26, -44]) cube([5, 10, 9]);
        translate([7, 26.5, -43]) cube([5, 10, 9]);
    }

    // front sides
    translate([-13, 13, -53]) cube([1, 12, 3]);
    translate([12, 13, -53]) cube([1, 12, 2]);
    translate([-13, 17, -52]) cube([1, 8, 3]);
    translate([12, 17, -52]) cube([1, 8, 3]);
}

nozzle_fan();