LinuxCNC spindle speed variation WIP

ssv.ngc

(SPINDLE SPEED VARIATION)
#1=-20 (-W - TODO: OR +W)
#2=700 (MAX RPM)
#3=500 (MIN RPM)
#4=100 (RPM STEP)
#5=7 (Z INTERVAL)
#6=0 (INDEX)
#7=600 ([ [ #2 + #3 ] / 2 ]) (SPINDLE SPEED)

G21
G28 G91 X0Z0
G40 G80 G90
G0 X10 Z10
M3
O200 sub
  O201 WHILE [ #1 LT 0 ]
    #1 = [ #1 + 0.01 ]
    #7 = [ #7 + #4 ]
    S#7
    O202 IF [ [ ABS [ #6 ] MOD #5 ] EQ 0 ]
      #4 = [ 0 - #4 ]
      M1
      O202 ENDIF
    G91 G1 Z-0.01 F1
    G90
  O201 ENDWHILE
O200 endsub
O200 CALL [#1] [#2] [#3] [#4] [#5] [#6] [#7]
G1 G91 X1 F0.5
G90
G28 G91 Z0
G90
M5
M30