* sole-l1.m - infill smoothing plane - 9" A13 style
* Jim Yehle - Salt Lake City - Aug 2002
* Dovetails (double-splayed) at left edge of sole
*  First pass makes normal woodworking pins
*  Second prog (sole-l2.m) adds 15-degree splay
* Stock is 3/16 thick; sides are 5/32
* (for 1/8 sides, just change Z final depth below)
* Held in vise, edge up, front to left
* Part zero is: x=0 at front,
*  y=0 at edge toward operator
* Use 3/8" end mill, 1800 rpm, 100% feed
Dim Abs
Rapid      Z 0.1000
Rapid      X 0 Y -0.2
Line       Z -0.02
Call 1
Line       Z -0.04
Call 1
Line       Z -0.06
Call 1
Line       Z -0.08
Call 1
Line       Z -0.10
Call 1
Line       Z -0.12
Call 1
Line       Z -0.14
Call 1
Line       Z -0.16
Call 1
Line       Z -0.1762
Call 1
* Depth is .1762: 5/32 (.15625) + .02 proud
* (for 1/8 sides, just change Z final depth to .155)
Rapid      Z 0.1
EndMain
*
* Sub 1
Sub 1
* Front two sockets ahead of iron
Rapid      X 0.9666
Call 2
Rapid      X 2.1541
Call 2
* Four sockets behind iron
Rapid      X 4.1250
Call 3
Rapid      X 5.6250
Call 3
Rapid      X 7.1250
Call 3
Rapid      X 8.6249
Call 3
EndSub
*
* Cut one .5915" wide socket
* For 3/16 stock, to mate with 5/32 stock
* Entry: Y=-.2
*  X=center of bottom of right wall of socket
*  Z is plunged to correct depth
Sub 2
Dim Incr
Rapid      X -0.101
Line       X -0.1947 Y 0.3373 Feed 3.0
Line       X -0.1947 Y -0.3373 Feed 4.0
Dim Abs
EndSub
*
* Cut one .75" wide socket (.1585 wider than .5915)
Sub 3
Dim Incr
Rapid      X -0.101
Line       X -0.1947 Y 0.3373 Feed 3.0
Line       X -0.1585
Line       X -0.1947 Y -0.3373 Feed 4.0
Dim Abs
EndSub

* sole-r1.m - infill smoothing plane - 9" A13 style
* Jim Yehle - Salt Lake City - Aug 2002
* Dovetails (double-splayed) at right edge of sole
*  First pass makes normal woodworking pins
*  Second prog (sole-r2.m) adds 15-degree splay
* Stock is 3/16 thick; sides are 5/32
* (for 1/8 sides, just change Z final depth below)
* Held in vise, edge up, front to left
* Part zero is: x=0 at front,
*  y=0 at edge away from operator
* Use 3/8" end mill, 1800 rpm, 100% feed
Dim Abs
Rapid      Z 0.1000
Rapid      X 0 Y 0.2
Line       Z -0.02
Call 1
Line       Z -0.04
Call 1
Line       Z -0.06
Call 1
Line       Z -0.08
Call 1
Line       Z -0.10
Call 1
Line       Z -0.12
Call 1
Line       Z -0.14
Call 1
Line       Z -0.16
Call 1
Line       Z -0.1762
Call 1
* Depth is .1762: 5/32 (.15625) + .02 proud
* (for 1/8 sides, just change Z final depth to .155)
Rapid      Z 0.1
EndMain
*
* Sub 1
Sub 1
* Front two sockets ahead of iron
Rapid      X 0.9666
Call 2
Rapid      X 2.1541
Call 2
* Four sockets behind iron
Rapid      X 4.1250
Call 3
Rapid      X 5.6250
Call 3
Rapid      X 7.1250
Call 3
Rapid      X 8.6249
Call 3
EndSub
*
* Cut one .5915" wide socket
* For 3/16 stock, to mate with 5/32 stock
* Entry: Y=.2
*  X=center of bottom of right wall of socket
*  Z is plunged to correct depth
Sub 2
Dim Incr
Rapid      X -0.101
Line       X -0.1947 Y -0.3373 Feed 3.0
Line       X -0.1947 Y 0.3373 Feed 4.0
Dim Abs
EndSub
*
* Cut one .75" wide socket (.1585 wider than .5915)
Sub 3
Dim Incr
Rapid      X -0.101
Line       X -0.1947 Y -0.3373 Feed 3.0
Line       X -0.1585
Line       X -0.1947 Y 0.3373 Feed 4.0
Dim Abs
EndSub