partno 
$$clprnt
$$print/on
machin/emc

$$Geometry
d1=3/8 $$stock diameter
d2=1/4 $$ diameter
d3=.015 $$rough stock allowance
d4=1.5 $$overall length
d5=.25 $$flange height
d6=.25 $$cutter diameter
d7=.25 $$flat width
d8=.125 $$prong width
d9=.3  $$start of angle, from top
d10=10. $$include angle of taper
c1=circle/0,0,0,d1
c2=circle/0,0,0,d2
p1=point/0,.5,0
c3=circle/center,p1,small,tanto,c2
l1=line/p1,atangl,0

pl1=plane/0,0,1,-(d4-d5)
print/off
lx=line/xaxis
ly=line/yaxis
print/on

outtol/.0002
intol/.0002

$$rough the outside in steps
cutter/d6
thick/d3
sp=10000 $$your max spindle rpm
spindl/on,sp
loadtl/1
coolnt/on
index/1
	from/p1
	indirv/-1,0,0
	rapid
	fedrat/(.002*sp)$$.001 chipload x 2fl =.002
	go/to,c3
	tllft,golft/c3,tanto,c2
	gofwd/c2,tanto,c3
	gofwd/c3,on,l1
index/1,nomore
$$decide how much to increment each roughing step-
$$ depth you can take will depend on how much 
$$chatter you get.
inc=.125
$$  equals number of steps
copy/1,transl,0,0,-(inc),((d4-d5)/(inc))
$$lets do one more at the bottom, -.015:
copy/1,transl,0,0,-(d4-d5-.015),1 
$$finish pass:
thick/0
from/p1
indirv/-1,0,0
rapid
fedrat/(.002*sp)$$.001 chipload x 2fl =.002
go/to,c3,on,pl1
tllft,golft/c3,tanto,c2
gofwd/c2,tanto,c3
gofwd/c3,on,l1

mat1=matrix/zxrot,-90

$$check surfaces
l28=line/parlel,ly,xlarge,(d1/2+d6/2+.1)
l29=line/parlel,ly,xsmall,(d1/2+d6/2+.1)
refsys/mat1

	l20=line/xaxis	
	l21=line/yaxis
	l22=line/parlel,l20,ylarge,(d8/2)
	l23=line/parlel,l20,ysmall,(d8/2)
	p20=point/-d9,(d8/2),0
	l24=line/p20,atangl,(180-(d10/2)),xaxis
	l25=line/parlel,l21,xsmall,d4
	l26=line/parlel,l25,xsmall,d5
	l27=line/parlel,l20,ylarge,(d1/2)
	p21=point/-d9,-(d8/2),0
	l30=line/p21,atangl,-(180-(d10/2)),xaxis

refsys/nomore



pprint***sloping sides****
$$cutter/0
spt=point/-.5,.5,.1
cutter/d6,0,0,0,0,0,0
$$cutter/.01,0,0,0,0,0,1

len=d4-d5 $$distance to top of flange from top
pl2=plane/0,0,1,-d9
inc=.03
a=-d9 $$plane z depth
from/spt
go/to,l22,on,pl2,to,l29
tllft,golft/l22,past,l28
rapid
gorgt/l28,past,l30
tllft,gorgt/l30,past,l29
rapid
gorgt/l29,past,l24
psis/l24
a=a-inc

loopst
again) pl2=plane/pl2,canon,0,0,1,a
tlofps,godown/l29,to,pl2
psis/pl2
gorgt/l24,past,l28
rapid
gorgt/l28,past,l30
tllft,gorgt/l30,past,l29
rapid
gorgt/l29,past,l24
psis/l24
a=a-inc
if(len-(-a))quit,again,again

$$final cut
pl2=plane/0,0,1,-len
tlofps,godown/l29,to,pl2
psis/pl2
gorgt/l24,past,l28
rapid
gorgt/l28,past,l30
tllft,gorgt/l30,past,l29
rapid
gorgt/l29,past,l24


quit)loopnd

fini