|
global mom_tool_name mom_tool_type
4 }5 A- { N( d! T7 Aglobal mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
6 b$ B; G8 }" y& fglobal mom_tool_length tip_angle mom_tool_point_angle RAD2DEG j( ]- u+ ?' }% u# i
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius
& t- O# o( i! o# J2 Q" d0 }
/ y- ^/ K( v7 b; nif { $mom_tool_type == "Drilling Tool" } {
. E) m( w; Q, I0 xset tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]" A3 _- C, l5 v1 @
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip ) O5 N" ~% `" P& H+ Y
angle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]/ s0 s& _: |- F7 h- ~, p
L=[format "%.2f" $mom_tool_length])"
" z7 v4 z2 M/ q7 y `- _" `; }5 C} else {
* T+ \8 ^- S4 y( ?+ F& O2 y MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format
/ w! I& u; K: [! ~. v"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]; L w5 O+ ]( K f* ]- q# p
L=[format "%.2f" $mom_tool_length])"
3 i T' T+ R; c/ a} |
|