puts "========================"
puts " OCC431 "
puts "========================"
puts ""
#####################################
## Intersection of two surfaces is not compleate curve. 
#####################################

restore [locate_data_file OCC431a.draw] su1 
restore [locate_data_file OCC431b.draw] su2

intersect result su1 su2

set che [whatis result]

if { ![regexp {curve} $che] || ![regexp {3d} $che]} {
    puts "Faulty OCC431 : Command INTERSECT works WRONGLY"
} else {
    puts "OCC431 OK  :  Command INTERSECT works properly"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png

