tests/bugs/vis/buc60661

   1 puts "=================================="
   2 puts "BUC60661"
   3 puts "It takes visual check for this BUG"
   4 puts "=================================="
   5 puts ""
   6
   7 pload XDE
   8
   9 ##################################################################
  10 ##DESCRIPTION: It is impossible to nominate "sheding" mode in 3D-viewer for the some shapes in
  11 ##  C30 (SUN station), which were stored in "IGES" format previousl and then were retrieved again
  12 ## into "BREP" format.
  13 ##################################################################
  14
  15 restore [locate_data_file buc60661a.brep] buc60661
  16 checkshape buc60661
  17
  18 ######################################################################
  19 file delete ${imagedir}/buc60661.igs }
  20 brepiges buc60661 ${imagedir}/buc60661.igs
  21 ######################################################################
  22
  23 dall
  24
  25 if [catch { igesbrep ${imagedir}//buc60661.igs a * } res] {
  26   puts "Faulty BUC60661: here is reading problem of iges file"
  27 } else {
  28   puts "Reading of iges in BUC60661 is OK"
  29 }
  30
  31 tpcompound result
  32 checkshape result
  33
  34 vinit
  35 tclean result
  36 vdisplay result
  37 vsetdispmode result 1
  38
  39 set info [trinfo result]
  40 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  41 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  42
  43 if { $tri == 0 || $nod ==0 }  {
  44   puts "Error : here is shading problem"
  45 }
  46
  47 set 3dviewer 1
  48