[occt.git] / tests / bugs / modalg_7 / bug26034

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."
}
Commit	Line	Data
dfdfa61f	1	puts "========"
	2	puts "OCC26034"
	3	puts "========"
	4	puts ""
	5	##########################################################
	6	# Result of revolution aborts the bopcheck if translated
	7	##########################################################
	8
	9	restore [locate_data_file bug26034_revolve-seg1-tcl-Revolve002.brep] Revolve002
	10
	11	set bug_info [ string trim [bopcheck Revolve002]]
	12	if {$bug_info != "This shape seems to be OK."} {
	13	puts "ERROR: Initial shape is invalid."
	14	}
	15
	16	ttranslate Revolve002 0 0 -0.5
	17
	18	set bug_info [ string trim [bopcheck Revolve002]]
	19	if {$bug_info != "This shape seems to be OK."} {
	20	puts "ERROR: OCC26034 is reproduced. bopcheck gives incorrect result after ttranslate operation."
	21	}