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

puts "==========="
puts "OCC24505"
puts "==========="
puts ""
##############################################################
# Wrong section curves between Cone and Cylinder with collinear axes
##############################################################

restore [locate_data_file bug24505_f1.brep] f1
restore [locate_data_file bug24505_f2.brep] f2

bopcurves f1 f2

set info [dump c_1]

if { [regexp "Circle" $info] != 1 } {
    puts "Error : Wrong section curves"
} else {
    puts "OK : Good section curves"
}
Commit	Line	Data
18d25b93	1	puts "==========="
	2	puts "OCC24505"
	3	puts "==========="
	4	puts ""
	5	##############################################################
	6	# Wrong section curves between Cone and Cylinder with collinear axes
	7	##############################################################
	8
	9	restore [locate_data_file bug24505_f1.brep] f1
	10	restore [locate_data_file bug24505_f2.brep] f2
	11
	12	bopcurves f1 f2
	13
	14	set info [dump c_1]
	15
	16	if { [regexp "Circle" $info] != 1 } {
	17	puts "Error : Wrong section curves"
	18	} else {
	19	puts "OK : Good section curves"
	20	}