Sradius = GetUserDRO(1245)
radius1 = GetUserDRO(1246)
radius2 = GetUserDRO(1248)
length1 = GetUserDRO(1247)
length2 = GetUserDRO(1249)

If length2>0 Then 
Cutlength = length1 + length2
End If


Pradius = Sradius

While Pradius > radius1 + 0.020

	Pradius = Pradius - 0.020
	code "G0 X"&Pradius
	code "F2 G1 Z"&-Cutlength
	code "G0 z0.01"
	
	
Wend	
	code "G0 X"&radius1
	code "F2 G1 z"&-Cutlength
	code "G0 X"&Sradius
	code "G0 Z0.1"
	
	code "G0 X"&radius1
	code "F2 G1 z"&-Cutlength
	code "G0 X"&Sradius
	code "G0 Z0.1"
	
	

If length2>0 Then
	
	Pradius = radius1
	Cutlength = length2 

	While Pradius > radius2 + 0.020

	Pradius = Pradius - 0.020
	code "G0 X"&Pradius
	code "F2 G1 Z"&-Cutlength
	code "G0 z0.01"
	
	Wend	
	
	code "G0 X"&radius2
	code "F2 G1 z"&-Cutlength
	code "G0 X"&Sradius
	code "G0 Z0.1"
	
	code "G0 X"&radius2
	code "F2 G1 z"&-Cutlength
	code "G0 X"&Sradius
	code "G0 Z0.1"

End If