chore: add CAD files

cad/comb-knive.scad

+riblet_factor = 1;
+riblet_s = 0.3*riblet_factor;
+riblet_h = 0.15*riblet_factor;
+riblet_angle = 45;
+
+num_riblets = 400/riblet_factor; // width 120mm
+
+comb_width = num_riblets*riblet_s;
+comb_height = 50 - riblet_h;
+comb_thickness = 2;
+
+riblet_base_length = riblet_h*tan(riblet_angle/2);
+                
+riblet_pattern = [
+  [0, 0], 
+  [riblet_base_length, riblet_h],
+  [riblet_s-riblet_base_length, riblet_h]
+];
+                
+riblet_surface = [
+  for (a = [0:num_riblets-1], 
+       b = riblet_pattern) 
+  [b.x+a*riblet_s, b.y]
+];
+
+echo(riblet_surface = riblet_surface);
+
+comb_body = [
+  [comb_width, 0],
+  [comb_width, -comb_height],
+  [0, -comb_height]
+];
+  
+b=1;
+extra=30;
+box_width=comb_width+extra;
+box_depth=extra;
+deg=atan(comb_thickness/b);
+
+difference(){
+linear_extrude(height = comb_thickness, scale = 1){
+  translate([-comb_width/2,comb_height/2,0])
+  polygon(concat(comb_body,riblet_surface));
+};
+
+translate([-box_width/2,comb_height/2+riblet_h-box_depth*cos(deg),box_depth*sin(deg)])
+rotate(a=-deg,v=[1,0,0])
+cube([box_width, extra, extra]);
+};
\ No newline at end of file

cad/comb-lathe.scad

+riblet_scale=4;
+riblet_s=0.3*riblet_scale;
+riblet_h=0.15*riblet_scale;
+riblet_angle=45;
+
+
+
+roller_diameter=40;
+roller_radius=roller_diameter/2;
+roller_height=120+2*riblet_s;
+bearing_outer_diameter=22;
+bearing_outer_radius=bearing_outer_diameter/2;
+bearing_inner_diameter=44;
+bearing_inner_radius=bearing_inner_diameter/2;
+bearing_width=7;
+
+comb_width=roller_diameter;
+comb_length=roller_height-2*riblet_s;
+comb_thickness=2;
+
+cutout_depth=6;
+delta=1;
+
+riblet_peak_base=riblet_h*tan(riblet_angle/2);
+num_riblets=roller_height/riblet_s;
+                
+riblet_pattern=[
+  [0,0],
+  [riblet_peak_base,riblet_h],
+  [riblet_s-riblet_peak_base,riblet_h]];
+                
+riblet_surface=[
+  for (i=[0:num_riblets-1], b=riblet_pattern) 
+      [b.y+roller_radius-riblet_h,b.x+i*riblet_s]];
+
+roller_body=[
+  [roller_radius-riblet_h,roller_height],
+  //[bearing_outer_radius, roller_height],
+  //[bearing_outer_radius,roller_height-bearing_width],
+  //[bearing_inner_radius,roller_height-bearing_width],
+  [bearing_inner_radius,roller_height],
+  //[bearing_inner_radius,bearing_width],
+  //[bearing_outer_radius,bearing_width],
+  //[bearing_outer_radius,0],
+  [bearing_inner_radius,0],
+];
+difference(){
+translate([-comb_width/2,-comb_thickness/2,0]){
+cube([comb_width,comb_thickness,comb_length]);
+}
+translate([0,0,-riblet_s]){
+rotate_extrude($fn=100){
+polygon(concat(roller_body,riblet_surface));
+}
+}
+}
\ No newline at end of file

cad/comb.scad

+riblet_factor = 1;
+riblet_s = 0.3*riblet_factor;
+riblet_h = 0.15*riblet_factor;
+riblet_angle = 45;
+
+num_riblets = 400/riblet_factor; // width 120mm
+
+comb_width = num_riblets*riblet_s;
+comb_height = 50 - riblet_h;
+comb_thickness = 2;
+
+riblet_base_length = riblet_h*tan(riblet_angle/2);
+                
+riblet_pattern = [
+  [0, 0], 
+  [riblet_base_length, riblet_h],
+  [riblet_s-riblet_base_length, riblet_h]
+];
+                
+riblet_surface = [
+  for (a = [0:num_riblets-1], 
+       b = riblet_pattern) 
+  [b.x+a*riblet_s, b.y]
+];
+
+echo(riblet_surface = riblet_surface);
+
+comb_body = [
+  [comb_width, 0],
+  [comb_width, -comb_height],
+  [0, -comb_height]
+];
+
+linear_extrude(height = comb_thickness, scale = 1){
+  translate([-comb_width/2,comb_height/2,0])
+  polygon(concat(comb_body,riblet_surface));
+};
\ No newline at end of file

cad/plate.scad

+include <polyround.scad>
+
+function platePoints(r1,r2,thickness=3)=[
+    [0,0,0],
+    [300,0,r1],
+    [300,25,0],
+    [300-thickness,25,0],
+    [300-thickness,thickness,r2],
+    [0,thickness,0]
+];
+
+linear_extrude(180){
+radiiPoints=platePoints(4,2);
+polygon(polyRound(radiiPoints,30));
+}
+translate(v=[300,15,120]){
+rotate(a=[0,90,0]){
+cylinder(h=225,r=6);
+};
+};
\ No newline at end of file