tests/v3d/bugs/buc60661

   1 puts "=================================="
   2 puts "BUC60661"
   3 puts "It is impossible to nominate sheding mode in 3D-viewer for the some shapes in C30 (SUN station),"
   4 puts "which were stored in IGES format previously and then were retrieved again into BREP format."
   5 puts "=================================="
   6 puts ""
   7
   8 pload MODELING XDE VISUALIZATION
   9
  10 restore [locate_data_file buc60661a.brep] buc60661
  11 checkshape buc60661
  12
  13 ######################################################################
  14 file delete ${imagedir}/buc60661.igs }
  15 brepiges buc60661 ${imagedir}/buc60661.igs
  16 ######################################################################
  17
  18 dall
  19
  20 if [catch { igesbrep ${imagedir}/buc60661.igs a * } res] {
  21   puts "Faulty BUC60661: here is reading problem of iges file"
  22 } else {
  23   puts "Reading of iges in BUC60661 is OK"
  24 }
  25
  26 tpcompound result
  27 checkshape result
  28
  29 vinit View1
  30 tclean result
  31 vdisplay result
  32 vsetdispmode result 1
  33
  34 checktrinfo result -tri -nod
  35 vdump $imagedir/${casename}.png