######################################################################
#     U N I Q U E _ T O O L _ O N C E _ P R O V I E W . T C L
######################################################################
# EVENT HANDLER SECTION 
#   This section contains the control section for creating an operation list 
#                 
#   CAM will loop thru each event in the path and call the procedure
#   whose name is the name of the event.
#
#
# 
#
#_______________________________________________________________________________
# Here you should define any global variables that will be used in any one
# of the event handler.
#_______________________________________________________________________________
set mom_source_directory [MOM_ask_env_var UGII_CAM_SHOP_DOC_DIR]
source "$mom_source_directory/shopdoc_header.tcl"
set line_flag 0

# This procedure creates a part documentation.
#=============================================================================
proc MOM_Start_Part_Documentation {} {
#=============================================================================
    global mom_sys_output_file_suffix
    set mom_sys_output_file_suffix "txt"
    Open_Files

  # Calls the shopdoc header
    ShopDoc_Header_text
}

#=============================================================================
proc MOM_Part_Documentation {} {
#=============================================================================

  MOM_do_template_file "[MOM_ask_env_var UGII_CAM_SHOP_DOC_DIR]tool_programview.tpl"
}

#=============================================================================
proc MOM_End_Part_Documentation {} {
#=============================================================================

}

#===============================================================================
# Setup
#===============================================================================
proc MOM_SETUP_HDR {} {

   # Calls the setup header
     Setup_Header_text

}

#=============================================================================
proc MOM_SETUP_BODY {} {
#=============================================================================

}

#=============================================================================
proc MOM_SETUP_FTR {} {
#=============================================================================

}

#===============================================================================
# Operation
#===============================================================================

proc MOM_MEMBERS_HDR { } {

}
 
#=============================================================================
proc MOM_MEMBERS_FTR { } {
#=============================================================================
  global line_flag

  if { $line_flag } \
  {
     #MOM_output_literal "-------------------------------------------------------------------------------------------------"
     set line_flag 0
  }
}

#=============================================================================
proc MOM_OPER_BODY {} {
#=============================================================================
  global mom_operation_name
}

#=============================================================================
proc MOM_PROGRAMVIEW_HDR {} {
#=============================================================================

  #MOM_output_literal "                     Werkzeugliste "
  #MOM_output_literal "                     ****  **** ** ******* "
  MOM_output_literal "    "
}

#=============================================================================
proc MOM_PROGRAMVIEW_FTR {} {
#=============================================================================
}

#=============================================================================
proc MOM_TOOL_BODY { } {
#=============================================================================
  global mom_tool_name
  global mom_tool_type
  global mom_tool_diameter
  global mom_tool_nose_diameter
  global mom_tool_nose_radius
  global mom_tool_length_adjust_register
  global mom_tool_corner1_radius
  global tool_list
  global line_flag
  global mom_drive_point_diameter
  global mom_tool_ug_type  
  #global mom_cutting_time


  set tool_name "Werkzeug"
  #set tool_type "TOOL TYPE"
  set tool_dia  "Durchmesser"
  set corn_rad  "Radius"
  #set nose_dia  "NOSE RAD"
  set adj_reg   "Platz"

  # user defined tool. mom_tool_diameter is mom_drive_point_diameter
  if { $mom_tool_ug_type == 15 } {
      if {[info exists mom_drive_point_diameter]} {
          set mom_tool_diameter $mom_drive_point_diameter
      }
  }

  if { ![info exists mom_tool_diameter] } \
   { 
        set mom_tool_diameter "-" 
   } elseif { $mom_tool_diameter != "-" } \
   {
        set mom_tool_diameter [format "%-10.2f" $mom_tool_diameter]
   }

  if { ![info exists mom_tool_nose_diameter] } \
   { 
        set mom_tool_nose_diameter "-" 
   } elseif { $mom_tool_nose_diameter != "-" } \
   {
      set mom_tool_nose_diameter [format "%-10.2f" $mom_tool_nose_diameter]
   }

   if { ![info exists mom_tool_nose_radius] } \
   { 
      set mom_tool_nose_radius "-" 
   } elseif { $mom_tool_nose_radius != "-" } \
   {
      set mom_tool_nose_radius [format "%-10.4f" $mom_tool_nose_radius]
   } 

  if { ![info exists mom_tool_corner1_radius] } \
   { 
      set mom_tool_corner1_radius "-" 
   } elseif { $mom_tool_corner1_radius != "-" } \
   {
      set mom_tool_corner1_radius [format "%-10.2f" $mom_tool_corner1_radius]
   }

  if { ![info exists mom_tool_length_adjust_register] } \
   { 
      set mom_tool_length_adjust_register "-" 
   } elseif { $mom_tool_length_adjust_register != "-" } \
   {
      set mom_tool_length_adjust_register \
                  [format "%-10d" $mom_tool_length_adjust_register]
   }


  if {!$line_flag} \
  {
    MOM_output_literal "     "
    MOM_output_literal "-------------------------------------------------------------------"  
    set output [format "%-25s  %-10s %-10s  %-10s\n" $tool_name \
                          $tool_dia $corn_rad  $adj_reg]
    MOM_output_literal $output
    #MOM_output_literal "-------------------------------------------------------------------"
    set line_flag 1
  }


  set output [format "%-15s  %-10s %-10s  %-10s\n" $mom_tool_name\
                $mom_tool_diameter $mom_tool_corner1_radius \
                $mom_tool_length_adjust_register]


  if { [info exists tool_list] } \
  {
     if { [lsearch $tool_list $mom_tool_name] == -1} \
     {
         MOM_output_literal $output
         lappend tool_list $mom_tool_name
     }
  } else \
  {
     MOM_output_literal $output
     lappend tool_list $mom_tool_name
  }
}

#=============================================================================
proc MOM_PROGRAM_BODY {} {
#=============================================================================
  global mom_object_type
  global mom_object_name
  global mom_member_nest_level
  global mom_machine_time


  global tool_list
  global line_flag
  set tool_name "Werkzeug"
  #set tool_type "TOOL TYPE"
  set tool_dia  "Durchmesser"
  set corn_rad  "Radius"
  #set nose_dia  "NOSE RAD"
  set adj_reg   "Platz"

  if {$line_flag} \
  {
     MOM_output_literal "-------------------------------------------------------------------"
     set line_flag 0
  }


  if {$mom_object_name != "NC_PROGRAM"} \
  {
    MOM_output_literal "   "
    set output [format "Programnummer : %-20s" $mom_object_name]
    
    MOM_output_literal $output
    MOM_output_literal "Zeit= $mom_machine_time"
    MOM_output_literal "-------------------------------------------------------------------"
    set output [format "%-15s %-10s %-10s  %-10s\n" $tool_name \
                     $tool_dia $corn_rad  $adj_reg]

    MOM_output_literal $output
    set line_flag 1
   }



    if { $mom_member_nest_level == 0 && [info exists tool_list]} \
    {
       unset tool_list
    }




}