[occt.git] / tests / bugs / moddata_1 / buc60815

puts "TODO OCC12345 ALL: Faulty BUC60815: NO EXCEPTION."
puts "=========="
puts "BUC60815"
puts "=========="

plane p1 1 0 0
plane p2 0 0 0 1 0 0
trim p1 p1 -50 50 -50 50
trim p2 p2 -75 75 -75 75 
intersect r2 p1 p2
extsurf e1 r2 10 10 10
extsurf e3 r2 10 10 10

if [catch { intersect result e1 e3 } catch_result] {
    puts "Faulty BUC60815: NO EXCEPTION."
    puts "INTERSECTION BETWEEN TWO SURFACES LYING ON THE SAME PLANE UNDEFINED"
} else {
    puts "BUC60815 OK: suitable except"
}

set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty BUC60815: NO EXCEPTION."
	2	puts "=========="
	3	puts "BUC60815"
	4	puts "=========="
	5
	6	plane p1 1 0 0
	7	plane p2 0 0 0 1 0 0
	8	trim p1 p1 -50 50 -50 50
	9	trim p2 p2 -75 75 -75 75
	10	intersect r2 p1 p2
	11	extsurf e1 r2 10 10 10
	12	extsurf e3 r2 10 10 10
	13
	14	if [catch { intersect result e1 e3 } catch_result] {
	15	puts "Faulty BUC60815: NO EXCEPTION."
	16	puts "INTERSECTION BETWEEN TWO SURFACES LYING ON THE SAME PLANE UNDEFINED"
	17	} else {
	18	puts "BUC60815 OK: suitable except"
	19	}
	20
	21	set 2dviewer 0
	22