proc cut_depth_line { } { 1 f. i9 m, ?2 _- y#====================================================================== " }- M0 C" D4 c+ ~8 v global cut_depth5 L5 M) e5 t* Q2 C* i
global mom_pos, Z3 Q' H; [" J# j+ F
- @. m7 v1 L2 ?: B if { $cut_depth > $mom_pos(2) } { 0 K9 W( w5 a7 J- C* x* s1 Q" f% p set cut_depth $mom_pos(2) 6 n$ [" U/ n- v$ j$ t7 r } # K! O& O" G q: ?! m5 d - a% i, O& t( n% L$ O}