tests/bugs/iges/bug60591_3

   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 \"buc60591c\" model"
  19
  20 igesbrep [locate_data_file buc60591c.igs] a *
  21
  22 tpcompound buc60591c
  23 puts [checkshape buc60591c r]
  24
  25 ######################################################################
  26
  27 catch {exec rm ${imagedir}/buc60591c.brep}
  28 save buc60591c ${imagedir}/buc60591c.brep
  29 catch {exec rm ${imagedir}/buc60591c_iges.igs}
  30 brepiges buc60591c ${imagedir}/buc60591c_iges.igs
  31 dall
  32
  33 restore  ${imagedir}/buc60591c.brep buc60591c_brep
  34 catch {exec rm ${imagedir}/buc60591c_brep.igs}
  35 brepiges buc60591c_brep ${imagedir}/buc60591c_brep.igs
  36 dall
  37
  38 igesbrep ${imagedir}/buc60591c_brep.igs c_brep_iges *
  39 tpcompound buc60591c_brep_iges
  40 puts [checkshape buc60591c_brep_iges]
  41
  42 igesbrep ${imagedir}/buc60591c_iges.igs c_iges *
  43 tpcompound buc60591c_iges
  44 puts [checkshape buc60591c_iges]
  45
  46 renamevar  buc60591c_iges result
  47
  48 set 2dviewer 0
  49