proc MOM_initial_move {} {
#_______________________________________________________________________________
# This procedure is executed for the initial move of each operation. It assumes
# the tool is moving from a safe position at rapid to the start of the operation.
#_______________________________________________________________________________
global mom_tool_number
global mom_tool_diameter
global mom_tool_corner1_radius
global mom_tool_name
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length mom_tool_length