Cleanup

scad/gears/polygroove.scad

@@ -79,48 +79,19 @@ module GearSpokes(od, id, count, height=1000) {
 
 
 
-// ⬇ Example code below ⬇
-
-
-
-module __drive(holes=2, bore=5, r_off=10, centerBore=9, height=20, pos=true, neg=true, centerZ=true) {
-
-  tz = centerZ ? 0 : height/2;
-
-  translate([0, 0, tz])
-  linear_extrude(height, center=true) difference() {
-
-    if (pos)
-      for (rz=[0 : 360/holes : 360])
-        rotate([0, 0, rz])
-          translate([r_off, 0, 0])
-            circle(d=bore+2*$str);
-    
-    if (neg) {
-      for (rz=[0 : 360/holes : 360])
-        rotate([0, 0, rz])
-          translate([r_off, 0, 0])
-            circle(d=bore);
 
-      circle(d=centerBore);
-    }
-
-  }
-
-}
+// ⬇ Example code below ⬇
 
 
 gw = 3;
 gd = 3;
 
-od = 70;
-bore = 9;
-id = bore + 2*$str;
+od      = 70;
+bore    =  9;
+id      = bore + 2*$str;
+grooves =  5;
 
 difference() {
-  PolygroovePulley(od, 5, grooveWidth=gw, grooveDepth=gd, centerBore=bore, $fn=200);
+  PolygroovePulley(diameter=od, grooves=grooves, grooveWidth=gw, grooveDepth=gd, centerBore=bore, $fn=200);
   GearSpokes(od - 2*$str - gd, id, 6, $str=2.5, $fn=100);
 }
-
-__drive(height=PolygroovePulleyWidth(5, gw), $fn=500);
-