* sole-l2.m - infill smoothing plane - 9" A13 style
* Jim Yehle - Salt Lake City - Aug 2002
* Dovetails (double-splayed) at left edge of sole
*  First pass (sole-l1.m) made normal woodworking pins
*  This second prog adds 15-degree splay
* Stock is 3/16 thick; sides are 5/32
* (for 1/8 sides, umm . . . give me a minute)
* Held in vise, edge up, front to left
* Part zero is: x=0 at front,
*  y=0 at edge toward operator
*  z=-.1762 at bottom of prior sockets (accurate!)
* Use 1/2" 60-degree dovetail cutter
Dim Abs
Rapid      Z 0.1000
Rapid      X 0 Y -0.26
* Depth is .1762: 5/32 (.15625) + .02 proud
Rapid      Z -0.1762
*
* 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
Rapid      Z 0.1
EndMain
*
* Cut 15-degree splay into a .5915" wide socket
* For 3/16 stock, to mate with 5/32 stock
* Entry: Y=-.26
*  X=center of bottom of right wall of socket
* 15 degree splay over 5/32 run is 0.0335
* (Oops! it's really 0.0419 for 5/32, 0.0335 for 1/8)
Sub 2
Dim Incr
* Move from cutter center to cutter edge: X Incr -0.25
* Move in by cut depth: width of base of splay: X Incr 0.0335
* Move another .5 * (1-cos(30)): X Incr 0.0335
Rapid      X -0.183
* Cut in, but only to 60-deg tangent point (.26-.125)
Line       Y 0.135 Feed 1.0
* Cut up and over, tapering to nothing at top of prior cut
Line       X -0.0335 Z .1562
* Move straight back down .1562 to bottom of socket
Line       Z -0.14 Feed 10
Line       Z -0.0162 Feed 3.0
* Move to left side of socket and repeat
* (.192 for .5915-wide socket; only cutting on final .0335)
Line       X -0.1585 Feed 3.0
Line       X -0.0335 Feed 1.0
Line       X 0.0335 Z .1562
Dim Abs
Rapid      Y -0.26
Rapid      Z -0.1762
EndSub
*
* Cut one .75" wide socket
Sub 3
Dim Incr
Rapid      X -0.183
Line       Y 0.135 Feed 1.0
Line       X -0.0335 Z .1562
Line       Z -0.14 Feed 10
Line       Z -0.0162 Feed 3.0
* Move to left side of socket and repeat
* (.3505 for .75-wide socket; only cutting on final .0335)
Line       X -0.317 Feed 3.0
Line       X -0.0335 Feed 1.0
Line       X 0.0335 Z .1562
Dim Abs
Rapid      Y -0.26
Rapid      Z -0.1762
EndSub
* sole-r2.m - infill smoothing plane - 9" A13 style
* Jim Yehle - Salt Lake City - Aug 2002
* Dovetails (double-splayed) at right edge of sole
*  First pass (sole-r1.m) made normal woodworking pins
*  This second prog adds 15-degree splay
* Stock is 3/16 thick; sides are 5/32
* (for 1/8 sides, umm . . . give me a minute)
* Held in vise, edge up, front to left
* Part zero is: x=0 at front,
*  y=0 at edge away from operator
*  z=-.1762 at bottom of prior sockets (accurate!)
* Use 1/2" 60-degree dovetail cutter
Dim Abs
Rapid      Z 0.1000
Rapid      X 0 Y 0.26
* Depth is .1762: 5/32 (.15625) + .02 proud
Rapid      Z -0.1762
*
* 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
Rapid      Z 0.1
EndMain
*
* Cut 15-degree splay into a .5915" wide socket
* For 3/16 stock, to mate with 5/32 stock
* Entry: Y=.26
*  X=center of bottom of right wall of socket
* 15 degree splay over 5/32 run is 0.0335
* (Oops! it's really 0.0419 for 5/32, 0.0335 for 1/8)
Sub 2
Dim Incr
* Move from cutter center to cutter edge: X Incr -0.25
* Move in by cut depth: width of base of splay: X Incr 0.0335
* Move another .5 * (1-cos(30)): X Incr 0.0335
Rapid      X -0.183
* Cut in, but only to 60-deg tangent point (.26-.125)
Line       Y -0.135 Feed 1.0
* Cut up and over, tapering to nothing at top of prior cut
Line       X -0.0335 Z .1562
* Move straight back down .1562 to bottom of socket
Line       Z -0.14 Feed 10
Line       Z -0.0162 Feed 3.0
* Move to left side of socket and repeat
* (.192 for .5915-wide socket; only cutting on final .0335)
Line       X -0.1585 Feed 3.0
Line       X -0.0335 Feed 1.0
Line       X 0.0335 Z .1562
Dim Abs
Rapid      Y 0.26
Rapid      Z -0.1762
EndSub
*
* Cut one .75" wide socket
Sub 3
Dim Incr
Rapid      X -0.183
Line       Y -0.135 Feed 1.0
Line       X -0.0335 Z .1562
Line       Z -0.14 Feed 10
Line       Z -0.0162 Feed 3.0
* Move to left side of socket and repeat
* (.3505 for .75-wide socket; only cutting on final .0335)
Line       X -0.317 Feed 3.0
Line       X -0.0335 Feed 1.0
Line       X 0.0335 Z .1562
Dim Abs
Rapid      Y 0.26
Rapid      Z -0.1762
EndSub