tests/bugs/vis/bug24837_1

   1 puts "============"
   2 puts "CR24837_1"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  Visualization - revise design and implementation of connected Interactive Objects
   7 #######################################################################
   8
   9 pload MODELING VISUALIZATION
  10 vinit
  11 box b 1 1 1
  12 psphere s 0.5
  13 vdisplay b s
  14 vsetlocation s 0 2.5 0
  15 box d 0.5 0.5 3
  16 box d2 0.5 3 0.5
  17 vdisplay d d2
  18 vconnectto b1 -2 0 0 b
  19 vconnect z 2 0 0 b s
  20 vconnect z2 4 0 0 d d2
  21 vconnect z3 6 0 0 z z2
  22 vconnect z4 10 0 0 z3 z2
  23 vfit
  24 set anImage ${imagedir}/${casename}_1_1.png
  25 vdump ${anImage}
  26
  27 vaddconnected z4 0 4 0 s
  28 vdisconnect z4 1
  29 vfit
  30 set anImage ${imagedir}/${casename}_1_2.png
  31 vdump ${anImage}
  32
  33 vhlr on
  34 set anImage ${imagedir}/${casename}_1_3.png
  35 vdump ${anImage}
  36
  37 vhlr off
  38 vsetdispmode 1
  39 vmoveto 320 330
  40 set anImage ${imagedir}/${casename}_1_4.png
  41 vdump ${anImage}