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 checkview -display result -2d -path ${imagedir}/${test_image}.png