075b21ec |
1 | set os $env(os_type) |
075b21ec |
2 | |
0e94a94e |
3 | puts "================" |
4 | puts "OCC46" |
5 | puts "================" |
6 | puts "" |
7 | |
8 | restore [locate_data_file OCC46.brep] sh |
9 | explode sh e |
10 | regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_4] full l1 |
11 | regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_7] full l2 |
12 | regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_9] full l3 |
13 | |
14 | set res1 [expr $l1+$l2+$l3] |
15 | puts $res1 |
16 | |
17 | #write stepfile |
18 | ###################################################################### |
19 | catch {exec rm ${imagedir}/sss.step} |
20 | stepwrite a sh ${imagedir}/sss.step |
21 | stepread ${imagedir}/sss.step ss * |
22 | |
23 | tpcompound result |
24 | |
25 | explode result e |
26 | regexp {Mass +: +([-0-9.+eE]+)} [lprops result_4] full t1 |
27 | regexp {Mass +: +([-0-9.+eE]+)} [lprops result_7] full t2 |
28 | regexp {Mass +: +([-0-9.+eE]+)} [lprops result_9] full t3 |
29 | |
30 | set res2 [expr $t1+$t2+$t3] |
31 | puts $res2 |
32 | |
33 | if {[expr abs([expr $res1 - $res2])] > 0.0001} then { |
34 | puts "Error : large difference between shapes" |
35 | } |
36 | |
37 | set 2dviewer 0 |