* sidbot2.m
* yehle #13 9" infill smoothing plane
* test: cut first dovetail at bottom edge of side
* Stock is 5/32 thick
* Held in vise, bottom edge up, front at left
* Part zero is: x=0 at front (from sidbot1.m),
*  y=0 at edge toward operator (from sidbot1.m),
*  z=-.235 is at bottom of prior cut sockets
* Undercut w/dovetail cutter: 1/2" tip, 60 degree
*  after roughing out w/ 1/2" end mill (sidebot1.m)
Dim Abs
Rapid      Z 0.1000
Rapid      X 0 Y -0.26
* Depth is .2375: 3/16 + .05 proud for peening
* (Already roughed down to Z=-0.235 in sidbot2.m)
Rapid      Z -0.2375
* Front half-socket: cut right only
Rapid      X 0.3751
Call 1
* One socket ahead of iron, .596" wide
Rapid      X 0.9666
Call 2
Dim Incr
Rapid      X 0.596
Dim Abs
Call 1
* test: quit now
Rapid      Z 0.1
EndMain
*
* Sub 1 - cut angled wall to right of current X
* Should work for 1/8 or 5/32 stock
* Entry: Y=-.26
*  X=center of bottom of left wall of socket
* For 60 degrees for 3/16 sole, that's a .1083 X cut
Sub 1
Dim Incr
* Shift 1/2" cutter: centerline to edge (prior cut)
Rapid      X -0.25
* This should cut nothing but floor if we go across +Y
* Total cut: .1083; five calls to sub 7 will move X .10 right
Call 7
Call 7
Call 7
Call 7
Call 7
* Final .0083 as .007 out then .0013 finish cut back
* That's what the design call for, but in practice
* things turned out .006 loose, so go .004 + .0013
*Rapid      X 0.007 *** original
Rapid      X 0.004
Line       Y 0.26 Feed 3.0
Line       Y 0.1563
Line       X 0.0013 Feed 1.0
Line       Y -0.1563 Feed 3.0
Line       Y -0.26 Feed 8.0
* Restore entry-time X position: -.1083 + .25
Rapid      X 0.1417
Dim Abs
EndSub
*
* Sub 2 - cut angled wall to left of current X
Sub 2
Dim Incr
Rapid      X 0.25
Call 8
Call 8
Call 8
Call 8
Call 8
*Rapid      X -0.007 *** original
Rapid      X -0.004
Line       Y 0.26 Feed 3.0
Line       Y 0.1563
Line       X -0.0013 Feed 2.0
Line       Y -0.1563 Feed 3.0
Line       Y -0.26 Feed 8.0
Rapid      X -0.1417
Dim Abs
EndSub
*
Sub 7
* Entry: Y = -.26
* Dim Incr assumed
Rapid      X 0.01
Line       Y 0.26 Feed 3.0
Line       Y 0.1563
Line       X 0.01 Feed 1.0
Line       Y -0.1563 Feed 3.0
Line       Y -0.26 Feed 8.0
EndSub
*
Sub 8
* Entry: Y = -.26
* Dim Incr assumed
Rapid      X -0.01
Line       Y 0.26 Feed 3.0
Line       Y 0.1563
Line       X -0.01 Feed 1.0
Line       Y -0.1563 Feed 3.0
Line       Y -0.26 Feed 8.0
EndSub