@compensation
; Handle setting of Diameter Compensation Gcode
; We not use this procedure to output code
; We create our own procedure for this so that we..
; have can control placement during @line,@arc
if side eq COMP_LEFT then
iDiametercomp = 41
if bDiameterCompOutputD
change(iDiameteroffset) = true
endif
endif
if side eq COMP_RIGHT then
iDiametercomp = 42
if bDiameterCompOutputD
change(iDiameteroffset) = true
endif
endif
if side eq COMP_OFF then
iDiametercomp = 40
change(iDiameteroffset) = false
endif
endp
@usr_compensation_output
; Handle output of Diameter Compensation Gcode
if change(iDiametercomp)
if iDiametercomp eq 40 or !bDiameterCompOutputD
{'G'iDiametercomp' '}
else
{'G'iDiametercomp, ' D'tool_number''}
endif
endif
endp
;-------------------