tests/bugs/moddata_3/bug25202_2

   1 puts "========"
   2 puts "CR25202"
   3 puts "========"
   4 puts ""
   5 #########################################
   6 ## Incorrect value of IsClosed flag in shapes produced by some algorithms
   7 #########################################
   8
   9 box b 100 100 100
  10 explode b sh
  11 trotate b_1 0 0 0 1 0 0 45
  12 removeloc result b_1
  13
  14 set info [whatis result]
  15 if { [regexp {Closed} ${info}] } {
  16     puts "OK : value of IsClosed flag is correct"
  17 } else {
  18     puts "Error : value of IsClosed flag is not correct"
  19 }
  20
  21 set 2dviewer 1