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