1 puts "TODO OCC12345 ALL: Faulty BUC60815: NO EXCEPTION."
8 trim p1 p1 -50 50 -50 50
9 trim p2 p2 -75 75 -75 75
11 extsurf e1 r2 10 10 10
12 extsurf e3 r2 10 10 10
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"
18 puts "BUC60815 OK: suitable except"
21 checkview -display result -2d -path ${imagedir}/${test_image}.png