Perl script to generate an OpenScad polygon definition for a gear. You specify two of pitch, number of teeth, radius, and it will work out the other one (possibly changing radius to fit). Radius, number of teeth, and pitch are added as OpenSCAD variables to make it easier to use in another parametric file.Update (2016-Jan-19): The OpenSCAD version of the involute gear tooth generator is complete (with addendum, offset, and involute diameter settings), and the path rotation has been included. Now it's just a matter of sorting out the maths so that others don't have to pull their [gear] teeth out to make things work.Update (Dec 12): Extrusion compensation is now coded in -- change the 'inset' parameter to alter how much extra space is added to the teeth interface. Update (Dec 14): Additional points on the sine wave can be added by adjusting the 'points' parameter. Update (Dec 16.1): The non-basic version of the script produces a gear with a hole (for circular gears), and allows a path to be defined for "extruding" the gear. Meshing will work best for linear gears (e.g. circle, rack), but should also work for non-linear gears (e.g. nautilus). Be careful not to look directly at the generator and you should be fine. It cuts the curve into tiny pieces to calculate angles and lengths for the gears, so a smooth function should give reasonable results. Sizes are scaled based on the 'radius' value so that the circular gear generator will still work.