1set TheFileName shading_wrongshape_022.brep 2 3set bug_cross "OCC22687" 4set nbcross(All) 2 5if { [string compare $command "shading"] != 0 } { 6}