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 "OCC513"
puts "========"
puts ""
######################################
## Can not intersect plane and conical surfaces
## The ">intersect" command hangs up the computer.
######################################
# cpulimit 9000
restore [locate_data_file OCC513a.draw] sa23
restore [locate_data_file OCC513b.draw] sb8
if { [catch {intersect result sa23 sb8} catch_result] } {
puts "Faulty OCC513: function INTERSECTION works wrongly"
} else {
puts "OCC513 OK: function INTERSECTION works properly"
}
set 2dviewer 0
|
