tests/bugs/iges/buc60685

   1 puts "============"
   2 puts "BUC60685"
   3 puts "============"
   4 puts ""
   5
   6 cpulimit 1500
   7
   8 set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots]
   9
  10 tpcompound result
  11 puts [checkshape result r]
  12
  13 set start [lindex $l 60]
  14 set bug_list_numb [ llength $l ]
  15 set bug_list_elem 0
  16 while { $bug_list_elem != $bug_list_numb } {
  17     if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
  18         set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
  19         set bug_list_elem [ expr { $bug_list_numb - 1 } ]
  20     }
  21     set bug_list_elem [ expr { $bug_list_elem + 1 } ]
  22 }
  23
  24 set n [llength $l]
  25 set end [lindex $l [expr $n-1]]
  26 if { $start != $end } {
  27     puts "Error : wrong number of translated shapes. It is ${end} instead of ${start}"
  28 }
  29
  30 set 2dviewer 0