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