tests/bugs/modalg_1/buc60663_2

   1 puts "TODO OCC12345 ALL: Faulty : the distanse is"
   2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
   3
   4 puts "====================================="
   5 puts "BUC60663"
   6 puts "====================================="
   7 puts ""
   8 puts "It takes visual check for this BUG."
   9 puts "====================================="
  10 puts ""
  11
  12 restore [locate_data_file buc60663a.brep] a
  13 checkshape a
  14 restore [locate_data_file buc60663b.brep] b
  15 checkshape b
  16
  17 bsection result a b
  18
  19 set expl [explode result v]
  20 set len [llength $expl]
  21 set ver [lindex $expl [expr $len - 1]]
  22 explode b e
  23 explode b_4 v
  24 distmini d $ver b_5
  25
  26 regexp {([-0-9.+eE]+)$} [dump d_val] full dist
  27 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance $ver] full toler
  28
  29 if {$dist > $toler} {
  30     puts "Faulty : the distanse is $dist. It is more $toler."
  31 }
  32 set length 0
  33 set 2dviewer 0