puts "========" puts "OCC26034" puts "========" puts "" ########################################################## # Result of revolution aborts the bopcheck if translated ########################################################## restore [locate_data_file bug26034_revolve-seg1-tcl-Revolve002.brep] Revolve002 set bug_info [ string trim [bopcheck Revolve002]] if {$bug_info != "This shape seems to be OK."} { puts "ERROR: Initial shape is invalid." } ttranslate Revolve002 0 0 -0.5 set bug_info [ string trim [bopcheck Revolve002]] if {$bug_info != "This shape seems to be OK."} { puts "ERROR: OCC26034 is reproduced. bopcheck gives incorrect result after ttranslate operation." }