46 lines
595 B
Plaintext
46 lines
595 B
Plaintext
;Facing
|
|
O<facing> sub
|
|
|
|
G7 ; Lathe Diameter Mode
|
|
G18 ; XZ Plane
|
|
G21 ; Metric Units
|
|
G90 ; Absolute Distance
|
|
|
|
M6 T#7 G43
|
|
|
|
O90 IF [#8 GT 0.5]
|
|
M8
|
|
O90 ENDIF
|
|
|
|
O10 IF [#6 NE 0]
|
|
(MSG, Angled facing isn't supported yet)
|
|
O10 ENDIF
|
|
|
|
#14 = [#<_x> * 2] (starting X)
|
|
#13 = #<_z> (starting Z)
|
|
|
|
G96 D2500 S#2 ; Constant Surface Speed Mode
|
|
M3
|
|
g95 F#4 ; Feed-Per-Rev Mode
|
|
|
|
g4p1 ; Wait to reach speed
|
|
|
|
O200 WHILE [#13 GT #5 + #3]
|
|
|
|
#13=[#13-#3]
|
|
G1 Z#13
|
|
G1 X#1
|
|
G0 Z[#13+#3]
|
|
G0 X#14
|
|
G0 Z#13
|
|
O200 ENDWHILE
|
|
|
|
G1 Z#5
|
|
G1 X#1
|
|
G0 Z[#13+#3]
|
|
G0 X[#14+#3]
|
|
G0 Z#5 ; For touch-off
|
|
M5 M9
|
|
O<facing> endsub
|
|
M2
|