* psidedn1.m
* 14" infill panel plane
* Jim Yehle - Salt Lake City - Dec 20, 2003
* dovetails at bottom edge of side
* Stock thickness set in Sub 4; mates w/ 3/16" sole
* 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
* 1800 rpm 40% feed stays cool (w/o lube mist)
* Undercut w/dovetail cutter later (psidedn2.m)
* (but if you'll be using psidedn3.m, it's best
*  to run it next, since it uses the same tool)
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 deeper w/ dovetail in psidedn2.m
Rapid      Z 0.1
EndMain
*--------------------------------------------------
* Cut one pass across stock width.
* (A change here will affect all cuts in program)
Sub 4
*1/8 stock: Line       Y 0.125 Feed 4
*5/32 stock: Line       Y 0.1563 Feed 4
*4 ganged 1/8": 
Line       Y 0.51 Feed 4
EndSub
*--------------------------------------------------
* Sub 1 - cut all sockets at current Z depth
Sub 1
* Front half-socket (put X at 1st tail's front)
Rapid      X 0.25
Call 5
* A 1.125 socket before iron (X @ 1st tail's back)
Rapid      X 1.375
Call 2
* One 1.125 socket surrounding iron (ditto)
Rapid      X 3.625
Call 2
* Four 1" sockets behind iron (ditto)
Rapid      X 5.75
Call 3
Rapid      X 7.75
Call 3
Rapid      X 9.75
Call 3
Rapid      X 11.75
Call 3
* Rear half-socket (put X at back of last tail)
Rapid      X 13.75
Call 6
EndSub

*--------------------------------------------------
* Cut one 1.125" wide socket
* 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 its outer edge
Dim Incr
Rapid      X 0.25
Dim Abs
Line       Y 0 Feed 2
Call 4
* 1/2 mill + .625 makes 1.125 socket
Dim Incr
Line       X 0.625
Dim Abs
Line       Y -0.01 Feed 6
Dim Incr
*Next 2 only needed if ganged, > 1/4" tot width
Line       Y 0.135 Feed 10
Line       X -0.375 Feed 3
Dim Abs
Line       Y -0.26 Feed 30
EndSub
*--------------------------------------------------
* Cut one 1" wide socket
Sub 3
Dim Incr
Rapid      X 0.25
Dim Abs
Line       Y 0 Feed 2
Call 4
* 1/2 mill + .5 makes 1.0 socket
Dim Incr
Line       X 0.5
Dim Abs
Line       Y -0.01 Feed 6
Dim Incr
*Next 2 only needed if ganged, > 1/4" tot width
Line       Y 0.135 Feed 10
Line       X -0.25 Feed 3
Dim Abs
Line       Y -0.26 Feed 30
EndSub
*--------------------------------------------------
* Cut front half-socket, up to 1/2" (mill diam) 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
Call 4
Line       Y 0 Feed 8
Line       Y -0.26 Feed 30
EndSub
*--------------------------------------------------
* Cut rear half-socket, up to 1/2" (mill diam) 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
Call 4
Line       Y 0 Feed 8
Line       Y -0.26 Feed 30
EndSub