* sol-r2.m
* yehle #13 9" infill smoothing plane
* test: first dovetail 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
* 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
* test: quit now
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