From 64f4c01d7120e98c1544cbc06f02e152d0d17d43 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Dante=20Ursini?= Date: Sat, 11 Jan 2025 13:44:39 -0300 Subject: [PATCH] layers --- SurfFins.scad | 221 +++++++++++++++++++++++++++++++++++++------------- 1 file changed, 163 insertions(+), 58 deletions(-) diff --git a/SurfFins.scad b/SurfFins.scad index 2d17148..23e2d83 100644 --- a/SurfFins.scad +++ b/SurfFins.scad @@ -1,30 +1,10 @@ include ; include ; +include ; +include ; -if (false) { - -bez = [[0,0], [30,30], [80,0]]; -debug_bezier(bez, N=len(bez)-1); -translate(bezier_points(bez, 0.3)) color("red") sphere(1); -} - - -if (false) { - bez = [[0,0], [5,35], [60,-25], [80,0]]; - debug_bezier(bez, N=len(bez)-1); - pts = bezier_points(bez, [0:0.2:1]); - rainbow(pts) move($item) sphere(1.5, $fn=12); -} - -if (false) { - -bez = [[0,0], [5,15], [40,20], [60,-15], [80,0]]; -move_copies(bezier_curve(bez, 8)) sphere(r=1.5, $fn=12); -debug_bezier(bez, N=len(bez)-1); -} - fin_height = 250; // 10 inches in mm fin_width = 240; // Width at the base in mm @@ -54,15 +34,88 @@ fin_back_widthdraw = 20; // Percent height fin_back_angle = 20; // back angle fin_back_strength=30; +base_tickness=9.2; +base_extra_thickness=40; pt1_x = adj_ang_to_opp(fin_height,fin_sweep)+fin_base/2; pt1_y = fin_height; +$fn=32; -pt = [100,0]; -bez = [ + +control_points_new = [ + // ***************** + // Under POINT + // ***************** + [0,-13], //Point init + [0,0], // Handle init point +// [0,0], + //[0,-13], + //[0,-13], + // ***************** + // Init POINT + // ***************** + + //[opp_ang_to_adj(fin_height/3,fin_start_angle),-fin_height/3], + + //[-50,0], // Point 0 + + + //[0,50], // Start handle Init + [0,-13], // Start handle Init + [0,0], // Init point + [0,30], // + [0,50], + + + //[0,0], + //[0,0], + [opp_ang_to_adj(fin_height/3,fin_start_angle) , fin_height/3], //Point init + // Handle 0 + + // ***************** + // TOP + // ***************** + [pt1_x-100,pt1_y], // Handle 1 () + [pt1_x,pt1_y], // Point 1 + [pt1_x+30,pt1_y], // Handle 1 (End) + + // ***************** + // COUNTER POINT + // ***************** + handleStart(fin_width,fin_top_withdraw,fin_counter_angle,fin_counter_strength), + counterTop(fin_width,fin_top_withdraw), // [250,220], // Point 2 + handleEnd(fin_width,fin_top_withdraw,fin_counter_angle,fin_counter_strength), + + // ***************** + // 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 + [fin_base,0], // End point + [fin_base,0], +// [fin_base,-20], + + // ***************** + // BASE LAST + // ***************** + /* + [fin_base,-13], + [fin_base,-13], + [fin_base,-13] + */ + +]; + +control_points = [ [0,0], // Point 0 [opp_ang_to_adj(fin_height/3,fin_start_angle),fin_height/3], // Handle 0 @@ -99,28 +152,12 @@ bez = [ endHandle(fin_end_angle), // End Handle [fin_base,0] // End point ]; -pos = bezpath_closest_point(bez, pt); -xy = bezpath_points(bez,pos[0],pos[1]); -debug_bezier(bez, N=3); -color("red") translate(pt) sphere(r=1); -color("blue") translate(xy) sphere(r=1); -echo ("pt1_x",pt1_x); - -function counterTop(x,withdraw) = [x, x-withdraw ]; -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 counterTop(x,withdraw) = [x, x-withdraw ]; +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)= @@ -129,24 +166,92 @@ function endHandle(angle)= : [fin_base - adj_ang_to_opp(fin_end_strength,angle-90),fin_end_strength] ; - - -//function backPoint() = [fin_base-fin_base * fin_back_widthdraw/100]; //[155,80]; function backPoint() = [fin_base-(fin_back_widthdraw/100*fin_base),fin_back_height/100*fin_height]; +function handle(point,angle,strength) = [point[0] + adj_ang_to_opp(strength,angle),point[1] + (angle>0 ? strength :-strength)]; +function decrease_y(points, percentage) = [ for (p = points) [p[0], p[1] * (1 - percentage/100)]]; -function handle(point,angle,strength)= - [ - point[0] + adj_ang_to_opp(strength,angle) , - point[1] + (angle>0 ? strength : -strength) - ]; - - -//echo ("*** EndHandle",endHandle(70)); +/** + * Draw Profile + * + */ +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); + //color("red") translate(pt) sphere(r=6); + //color("blue") translate(xy) sphere(r=6); +} -//echo ("*** test",[fin_base-(fin_back_widthdraw/100*fin_base),(fin_back_height/100*fin_height)]); +// Draw fin profile +drawProfile( control_points, true ); -echo ("*** handle 0",handle(backPoint(),0,fin_back_strength)); -echo ("*** handle +30",handle(backPoint(),fin_back_angle,fin_back_strength)); -echo ("*** handle -30",handle(backPoint(),-fin_back_angle,fin_back_strength)); +function pathProfile(points) = bezpath_curve(points,N=3); + + +//path = bezpath_curve(control_points,N=3); +pathProfile = pathProfile( control_points ); + +//base = square([fin_base,13 ], center=true); +base = [[0,0],[fin_base,0],[fin_base,-base_extra_thickness],[0,-base_extra_thickness]]; +path = concat(pathProfile, base); + +//up (40) polygon(path,); +//up (40) color("Red") polygon(base); +up (40) color("Red") polygon(path); + + +//stroke(path,dots=true,dots_color="red"); + +//up (0) polygon(path); + +path2 = offset(path,delta=-10,chamfer=true); +path3 = offset(path2,delta=-10,chamfer=true); + +//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); +skin([path,path2/*,path3*/],slices=0,z=[0,base_tickness/2/*,6*/]); + + + +/* +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); +*/ \ No newline at end of file