cad.cut(obj,t1)
obj2 = cad.getlastobj()
cad.remove(obj)
obj = obj2
angle = angle + pitch_angle
cad.changed()
count = count +1
cad.remove(obj)
return obj2
units = 25.4 #units are in mm normally so multiply inch units by this
b1 = blank(.49,.3,.1)
cad.translate(b1,0,0,0)
gear1= polar_array(b1,4,72)
cad.rotate(gear1,0,0,0,1,0,0,pi)
cad.rotate(gear1,0,0,0,0,1,0,(2.5*pi)/180)
cad.setcolor(0,188,180)
gear2= polar_array(b1,4,72)
cad.scale(gear1,0,0,0,units)
cad.scale(gear2,0,0,0,units)
cad.translate(gear2,0,.009*units,0)
pitch_angle = (circle_division * (pi * 2)) / 360
angle = 0
count = 0
while (count < num_teeth):
t1 = tooth_form(tilt, .5)
cad.rotate(t1, 0, 0, 0, 0, 1, 0, angle)
cad.cut(obj, t1)
obj2 = cad.getlastobj()
cad.remove(obj)
obj = obj2
angle = angle + pitch_angle
cad.changed()
count = count + 1
cad.remove(obj)
return obj2
units = 25.4 #units are in mm normally so multiply inch units by this
b1 = blank(.49, .3, .1)
cad.translate(b1, 0, 0, 0)
gear1 = polar_array(b1, 4, 72)
cad.rotate(gear1, 0, 0, 0, 1, 0, 0, pi)
cad.rotate(gear1, 0, 0, 0, 0, 1, 0, (2.5 * pi) / 180)
cad.setcolor(0, 188, 180)
gear2 = polar_array(b1, 4, 72)
cad.scale(gear1, 0, 0, 0, units)
cad.scale(gear2, 0, 0, 0, units)
cad.translate(gear2, 0, .009 * units, 0)
