1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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"
}
set 2dviewer 0
|
