O7734 #6 = 75 (angle to work at) #1 = cos[#6] #2 = sin[#6] #3 = 0.5 (factor above part face zero) #4 = 12 (cut feed) #9 = 70 (rapid feed) #5 = -1 (depth to process too, must be negitive in this case) g0b#6 (move head to angle) (0,0 must already be established) g59 m8 g1 x[#1*#3]z[#2*#3] f#9 m3 s1200 (I commit out this so I can use the c axis to display the calculations) (then remove the comments so its ready to spin) #14 = [#5/5] (Z advance per main subroutine execution) #15 = ABS[FIX[#5/#14]] (Number of subroutine executions required - 'L') (g0c#15) (use these to see what my calculations are, then comment them out) #7=0 (starting peck) #8=0 (so I have a retract position) M98 P001 L#15 g1 x[#1*#3]z[#2*#3] f#9 m5 m9 m30 O001 g1 x0z0f#9 #8=#7 #7=[#7+[#5/#15]] (g0c#7) (again use these to see what my calculations are, then comment them out) g1 x[#1*#7] z[#2*#7] f#4 g4p1 (dwell for cleanup) g1 x[#1*#8] z[#2*#8] f#9 m99