include <BOSL2/std.scad>;
include <BOSL2/beziers.scad>;
include <BOSL2/rounding.scad>;
include <BOSL2/skin.scad>;
include <BOSL2/threading.scad>;

include <DotScad/src/bend.scad>;
include <DotScad/src/bend_extrude.scad>;
//include <DotScad/src/bezier_curve>;
include <DotScad/src/ellipse_extrude.scad>;
include <DotScad/src/loft.scad>;

include <scad-utils/morphology.scad>;
include <common.scad>;

include <./lib/chinook.scad> // US Box
include <./lib/finbox_us.scad> // US Box


// https://github.com/BelfrySCAD/BOSL2/wiki/Tutorial-Beziers_for_Beginners
// ideas  offset_stroke 

/**
 * Kitesurf Fins mold
 *
 *
 *
 * Requirements : 
 * - The plunger normaly should be twice the height of the part 
 *
 */

/************************************************/
/*  Parameters                                  */
/************************************************/

/* [Fin Specs] */

// Height
fin_height       = 254;      // 10 inches in mm
// Top Width
fin_width        = 270;     // Width at the top in mm
// Base Width
fin_base         = 130;     // Width at the base in mm


// Define top point
fin_top_withdraw    = 35;      
fin_edge_withdraw   = 20;

fin_start_angle  = 70; // Angle [Point 0 ]
fin_sweep        = 25; // Sweep Angle [Point 1] 

fin_edge_angle  = 30;
fin_edge_strength  = 30;

fin_counter_angle = 30;     // counter angle [Point 2] 
fin_counter_strength = 10;  // Length [Point 2] 

// Length at the base in mm



fin_width_tip   = 5; // Width at the tip in mm
fin_thickness   = 9; // Thickness of the fin in mm

fin_end_angle   = 110;
fin_end_strength   = 30;

// Back
fin_back_height = 30; // Percent height
fin_back_widthdraw = 20; // Percent height
fin_back_angle = 20; // back angle
fin_back_strength=30;

/* [Base Specs] */

base_tickness=8; 
base_extra_thickness=20;


// ---------------------*/
/*        [Mold]        */
// ---------------------*/

// Mold base height
mold_base_height        = 10;
mold_top_height         = 5;
mold_extra_width        = 15;

mold_piston_height      = 10;

resin_escape_diameter   = 4; 

// Diameter for screw holes in mm
merge_holes_diameter = 6;
piston_depth = 5;

skirt_angle=80;

// ---------------------*/
/*        [US Box]        */
// ---------------------*/
/* [US Box] */
// Dimensions in mm
//length = 180;
//length=fin_base;

box_thickness = 9.6;
height = 25;
thick  = 9.2;
mirror_vec = [1,1,0];

//screw_pos = 0.0096*1000;
screw_pos = 9.6;
//screw_dia = 0.0045*1000;
screw_dia = 4.5;

//tab_height = 0.013*1000;
tab_height = 13;
tab_length = screw_pos * 2;
tab_round  = tab_height;

// real pin: d=0.0048 -> drill to fit
//pin_dia   = 0.003*1000;
pin_dia   = 3;
//pin_depth = 0.0164*1000;
pin_depth = 16.4;
//pin_back  = 0.009*1000;
pin_back  = 9;

// Thickness to cut for easier sliding (0 for no cut)
//thick_cut = 0.001*1000;
thick_cut = 1;

// ---------------------*/
/*     [Debugging]      */
// ---------------------*/

// Showing all layers
show_debug_layers = false;

show_curve_points = false;

// Draw master profile
draw_profile = false;

// ---------------------*/
/*        [Rendering]   */
// ---------------------*/

// Rendering parts
build_fin       = false;
build_box       = false;
build_mold     = true;

parts           = "all";      // [all, top, bottom]


mold_part       = "all";   // [all, top, bottom]
// Scaling
scale_factor    = 1.0; // [0.1:0.1:2] 

// Printable rendering
printable       = true;

$fn=64;

/*************/
/* Constants */
/*************/
/* [Hidden] */ 
// Define the offset value as a constant
OFFSET = 0.01;
CLEARING = 0.1;
INCH=2.54;
X=0;
Y=1;
Z=2;

/************************************************/
/* Derived variable */

mold_width  = fin_height +2 * mold_extra_width;
mold_length = fin_width  +2 * mold_extra_width;
mold_height = mold_base_height;

drilling_length = mold_base_height+mold_piston_height+2*OFFSET;

start               = [ 0                ,0                              ];
top_point           = [ fin_width-fin_top_withdraw,fin_height            ];
edge_point          = [ fin_width        ,fin_height-fin_edge_withdraw   ];
counter_edge_point  = [ fin_width -70    ,fin_height-100                 ];
tail_point          = [ fin_width -95    ,fin_height-175                 ];
end_point           = [ fin_base         ,0                              ];



/******************/
/* Profile points */
/******************/
points = flatten([
    // *****************
    //   INITIAL POINT
    // *****************    
    bez_begin(start,70,80),
    // *****************
    //   TOP POINT
    // *****************    
    bez_tang(top_point,0,80,15),
    // *****************
    //   EDGE POINT
    // *****************    
    bez_tang(edge_point,-90,15),
    // **********************
    //   COUNTER EDGE POINT
    // **********************
    bez_tang(counter_edge_point,-120,30),
    // *****************
    //   TAIL Point
    // ***************** 
    bez_tang(tail_point,-120,40),
    // *****************
    //   END POINT                                                               
    // *****************   
    bez_end(end_point,75,40),    
]);

profile_curve_with_base  = translate_path( addBase(asCurve(points,32)),-fin_base/2,0 );
profile  = translate_path( asCurve(points,32),-fin_base/2,0 );

//profile_curve_with_base  = translate_path( asCurve(points,32),-fin_base/2,0 );
//profile_curve_with_base  = resample_path(translate_path( asCurve(points,32),-fin_base/2,0 ),64);

assert(is_path_simple(profile_curve_with_base));


if (show_curve_points)
    color("Blue")move_copies(profile_curve_with_base) circle($fn=16);


// Draw fin profile
if (draw_profile) {
    //left(425) drawProfile( points, true  );
    
    
    layer0 = expandPath(profile_curve_with_base,-2);
    layer1 = expandPath(profile_curve_with_base,-8);
    layer2 = expandPath(profile_curve_with_base,-15);
    layer3 = expandPath(profile_curve_with_base,-30);
    layer4 = expandPath(profile_curve_with_base,-40);
    
    back(10) showDebugPath(layer0);
    
    
    left(500) {
        color("Red") polygon(profile_curve_with_base);
        up(10) polygon(layer0);
        up(20) color("Yellow") polygon(layer1);
        up(30) color("Brown") polygon(layer2);
    }
    
    layers = [profile_curve_with_base,layer0,layer1,layer2,layer3,layer4];
    
    left (800) color ("Green") polygon(profile_curve_with_base);
    
       left (1000) color ("Green") shell(10) polygon(profile_curve_with_base);
}    



// *****************
// *  Fin Drawing  *
// *****************
if ( build_fin ) 
    scale([scale_factor, scale_factor, scale_factor]) 
        buildFin( fin_thickness );

if ( build_box ) {
      buildBox();
} 
        
/**
 * Render Mold
 */
if ( build_mold )              buildMold();    


module buildCompletFin() {
    difference(){
        buildFin( fin_thickness );
        //buildBox();
        // Remove extra base
        baseMask();
    }
}


module buildBox() {
    /*
    left(80) {
        xflip() {     
            finfit(fin_base+20, [1,1,0],false,false);
        }        
    
        //up(20) tab_cut();
    }
    */
        
}
module buildBoxMold() {

    // To be defined
}

module baseMask() {
    fwd(OFFSET) cube([fin_base*1.1,base_extra_thickness*1.1,fin_thickness*1.1],anchor=BACK);
}



module usBoxMask() {
    left(80) color("Blue") usBox(fin_base+30,thickness = box_thickness+2*OFFSET,drill=false);
}



/*
module bottomSupport() {
    moldHeight = 10;
    moldContour =  expandPath(profile,mold_extra_width);
    down(moldHeight) 
        linear_extrude (moldHeight) polygon(moldContour);  // bottom support
}
*/

module support( part ) {
    moldHeight = 10;
    moldContour =  expandPath(profile,mold_extra_width);
    down( (part == "bottom" ? 1 : 0) * moldHeight) 
        linear_extrude (moldHeight) polygon(moldContour);  // bottom support
}

/**
 * Build mold
 * 
 */
module buildMold() {
    // Bottom Mold
    if (mold_part != "top") {
        // Fin mold
        difference() {
            support(part="bottom");
            usBoxMask();
            buildCompletFin();
        }
        // Box mold
        difference() {
            left(80)  finBoxMold( fin_base+30,part="bottom",skirt=false );
            // Remove fin
            buildCompletFin(); 
        }
        // Mold skirt
        moldSkirt( part="bottom" );
    }
    // Top
    if (mold_part != "bottom") up(80) {
        difference(){
            support(part="top");
            usBoxMask();
            buildCompletFin();
            
        }    
        // Box mold
        difference() {
            left(80)  finBoxMold( fin_base+30,part="top",skirt=false );
            // Remove fin
            //buildCompletFin(); 
        }
        // Mold skirt
        down( fin_thickness * 3 ) moldSkirt( part="top" );    
    }
    
    
    
    //up(50) buildCompletFin();
    
    //left(300) linear_extrude (skirtHeight) polygon(moldSkirtRegion);
    /*
    if (mold_part !=  "top") 
        difference() { 
            case(mold_base_height,true);
            // Piston
            down(piston_depth-OFFSET) fwd(20) bottomInsert(); 
        }
    // Top Mold
    if (mold_part !=  "bottom") 
        up(printable ? 0 : 60) fwd(printable ? fin_height+50 : 0) down(mold_base_height) mirror([0,0,printable ? 1 : 0 ])  {
            difference() {
                union() {
                    // case
                    case(mold_top_height,false); 
                    // Piston
                    mirror([1,0,0])        
                    down(mold_top_height+piston_depth-OFFSET) fwd(20) topPiston(); 
                };
                resin_escape(40);
            }
        }      
    */    
}

/**
 * Build the piston skirt 
 * 
 * @param part   -  Part could be 'top' or 'bottom'
 */
module moldSkirt( part ){
    assert( part , "'part' parameter should be defined in mold skirt");
    
    box_profile         = move([-80,0],profileUS (fin_base+30));
    finAndBoxProfile    = path_merge_collinear(union([box_profile,profile]));    
    
    //if (part == "bottom") {

    skirt( finAndBoxProfile, side = part ,moldThickness = 3 , angle = skirt_angle, moldDeep = fin_thickness );
    //} else if (part == "top") {
        
    
    //}
    
}

//moldSkirt(part="top");





module moldJunctionMask(moldThickness = 3,height,angle){

    deviation = opp_ang_to_adj (height,angle);
    right(moldThickness)
    left(moldThickness/2)
    down(OFFSET)
    //fwd(60)
    //back(moldThickness*2-0.5)
    back(moldThickness*1.2-OFFSET )
        color("Red") 
            prismoid(
                size1=[fin_width/2-1.5*moldThickness, moldThickness*3+2*OFFSET], 
                size2=[fin_width/2+1*deviation+0*moldThickness, /*moldThickness/2*/moldThickness * 3+deviation], 
                h=height+OFFSET*3 
            );
}

module buildMoldSkirt( height,offset,thickness ) {
    outside = expandPath(profile,offset);
    inside  = expandPath(profile,offset-thickness);
    down(height) {
        // Skirt
        linear_extrude (height-thick/2) difference() {
            polygon(outside);
            polygon(inside);
        };
        difference() {
        //union() {
            intersection() {
                ycopies(30,10,sp=[-100,0,0]) 
                    cube([fin_width*1.3,thickness,height]);
                linear_extrude (height) polygon(outside);
            };
            up(height) buildCompletFin();    
        }
        
        
    }
}


// *****************
// * Bottom insert *
// *****************
module bottomInsert() {
    debug=true;
    layer_profile       = profile_curve_with_base; 
    skin( [ layer_profile,expandPath(layer_profile,3) ], z=[0,piston_depth], slices=0 )
       up(OFFSET) 
        buildFinSide(true)
        ;
}

// *****************
// * Top piston    *
// *****************
module topPiston() {
    debug=true;
    layer_profile       = profile_curve_with_base; 
    difference() {
        skin( [ layer_profile,expandPath(layer_profile,3) ], z=[0,piston_depth], slices=0 );
        down(OFFSET)
        buildFinSide(false);
    }
}

/**
 * Build fin
 *
 */ 
module buildFin( thickness ) {
    union() {
        if (parts != "bottom") buildFinSide( thickness );
        if (parts != "top")    buildFinSide( thickness , true );
    }
}

/**
 * Build fin side
 * 
 * @param flip - Define it it is top or bottom fin side
 */
module buildFinSide(thickness,flip=false) {

    //profile_curve_with_base1 = subdivide_path (profile_curve_with_base,500);
    
    //if (false)
    mirror([0,0,flip ? 1 : 0])
        color(flip ? "Gray" : "LightGray")
        ellipse_extrude( thickness / 2 /*,height=2*/,center=false,twist=-7) 
            //zrot(30)
            polygon( profile_curve_with_base);
} 

module resin_escape(length) { 
    color ("Blue") cylinder(h=length, r=resin_escape_diameter/2);
}


function addBase(path) = concat(path,[[fin_base,-base_extra_thickness],[0,-base_extra_thickness]]);


/**
 * Draws a profile based on Bezier path points with optional debug visualization.
 * 
 * @param points - Array of points defining the Bezier path.
 * @param debug - Boolean flag to enable/disable debug visualization. Defaults to true.
 * 
 * This module:
 * - Calculates the closest point on the Bezier path to a fixed point.
 * - Draws the Bezier path with debug information if debug is true.
 * - Optionally shows spheres at specific points for debugging (currently commented out).
 */
module drawProfile( points,debug = true ){


    debugPoint (start,      "Start",    "Red"   );
    debugPoint (top_point,  "Top",      "Blue"  );
    debugPoint (edge_point, "Edge",     "Brown" );
    debugPoint (counter_edge_point,     "Counter Edge", "Brown" );
    debugPoint (tail_point, "Tail",     "Yellow" );
    debugPoint (end_point,  "End",      "Yellow" );
    
    //pt  = [100,0];
    //pos = bezpath_closest_point(points, pt);
    //xy  = bezpath_points(points,pos[0],pos[1]);
    
    debug_bezier(points, N=3,width=1.2);
}