1 puts "========================"
3 puts "========================"
5 #####################################
6 ## Intersection of two surfaces is not compleate curve.
7 #####################################
9 restore [locate_data_file OCC431a.draw] su1
10 restore [locate_data_file OCC431b.draw] su2
12 intersect result su1 su2
14 set che [whatis result]
16 if { ![regexp {curve} $che] || ![regexp {3d} $che]} {
17 puts "Faulty OCC431 : Command INTERSECT works WRONGLY"
19 puts "OCC431 OK : Command INTERSECT works properly"
22 checkview -display result -2d -path ${imagedir}/${test_image}.png