; CFOG Procedure for FABtotum BEGIN (Change Filament On the Go) 
; By Angelo D'Angelo 2016 
; www.angelodangelo.com

; !!! COPY HERE THE "G1" LINE BEFORE CFOG PROCEDURE WITH "E" VALUE 
;MINUS 7 
G1 X94.550 Y119.843 EXXX 
M728 ;FAB beep beep
M728 ;FAB beep beep Double sound alert 
G4 S1 ;1 second pause to reach the printer

G1 X10 Y10 Z70.0 F{travel_speed} ;move to oozing point 
;(In Case the CFOCG is applied at Z higher than 70,
; change the value to a greater value)
G92 E0 ;zero the extruded length

G91 ;Set relative positioning
M728 ;FAB beep beep !!! 
;REMOVE BOWDEN TUBE FROM THE HEAD AND CUT THE EXCESS FILAMENT!!!
G4 S10 ;10 seconds pause to cut the filament

G91 ;Set relative positioning
G1 F1000 E-799 
;fastly unload 799 mm of filament (depending on your bowden lenght)
G91 ;Set relative positioning
G1 F1000 E-299 
;fastly retract 299 mm of filament (if it wasn't enough)

M728 ;FAB beep beep
;!!! REMOVE THE OLD FILAMENT AND INSERT THE NEW ONE !!!
G4 S5 ;5 seconds pause to change the filament


;M109 SXXX 
;!!!SET NEW MATERIAL TEMP (IF NEEDED) 

G91 ;Set relative positioning
G1 F1000 E799 
;fastly load 799 mm of filament 
G91 ;Set relative positioning
G1 F1000 E199 
;fastly load 199 mm of filament


M728 ;FAB beep beep
;!!!CUT THE EXCESS OF FILAMENT FROM THE BOWDEN AND INSERT IT IN THE HEAD !!!
G4 S5 
;5 second pause to cut the excess of filament and insert the bowden 
;in the the head

G91 ;Set relative positioning
G1 F300 E150 ;slowly extrude 150 mm of filament to clean the nozzle
G91 ;Set relative positioning
G1 F300 E150 ;slowly extrude 150 mm of filament to clean the nozzle twice 

G92 EXXXX ; !!! SET HERE THE VALUE OF "E" AFTER CFOG PROCEDURE !!!

G4 S1 ;1 millisecond pause to buffer the beep beep
M728 ;FAB beep beep 
G4 S1 ;1 millisecond pause to buffer the beep beep

G90
G1 F9000 


; CFOG Procedure END











; !!! COPY HERE THE "G1" LINE BEFORE CFOG PROCEDURE WITH "E" VALUE 
;MINUS 7 
G1 X94.550 Y119.843 E1268.38323