interpeter - add INI paremeters to set peck distance/count

peck distance for g73/g83
peck count for g73
g73 does short pecks to break chips.
If count is >0, it will fully retract to clear chips every 'count'
 number of pecks

[RS274NGC]
PARAMETER_DRILL_CYCLE_CHIP_BREAK_DISTANCE = .020
PARAMETER_G73_PECK_TILL_CLEAR_COUNT = 2

Author: c-morley

src/emc/rs274ngc/interp_cycles.cc

@@ -154,7 +154,7 @@ int Interp::convert_cycle_g83(block_pointer block,
      Thanks to Billy Singleton for pointing it out... */
   CHKS((delta <= 0.0), NCE_NEGATIVE_OR_ZERO_Q_VALUE_USED);
 
-  rapid_delta = G83_RAPID_DELTA;
+  rapid_delta = _setup.parameter_drill_cycle_chip_break_distance;
   if (_setup.length_units == CANON_UNITS_MM)
     rapid_delta = (rapid_delta * 25.4);
 
@@ -212,19 +212,24 @@ int Interp::convert_cycle_g73(block_pointer block,
 {
   double current_depth;
   double rapid_delta;
-
+  int count = 0;
   /* Moved the check for negative Q values here as a sign
      may be used with user defined M functions
      Thanks to Billy Singleton for pointing it out... */
   CHKS((delta <= 0.0), NCE_NEGATIVE_OR_ZERO_Q_VALUE_USED);
 
-  rapid_delta = G83_RAPID_DELTA;
+  rapid_delta = _setup.parameter_drill_cycle_chip_break_distance;
   if (_setup.length_units == CANON_UNITS_MM)
     rapid_delta = (rapid_delta * 25.4);
 
   for (current_depth = (r - delta);
-       current_depth > bottom_z; current_depth = (current_depth - delta)) {
+    current_depth > bottom_z; current_depth = (current_depth - delta)) {
+    count ++;
     cycle_feed(block, plane, x, y, current_depth);
+    if (count == _setup.parameter_g73_peck_till_clear_count) {
+        cycle_traverse(block, plane, x, y, r);
+        count = 0;
+    }
     cycle_traverse(block, plane, x, y, current_depth + rapid_delta);
   }
   cycle_feed(block, plane, x, y, bottom_z);

src/emc/rs274ngc/interp_internal.hh

@@ -792,6 +792,8 @@ struct setup
   int tool_change_at_g30;
   int tool_change_quill_up;
   int tool_change_with_spindle_on;
+  double parameter_drill_cycle_chip_break_distance;
+  int parameter_g73_peck_till_clear_count;
   int a_axis_wrapped;
   int b_axis_wrapped;
   int c_axis_wrapped;

src/emc/rs274ngc/rs274ngc_pre.cc

@@ -839,6 +839,8 @@ int Interp::init()
   _setup.tool_change_at_g30 = 0;
   _setup.tool_change_quill_up = 0;
   _setup.tool_change_with_spindle_on = 0;
+  _setup.parameter_drill_cycle_chip_break_distance = .010;
+  _setup.parameter_g73_peck_till_clear_count = 0;
   _setup.a_axis_wrapped = 0;
   _setup.b_axis_wrapped = 0;
   _setup.c_axis_wrapped = 0;
@@ -907,6 +909,11 @@ int Interp::init()
               _setup.c_indexer_jnum = atol(inistring);
           }
           inifile.Find(&_setup.orient_offset, "ORIENT_OFFSET", "RS274NGC");
+          inifile.Find(&_setup.parameter_drill_cycle_chip_break_distance, "PARAMETER_DRILL_CYCLE_CHIP_BREAK_DISTANCE", "RS274NGC");
+          if(NULL != (inistring = inifile.Find("PARAMETER_G73_PECK_TILL_CLEAR_COUNT", "RS274NGC")))
+          {
+              _setup.parameter_g73_peck_till_clear_count = atoi(inistring);
+          }
 
           inifile.Find(&_setup.debugmask, "DEBUG", "EMC");