tests/bugs/vis/bug26028

   1 puts "============="
   2 puts ""
   3 puts "============="
   4 puts ""
   5
   6 ##############################################################################
   7 ## Drawing mesh as closed object.
   8 ##############################################################################
   9
  10 pload XDE
  11
  12 set anImage1 $imagedir/${casename}_Opened.png
  13 set anImage2 $imagedir/${casename}_Closed.png
  14
  15 vinit
  16 meshfromstl aMesh [locate_data_file sh1.stl]
  17 vsetdispmode aMesh 2
  18 vright
  19 vfit
  20
  21 vclipplane create aClipPlane
  22 vclipplane change aClipPlane equation 0 1 0 0
  23 vclipplane change aClipPlane capping on
  24 vclipplane change aClipPlane capping color 0.9 0.9 0.9
  25 vclipplane set aClipPlane object aMesh
  26
  27 meshclosed aMesh 0
  28 vdump ${anImage1}
  29
  30 meshclosed aMesh 1
  31 vdump ${anImage2}