Kod: Zaznacz cały

o<touchoff> sub
(#1 pierce height, #2 pierce delay, #3 cut height)

#<arc-fails> = 0

 o100 do   
    M9
    G38.2 Z-100 F2000 (Probe to find the surface)
    G91
    G1 Z7 (Raise up to Z0)
    G90
    G92 Z0 (Set Z0)
    G1 Z#1
    M3 S1   (Fire torch)
    G4 P#2
    G1 Z#3  (Raise to pierce height)

/   M66 P0 L1 Q2 (Q czas testu)
/	o200 if [#5399 EQ -1] (Check to see if torch failed to fire)
/	  	(MSG, Blad palnika)
/ 	 	M5
/	      	#<arc-fails> = [#<arc-fails> + 1]
/	       	o300 if [#<arc-fails> GT 3.0000] (Check if torch has failed 4 times in a row)
/       		G38.2 Z100 F2000 (raise torch high enough to change consumables)
/	     		G91
/    			G1 Z-10 (Raise up to Z0)
/    			G90
/          		#<arc-fails> = 0 (reset arc failure counter)
/	  		(MSG, Sprawdz palnik)
/          		M1 (pause)
/        	o300 endif
/	o200 endif
/o100 while [[#5399 EQ -1]]
 	G4 P#2 (Pause for pierce delay)
o<touchoff> endsub
M2