tests/bugs/modalg_5/bug25509_6

   1 puts "============"
   2 puts "OCC25509"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Wrong shape considered as valid by checkshape
   7 ######################################################
   8
   9 # 06
  10 # Solid with Two vertices FORWARD that are out of the growth
  11 # Solid with 2 growths
  12 # Solid with 2 shells with imbrications
  13 #
  14
  15 box b1 10 10 10
  16
  17 explode b1
  18
  19 vertex v1 11 11 0
  20 vertex v2 11 11 11
  21
  22 box b3 3 3 3 4 4 4
  23 explode b3
  24
  25 explode b1_1
  26 orientation b1_1_1 I
  27 shape x sh
  28 add b1_1_1 x
  29
  30 shape result so
  31 add b1_1 result
  32 add v1 result
  33 add v2 result
  34 add b3_1 result
  35 add x result
  36
  37 decho off
  38 set info [checkshape result]
  39 decho on
  40
  41 if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } {
  42    puts "Error : There are no mistakes by checkshape-command"
  43 } else {
  44    puts "OK : There are mistakes by checkshape-command"
  45 }
  46
  47 set 2dviewer 1