set TheFileName "" restore [locate_data_file OCC358a.brep] f restore [locate_data_file OCC358b.brep] w pipe res w f set bug_area "OCC358" set max_rel_tol_diff 1 puts $command if { [string compare $command "shading"] == 0 } { set rel_tol 0.43 } else { set rel_tol 0.676 }