tests/bugs/vis/bug22849

   1 puts "TODO CR30056 ALL: Meshing statuses: SelfIntersectingWire Failure"
   2
   3 puts "============"
   4 puts "OCC22849"
   5 puts "============"
   6 puts ""
   7 #######################################################################
   8 # Bad import of a STEP file (error during triangulation)
   9 #######################################################################
  10
  11 set BugNumber OCC22849
  12
  13 catch {pload XDE}
  14
  15 stepread [locate_data_file OCC22849-2520-6002_step.stp] a *
  16 checkshape a_1
  17 ##tole a_1
  18 incmesh a_1 0.1
  19 tricheck a_1
  20 explode a_1 f
  21
  22 set info1 [fromshape a_1_67]
  23 regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1
  24 set word1 [string compare $entity1 4973:#5009]
  25
  26 set info2 [fromshape a_1_73]
  27 regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2
  28 set word2 [string compare $entity2 5157:#5193]
  29
  30 set info3 [fromshape a_1_91]
  31 regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3
  32 set word3 [string compare $entity3 5659:#5695]
  33
  34 if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
  35   puts "OK ${BugNumber}"
  36 } else {
  37   puts "Faulty ${BugNumber}"
  38 }
  39
  40 checkview -display result -3d -path ${imagedir}/${test_image}.png