tests/bugs/iges/bug60823

   1 if { [array get env os_type] != "" } {
   2     set os $env(os_type)
   3 }
   4 if { [string compare $os "windows"] != 0 } {
   5     puts "TODO OCC12345 ALL: An exception was caught"
   6     puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   7     puts "TODO OCC12345 ALL: TEST INCOMPLETE"
   8 }
   9 puts "========================"
  10 puts "BUC60823"
  11 puts "========================"
  12
  13 igesbrep [locate_data_file buc60823.igs] a *
  14
  15 tpcompound result
  16 puts [checkshape result]
  17 puts [checkshape result r]
  18
  19 tclean result
  20 vinit
  21 vdisplay result
  22 vsetdispmode result 1
  23 vfit
  24
  25 set info [trinfo result]
  26 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  27 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  28
  29 if { $tri != 17618 || $nod != 11153 } {
  30     puts "Shading problem may be, nb tri & nod are changed"
  31 }
  32
  33 set 2dviewer 0
  34