include ; include ; include ; include ; fin_height = 250; // 10 inches in mm fin_width = 240; // Width at the base in mm fin_top_withdraw = 30; fin_back_withraw = 20; fin_start_angle = 70; // Angle [Point 0 ] fin_sweep = 25; // Sweep Angle [Point 1] fin_counter_angle = 30; // counter angle [Point 2] fin_counter_strength = 20; // Length [Point 2] fin_base = 200; // Width at the base in mm fin_width_tip = 5; // Width at the tip in mm fin_thickness = 5; // 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_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; 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 [pt1_x-100,pt1_y], // Handle 1 () //[220,250], // Point 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 // ***************** //[165,100], // Handle 2 (Start) handle(backPoint(),fin_back_angle,fin_back_strength), //[155,80], // Point 2 backPoint(), handle(backPoint(),-fin_back_angle,fin_back_strength), // [145,60], // Handle 2 (End) //[250,230], // ***************** // END POINT // ***************** endHandle(fin_end_angle), // End Handle [fin_base,0] // End point ]; 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)= 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 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)]]; /** * 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); } // Draw fin profile drawProfile( control_points, true ); 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); */