* levcap-r.m
*
* Lever cap for smoothing plane
* Side-mill the top curve
* Thickness has been milled to .5 already
* Right edge up; centerline above vise
* Part zero is:
*  x=0 is at left; top edge
*   (behind adjusting screw)
*   (or tip of nose is x=2.9275)
*  y=0.5 is top surface
*   THIS MUST BE PRECISE!
* Tool is 1/2" end mill
Rapid      Z 0.1000
Rapid      X 2.8923 Y -0.26000
*
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

Line       Z -0.54
Call 1
Line       Z -0.56
Call 1
Line       Z -0.58
Call 1
Line       Z -0.60
Call 1
Line       Z -0.62
Call 1
Line       Z -0.64
Call 1
Line       Z -0.66
Call 1
Line       Z -0.68
Call 1
Line       Z -0.70
Call 1
Line       Z -0.72
Call 1
Line       Z -0.74
Call 1
Line       Z -0.76
Call 1
Line       Z -0.78
Call 1
Line       Z -0.80
Call 1
Line       Z -0.82
Call 1
Line       Z -0.84
Call 1
Line       Z -0.86
Call 1
Line       Z -0.88
Call 1
Line       Z -0.90
Call 1
Line       Z -0.92
Call 1
Line       Z -0.94
Call 1
Line       Z -0.96
Call 1
Line       Z -0.98
Call 1
Line       Z -1.00
Call 1
Line       Z -1.02
Call 1
Line       Z -1.04
Call 1
Line       Z -1.06
Call 1
Line       Z -1.08
Call 1
*
EndMain
*
* Sub 1
* Cut the front (lower) curves:
*  - Ramp in up from bottom
*  - Tight arc around nose, then
*    broad curve on top
*  - Ramp off top
*  - Raise cutter above Z=0,
*    return to start
Sub 1
Line       Y -0.25 Feed 3
Arc Ccw    X 3.1242 Y 0.2008 Radius 0.2852 Feed 8
Arc Ccw    X 2.0027 Y 0.75 Radius 1.4197 Feed 3
Line       Y 0.7510 Feed 20
Rapid      Z 0.1000
Rapid      X 2.8923 Y -0.2600
EndSub