1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
puts "========="
puts " OCC503 "
puts "========="
puts ""
###############################
## Draw hangs up during sprops operation
###############################
#cpulimit 9000
restore [locate_data_file OCC503.brep] result
if [catch {sprops result 0.001 } catch_result] {
set mistake 1
} else {
set mistake 0
}
if { $mistake != 0} {
puts "Faulty OCC503 : Draw hangs up during sprops operation "
} else {
puts "OCC503 OK: function SPROPS works without hangs up "
}
set 2dviewer 0
|
