//--------------------------------------------------------------------------
//        Auto-Description Generator directives file.
//--------------------------------------------------------------------------

extern string tl_usrdesc;

extern float tl_dia, cradius, tipangl;

extern integer tm_section, op_section;
extern integer n_flutes, geometry;

procedure op_section_str
{
	format ("%s", map (op_section, 
		[1030101 = "Rough Milling",
		1030102 = "Finish Milling",
		1030103 = "Face Milling",
		1030104 = "Surface Milling",
		1030105 = "Edge Milling",
		1030107 = "Copy Milling",
		1030201 = "Spot Drilling",
		1030202 = "Drilling",
		1030203 = "Peck Drilling",
		1030204 = "Reaming",
		1030205 = "Boring",
		1030206 = "Tapping",
		1030207 = "Counterboring",
		1030208 = "Countersinking",
		1030209 = "Spot Facing",
		1030210 = "Form Hole Making",
		1030211 = "Center Drilling"
		])
		);
}

procedure tl_section_str
{
	format ("%s", map (tm_section, 
		[2410101 = "End Mill",
		2410102 = "Ball Mill",
		2410103 = "Face Mill",
		2410104 = "Form Mill",
		2410105 = "Bull Mill",
		2410201 = "Spot Drill",
		2410202 = "Twist Drill",
		2410203 = "Reamer",
		2410204 = "Bore",
		2410205 = "Tap",
		2410206 = "Counterbore",
		2410207 = "Countersink",
		2410208 = "Form Hole",
		2410209 = "Center Drill"
		])
		);
}

procedure em_geometry_str
{
	format ("%s", map (geometry, 
		[0 = "",
		 1 = "Roughing ",
		 2 = "Alum Cut "
		])
		);
}

procedure drl_geometry_str
{
	format ("%s", map (geometry, 
		[0 = "",
		 1 = "Parabolic ",
		 2 = "High Spiral "
		])
		);
}

procedure tap_geometry_str
{
	format ("%s", map (geometry, 
		[0 = "",
		 1 = "Roll Form ",
		 2 = "Pipe ",
                 3 = "Spiral Flute"
		])
		);
}

procedure op_1030000
{
	call (op_section_str);
}

procedure tool_2010000 //General Tool All Apps
{
 	format("%-0.3f Dia. ",tl_dia);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010100 //General Milling Tool
{
 	format("%-0.3f Dia. %1d Flute ",tl_dia, n_flutes);
	call (em_geometry_str);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010103 //Face Mill
{
 	format("%-0.3f Dia. / %-0.3f Rad. %1d Flute ",tl_dia, cradius, n_flutes);
	call (em_geometry_str);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010104 //Form Mill
{
 	format("%-0.3f Dia. / %-0.3f Rad. %1d Flute ",tl_dia, cradius, n_flutes);
	call (em_geometry_str);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010105 //Bull Mill
{
 	format("%-0.3f Dia. / %-0.3f Rad. %1d Flute ",tl_dia, cradius, n_flutes);
	call (em_geometry_str);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010200 //General Hole Tool
{
 	format("%-0.3f Dia. ",tl_dia);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010201 //Spot Drill
{
 	format("%-0.3f Dia. x %-0.1f Deg. ",tl_dia, tipangl);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010202 //Twist Drill
{
 	format("%-0.3f Dia. ",tl_dia);
	call (drl_geometry_str);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010205 //Tap
{
 	format("%-0.3f Dia. ",tl_dia);
	call (tap_geometry_str);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2010207 //Countersink
{
 	format("%-0.3f Dia. x %-0.1f Deg. ",tl_dia, tipangl);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure step_5020000	//General Step All Apps
{
	call (op_section_str);
	format (" with ");
	call (tl_section_str);
}