3 puts "================"
5 puts "================"
8 restore [locate_data_file OCC46.brep] sh
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
14 set res1 [expr $l1+$l2+$l3]
18 ######################################################################
19 catch {exec rm ${imagedir}/sss.step}
20 stepwrite a sh ${imagedir}/sss.step
21 stepread ${imagedir}/sss.step ss *
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
30 set res2 [expr $t1+$t2+$t3]
33 if {[expr abs([expr $res1 - $res2])] > 0.0001} then {
34 puts "Error : large difference between shapes"