* levcap-t.m - Lever cap for smoothing plane, Top
* Cut the back (top) curves w/ 1/2" end mill
* Part zero is:
*  x=0 is at left; lower edge that contacts cap iron
*  y=0 is lever cap's left edge
* Part protrudes to right of vise, so that
*  right edge of vise jaw is X=1.411 or less
* While part is located, drill/tap for thumbscrew
* You can also use Sub 1 to cut the chamfer,
*  but be careful of the vise.
Rapid      Z 0.1000
Rapid      X 1.6298 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.24
Call 1
Line       Z -0.26
Call 1
Line       Z -0.28
Call 1
Line       Z -0.30
Call 1
Line       Z -0.32
Call 1
Line       Z -0.34
Call 1
Line       Z -0.36
Call 1
Line       Z -0.38
Call 1
Line       Z -0.40
Call 1
Line       Z -0.42
Call 1
Line       Z -0.44
Call 1
Line       Z -0.46
Call 1
Line       Z -0.48
Call 1
Line       Z -0.50
Call 1
Line       Z -0.52
Call 1
*
* While part is located, drill/tap 3/8 UNC here
Rapid      X 2.5758 Y 1.04
EndMain
*
* Sub 1
* Cut the back (top) curves
Sub 1
Rapid      X 1.6298 Y -0.26
Line       Y -0.1205 Feed 5.0
Arc Cw     X 2.5758 Y 0.4386 Radius 1.0800 Feed 3.0
Arc Ccw    X 2.5758 Y 1.6420 Radius 0.6020
Arc Cw     X 1.6298 Y 2.2205 Radius 1.0800
Line       Y 2.3 Feed 5.0
Rapid      Z 0.1000
Rapid      X 1.6298 Y -0.26
EndSub