tests/bugs/iges/buc60591_1

   1 set os $env(os_type)
   2
   3 puts "=========="
   4 puts "BUC60591"
   5 puts "=========="
   6 puts ""
   7 puts "=================================="
   8 puts "It takes visual check for this BUG"
   9 puts "=================================="
  10 puts ""
  11 puts "consideration of \"buc60591a\" model"
  12
  13 igesbrep [locate_data_file buc60591a.igs] a *
  14
  15 tpcompound buc60591a
  16
  17 checkshape buc60591a r
  18
  19 ######################################################################
  20
  21 catch {exec rm ${imagedir}/buc60591a.brep}
  22 save buc60591a  ${imagedir}/buc60591a.brep
  23 catch {exec rm ${imagedir}/buc60591a_iges.igs}
  24 brepiges buc60591a ${imagedir}/buc60591a_iges.igs
  25 dall
  26
  27 restore  ${imagedir}/buc60591a.brep buc60591a_brep
  28 catch {exec rm  ${imagedir}/buc60591a_brep.igs}
  29 brepiges buc60591a_brep ${imagedir}/buc60591a_brep.igs
  30 dall
  31
  32 igesbrep  ${imagedir}/buc60591a_brep.igs a_brep_iges *
  33 tpcompound buc60591a_brep_iges
  34 checkshape buc60591a_brep_iges
  35
  36 igesbrep  ${imagedir}/buc60591a_iges.igs a_iges *
  37 tpcompound buc60591a_iges
  38 checkshape buc60591a_iges
  39
  40 renamevar buc60591a_iges result
  41
  42 set 2dviewer 0
  43