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

puts "========"
puts "OCC513"
puts "========"
puts ""

######################################
## Can not intersect plane and conical surfaces
## The ">intersect" command hangs up the computer.
######################################

# cpulimit 9000

restore [locate_data_file OCC513a.draw] sa23 
restore [locate_data_file OCC513b.draw] sb8 

if { [catch {intersect result sa23 sb8} catch_result] } {
    puts "Faulty OCC513: function INTERSECTION works wrongly"
} else {
    puts "OCC513 OK: function INTERSECTION works properly"
}

set 2dviewer 0
Commit	Line	Data
352ffd73	1	puts "========"
	2	puts "OCC513"
	3	puts "========"
	4	puts ""
	5
	6	######################################
	7	## Can not intersect plane and conical surfaces
	8	## The ">intersect" command hangs up the computer.
	9	######################################
	10
	11	# cpulimit 9000
	12
	13	restore [locate_data_file OCC513a.draw] sa23
	14	restore [locate_data_file OCC513b.draw] sb8
	15
	16	if { [catch {intersect result sa23 sb8} catch_result] } {
	17	puts "Faulty OCC513: function INTERSECTION works wrongly"
	18	} else {
	19	puts "OCC513 OK: function INTERSECTION works properly"
	20	}
	21
	22	set 2dviewer 0
	23