set TheFileName shading_wrongshape_007.brep set bug_freenodes "OCC22687" if { [string compare $command "shading"] == 0 } { set nbfreenodes(All) 6 } else { set nbfreenodes(All) 2 ## set bug_freelinks "OCC22687" ## set nbfree(All) 8 }