* psidedn3.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
* Shave unpeened section of tails
* Tool is 1/2" end mill
* 1800 rpm 50% feed stays cool (w/o lube mist)
* Best to run right after psidedn1.m
Dim Abs
Rapid      Z 0.1000
Rapid      X 0 Y -0.26
Line       Z -0.015
Call 1
Line       Z -0.03
Call 1
* Depth is .03 of the total .05 for peening
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 - shave all tails at current Z depth
Sub 1
* Two 1.125 tails before iron (X @ 1st tail's back)
Rapid      X 1.375
Call 2
Rapid      X 3.625
Call 2
* Five 1" tails 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
Rapid      X 13.75
Call 3
EndSub

*--------------------------------------------------
* Trim one 1.125" wide tail
* Entry: Y=-.26
*  X=center of bottom of right wall of tail
* Exit: Y=-.26
Sub 2
* Move from tool centerline to its outer edge
* Leave .125 wide peening stock .125 wide
* angling 45 deg to shaved-off unpeened tail center
* i.e. (1/2" mill) .25 + .125 + .03 = .405
** i.e. (3/8 chamfer) .1875+ .125 + .03 = .3425
Dim Incr
Rapid      X -0.405
*chamfer: Rapid      X -0.3425
Dim Abs
Line       Y 0 Feed 2
Call 4
* Other side: 1.125 - .405 = .72
*chamfer: Other side: 1.125 - .3425 = .7825
* Current X is entry-X - .405 => left .72-.405=.315
*chamfer:  => left .7825-.3425=.44
Dim Incr
Line       X -0.315
*chamfer: Line       X -0.44
Dim Abs
Line       Y -0.01
Line       Y -0.26 Feed 30
EndSub
*--------------------------------------------------
* Same as Sub 4, but for one 1" wide tail
Sub 3
Dim Incr
Rapid      X -0.405
*chamfer: Rapid      X -0.3425
Dim Abs
Line       Y 0 Feed 2
Call 4
* Other side: 1 - .405 = .595
*chamfer: Other side: 1 - .3425 = .6575
* Current X is entry-X - .405 => left .595-.405=.19
*chamfer:  => left .6575-.3425=.315
Dim Incr
Line       X -0.19
*chamfer: Line       X -0.315
Dim Abs
Line       Y -0.01
Line       Y -0.26 Feed 30
EndSub