* levcap-l.m
*
* Lever cap for smoothing plane
* Side-mill the top curve
* Thickness has been milled to .5 already
* Left edge up; centerline above vise
* Part zero is:
*  x=0 is at right; 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.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
Line       Z -1.10
Call 1
*
EndMain
*
* Sub 1
* Cut the front (lower) curves:
*  - Ramp in up from bottom, toolcomp left
*  - Tight arc around nose, then
*    broad curve on top
*  - Ramp off top, toolcomp off
*  - Raise cutter above Z=0,
*    return to start
Sub 1
Line       Y -0.2500 Feed 3.0
Arc Cw     X -3.1242 Y 0.2008 Radius 0.2852
Arc Cw     X -2.0027 Y 0.7500 Radius 1.4197
Line       Y 0.7510
Rapid      Z 0.1000
Rapid      X -2.8923 Y -0.2600
EndSub