2 puts "========================"
4 puts "========================"
7 restore [locate_data_file OCC271a.rle] su1
8 restore [locate_data_file OCC271b.rle] su2
10 set U1 2.315721254379057e-16
11 set U2 0.01131870392278708
12 set V1 226.9760100729095
13 set V2 203.7283534809051
15 intersect result su1 su2 $U1 $V1 $U2 $V2
17 set che [whatis result]
19 if { ![regexp {3d} $che] || ![regexp {curve} $che]} {
20 puts "Faulty OCC271: command INTERSECT works wrongly"
22 puts "OCC271 OK : command INTERSECT works properly"