f1aa2b62 |
1 | |
2 | puts "=======" |
3 | puts "OCC702" |
4 | puts "SAM1541" |
5 | puts "=======" |
6 | puts "" |
7 | ######################## |
8 | ## No possibility to make a prism. |
9 | ######################## |
10 | |
11 | restore [locate_data_file OCC702.brep] a |
12 | |
13 | if [ catch { prism result a 100 100 100 } catch_result ] { |
14 | puts "Faulty OCC702 (case 1)" |
15 | } else { |
16 | regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full sq |
17 | if { $sq <= 0. } { |
18 | puts "Faulty OCC702 (case 2)" |
19 | } else { |
20 | puts "OCC702 OK" |
21 | } |
22 | } |
23 | |
24 | set square 308957. |
25 | set 2dviewer 0 |