* travhar1.m - Yehle #13 9" smoothing plane
* harness for traveler, stem-end profile only (no drilling/boring)
* This version is if you've roughed to within about 1/16" of the final line
* Assuming that, 50% feed rate at 2000 rpm with a coated mill works okay
* Shave right (stem) end first--this prog doesn't cut it
* (but edit Sub 2 to include this cut)
* Stem end is toward right
* Part zero is: x=0 at stem edge (air right of here)
*  y = 0 on centerline; .4228 needed above & below
*  Z 0 on top surface
* Mat'l is 3/8 steel plate,
*  held with enough stock (.6495 + mill diam) protruding clear
* Tool is 1/4 centercutting end mill w/min .39" flutes
* (Anilam CNC bugs prevent use of ToolComp for this part)
Rapid      Z 0.1
Call 1
Line       Z 0 Feed 10
Line       Z -0.04 Feed 1.0
Call 3
Line       Z -0.04 Feed 10
Line       Z -0.08 Feed 1.0
Call 3
Line       Z -0.08 Feed 10
Line       Z -0.12 Feed 1.0
Call 3
Line       Z -0.12 Feed 10
Line       Z -0.16 Feed 1.0
Call 3
Line       Z -0.16 Feed 10
Line       Z -0.20 Feed 1.0
Call 3
Line       Z -0.20 Feed 10
Line       Z -0.24 Feed 1.0
Call 3
Line       Z -0.24 Feed 10
Line       Z -0.28 Feed 1.0
Call 3
Line       Z -0.28 Feed 10
Line       Z -0.32 Feed 1.0
Call 3
Line       Z -0.32 Feed 10
Line       Z -0.36 Feed 1.0
Call 3
Line       Z -0.36 Feed 10
Line       Z -0.385 Feed 1.0
Call 3
*
Rapid      Z 0.1
EndMain
*
Sub 1
Rapid      Z 0.1
Rapid      X -0.5199 Y 0.5989
EndSub
*
Sub 2
Line       X -0.2795 Y 0.3125 Feed 4.0
Line       X 0
* Remove comments from these 3 lines to cut stem end
*Arc Cw     X 0.125 Y 0.1875 Radius 0.125
*Line       Y -0.1875
*Arc Cw     X 0 Y -0.3125 Radius 0.125
* Comment out these lines to cut stem end
Line       X 0.2000 Feed 20.0
Line       Y -0.3125
Line       X 0.1000
Line       X 0.0000 Feed 4.0
* The two choices merge here
Line       X -0.2795 Feed
Line       X -0.5199 Y -0.5989
EndSub
*
Sub 3
Call 2
Call 1
EndSub