tests/bugs/iges/bug60591_2

   1 set os $env(os_type)
   2 if { [string compare $os "windows"] == 0 } {
   3 #     puts "TODO OCC23561 $os: child process exited abnormally"
   4 } else {
   5     puts "TODO OCC23561 ALL: An exception was caught"
   6     puts "TODO OCC23561 ALL: Tcl Exception:"
   7     puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
   8 }
   9 puts "TODO OCC23561 ALL: TEST INCOMPLETE"
  10
  11 puts "=================================="
  12 puts "BUC60591"
  13 puts "=================================="
  14 puts ""
  15 puts "It takes visual check for this BUG"
  16 puts "=================================="
  17 puts ""
  18 puts "consideration of \"buc60591b\" model"
  19
  20 igesbrep [locate_data_file buc60591b.igs] a *
  21
  22 tpcompound buc60591b
  23
  24 puts [checkshape buc60591b r]
  25
  26 ######################################################################
  27
  28 catch {exec rm ${imagedir}/buc60591b.brep}
  29 save buc60591b ${imagedir}/buc60591b.brep
  30 catch {exec rm ${imagedir}/buc60591b_iges.igs}
  31 brepiges buc60591b ${imagedir}/buc60591b_iges.igs
  32 dall
  33
  34 restore ${imagedir}/buc60591b.brep buc60591b_brep
  35 catch {exec rm ${imagedir}/buc60591b_brep.igs}
  36 brepiges buc60591b_brep ${imagedir}/buc60591b_brep.igs
  37 dall
  38
  39 igesbrep ${imagedir}/buc60591b_brep.igs b_brep_iges *
  40 tpcompound buc60591b_brep_iges
  41 puts [checkshape buc60591b_brep_iges]
  42
  43 igesbrep ${imagedir}/buc60591b_iges.igs b_iges *
  44 tpcompound buc60591b_iges
  45 puts [checkshape buc60591b_iges]
  46
  47 renamevar buc60591b_iges result
  48
  49 set 2dviewer 0
  50