* travhar2.m - Yehle #13 9" smoothing plane
* harness for traveler, traveler-end profile only (no drilling/boring)
* This version is if you've roughed to within about 1/16" of the final line
* Assuming that, 40% feed rate at 2000 rpm with a coated mill works okay
* Stem end is toward left
* Part zero is: x=0 at stem edge
*  y = 0 on centerline; .4228 needed above & below
*  Z 0 on top surface
* Mat'l is 3/8 steel plate,
*  held with traveler end protruding clear on left end
* Tool is 1/4 centercutting end mill w/min .39 long flutes
* (Anilam CNC bugs prevent use of ToolComp for this part)
Call 1
Line       Z 0 Feed 10.0
Line       Z -0.04 Feed 1.0
Call 3
Line       Z -0.04 Feed 10.0
Line       Z -0.08 Feed 1.0
Call 3
Line       Z -0.08 Feed 10.0
Line       Z -0.12 Feed 1.0
Call 3
Line       Z -0.12 Feed 10.0
Line       Z -0.16 Feed 1.0
Call 3
Line       Z -0.16 Feed 10.0
Line       Z -0.20 Feed 1.0
Call 3
Line       Z -0.20 Feed 10.0
Line       Z -0.24 Feed 1.0
Call 3
Line       Z -0.24 Feed 10.0
Line       Z -0.28 Feed 1.0
Call 3
Line       Z -0.28 Feed 10.0
Line       Z -0.32 Feed 1.0
Call 3
Line       Z -0.32 Feed 10.0
Line       Z -0.36 Feed 1.0
Call 3
Line       Z -0.36 Feed 10.0
Line       Z -0.385 Feed 1.0
Call 3
*
Rapid      Z 0.1
EndMain
*
Sub 1
* Position tool over plunge point
Rapid      Z 0.1
Rapid      X 0.6157 Y 0.5186
EndSub
*
Sub 2
Line       X 0.7298 Y 0.4228 Feed 4
Arc Cw     X 0.7107 Y 0.2180 Radius 0.125 Feed 6
Arc Ccw    X 0.7107 Y -0.2180 Radius 0.25 Feed 4
Arc Cw     X 0.7298 Y -0.4228 Radius 0.125 Feed 6
Line       X 0.6157 Y -0.5186 Feed 4
EndSub
*
Sub 3
Call 2
Call 1
EndSub