puts "========================" puts " BUC60956 " puts " OCC112 " puts "========================" restore [locate_data_file OCC20.brep] res checkshape res set first [trinfo res] tclean res ###################################################################### catch {file delete ${imagedir}/vrem.brep} save res ${imagedir}/vrem.brep vinit restore ${imagedir}/vrem.brep result vdisplay result vsetdispmode result 1 set second [trinfo result] if {$first == $second} { puts "Faulty OCC112 : Mesh for shading was recalculated !!!" } checkview -screenshot -3d -path ${imagedir}/${test_image}.png