set TheFileName shading_wrongshape_027.brep set bug_freenodes "OCC22687" set nbfreenodes(All) 1 if { [string compare $command "shading"] != 0 } { set bug_area "OCC22687" set rel_tol 1.1 }