global mom_sys_in_operation
set mom_sys_in_operation 1
global first_linear_move ; set first_linear_move 0
TOOL_SET MOM_start_of_path
if [llength [info commands PB_CMD_kin_start_of_path] ] {
PB_CMD_kin_start_of_path
}
global mom_tool_name
global mom_part_name
global mom_date
global mom_tool_number
global mom_tool_length
global mom_tool_name
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
MOM_set_seq_off
global mom_output_file_basename
global mom_logname
global mom_date
MOM_output_literal "(TOOL name = $mom_tool_name, NC name = $mom_output_file_basename)"
MOM_output_literal "(MCUTOOL T$mom_tool_number\
D[format "%.2f" $mom_tool_diameter]\
R[format "%.2f" $mom_tool_corner1_radius]\
F[format "%.2f" $mom_tool_flute_length])"
MOM_output_literal "( $mom_part_name )"
MOM_output_literal "(Date: $mom_date)"