tests/bugs/iges/bug60591_1

   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 "=================================="
  16 puts "It takes visual check for this BUG"
  17 puts "=================================="
  18 puts ""
  19 puts "consideration of \"buc60591a\" model"
  20
  21 igesbrep [locate_data_file buc60591a.igs] a *
  22
  23 tpcompound buc60591a
  24
  25 puts [checkshape buc60591a r]
  26
  27 ######################################################################
  28
  29 catch {exec rm ${imagedir}/buc60591a.brep}
  30 save buc60591a  ${imagedir}/buc60591a.brep
  31 catch {exec rm ${imagedir}/buc60591a_iges.igs}
  32 brepiges buc60591a ${imagedir}/buc60591a_iges.igs
  33 dall
  34
  35 restore  ${imagedir}/buc60591a.brep buc60591a_brep
  36 catch {exec rm  ${imagedir}/buc60591a_brep.igs}
  37 brepiges buc60591a_brep ${imagedir}/buc60591a_brep.igs
  38 dall
  39
  40 igesbrep  ${imagedir}/buc60591a_brep.igs a_brep_iges *
  41 tpcompound buc60591a_brep_iges
  42 puts [checkshape buc60591a_brep_iges]
  43
  44 igesbrep  ${imagedir}/buc60591a_iges.igs a_iges *
  45 tpcompound buc60591a_iges
  46 puts [checkshape buc60591a_iges]
  47
  48 renamevar buc60591a_iges result
  49
  50 set 2dviewer 0
  51