puts "========================" puts "OCC20524" puts "========================" puts "" ####################################################################### # Wrong intersection ####################################################################### set BugNumber OCC20524 restore [locate_data_file OCC20524-surf1.draw] surf1 restore [locate_data_file OCC20524-surf2.draw] surf2 intersect result surf1 surf2 set che [whatis result] if { ![regexp {3d curve} $che] } { puts "Faulty ${BugNumber}: command INTERSECT works wrongly" } else { puts "${BugNumber} OK : command INTERSECT works properly" }