[occt.git] / tests / bugs / modalg_5 / bug25124_6

puts "========"
puts "OCC25124"
puts "========"
puts ""
######################################################
# Removal of continuity checks for offset geometries
######################################################

smallview

restore [locate_data_file OCC25124_a_2999.draw] a1
getsurfcontinuity a1
offset o1 a1 20
getsurfcontinuity o1

set bug_info_1 [dump a1]
set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
set bug_info_2 [dump o1]
set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
if {[string compare $bug_info_1 $bug_info_2] == 0} {
  puts "ERROR: OCC25124 is reproduced (a1 = o1)."
}

donly a1 o1
fit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
3d58dc49	1	puts "========"
	2	puts "OCC25124"
	3	puts "========"
	4	puts ""
	5	######################################################
	6	# Removal of continuity checks for offset geometries
	7	######################################################
	8
	9	smallview
	10
	11	restore [locate_data_file OCC25124_a_2999.draw] a1
	12	getsurfcontinuity a1
	13	offset o1 a1 20
	14	getsurfcontinuity o1
	15
	16	set bug_info_1 [dump a1]
	17	set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
	18	set bug_info_2 [dump o1]
	19	set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
	20	if {[string compare $bug_info_1 $bug_info_2] == 0} {
	21	puts "ERROR: OCC25124 is reproduced (a1 = o1)."
	22	}
	23
	24	donly a1 o1
	25	fit
	26
5747059b	27	checkview -screenshot -2d -path ${imagedir}/${test_image}.png