Begin building belt stuff

scad/Gears.scad

+
+
+// This file is just an inclusion proxy
+// It is designed to be included by the `use`-statement without
+// needing to mention every single of it's sub-components
+
+
+include <gears/polygroove.scad>

scad/gears/polygroove.scad

+
+
+// TODO: better naming for ==> flattenTeeth <== parameter !!
+
+module PolygroovePulley(diameter, grooves, grooveWidth=3, grooveDepth=3, centerBore=0, flattenTeeth=0.3, centerZ=true) {
+
+  assert(grooves > 1, "TODO: Message…?");
+
+
+  gw = grooveWidth;
+  gw2 = gw / 2;
+  
+  gd = grooveDepth;
+  gd2 = gd / 2;
+  
+  width = grooves * gw;
+
+
+
+  start = [
+    [ -20,   0],
+    [ gd2,   0],
+    [-gd2, gw2]
+  ];
+
+  end = [
+    [gd2, width],
+    [-20, width]
+  ];
+
+  teeth = [ for (y = [gw : gw : gw * (grooves - 1)])  [ [gd2, y], [-gd2, y+gw2] ]  ];
+
+  flatTeeth = [ for (a = teeth) for (b = a) b ];
+
+  difference() {
+    polygon(concat(start, flatTeeth, end));
+    translate([gd2 - flattenTeeth, gw2, 0]) square([flattenTeeth*2, width - gw]);
+  }
+  
+}
+
+
+
+PolygroovePulley(70, 5, centerBore=9);
+
+