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
|
puts "======="
puts "OCC702"
puts "SAM1541"
puts "======="
puts ""
########################
## No possibility to make a prism.
########################
restore [locate_data_file OCC702.brep] a
if [ catch { prism result a 100 100 100 } catch_result ] {
puts "Faulty OCC702 (case 1)"
} else {
regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full sq
if { $sq <= 0. } {
puts "Faulty OCC702 (case 2)"
} else {
puts "OCC702 OK"
}
}
set square 308957.
set 2dviewer 0
|
