33 lines
430 B
Plaintext
33 lines
430 B
Plaintext
;grooving
|
|
|
|
O<grooving> sub
|
|
|
|
G8 ; Radius mode (easier maths)
|
|
G18 ; XZ Plane
|
|
G21 ; Metric Units
|
|
G90 ; Absolute Distance
|
|
G91.1 ; but not for arcs
|
|
|
|
M6 T#4 G43
|
|
|
|
#1 = [#1 / 2] ; because of radius mode
|
|
|
|
#14 = [#<_x>] (starting X)
|
|
|
|
G96 D1500 S#2 ; Constant Surface Speed Mode
|
|
m3 ;Start Spindle
|
|
g95 F#3 ; Feed-Per-Rev Mode
|
|
|
|
O90 IF [#5 GT 0.5]
|
|
M8
|
|
O90 ENDIF
|
|
|
|
g4p1 ; Wait to reach speed
|
|
G1 F#3 X#1
|
|
G0 X#14
|
|
M5 M9
|
|
G7
|
|
O<grooving> endsub
|
|
|
|
M2
|