tests/bugs/vis/bug29787

   1 puts "========"
   2 puts "0029787: Visualization - Avoid in presentation edges of certain continuity class"
   3 puts "========"
   4 puts ""
   5
   6 pload MODELING VISUALIZATION
   7
   8 vclear
   9 vinit View1
  10 vsetcolorbg 255 255 255
  11
  12 psphere s1 1
  13 psphere s2 1
  14 psphere s3 1
  15 ttranslate s2 4 0 0
  16 ttranslate s3 8 0 0
  17
  18 vdisplay -dispMode 0 s1
  19 vdisplay -dispMode 1 s2 s3
  20 vfit
  21
  22 vaspects s2 -setFaceBoundaryDraw 1 -setFaceBoundaryColor RED
  23 vaspects s3 -setFaceBoundaryDraw 1 -setFaceBoundaryColor RED -setMostContinuity c2
  24
  25 vdump $::imagedir/${::casename}.png