[occt.git] / tests / bugs / moddata_2 / bug6474

puts "============"
puts "OCC6474"
puts "============"
puts ""
######################################################
# Incorrect result of intersection of a plane and an extrusion surface
######################################################

set BugNumber OCC6474

restore [locate_data_file OCC6474-s1.draw] s1 
restore [locate_data_file OCC6474-s2.draw] s2 

intersect res s1 s2

if {[llength [directory res*]] != 1} {
    puts "Faulty ${BugNumber}: more than 1 intersection line is got"
} else {
    puts "OK ${BugNumber}"
}

set 3dviewer 1
Commit	Line	Data
61c421bf	1	puts "============"
	2	puts "OCC6474"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Incorrect result of intersection of a plane and an extrusion surface
	7	######################################################
	8
	9	set BugNumber OCC6474
	10
	11	restore [locate_data_file OCC6474-s1.draw] s1
	12	restore [locate_data_file OCC6474-s2.draw] s2
	13
af65fb19	14	intersect res s1 s2
61c421bf	15
	16	if {[llength [directory res*]] != 1} {
	17	puts "Faulty ${BugNumber}: more than 1 intersection line is got"
	18	} else {
	19	puts "OK ${BugNumber}"
	20	}
	21
	22	set 3dviewer 1