History of G-Wiz

 ----------------------------------------------------------------------------------------------------------------------------
 Here is a Soubroutine for a Circular Spiral Pocket in EMC G-code 
 Just change the Values 
 for Users how want the Tooloffset ad G41 to the Final Circel (G1 G41 X[#4-[#2/2.0]] , G3 I[#2/2.0] , G1 G90 G40 X#4 Y#5)
 
 
 (Circular Spiral Pocket)
 #1=3.000	(tooldiameter)
 #2=30.000 	(Diameter)
 #4=15.000	(centerX)
 #5=15.000	(centerY)
 #6=-5.000 	(Final Depth)
 #7=2.000	(safeZ)
 #8=1.35 	(stepover R)
 #9=-2.000	(stepover Z)
 #10=100.00 	(feedrateZ)
 #11=200.00 	(feedrateXY)
 (calculate How many times into while)
 #20=FIX[[[#2-#1]/#8]/2]
 (Preamble)
 G17 	(XY Plane)
 G21	(Metric) 
 G90	(Absolute) 
 G61	(Exact Path)
 
 (spiral)
 G0 X#4 Y#5
 G0 Z#7
 G1 Z0 F#10 (Move to Zero Z to start increment Z Cycle)
 O95 while [#6 lt 0]
    O97 If [#6 lt #9] 
 	G1 G91 Z#9 
    O97 else
         G1 G91 Z#6
    O97 endif
 #6=[#6-#9]
 #30=#8
 #31=1.0
 #21=1
 G1 G90 X[#4+#30] F#11
 O10 while [#21 lt #20]
 G3 X[#4-[#21*#8]] I-[[#31*#8]]
 #31=[#31+0.5]
 #21=[#21+1]
 G3 X[#4+[#21*#8]] I[[#31*#8]]
 #31=[#31+0.5]
 O10 endwhile
 G3 X[#4-[#2/2.0]+[#1/2.0]] Y#5 I-[[[#4+[#21*#8]]-[#4-[#2/2.0]+[#1/2.0]]]/2.0]
 G3 I[[#2/2.0]-[#1/2.0]]
 G1 G90 X#4 Y#5
 O95 endwhile
 G0 G90 Z#7
 M5 
 M30