From f6f4fd5d8d8baead41fc5c060a10f6f169210574 Mon Sep 17 00:00:00 2001
From: Rodrigo Rivas Costa <rodrigorivascosta@gmail.com>
Date: Thu, 26 Mar 2020 11:47:29 +0100
Subject: [PATCH] Add rack() module to involute_gears.

---
 involute_gears.scad | 46 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/involute_gears.scad b/involute_gears.scad
index c3fe21e..640bbd6 100644
--- a/involute_gears.scad
+++ b/involute_gears.scad
@@ -396,6 +396,46 @@ module gear (
 	}
 }
 
+module rack(
+		number_of_teeth=15,
+		circular_pitch=false, diametral_pitch=false,
+		pressure_angle=28,
+		clearance=0.2,
+		rim_thickness=8,
+		rim_width=5,
+		flat=false)
+{
+
+	if (circular_pitch==false && diametral_pitch==false)
+		echo("MCAD ERROR: gear module needs either a diametral_pitch or circular_pitch");
+
+	//Convert diametrial pitch to our native circular pitch
+	circular_pitch = (circular_pitch!=false?circular_pitch:180/diametral_pitch);
+	pitch = circular_pitch / 180 * PI;
+
+	addendum = circular_pitch / 180;
+	dedendum = addendum + clearance;
+	pitch_slope = tan(pressure_angle);
+
+	linear_exturde_flat_option(flat=flat, height=rim_thickness)
+		union()
+		{
+			translate([0,-dedendum-rim_width/2])
+				square([number_of_teeth*pitch, rim_width],center=true);
+
+			p1 = pitch / 4 + pitch_slope * dedendum;
+			p2 = pitch / 4 - pitch_slope * addendum;
+			for(i=[1:number_of_teeth])
+				translate([pitch*(i-number_of_teeth/2-0.5),0])
+					polygon(points=[
+							[-p1,-dedendum],
+							[p1,-dedendum],
+							[p2,addendum],
+							[-p2,addendum]
+					]);
+		}
+}
+
 module linear_exturde_flat_option(flat =false, height = 10, center = false, convexity = 2, twist = 0)
 {
 	if(flat==false)
@@ -560,6 +600,12 @@ module test_gears()
 				circles=5,
 				hub_diameter=2*8.88888889);
 
+			translate ([-37.5,0,0])
+			rotate ([0,0,-90])
+			rack (
+				circular_pitch=500
+			     );
+
 			translate ([0,0,10])
 			{
 				gear (