Kitesurf fins

Kitesurf-Fins.json

@@ -0,0 +1,88 @@
+{
+    "fileFormatVersion": "1",
+    "parameterSets": {
+        "New set 1": {
+            "$fn": "32",
+            "base_extra_thickness": "80",
+            "base_tickness": "9",
+            "draw_fin": "false",
+            "draw_profile": "true",
+            "fin_back_angle": "20",
+            "fin_back_height": "30",
+            "fin_back_strength": "30",
+            "fin_back_widthdraw": "20",
+            "fin_back_withraw": "20",
+            "fin_base": "200",
+            "fin_counter_angle": "30",
+            "fin_counter_strength": "20",
+            "fin_end_angle": "110",
+            "fin_end_strength": "30",
+            "fin_height": "250",
+            "fin_start_angle": "70",
+            "fin_sweep": "25",
+            "fin_thickness": "5",
+            "fin_top_withdraw": "30",
+            "fin_width": "240",
+            "fin_width_tip": "5",
+            "parts": "all",
+            "scale_factor": "1",
+            "show_debug_layers": "false"
+        },
+        "New set 2": {
+            "$fn": "32",
+            "base_extra_thickness": "80",
+            "base_tickness": "8",
+            "draw_fin": "false",
+            "draw_profile": "true",
+            "fin_back_angle": "20",
+            "fin_back_height": "30",
+            "fin_back_strength": "30",
+            "fin_back_widthdraw": "20",
+            "fin_back_withraw": "20",
+            "fin_base": "120",
+            "fin_counter_angle": "30",
+            "fin_counter_strength": "20",
+            "fin_end_angle": "110",
+            "fin_end_strength": "30",
+            "fin_height": "61",
+            "fin_start_angle": "70",
+            "fin_sweep": "25",
+            "fin_thickness": "8",
+            "fin_top_withdraw": "30",
+            "fin_width": "240",
+            "fin_width_tip": "5",
+            "parts": "all",
+            "scale_factor": "1",
+            "show_debug_layers": "false"
+        },
+        "New set 3": {
+            "$fn": "32",
+            "base_extra_thickness": "80",
+            "base_tickness": "8",
+            "draw_fin": "true",
+            "draw_profile": "true",
+            "fin_back_angle": "20",
+            "fin_back_height": "30",
+            "fin_back_strength": "30",
+            "fin_back_widthdraw": "20",
+            "fin_back_withraw": "20",
+            "fin_base": "114",
+            "fin_counter_angle": "30",
+            "fin_counter_strength": "10",
+            "fin_edge_angle": "30",
+            "fin_edge_strength": "30",
+            "fin_end_angle": "110",
+            "fin_end_strength": "30",
+            "fin_height": "51",
+            "fin_start_angle": "60",
+            "fin_sweep": "25",
+            "fin_thickness": "8",
+            "fin_top_withdraw": "10",
+            "fin_width": "120",
+            "fin_width_tip": "5",
+            "parts": "all",
+            "scale_factor": "1",
+            "show_debug_layers": "true"
+        }
+    }
+}

Kitesurf-Fins.scad

@@ -0,0 +1,344 @@
+
+include <BOSL2/std.scad>;
+include <BOSL2/beziers.scad>;
+include <BOSL2/rounding.scad>;
+include <BOSL2/skin.scad>;
+
+
+/************************************************/
+/*  Parameters                                  */
+/************************************************/
+
+/* [Fin Specs] */
+
+fin_height       = 51; // 10 inches in mm
+fin_width        = 120; // Width at the base in mm
+fin_top_withdraw = 10;
+fin_back_withraw = 20;
+
+fin_start_angle  = 60; // 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_base  = 114; 
+
+
+fin_width_tip   = 5; // Width at the tip in mm
+fin_thickness   = 8; // 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=80;
+
+
+/* [Debugging] */
+
+// Showing all layers
+show_debug_layers = false;
+
+// Draw master profile
+draw_profile = true;
+
+// Draw Fin
+draw_fin = false;
+
+/* [Rendering] */
+
+// Rendering parts
+parts="all"; // [all, top, bottom]
+
+// Scaling
+scale_factor = 1.0; // [0.1:0.1:2] 
+
+
+$fn=64;
+/************************************************/
+
+
+pt1_x = adj_ang_to_opp(fin_height,fin_sweep)+fin_base/2;
+pt1_y = fin_height;
+
+echo ("counterTop(fin_width,fin_top_withdraw)",counterTop(fin_width,fin_top_withdraw,fin_height));
+
+echo ("handleEnd(fin_width,fin_top_withdraw,fin_counter_angle,fin_counter_strength)",handleEnd(fin_width,fin_top_withdraw,fin_counter_angle,fin_counter_strength));
+echo ("xAngleFactor(-20)",xAngleFactor(-20));
+
+echo("polar_to_x : ",polar_to_xy(100, 180));
+
+back_point = [fin_width-7,fin_height/2];
+tail_point = [fin_width-3,fin_height/5];
+
+edge_point = [fin_width-fin_top_withdraw,fin_height-2];
+counter_edge_point = [fin_width-6,fin_height-8];
+
+
+control_points = [
+    // *****************
+    //   INITIAL POINT
+    // *****************    
+    [0,0],                                                          // Point 0 
+    [opp_ang_to_adj(fin_height/3,fin_start_angle),fin_height/3],    // Handle 0
+    // *****************
+    //   TOP POINT
+    // *****************    
+    [pt1_x-fin_base/5,pt1_y],                                       // Handle 1 (Start)    
+    [pt1_x,pt1_y],                                                  // Point 1
+    [pt1_x+fin_base/7,pt1_y],                                       // Handle 1 (End)
+    // *****************
+    //   EDGE POINT
+    // *****************
+    //counterTop(fin_width,fin_top_withdraw,fin_height), // [250,220],   // Point 2
+    handle(edge_point,140 /*degree*/,4),
+    edge_point, // [250,220],   // Point 2
+    handle(edge_point,-45 /*degree*/,4),
+    // *****************
+    //   COUNTER EDGE POINT
+    // *****************
+    //counterTop(fin_width,fin_top_withdraw,fin_height), // [250,220],   // Point 2
+    handle(counter_edge_point,120 /*degree*/,4),
+    counter_edge_point, // [250,220],   // Point 2
+    handle(counter_edge_point,-110 /*degree*/,13),    
+
+    // *****************
+    //   BACK Point
+    // *****************
+    //counterTop(fin_width,fin_top_withdraw,fin_height), // [250,220],   // Point 2
+    /*
+    handle(back_point,90 ,6),
+    back_point,
+    handle(back_point,-90 ,6),
+    */
+
+    // *****************
+    //   TAIL Point
+    // *****************
+    
+    handle(tail_point,115 ,10),
+    tail_point,
+    //handle(tail_point,-90,10),    
+    handle(tail_point,0,0),    
+    //tailPoint(),
+    // *****************
+    //   BACK POINT
+    // *****************
+    /*
+    handle(backPoint(),fin_back_angle,fin_back_strength),
+    backPoint(),
+    handle(backPoint(),-fin_back_angle,fin_back_strength),
+    */
+    // *****************
+    //   END POINT
+    // *****************
+    //endHandle(fin_end_angle),                                       // End Handle
+    handle([fin_base,0],60 /*degree*/,3),
+    [fin_base,0]                                                    // End point
+];
+
+
+
+function handle(point,angle,strength) = [
+    //point[0] + adj_ang_to_opp(strength,angle)   /** xAngleFactor(angle)*/,
+    //point[1] + /*(angle>0 ? strength :-strength)*/ strength  * yAngleFactor(angle),
+    point[0] + polar_to_xy(strength,angle)[0]   ,
+    point[1] + polar_to_xy(strength,angle)[1]   
+    ]; 
+
+function xAngleFactor(angle) = angle > 0 && angle < 180 ? 1 : -1;
+function yAngleFactor(angle) = angle > -90 && angle < 90 ? 1 : -1;
+
+function counterTop(x,withdraw,height)                 = [x-withdraw, height ];
+function handleStart(x,withdraw,angle,strength) = [x+adj_ang_to_opp(strength,angle), x-withdraw +strength];
+function handleEnd(x,withdraw,angle,strength)   = [x-adj_ang_to_opp(strength,angle), x-withdraw -strength];
+function endHandle(angle)= 
+    angle < 90 ? 
+        [fin_base + adj_ang_to_opp(fin_end_strength,90-angle),fin_end_strength] 
+        : 
+        [fin_base - adj_ang_to_opp(fin_end_strength,angle-90),fin_end_strength] 
+        ;
+function backPoint() = [fin_base-(fin_back_widthdraw/100*fin_base),fin_back_height/100*fin_height];
+
+
+
+
+function decrease_y(points, percentage) = [ for (p = points) [p[0], p[1] * (1 - percentage/100)]];
+
+function pathProfile(points) = bezpath_curve(points,N=3);
+
+function remove_last(arr) = select(arr, 0, len(arr) - 2);
+
+
+// Surf Fin profile
+fin_profile = pathProfile( control_points );
+
+// ****************
+// *  Slicing     *
+// ****************
+
+layer_0 = pathProcess(addBase(fin_profile));                     // Master layer with base
+layer_1 = pathProcess(offset(layer_0,delta=-5,chamfer=true));
+layer_2 = pathProcess(offset(layer_1,delta=-7,chamfer=false));
+layer_3 = pathProcess(offset(layer_2,delta=-5,chamfer=false));
+layer_4 = pathProcess(offset(layer_3,delta=-5,chamfer=false));
+
+
+//echo ("layer_2",layer_2);
+//echo ("layer_3",layer_3);
+
+
+layers = [layer_0,layer_1,layer_2,layer_3];
+
+
+
+function pathProcess(path) = subdivide_path(path,200);
+function pathProcess3(path) = path;
+
+
+
+
+// ****************
+// *  Fin Drawing     *
+// ****************
+if (draw_fin) {
+
+    scale([scale_factor, scale_factor, scale_factor]) build();
+}
+
+module build() {
+    union(){
+        //cube([50,50,90]);
+        difference(){
+            union() {
+                if (parts !=  "bottom") buildFinSide([layer_0,layer_1,layer_2],base_tickness/2);
+                if (parts !=  "top") zflip() buildFinSide([layer_0,layer_1,layer_2],base_tickness/2);    
+            }
+            color("Red") cube([fin_base+20,base_extra_thickness+20,base_tickness+20],anchor=LEFT+BACK);
+        }
+    }
+}
+
+
+module subtracted(anchor) {
+    color("Red") fwd(40) left(40) cube([fin_width+100,fin_height+100,20],anchor=anchor);
+}
+
+
+/**
+ * Build fin side
+ * 
+ * @param layers - Layers path as array
+ * @param thickness - thickness of half fin
+ */
+module buildFinSide(layers,thickness,flip=false) {
+    color("Grey") 
+        skin(layers,slices=0,z=layerHeights(len(layers),thickness));
+} 
+
+echo ("layerHeights(3,thickness):",layerHeights(3,base_tickness/2));
+
+if (show_debug_layers) {
+    left(300) {
+        showDebugPath(layer_0);
+        showDebugPath(layer_1);
+        showDebugPath(layer_2);
+        
+        assert(is_path(layer_3),"Layer 3 is not a path");
+        showDebugPath(layer_3);
+        showDebugPath(layer_4);        
+    }
+    //showDebugPath(layer_3);
+    
+}
+if (draw_profile) {
+    // Draw fin profile
+    drawProfile( control_points, true  );
+}
+
+
+/**
+ * Displays debug information for a path by visualizing its self-crossings.
+ * 
+ * @param path - The input path to analyze for self-crossings.
+ * 
+ * This module:
+ * - Splits the path at points where it intersects itself.
+ * - Renders each segment of the split path with different colors for easy identification.
+ */
+module showDebugPath(path) {
+    assert(is_path(path),"Path to show is not a path");
+    assert(is_path_simple(path),"Path is not simple");
+    rainbow(split_path_at_self_crossings(path)) 
+        stroke($item, closed=false, width=1);
+}
+
+
+/**
+ * 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 ){
+    pt = [100,0];
+    pos = bezpath_closest_point(points, pt);
+    xy = bezpath_points(points,pos[0],pos[1]);
+    debug_bezier(points, N=3,width=0.2);
+    //color("red") translate(pt) sphere(r=6);
+    //color("blue") translate(xy) sphere(r=6);
+}
+
+/**
+ * Adds a base to the given path by extending it with additional points.
+ * 
+ * @param path - The original path to which the base will be added.
+ * @return A new path with an added base.
+ * 
+ * This function concatenates:
+ * - The original path (`pathProfile`).
+ * - A point `fin_base` which might represent the start or end of the base.
+ * - Points for additional thickness (`-base_extra_thickness`) at both ends of the base.
+ */
+function addBase(path) = concat(path,[[fin_base,-base_extra_thickness],[0,-base_extra_thickness]]);
+
+
+/**
+ * Calculates heights for n layers where the first layer starts at 0 and the last at fin_thickness.
+ * 
+ * @param n - Number of layers.
+ * @param fin_thickness - The total height to be divided.
+ * @return An array where each element represents the height of the top of each layer.
+ */
+function layerHeights(n, fin_thickness) = 
+    let(
+        layer_height = fin_thickness / (n - 1)
+    )
+    [ for (i = [0 : n-1]) i * layer_height ];
+    
+    
+    
+echo ("**********************");
+echo ("*  Configuration     *");
+echo ("**********************");
+echo ("Layers count"        ,len(layers));
+echo ("Base thickness"      ,str(base_tickness," mm"));
+echo ("Layers heights"      ,layerHeights(len(layers),base_tickness/2));    

Readme.md

@@ -7,3 +7,5 @@ A project to create mold and makes surf fins in Fiber glass
 ## Box
 
 The box is designed using library [Fin Base](https://github.com/hrobeers/finbases)
+
+![](https://user-images.githubusercontent.com/2812522/105723055-9fd71100-5f26-11eb-8a9e-b892212b240b.jpg)

SurfFins.json

@@ -1,11 +1,45 @@
 {
     "fileFormatVersion": "1",
     "parameterSets": {
-        "New set 1": {
+        "New set 1": "",
+        "Final": "",
+        "New set 2": {
             "$fn": "32",
+            "base_extra_thickness": "80",
+            "base_tickness": "9.1999999999999993",
+            "draw_box": "true",
             "draw_fin": "true",
             "draw_profile": "false",
-            "show_debug_layers": "true"
+            "fin_back_angle": "20",
+            "fin_back_height": "30",
+            "fin_back_strength": "30",
+            "fin_back_widthdraw": "20",
+            "fin_back_withraw": "20",
+            "fin_base": "200",
+            "fin_counter_angle": "30",
+            "fin_counter_strength": "20",
+            "fin_end_angle": "110",
+            "fin_end_strength": "30",
+            "fin_height": "250",
+            "fin_start_angle": "70",
+            "fin_sweep": "25",
+            "fin_thickness": "5",
+            "fin_top_withdraw": "30",
+            "fin_width": "240",
+            "fin_width_tip": "5",
+            "height": "25",
+            "mirror_vec": "[1, 1, 0]",
+            "parts": "top",
+            "pin_back": "9",
+            "pin_depth": "16.399999999999999",
+            "pin_dia": "3",
+            "scale_factor": "0.20000000000000001",
+            "screw_dia": "4.5",
+            "screw_pos": "9.5999999999999996",
+            "show_debug_layers": "false",
+            "tab_height": "13",
+            "thick": "9.1999999999999993",
+            "thick_cut": "1"
         }
     }
 }

SurfFins.scad

@@ -49,7 +49,7 @@ base_extra_thickness=80;
 /* [US Box] */
 // Dimensions in mm
 //length = 180;
-length=fin_base;
+//length=fin_base;
 height = 25;
 thick  = 9.2;
 mirror_vec = [1,1,0];
@@ -78,7 +78,6 @@ thick_cut = 1;
 
 
 
-
 /* [Debugging] */
 
 //Showing all layers
@@ -90,6 +89,16 @@ draw_profile = false;
 draw_fin = true;
 draw_box = true;
 
+/* [Rendering] */
+
+// Rendering parts
+parts="all"; // [all, top, bottom]
+
+// Scaling
+scale_factor = 1.0; // [0.1:0.1:2] 
+
+
+
 
 $fn=32;
 /************************************************/
@@ -158,34 +167,61 @@ fin_profile = pathProfile( control_points );
 
 layer_0 = addBase(fin_profile);                     // Master layer with base
 layer_1 = offset(layer_0,delta=-10,chamfer=true);
-//layer_2 = offset(layer_0,delta=-20,chamfer=true);
-layer_2 = offset(layer_1,delta=-15,chamfer=true);
-//layer_3 = offset(layer_2,delta=-2,chamfer=true);
-
-layers= [layer_0,layer_1,layer_2];
-echo ("Layers count ",len(layers));
+layer_2 = offset(layer_1,delta=-15,chamfer=false);
+layer_3 = offset(layer_2,delta=-10,chamfer=false);
+layer_4 = offset(layer_3,delta=-10,chamfer=false);
 
 
-// ****************
-// *  Box Drawing     *
-// ****************
-if (draw_box) {
-    xflip() finfit(length, mirror_vec);
-}
+echo ("layer_2",layer_2);
+echo ("layer_3",layer_3);
+
+
+layers = [layer_0,layer_1,layer_2,layer_3];
+echo ("**********************");
+echo ("*  Configuration     *");
+echo ("**********************");
+echo ("Layers count"        ,len(layers));
+echo ("Base thickness"      ,str(base_tickness," mm"));
+echo ("Layers heights"      ,layerHeights(len(layers),base_tickness/2));
+
 
 
 // ****************
 // *  Fin Drawing     *
 // ****************
 if (draw_fin) {
-    difference(){
-        union() {
-            buildFinSide([layer_0,layer_1,layer_2],base_tickness/2);
-            zflip() buildFinSide([layer_0,layer_1,layer_2],base_tickness/2);    
-            
+
+    scale([scale_factor, scale_factor, scale_factor]) build();
+}
+
+module build() {
+    union(){
+        //cube([50,50,90]);
+        difference(){
+            union() {
+                if (parts !=  "bottom") buildFinSide([layer_0,layer_1,layer_2],base_tickness/2);
+                if (parts !=  "top") zflip() buildFinSide([layer_0,layer_1,layer_2],base_tickness/2);    
+            }
+            color("Red") cube([fin_base+20,base_extra_thickness+20,base_tickness+20],anchor=LEFT+BACK);
         }
-        color("Red") cube([fin_base+20,base_extra_thickness+20,base_tickness+20],anchor=LEFT+BACK);
-    }
+        // ****************
+        // *  Box Drawing     *
+        // ****************
+        if (draw_box) {
+            difference() {
+                xflip() finfit(fin_base, mirror_vec);
+                if (parts == "top")
+                    subtracted(TOP+LEFT+FRONT);
+                if (parts == "bottom")
+                    subtracted(BOTTOM+LEFT+FRONT);                
+            }
+        }
+    };
+};
+
+
+module subtracted(anchor) {
+    color("Red") fwd(40) left(40) cube([fin_width+100,fin_height+100,20],anchor=anchor);
 }
 
 
@@ -196,80 +232,21 @@ if (draw_fin) {
  * @param thickness - thickness of half fin
  */
 module buildFinSide(layers,thickness,flip=false) {
-    //right(200)
-        color("Grey") skin(layers,slices=0,z=layerHeights(len(layers),thickness));
+    color("Grey") 
+        skin(layers,slices=0,z=layerHeights(len(layers),thickness));
 } 
 
-
 echo ("layerHeights(3,thickness):",layerHeights(3,base_tickness/2));
 
-
-
-
-
-if (false) {
-
-
-
-
-
-    up (80) color("Green") polygon(path2);
-
-    //path2[0][1] = 0;
-
-    /*
-    path2b = concat(
-        [[0, 0]], // New first point
-        [for (i = [1:len(path2)-1]) path2[i]] // Rest of the points unchanged
-    );
-    path3b = concat(
-        [[0, 0]], // New first point
-        [for (i = [1:len(path3)-1]) path3[i]] // Rest of the points unchanged
-    );
-    echo("path2",path2);
-    echo("path2b",path2b);
-    */
-
-    //path2 = bezpath_curve(decrease_y(control_points,10),N=3);
-
-    //path2 = offset_path(path, -20, closed=true);
-
-
-    if (false) up (10) color("Red") %polygon(path2);
-    if (false) up (12) color("Blue") %polygon(path3);
-
-
-    if (false) up(50) color("Green") offset_sweep(path, height=20, bottom=os_circle(r=10), top=os_circle(r=10), steps=15);
-
-    sinwave = os_profile(points=[for(theta=[0:5:720]) [4*sin(theta), theta/700*15]]);
-
-    if (false) up(80) color("Yellow") offset_sweep(path, height=20, top=sinwave, $fn=32);
-
-
-    lin_path=[[300,0,0],[300,20,0],[300,100,0]];
-    //lin_path = [ [0, 0, 0], [33, 33, 33], [66, 33, 40], [100, 0, 0], [150,0,0] ];
-
-    //up(80) path_extrude(lin_path) circle(r=30, $fn=6); //path;
-    //up(80) path_extrude(lin_path) [polygon(path),polygon(path2)]; //path;
-
-    //skin([octagon(4), circle($fn=70,r=2)], z=[0,3], slices=10);
-    
-
-
-
-    /*
-    path_extrude2d(path, caps=true, closed=false)
-        move_copies([[-3.5,1.5],[0.0,3.0],[3.5,1.5]])
-            circle(r=1.5);
-    */
-}
-
-
 if (show_debug_layers) {
     left(300) {
         showDebugPath(layer_0);
         showDebugPath(layer_1);
         showDebugPath(layer_2);
+        
+        assert(is_path(layer_3),"Layer 3 is not a path");
+        showDebugPath(layer_3);
+        showDebugPath(layer_4);        
     }
     //showDebugPath(layer_3);