* psole-l1.m - 14" infill panel plane
* Jim Yehle - Salt Lake City - Jan 2, 2004
* Dovetails (double-splayed) at left edge of sole
*  First pass makes normal woodworking pins
*  Second prog (psole-l2.m) adds 15-degree splay
* Stock is 3/16 thick; sides are 1/8
* (for 5/32 sides, just change Z final depth below)
* Held in vise, left edge up, front to left
* Part zero is: x=0 at front,
*  y=0 at edge toward operator
* Use 3/8" end mill (2200 rpm, 50% feed: 35 min)
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
*5/32 sides: Line       Z -0.16
*5/32 sides: Call 1
* Depth is .145: 1/8 + .02 proud
Line       Z -0.145
*5/32 sides: * Depth is .1762: 5/32 (.15625) + .02 proud
*5/32 sides: Line       Z -0.1762
Call 1
Rapid      Z 0.1
EndMain
*
* Sub 1
Sub 1
* Front two sockets ahead of iron
Rapid      X 1.375
Call 2
Rapid      X 3.625
Call 2
* Five sockets behind iron
Rapid      X 5.75
Call 3
Rapid      X 7.75
Call 3
Rapid      X 9.75
Call 3
Rapid      X 11.75
Call 3
Rapid      X 13.75
Call 3
EndSub
*
* Cut one 1.125" wide socket
* (which is .5335 wider than .5915 min. socket width)
* For 3/16 stock
* Entry: Y=-.2, X=right wall of socket
*  Z is plunged to correct depth
Sub 2
Dim Incr
Rapid      X -0.101
* 30 degree cut across, left and away
Line       X -0.1947 Y 0.3373 Feed 3
Line       X -0.5335 Feed 4
Line       X -0.1947 Y -0.3373 Feed 6
Dim Abs
EndSub
*
* Cut one 1" wide socket (.4085 wider than .5915)
Sub 3
Dim Incr
Rapid      X -0.101
Line       X -0.1947 Y 0.3373 Feed 3
Line       X -0.4085 Feed 4
Line       X -0.1947 Y -0.3373 Feed 6
Dim Abs
EndSub