* ADJ-MORT.M - A13 9" infill smoothing plane
* Jim Yehle - Salt Lake City - Jan 18, 2003 - Rev C
* Mortise for adjuster in handle
* lower-front of handle is left, left edge at x=-3.073,
*  Y=0 is centerline (pivot-center is at x,y = 0,0)
*  Z 0 is at the plane of the iron bed
* 2400 RPM, Feed 5, .1 depth, TiN tool, pine: doesn't burn
* You can proceed to cut with STEMSLOT.M right afterward
* TOOL #6 is 3/8" diam. centercutting end mill
Dim Abs
Rapid      Z 0.1
Rapid      X -0.875 Y 0.2813 Tool# 6
Line       Z 0 Feed 5
Line       Z -0.1 Feed 1.2
Call 1
Line       Z -0.2 Feed 1.2
Call 1
Line       Z -0.3 Feed 1.2
Call 1
Line       Z -0.4 Feed 1.2
Call 1
* a bit deeper for plate
Rapid      Y 0.25
Rapid      X -1.375
Line       Z -0.45 Feed 1.2
Line       X 0 Feed 5
Arc Cw     X 0 Y -0.25 Radius 0.25
Line       X -1.375
Line       Y 0.25
* remove ridge
Line       Y 0 Feed 20
Line       X 0 Feed 8
*
Rapid      Z -0.341
* washer
Feed       2
HolePock   XCenter 0 YCenter 0 Diameter 0.8 ZDepth -0.52 Cw StartHgt -0.34
Rapid      Z -0.4
* screw
Rapid      X 0 Y 0
Line       Z -0.57 Feed 1.2
Rapid      Z 0.1
EndMain
*
Sub 1
Line       Y 0.25 Feed 5
Line       X 0
Arc Cw     X 0 Y -0.25 Radius 0.25
Line       X -0.8750
Line       Y -0.2813
Line       X -1.5
Arc Cw     X -1.6875 Y -0.0938 Radius 0.1875
Line       Y 0.0938
Arc Cw     X -1.5 Y 0.2813 Radius 0.1875
Line       X -0.875
Line       Y 0 Feed 8
Line       X -1.4 Feed 8
Line       X -0.8750 Feed 20.0
Line       X 0 Feed 8
Line       X -0.875 Feed 40
Line       Y 0.2813
EndSub