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."
}
