partno
print/on
clprnt
$$geometry for tooth form
$$tjp chg shift from -5" to 1/2 bore (2.25dia/2=1.25) plus 1" tooth ht
mat4=matrix/transl,-2.125,0,0
refsys/mat4
L0=line/xaxis
L1=line/yaxis
P0=point/-.2,1.57
P1=point/3.45,-1.47
P2=point/2.99,4.31
L2=line/P0,P2
L3=line/P0,P1
L4=line/parlel,L1,xlarge,10
P3=point/intof,L3,L0
l5=line/p3,atangl,90
l6=line/parlel,l1,xlarge,1
P5=point/intof,l6,l3
P6=point/intof,l6,l2
P4=point/intof,L2,L5
refsys/nomore
cutter/0
pl1=plane/0,0,1,0
$$cutter path is tooth form
index/1
from/p5
go/on,l1,on,pl1,on,l3
tlon,gorgt/l1,on,l2
gorgt/l2,on,l6
goto/p6
index/1,nomore
mat1=matrix/zxrot,1
$$tjp the y axis xl8n was .01" per 1 degree, i need 3.75"/360degree = 0.010416667"
$$ hey that was damn close to begin with!
mat2=matrix/transl,0,0.010416667,0
mat3=matrix/mat2,mat1
$$tjp , after i get all the teeth in, i only need 1 revolution, so 720 becomes just 360
copy/1,modify,mat3,360
fini