* sole-l2.m - infill smoothing plane - 9" A13 style
* Jim Yehle - Salt Lake City - Aug 2002
* Dovetails (double-splayed) at left edge of sole
* First pass (sole-l1.m) made normal woodworking pins
* This second prog adds 15-degree splay
* Stock is 3/16 thick; sides are 5/32
* (for 1/8 sides, umm . . . give me a minute)
* Held in vise, edge up, front to left
* Part zero is: x=0 at front,
* y=0 at edge toward operator
* z=-.1762 at bottom of prior sockets (accurate!)
* Use 1/2" 60-degree dovetail cutter
Dim Abs
Rapid Z 0.1000
Rapid X 0 Y -0.26
* Depth is .1762: 5/32 (.15625) + .02 proud
Rapid Z -0.1762
*
* Front two sockets ahead of iron
Rapid X 0.9666
Call 2
Rapid X 2.1541
Call 2
* Four sockets behind iron
Rapid X 4.1250
Call 3
Rapid X 5.6250
Call 3
Rapid X 7.1250
Call 3
Rapid X 8.6249
Call 3
Rapid Z 0.1
EndMain
*
* Cut 15-degree splay into a .5915" wide socket
* For 3/16 stock, to mate with 5/32 stock
* Entry: Y=-.26
* X=center of bottom of right wall of socket
* 15 degree splay over 5/32 run is 0.0335
* (Oops! it's really 0.0419 for 5/32, 0.0335 for 1/8)
Sub 2
Dim Incr
* Move from cutter center to cutter edge: X Incr -0.25
* Move in by cut depth: width of base of splay: X Incr 0.0335
* Move another .5 * (1-cos(30)): X Incr 0.0335
Rapid X -0.183
* Cut in, but only to 60-deg tangent point (.26-.125)
Line Y 0.135 Feed 1.0
* Cut up and over, tapering to nothing at top of prior cut
Line X -0.0335 Z .1562
* Move straight back down .1562 to bottom of socket
Line Z -0.14 Feed 10
Line Z -0.0162 Feed 3.0
* Move to left side of socket and repeat
* (.192 for .5915-wide socket; only cutting on final .0335)
Line X -0.1585 Feed 3.0
Line X -0.0335 Feed 1.0
Line X 0.0335 Z .1562
Dim Abs
Rapid Y -0.26
Rapid Z -0.1762
EndSub
*
* Cut one .75" wide socket
Sub 3
Dim Incr
Rapid X -0.183
Line Y 0.135 Feed 1.0
Line X -0.0335 Z .1562
Line Z -0.14 Feed 10
Line Z -0.0162 Feed 3.0
* Move to left side of socket and repeat
* (.3505 for .75-wide socket; only cutting on final .0335)
Line X -0.317 Feed 3.0
Line X -0.0335 Feed 1.0
Line X 0.0335 Z .1562
Dim Abs
Rapid Y -0.26
Rapid Z -0.1762
EndSub
|
* sole-r2.m - infill smoothing plane - 9" A13 style
* Jim Yehle - Salt Lake City - Aug 2002
* Dovetails (double-splayed) at right edge of sole
* First pass (sole-r1.m) made normal woodworking pins
* This second prog adds 15-degree splay
* Stock is 3/16 thick; sides are 5/32
* (for 1/8 sides, umm . . . give me a minute)
* Held in vise, edge up, front to left
* Part zero is: x=0 at front,
* y=0 at edge away from operator
* z=-.1762 at bottom of prior sockets (accurate!)
* Use 1/2" 60-degree dovetail cutter
Dim Abs
Rapid Z 0.1000
Rapid X 0 Y 0.26
* Depth is .1762: 5/32 (.15625) + .02 proud
Rapid Z -0.1762
*
* Front two sockets ahead of iron
Rapid X 0.9666
Call 2
Rapid X 2.1541
Call 2
* Four sockets behind iron
Rapid X 4.1250
Call 3
Rapid X 5.6250
Call 3
Rapid X 7.1250
Call 3
Rapid X 8.6249
Call 3
Rapid Z 0.1
EndMain
*
* Cut 15-degree splay into a .5915" wide socket
* For 3/16 stock, to mate with 5/32 stock
* Entry: Y=.26
* X=center of bottom of right wall of socket
* 15 degree splay over 5/32 run is 0.0335
* (Oops! it's really 0.0419 for 5/32, 0.0335 for 1/8)
Sub 2
Dim Incr
* Move from cutter center to cutter edge: X Incr -0.25
* Move in by cut depth: width of base of splay: X Incr 0.0335
* Move another .5 * (1-cos(30)): X Incr 0.0335
Rapid X -0.183
* Cut in, but only to 60-deg tangent point (.26-.125)
Line Y -0.135 Feed 1.0
* Cut up and over, tapering to nothing at top of prior cut
Line X -0.0335 Z .1562
* Move straight back down .1562 to bottom of socket
Line Z -0.14 Feed 10
Line Z -0.0162 Feed 3.0
* Move to left side of socket and repeat
* (.192 for .5915-wide socket; only cutting on final .0335)
Line X -0.1585 Feed 3.0
Line X -0.0335 Feed 1.0
Line X 0.0335 Z .1562
Dim Abs
Rapid Y 0.26
Rapid Z -0.1762
EndSub
*
* Cut one .75" wide socket
Sub 3
Dim Incr
Rapid X -0.183
Line Y -0.135 Feed 1.0
Line X -0.0335 Z .1562
Line Z -0.14 Feed 10
Line Z -0.0162 Feed 3.0
* Move to left side of socket and repeat
* (.3505 for .75-wide socket; only cutting on final .0335)
Line X -0.317 Feed 3.0
Line X -0.0335 Feed 1.0
Line X 0.0335 Z .1562
Dim Abs
Rapid Y 0.26
Rapid Z -0.1762
EndSub
|