tests/bugs/vis/bug25723

   1 puts "============"
   2 puts "OCC25723 Calculate the center of rotation taking into account structure visibility"
   3 puts "============"
   4 puts ""
   5
   6 box b1 0 0   0 10 10 10
   7 box b2 0 0  20 10 10 10
   8 box b3 0 0 -20 10 10 10
   9 box b4 0 0  40 10 10 10
  10
  11 vclear
  12 vinit View1
  13 vaxo
  14 vsetdispmode 1
  15
  16 # turn on solid selection
  17 vselmode 6 1
  18 vdisplay b1 b2 b3 b4
  19 vfit
  20
  21 # select and hide boxes b2 b3 b4
  22 vselect 100 100 400 410
  23 verase
  24
  25 # rotation
  26 vrotate -mouseStart 100 100 -mouseMove 300 300
  27 if {"[vreadpixel 220 50 rgb name]" != "GOLDENROD3"} { puts "Error: Rotation is not correct" }
  28
  29 vdump ${imagedir}/${casename}.png