[occt.git] / tests / bugs / moddata / bug237

puts "================"
puts "OCC237"
puts "================"
puts ""
#######################################################
## Hang-ups during the intersection of attached surfaces
#######################################################

restore [locate_data_file OCC236b.rle] su1 
############### checkshape su1 # is not a topological shape
restore [locate_data_file OCC237b.rle] su2
############### checkshape su2 # is not a topological shape

if [catch {intersect result su1 su2 }] {
    set mistake 1
} else {
    set mistake 0
}

if { $mistake != 0} {
    puts "Faulty OCC237: Intersection was made WRONGLY"
} else {
    puts "OCC237 OK  : Intersection command works properly"
}

set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "================"
	2	puts "OCC237"
	3	puts "================"
	4	puts ""
	5	#######################################################
	6	## Hang-ups during the intersection of attached surfaces
	7	#######################################################
	8
	9	restore [locate_data_file OCC236b.rle] su1
	10	############### checkshape su1 # is not a topological shape
	11	restore [locate_data_file OCC237b.rle] su2
	12	############### checkshape su2 # is not a topological shape
	13
	14	if [catch {intersect result su1 su2 }] {
	15	set mistake 1
	16	} else {
	17	set mistake 0
	18	}
	19
	20	if { $mistake != 0} {
	21	puts "Faulty OCC237: Intersection was made WRONGLY"
	22	} else {
	23	puts "OCC237 OK : Intersection command works properly"
	24	}
	25
	26	set 2dviewer 0
	27