%
M3                    ;Turn spindle clockwise (n/a)

; Cut line from x1 y1 x2 y2 depth - presumes start at 0 0

o<cut_line> sub
  #<X1> = #1 ; start X
  #<Y1> = #2 ; start Y
  #<X2> = #3 ; end X
  #<Y2> = #4 ; end Y
  #<cut_depth> = #5 ; depth in mm
  #<cutter_feed_rate> = 50
  F#<cutter_feed_rate>   ;Set Feed Rate Slow
  #<safe_height> = 5
  G00 Z#<safe_height>   ;Go up to safe height
  G00 X#<X1> Y#<Y1>
  G01 Z#<cut_depth>	
  G01 X#<X2> Y#<Y2>
  ; G3 X0 Y62 I-62 J-0
  G3 X-53.6936 Y31.0000 I-0.0000 J-62.0000
o<cut_line> endsub

G00 X-60 Y62 Z0 ; Start in middle

#<cut_depth> = -10
#<current_cut_depth> = 0
#<cut_step> = 0.5
o<single_cut> while [ #<current_cut_depth> GE #<cut_depth> ]
  #<current_cut_depth> = [#<current_cut_depth> - #<cut_step>]
  ; cut line
  o<cut_line> call [60] [62] [0] [62] [#<current_cut_depth>]
o<single_cut> endwhile
  
; return to zero
G00 Z10
; G00 X0 Y0  
; G00 Z0              
M5
%