* 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