* sidbot1.m
* yehle #13 9" infill smoothing plane
* test: 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,
*  y=0 at edge toward operator
* Rough out rectangles using 1/2" end mill
* Undercut w/dovetail cutter later (sidebot2.m)
Dim Abs
Rapid      Z 0.1000
Rapid      X 0 Y -0.26
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
Line       Z -0.16
Call 1
Line       Z -0.18
Call 1
Line       Z -0.20
Call 1
Line       Z -0.22
Call 1
Line       Z -0.235
Call 1
* Depth is .2375: 3/16 + .05 proud for peening
* We'll go .0025 depeer w/ dovetail in sidebot2.m
Rapid      Z 0.1
EndMain
*
* Sub 1 - cut all sockets at current Z depth
Sub 1
* Front half-socket
Rapid      X 0.3751
Call 5
* One socket ahead of iron
Rapid      X 0.9666
Call 2
* test: quit now
EndSub
*
* Cut one .596" wide socket
* Should work for 1/8 or 5/32 stock
* Entry: Y=-.26
*  X=center of bottom of left wall of socket
* Exit: Y=-.26
Sub 2
* Straight proud peening stock
* Move from tool centerline to edge
Dim Incr
Rapid      X 0.25
Dim Abs
Line       Y 0 Feed 3.0
* (this is overkill for 1/8 stock, but will work)
Line       Y 0.1563 Feed 4.0
* 1/2 mill + .096 makes .596 socket
Dim Incr
Line       X 0.096
Dim Abs
Line       Y 0 Feed 6.0
Line       Y -0.26 Feed 30.0
EndSub
*
* Cut one 1.2209" wide socket (.6249 wider than .596)
Sub 3
Dim Incr
Rapid      X 0.25
Dim Abs
Line       Y 0 Feed 2.0
Line       Y 0.1563 Feed 4.0
* 1/2 mill + .7209 makes 1.2209 socket
Dim Incr
Line       X 0.7209
Dim Abs
Line       Y 0 Feed 6.0
Line       Y -0.26 Feed 30.0
EndSub
*
* Cut one .75" wide socket (.154 wider than .596)
Sub 4
Dim Incr
Rapid      X 0.25
Dim Abs
Line       Y 0 Feed 2.0
Line       Y 0.1563 Feed 4.0
* 1/2 mill + .25 makes .75 socket
Dim Incr
Line       X 0.25
Dim Abs
Line       Y 0 Feed 6.0
Line       Y -0.26 Feed 30.0
EndSub
*
* Cut front half-socket (.3751 wide)
* Entry: Y=-.26
*  X=center of bottom of right wall of socket
Sub 5
Dim Incr
Rapid      X -0.25
Dim Abs
Line       Y 0 Feed 2.0
Line       Y 0.1563 Feed 4.0
Line       Y 0.0000 Feed 8.0
Line       Y -0.260 Feed 30.0
EndSub
*
* Cut rear half-socket (.3751 wide)
* Entry: Y=-.26
*  X=center of bottom of left wall of socket
Sub 6
Dim Incr
Rapid      X 0.25
Dim Abs
Line       Y 0 Feed 3.0
Line       Y 0.1563
Line       Y 0 Feed 8.0
Line       Y -0.26 Feed 30.0
EndSub
