tests/bugs/iges/buc60823

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