tests/bugs/modalg/bug822_2

   1 pload QAcommands
   2
   3 puts "======="
   4 puts "OCC822"
   5 puts "======="
   6 puts ""
   7 #####################################
   8 ## BRepMesh_IncrementalMesh fails on some faces
   9 #####################################
  10
  11 if { [ catch { set info_result [OCC822_2 a1 a2 result] } ] } {
  12     puts "Faulty : an exception was caught"
  13 } else {
  14     if { [lsearch ${info_result} FAILED] > -1} {
  15         puts "Faulty : commands was FAILED"
  16     }
  17
  18     set ExplodeList [explode result]
  19     if {[llength ${ExplodeList}] < 1} {
  20         puts "Faulty : Resulting shape is empty COMPOUND"
  21     }
  22 }
  23
  24 set square 61963.5
  25 set 2dviewer 0