Integration part of tests of grid chl
[occt.git] / tests / bugs / step / bug46
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
35 set 2dviewer 0