tests/bugs/step/bug46

   1 set os $env(os_type)
   2
   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