tests/bugs/modalg_6/bug26431_3

   1 puts "============"
   2 puts "OCC26431"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Can't cut a sphere from a cylinder
   7 ###############################
   8
   9 restore [locate_data_file bug26431_Body.brep] b1
  10 restore [locate_data_file bug26431_Sphere.brep] b2
  11
  12 bop b1 b2
  13 bopcut result
  14
  15 checkshape result
  16
  17 decho off
  18 dlog reset
  19 dlog on
  20
  21 bopargcheck result #F
  22
  23 set info [dlog get]
  24 dlog reset
  25 dlog off
  26 decho on
  27
  28 set MessageList {
  29 "Faulties for FIRST  shape found : 9"
  30 "Shapes are not suppotrted by BOP: NO"
  31 "Self-Intersections              : NO"
  32 "Check for SI has been aborted   : NO"
  33 "Too small edges                 : NO"
  34 "Bad faces                       : NO"
  35 "Too close vertices              : DISABLED"
  36 "Too close edges                 : DISABLED"
  37 "Shapes with Continuity C0       : YES  Cases\\(9\\)  Total shapes\\(9\\)"
  38 "Invalid Curve on Surface        : NO"
  39 "Faulties for SECOND  shape found : 0"
  40 }
  41 for {set i 1} {$i <= 11} {incr i} {
  42    set str [ lindex ${MessageList} [expr $i - 1] ]
  43    if { [regexp ${str} ${info}] == 1  } {
  44       puts "OK : There is #$i message"
  45    } else {
  46       puts "Error : There is not #$i message"
  47       puts $str
  48    }
  49 }
  50
  51 set square 14.4399
  52
  53 set nbshapes_expected "
  54 Number of shapes in shape
  55  VERTEX    : 7
  56  EDGE      : 20
  57  WIRE      : 7
  58  FACE      : 6
  59  SHELL     : 1
  60  SOLID     : 1
  61  COMPSOLID : 0
  62  COMPOUND  : 1
  63  SHAPE     : 43
  64 "
  65 checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction"
  66
  67
  68 set 3dviewer 1