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

extern string tl_usrdesc;

extern float tl_dia, cradius, tipangl;
extern float length, width;

extern integer tm_section, op_section;
extern integer ornttn, n_flutes, geometry, incl_ang, shape;

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",
		1030301 = "Rough Turning",
		1030302 = "Finish Turning",
		1030303 = "Grooving",
		1030304 = "Threading",
		1030305 = "Face Grooving",
		1030306 = "Special"
		])
		);
}

procedure tl_section_str
{
	format ("%s", map (tm_section, 
		[
		2420101 = "End Mill",
		2420102 = "Ball Mill",
		2420103 = "Face Mill",
		2420104 = "Form Mill",
		2420105 = "Bull Mill",
		2420201 = "Rot. Spot Drill",
		2420202 = "Rot. Twist Drill",
		2420203 = "Rot. Reamer",
		2420204 = "Rot. Bore",
		2420205 = "Rot. Tap",
		2420206 = "Rot. Counterbore",
		2420207 = "Rot. Countersink",
		2420208 = "Rot. Form Hole",
		2420209 = "Rot. Center Drill",
		2420301 = "Spot Drill",
		2420302 = "Twist Drill",
		2420303 = "Reamer",
		2420304 = "Bore",
		2420305 = "Tap",
		2420306 = "Counterbore",
		2420307 = "Countersink",
		2420308 = "Form Hole",
		2420309 = "Center Drill",
		2420401 = "Face Turn",
		2420402 = "O.D. Turn",
		2420403 = "I.D. Turn",
		2420404 = "Face Groove",
		2420405 = "O.D. Groove",
		2420406 = "I.D. Groove",
		2420407 = "O.D. Thread",
		2420408 = "I.D. Thread",
		2420409 = "Special"
		])
		);
}

procedure tl_orient_str
{
	format ("%s", map (ornttn, 
		[0 = "DL ",
		 1 = "UL ",
		 2 = "DR ",
		 3 = "UR ",
		 4 = "D ",
		 5 = "U ",
		 6 = "L ",
		 7 = "R "
		])
		);
}

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 ins_shape_str
{
	format ("%s", map (shape, 
		[1 = "Diamond ",
                 2 = "Hexagon ",
                 3 = "Octagon ",
                 4 = "Parallelogram ",
                 5 = "Pentagon ",
                 6 = "Rectangle ",
                 7 = "Round ",
                 8 = "Square ",
                 9 = "Triangle ",
                 10 = "Trigon "
		])
		);
}

procedure op_1030000 //General Op All Apps
{
	call (op_section_str);
}

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

procedure tool_2010100 //General Milling Tool
{
	call (tl_orient_str);
 	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
{
	call (tl_orient_str);
 	format("%-0.3f Dia. ",tl_dia);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

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

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

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

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

procedure tool_2040300 //General Turning Tool
{
	call (tl_orient_str);
	format("%-0.3f Rad. %d Deg. ",cradius, incl_ang);
	call (ins_shape_str);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2040303 // Turning ID/OD Groove Tool
{
	call (tl_orient_str);
	format("%-0.3f Rad. x %-0.3f Width ", cradius, width);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2040304 // Turning Face Groove Tool
{
	call (tl_orient_str);
	format("%-0.3f Rad. x %-0.3f Width ", cradius, width);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2040305 // Turning Thread Tool
{
	call (tl_orient_str);
	format("%-0.3f Rad. x %-0.3f Width ", cradius, width);
	call (tl_section_str);
	format(" - %s", tl_usrdesc);
}

procedure tool_2040306 //Special Turning Tool
{
	call (tl_orient_str);
	format("%-0.3f Length x %-0.3f Width",length, width);
	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);
}