o<slot> sub
	; o<slot> call [x1][y1] [x2][y2] [width] [ztop][zbot] [fincut] [mode]

	#<M_CONVENTIONAL> = [FIX[#9/1] MOD 2 EQ 1]
	#<M_BOTHWAYS>     = [FIX[#9/2] MOD 2 EQ 1]
	#<M_PLUNGE>       = [FIX[#9/4] MOD 2 EQ 1]
	#<M_OUTSIDE>      = [FIX[#9/8] MOD 2 EQ 1]
	#<M_CLIMB>        = [FIX[#9/1] MOD 2 EQ 0]
	#<M_ONEWAY>       = [FIX[#9/2] MOD 2 EQ 0]
	#<M_HELIX>        = [FIX[#9/4] MOD 2 EQ 0]
	#<M_INSIDE>       = [FIX[#9/8] MOD 2 EQ 0]

	;G10 L0 ; re-read tool data
	G90	  ; absolute x,y,z
	G90.1 ; absolute i,j,k
	M101  ; enable Z-axis (M102 disables)
	G17   ; select XY plane for arcs

	#<td> = #<_td>
	#<tr> = [#<td>/2]
	o1 if [EXISTS[#<_z_clearance>]]
		#<z_clearance> = #<_z_clearance>
	o1 else
		#<z_clearance> = #5
	o1 endif

	#<a> = [ATAN[#4-#2]/[#3-#1]]
		
	G0 Z#<z_clearance>

	G0 X#1 Y#2
	G0 Z#6
	G1 Z#7
	G1 X#3 Y#4

	
	#<r> = [[#5-#<_td>]/2]

	o100 if [#<M_CLIMB>]
		o101 if [#8 GT 0]
		G1 X[#3 +[SIN[#<a>]*[#<r>-#8]]] Y[#4 -[COS[#<a>]*[#<r>-#8]]]			; point 1
		G3 X[#3 -[SIN[#<a>]*[#<r>-#8]]] Y[#4 +[COS[#<a>]*[#<r>-#8]]] I#3 J#4  ; point 2
		G1 X[#1 -[SIN[#<a>]*[#<r>-#8]]] Y[#2 +[COS[#<a>]*[#<r>-#8]]]          ; point 3
		G3 X[#1 +[SIN[#<a>]*[#<r>-#8]]] Y[#2 -[COS[#<a>]*[#<r>-#8]]] I#1 J#2  ; point 4
		G1 X[#3 +[SIN[#<a>]*[#<r>-#8]]] Y[#4 -[COS[#<a>]*[#<r>-#8]]]			; point 1
		o101 endif

		G1 X[#3 +[SIN[#<a>]*[#<r>]]] Y[#4 -[COS[#<a>]*[#<r>]]]			; point 1
		G3 X[#3 -[SIN[#<a>]*[#<r>]]] Y[#4 +[COS[#<a>]*[#<r>]]] I#3 J#4 	; point 2
		G1 X[#1 -[SIN[#<a>]*[#<r>]]] Y[#2 +[COS[#<a>]*[#<r>]]]          	; point 3
		G3 X[#1 +[SIN[#<a>]*[#<r>]]] Y[#2 -[COS[#<a>]*[#<r>]]] I#1 J#2  	; point 4
		G1 X[#3 +[SIN[#<a>]*[#<r>]]] Y[#4 -[COS[#<a>]*[#<r>]]]			; point 1
		
		G0 X#3 Y#4
		G0 Z#6
	o100 else
		o102 if [#8 GT 0]
		G1 X[#3 -[SIN[#<a>]*[#<r>-#8]]] Y[#4 +[COS[#<a>]*[#<r>-#8]]] 			; point 2
		G2 X[#3 +[SIN[#<a>]*[#<r>-#8]]] Y[#4 -[COS[#<a>]*[#<r>-#8]]] I#3 J#4	; point 1
		G1 X[#1 +[SIN[#<a>]*[#<r>-#8]]] Y[#2 -[COS[#<a>]*[#<r>-#8]]] 			; point 4
		G2 X[#1 -[SIN[#<a>]*[#<r>-#8]]] Y[#2 +[COS[#<a>]*[#<r>-#8]]] I#1 J#2  ; point 3
		G1 X[#3 -[SIN[#<a>]*[#<r>-#8]]] Y[#4 +[COS[#<a>]*[#<r>-#8]]] 			; point 2
		o102 endif

		G1 X[#3 -[SIN[#<a>]*[#<r>]]] Y[#4 +[COS[#<a>]*[#<r>]]] 			; point 2
		G2 X[#3 +[SIN[#<a>]*[#<r>]]] Y[#4 -[COS[#<a>]*[#<r>]]] I#3 J#4	; point 1
		G1 X[#1 +[SIN[#<a>]*[#<r>]]] Y[#2 -[COS[#<a>]*[#<r>]]] 			; point 4
		G2 X[#1 -[SIN[#<a>]*[#<r>]]] Y[#2 +[COS[#<a>]*[#<r>]]] I#1 J#2  ; point 3
		G1 X[#3 -[SIN[#<a>]*[#<r>]]] Y[#4 +[COS[#<a>]*[#<r>]]] 			; point 2
	o100 endif
	
	G0 X#3 Y#4
	G0 Z#<z_clearance>



o<slot> endsub

F5
o<slot> call [0] [-0.0] [0] [-0.0-0.3] [0.33] [0.1] [-0.15]
o<slot> call [0] [-1.5] [0] [-1.5-0.3] [0.33] [0.1] [-0.15]
o<slot> call [0] [-3.0] [0] [-3.0-0.3] [0.33] [0.1] [-0.15]
;o<slot> call [0] [-4.5] [0] [-4.5-0.3] [0.33] [0.1] [-0.15]
;o<slot> call [0] [-6.0] [0] [-6.0-0.3] [0.33] [0.1] [-0.15]



M2