1 puts "========================"
3 puts "========================"
5 #######################################################################
7 #######################################################################
11 restore [locate_data_file OCC20524-surf1.draw] surf1
12 restore [locate_data_file OCC20524-surf2.draw] surf2
14 intersect result surf1 surf2
16 set che [whatis result]
17 if { ![regexp {3d curve} $che] } {
18 puts "Faulty ${BugNumber}: command INTERSECT works wrongly"
20 puts "${BugNumber} OK : command INTERSECT works properly"