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