* This program is untested!
* travyoke.m - Yehle #13 9" smoothing plane
* yoke for traveler, profile only (no drilling/boring)
* Front of part is toward left
* 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 clamped to wood
* or with enough stock (.6495 + mill diam) protruding clear
* Tool is 1/8 centercutting end mill w/min 3/8 flutes
* (Anilam CNC bugs prevent use of ToolComp for this part)
* Runs okay at 40% feed, 2300 rpm, TiN coated HSS tool
Rapid      Z 0.1
Rapid      X 0.0625 Y 0.25
Line       Z -0.02 Feed 3.0
Call 1
Line       Z -0.04 Feed 1.0
Call 1
Line       Z -0.06 Feed 1.0
Call 1
Line       Z -0.08 Feed 1.0
Call 1
Line       Z -0.10 Feed 1.0
Call 1
Line       Z -0.12 Feed 1.0
Call 1
Line       Z -0.14 Feed 1.0
Call 1
Line       Z -0.16 Feed 1.0
Call 1
Line       Z -0.18 Feed 1.0
Call 1
Line       Z -0.20 Feed 1.0
Call 1
Line       Z -0.22 Feed 1.0
Call 1
Line       Z -0.24 Feed 1.0
Call 1
Line       Z -0.26 Feed 1.0
Call 1
Line       Z -0.28 Feed 1.0
Call 1
Line       Z -0.30 Feed 1.0
Call 1
Line       Z -0.32 Feed 1.0
* Our piece will be hanging by a hair soon,
*  so keep the inner arc thick by raising tool then
Call 5
Line       Z -0.34 Feed 1.0
Call 5
Line       Z -0.36 Feed 1.0
Call 5
Line       Z -0.38 Feed 1.0
Call 5
* Finish it off
Call 6
Line       Z -0.28 Feed 20
Line       Z -0.30 Feed 1.0
Call 7
Line       Z -0.30 Feed 20
Line       Z -0.32 Feed 1.0
Call 7
Line       Z -0.32 Feed 20
Line       Z -0.34 Feed 1.0
Call 7
Line       Z -0.34 Feed 20
Line       Z -0.36 Feed 1.0
Call 7
Line       Z -0.36 Feed 20
Line       Z -0.38 Feed 1.0
Feed 2.0
Call 3
*
Rapid      Z 0.1
Line       X 0.5 Feed 20.0 ToolComp Off
Line       X 1.0 Tool# 0
EndMain
*
Sub 1
Call 2
Call 3
Call 4
EndSub
*
Sub 2
*ToolComp version (doesn't work)
*Line       X -0.3378 CornerRad 0.125 Feed 2.0
*Line       X -0.5353 Y 0.4228 CornerRad 0.025
*Line       X -0.6495 Y 0.327
Line       X -0.2795 Feed 2
Arc Cw     X -0.3274 Y 0.2723 Radius 0.0625
Line       X -0.5276 Y 0.5109
Line       X -0.7714 Y 0.3064
*
Sub 3
*ToolComp version (doesn't work)
*equiv: Arc Cw     X -0.6495 Y -0.327 Radius 0.75
*CNC reports error here, and cuts radius way too big
*Arc Cw     X -0.6495 Y -0.327 XCenter -0.833 YCenter 0
Arc Cw     X -0.7714 Y -0.3064 Radius 0.3125
EndSub
*
Sub 4
*ToolComp version (doesn't work)
*Line       X -0.5353 Y -0.4228 CornerRad 0.025 Feed 2.0
*Line       X -0.3378 Y -0.1875 CornerRad 0.125
*Line       X 0
*Line       Y 0.1875
Line       X -0.5276 Y -0.5109
Line       X -0.3274 Y -0.2723
Arc Cw     X -0.2795 Y -0.25
Line       X -0.0625
Line       Y 0.25
EndSub
*
* Our piece will be hanging by a hair soon,
*  so keep the inner arc thick by raising tool then
Sub 5
Call 2
Dim Incr
Line       Z 0.5 Feed 40
Dim Abs
Rapid      X -0.7714 Y -0.3064
Dim Incr
Line       Z -0.45 Feed 20
Line       Z -0.05 Feed 1.0
Dim Abs
Call 4
EndSub
*
Sub 6
* Return fast with tool raised
* to cut another pass on big arc
Rapid      Z 0.1
*ToolComp version (doesn't work)
*Rapid      X -0.5353 Y 0.4228
*Line       X -0.6495 Y 0.327 Feed 20
Rapid      X -0.7714 Y 0.3064
EndSub
*
Sub 7
* Finish it off -- cut final thin stock, big arc
Feed 2.0
Call 3
Call 6
EndSub