use <./common/common.scad>;
use <./common/threads.scad>;
include <./common/string.scad>;

FilmThickness = 4.11; //mil
FilmThicknessMM = FilmThickness * 0.0254;

CoreD = 2 * 25.4;

Core16mm = 25.5;
Socket16mmH = 11;
PlatterThickness = 1.6;
//Platter120m = 178;
Thread16mmD = 17.5;
Pitch16mm = 1.525;

SocketSuper8H = 4;
ThreadSuper8D = 21;

Title = "";

module rotary_text (Text = "Test", D = 40, CharacterAngle = 15) {
    TextArr = split(Text, "");
    Radius = R(D);
    Chars = len(TextArr);
    for (i = [0:1:Chars]) {
        rotate([0, 0, -i * CharacterAngle]) translate([0, Radius, 0]) {
            scale([0.5, 0.5, 1]) linear_extrude(height = 1) {
                text(TextArr[i], halign = "center");
            }
        }
    }
}

module length_text (Gauge = "16mm", Length = 120, Footage = 400, PlatterD = 178) {
    Text = join(concat(Gauge, " ", str(Length), "m/", str(Footage), "ft"));
    CharacterAngle = Length == 120 ? 3.75 : Length == 60 ? 4.5 : Length == 30 ? 6.25 : 3.75;  
    rotary_text( Text,  D = PlatterD - 15, CharacterAngle);
}

module thread_16mm ( pos = [0, 0, 0], Length = 11, chamfer = false, pad = 0) {
    translate(pos) {
        if (chamfer) {
            metric_thread (diameter=Thread16mmD + pad, pitch=Pitch16mm, length=Length, internal=false, n_starts=1, thread_size=-1, groove=false, square=false, rectangle=0, angle=30, taper=0, leadin=2, leadfac=1.5);
        } else {
            metric_thread (diameter=Thread16mmD + pad, pitch=Pitch16mm, length=Length, internal=false, n_starts=1, thread_size=-1, groove=false, square=false, rectangle=0, angle=30, taper=0, leadin=0, leadfac=1.5);
        }
    }
}

module thread_8mm ( pos = [0, 0, 0], Length = 6, chamfer = false, pad = 0) {
    translate(pos) {
        if (chamfer) {
            metric_thread (diameter=ThreadSuper8D + pad, pitch=Pitch16mm, length=Length, internal=false, n_starts=1, thread_size=-1, groove=false, square=false, rectangle=0, angle=30, taper=0, leadin=2, leadfac=1.5);
        } else {
            metric_thread (diameter=ThreadSuper8D + pad, pitch=Pitch16mm, length=Length, internal=false, n_starts=1, thread_size=-1, groove=false, square=false, rectangle=0, angle=30, taper=0, leadin=0, leadfac=1.5);
        }
    }
}

module threaded_core (pos = [0, 0, 0], Gauge = "16mm") {
    $fn = 120;
    translate (pos) {
        if (Gauge == "16mm") {
            union () {
                cylinder(r = R(Core16mm), h = 6, center = true);
                thread_16mm([0, 0, 1.5], Length = Socket16mmH + 3, chamfer = true, pad = -0.2);
            }  
        } else if (Gauge == "8mm") {
            union () {
                cylinder(r = R(Core16mm), h = 4, center = true);
                thread_8mm([0, 0, 0], Length = SocketSuper8H + 3, chamfer = true, pad = -0.2);
            }  
        }
    }
}

module socket_core (pos = [0, 0, 0], Gauge = "16mm") {
    $fn = 120;
    translate (pos) {
        if (Gauge == "16mm") {
            difference () {
                cylinder(r = R(Core16mm), h = Socket16mmH, center = true);
            }
        } else if (Gauge == "8mm") {
            difference () {
                cylinder(r = R(Core16mm), h = SocketSuper8H, center = true);
            }
        }
    }
}

module platter (pos = [0, 0, 0], PlatterD = 178) {
    VoidD = (PlatterD - CoreD) / 3;
    VoidX = floor(((PlatterD - CoreD) * 0.43) + CoreD);
    echo(VoidD);
    difference () {
        cylinder(r = R(PlatterD), h = PlatterThickness, center = true, $fn = 300);
        if (VoidD > 22) {
            for (i = [0 : 3]) {
                rotate([0, 0, i * 90]) translate([VoidX / 2, 0, 0]) cylinder(r = R(VoidD), h = PlatterThickness + 1, center = true, $fn = 100);
            }
        }
    }
}

module split_reel_16mm_A (Length = 120, Footage = 400, PlatterD = 178) {
    difference () {
        union () {
            difference () {
                platter(pos = [0, 0, 0], PlatterD = PlatterD);
                translate([0, 0, -0.5]) rotate([180, 0, 0]) rotate([0, 0, (5 * 3.75) / 2]) length_text("16mm", Length, Footage, PlatterD);
            }
            threaded_core([0, 0, (PlatterThickness / 2) + (6 / 2)], Gauge = "16mm");
            rotate([0, 0, 135]) translate([18.5, 0, (PlatterThickness / 2) + (4.75 / 2)]) cylinder(r = R(6.25), h = 4.75, center = true, $fn = 60);
            
        }
        cube([8.5, 8.5, 50], center = true);
        rotate([0, 0, 45]) translate([5.5, 0, 0]) cube([3, 3, 50], center = true);
    }
}

module split_reel_16mm_B ( Length = 120, Footage = 400, PlatterD = 178) {
    difference () {
        union () {
            platter([0, 0, 0], PlatterD = PlatterD);
            socket_core([0, 0, (PlatterThickness / 2) + (Socket16mmH / 2)], Gauge = "16mm");
        }
        rotate([180, 0, 0]) scale([1.02, 1.02, 1]) {
            thread_16mm([0, 0, -13], 15);
            thread_16mm([0, 0, -13.1], 15);
        }
    }
}

module split_reel_8mm_A ( Length = 120, Footage = 400, PlatterD = 178) { 
    BaseH = 4;
    NotchH = 2;
    NotchW = 21;
    
    difference () {
        union () {
            difference () {
                platter([0, 0, 0], PlatterD = PlatterD);
                translate([0, 0, -0.5]) rotate([180, 0, 0]) rotate([0, 0, (5 * 3.75) / 2]) length_text("8mm", Length, Footage, PlatterD);
            }
            threaded_core([0, 0, (PlatterThickness / 2) + (BaseH / 2)], Gauge = "8mm");
            rotate([0, 0, 135]) translate([18.5, 0, (PlatterThickness / 2) + (NotchH / 2)]) cylinder(r = R(6.25), h = NotchH, center = true, $fn = 60);
        }
        cylinder(r = R(13), h = 50, center = true, $fn = 80);
        for (i = [0 : 2]) {
            rotate([0, 0, i * (360 / 3)]) translate([NotchW / 4, 0, 0]) cube([NotchW / 2, 2.25, 8], center = true);
        }
    }
}

module split_reel_8mm_B ( Length = 120, Footage = 400, PlatterD = 178) {
    difference () {
        union () {
            platter([0, 0, 0], PlatterD = PlatterD);
            socket_core([0, 0, (PlatterThickness / 2) + (SocketSuper8H / 2)], Gauge = "8mm");
        }

        rotate([180, 0, 0]) scale([1.02, 1.02, 1]) {
            thread_8mm([0, 0, -13], 15);
            thread_8mm([0, 0, -13.1], 15);
        }
    }
}

//Length in meters
module split_reel (Gauge = "16mm", Length = 120, Side = "A") {
    PlatterD = ceil((2 * sqrt(((Length * 1000) * FilmThicknessMM) / PI)) + (CoreD));
    echo("PlatterD", PlatterD);
    Footage = Length == 120 ? 400 : Length == 60 ? 200 : Length == 30 ? 100 : round((Length * 1000) / (12 * 25.4));

    if (Gauge == "16mm") {
        if (Side == "A") {
            split_reel_16mm_A(Length = Length, Footage = Footage, PlatterD = PlatterD);
        } else if (Side == "B") {
            split_reel_16mm_B(Length = Length, Footage = Footage, PlatterD = PlatterD);
        }
    } else if (Gauge == "8mm") {
        if (Side == "A") {
            split_reel_8mm_A(Length = Length, Footage = Footage, PlatterD = PlatterD);
        } else if (Side == "B") {
            split_reel_8mm_B(Length = Length, Footage = Footage, PlatterD = PlatterD);
        }
    } else {
        echo("Unrecognized Gauge:", Gauge);
    }
}

module buildPyramidalExtrude(height, maxOffset, nSlices){
    heightIncrement = height / nSlices;
    offsetIncrement = maxOffset / (nSlices-1);
    for (i = [1 : nSlices]) {
        linear_extrude(height=i * heightIncrement) {
            offset(r = maxOffset - (i - 1) * offsetIncrement) {
                children();
            }
        }
    }
}

module logo_test () {
    difference () {
        split_reel("16mm", 120, "B");
        translate([-45, -48, -0.65]) scale([0.25, 0.25, 1]) { 
            rotate([180, 0, 0]) buildPyramidalExtrude(.5, .25, 20) {
                import(file = "svg/logo.svg", center = true);
            }
        }
    }
}

PART = "16mm_120m_A";

if (PART == "16mm_120m_A") {
    split_reel("16mm", 120, "A");
} else if (PART == "16mm_120m_B") {
    split_reel("16mm", 120, "B");
} else if (PART == "8mm_120m_A") {
    split_reel("8mm", 120, "A");
} else if (PART == "8mm_120m_B") {
    split_reel("8mm", 120, "B");
} else if (PART == "16mm_60m_A") {
    split_reel("16mm", 60, "A");
} else if (PART == "16mm_60m_B") {
    split_reel("16mm", 60, "B");
} else if (PART == "8mm_60m_A") {
    split_reel("8mm", 60, "A");
} else if (PART == "8mm_120m_B") {
    split_reel("8mm", 60, "B");
} else if (PART == "16mm_30m_A") {
    split_reel("16mm", 30, "A");
} else if (PART == "16mm_30m_B") {
    split_reel("16mm", 30, "B");
} else if (PART == "8mm_30m_A") {
    split_reel("8mm", 30, "A");
} else if (PART == "8mm_30m_B") {
    split_reel("8mm", 30, "B");
}