* 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