* sidebot2.m
* yehle #13 9" infill smoothing plane
* dovetails 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 sidebot1.m),
*  y=0 at edge toward operator (from sidebot1.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
* One socket surrounding iron, 1.2209" wide
Rapid      X 2.1541
Call 2
Dim Incr
Rapid      X 1.2209
Dim Abs
Call 1
* The middle of this socket didn't get cleaned out
*  by a 1/2" cut on either side
Rapid      X 2.75
Line       Y 0.26 Feed 3.0
Line       Y 0.1563
Line       Y -0.1563 Feed 8.0
Line       Y -0.26 Feed 20.0
*
* Three sockets behind iron, .75" wide
Rapid      X 4.1250
Call 2
Dim Incr
Rapid      X 0.75
Dim Abs
Call 1
*
Rapid      X 5.6250
Call 2
Dim Incr
Rapid      X 0.75
Dim Abs
Call 1
*
Rapid      X 7.1250
Call 2
Dim Incr
Rapid      X 0.75
Dim Abs
Call 1
*
* Rear half-socket
Rapid      X 8.6249
Call 2
Rapid      Z 0.1
EndMain
*
* Sub 1 - cut angled wall to right of current X
* For 5/32 stock (for 1/8, change Sub 4 & 5)
* 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
* Will cut nothing but floor (.0025) if we go across +Y
* Total cut: .1083; five calls to sub 7 will move X .10 right
Line       Y .18 Feed 5.0
* With X advanced for .01 cut into wall:
*  motion of Y + .26: .01 air, .18 floor, .07 floor,wall
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
*Line       X 0.007 Feed 5.0 *** original
Line       X 0.004 Feed 5.0
Call 3
Line       X 0.0013 Feed 5.0
Call 4
* Restore entry-time Y,X position: -.26, -.1083+.25
Line       Y -0.18 Feed 8.0
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
Line       Y .18 Feed 5.0
Call 8
Call 8
Call 8
Call 8
Call 8
*Line       X -0.007 Feed 5.0 *** original
Line       X -0.004 Feed 5.0
Call 3
Line       X -0.0013 Feed 5.0
Call 4
Line       Y -0.18 Feed 8.0
Rapid      X -0.1417
Dim Abs
EndSub
*
Sub 7
* Entry: Y = -.08, Dim Incr assumed
Line       X 0.01 Feed 5.0
Call 3
* This X .01 advance cuts floor only
Line       X 0.01 Feed 5.0
Call 4
EndSub
*
Sub 8
* Same as Sub 7, but for left wall
Line       X -0.01 Feed 5.0
Call 3
Line       X -0.01 Feed 5.0
Call 4
EndSub
*
* One cut across Y, 5/32 stock,
*  from .08 below near edge to .08 past far edge
* (okay for 1/8; 1/32 overkill)
Sub 3
Line       Y 0.08 Feed 4.0
Line       Y 0.1563 Feed 3.0
Line       Y 0.08 Feed 20.0
EndSub
*
* Same as Sub 3, but cuts -Y direction
Sub 4
Line       Y -0.08 Feed 4.0
Line       Y -0.1563 Feed 3.0
Line       Y -0.08 Feed 8.0
EndSub