tests/bugs/modalg/bug221

   1 #INTERFACE IGES
   2 puts "========"
   3 puts "OCC221"
   4 puts "========"
   5 puts ""
   6 ######################################################################
   7 ##After loading attached file (one simple face) checkshape give a problem (Bad Orientation of SubShape)
   8 ##  but I believe that this face is correct. Also I believe that face is vitiated during performing checkshape
   9 ##  (perhaps - in BRepCheck_Face::ClassifyWire())
  10 ######################################################################
  11
  12 restore [locate_data_file OCC221.brep] result
  13 set che [checkshape result r]
  14 if { [regexp {OK} $che] != 1 } {
  15     puts "Faulty OCC221 (checkshape) : Checkshape command works wrongly"
  16 } else {
  17     puts "OCC221 OK (checkshape) : Checkshape command works properly"
  18 }
  19 puts ""
  20 set che [checkshape result]
  21 if { [regexp {Faulty} $che] == 1} {
  22     puts "Faulty OCC221 (checkshape) : Checkshape command works wrongly"
  23 } else {
  24     puts "OCC221 OK (checkshape) : Checkshape command works properly"
  25 }
  26
  27 set square 425.537
  28 set 2dviewer 0
  29
  30