Something

partno
print/on
clprnt
$$geometry for tooth form
mat4=matrix/transl,-5,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
	P4=point/intof,L2,L5
refsys/nomore

cutter/0
pl1=plane/0,0,1,0


$$cutter path is tooth form
index/1
	from/p3
	go/on,l1,on,pl1,on,l3
	tlon,gorgt/l1,on,l2
	gorgt/l2,on,l5
	goto/p4
index/1,nomore


mat1=matrix/zxrot,1
mat2=matrix/transl,0,.01,0
mat3=matrix/mat2,mat1
copy/1,modify,mat3,720


fini