tests/bugs/vis/bug25340

   1 puts "========"
   2 puts "0025340: Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point"
   3 puts "========"
   4 puts ""
   5
   6 pload QAcommands
   7
   8 vinit View1
   9
  10 box b 1 2 3
  11 vdisplay b
  12 vfit
  13 vtrihedron t
  14 set color_1 [vreadpixel 87 25 -rgb -name]
  15
  16 OCC25340
  17 vselect 87 25
  18 set color_2 [vreadpixel 87 25 -rgb -name]
  19
  20 if {$color_2 != $color_1} {
  21   puts "ERROR: OCC25340 is reproduced"
  22   puts "       initial color of trihedron is: $color_1"
  23   puts "       final color of trihedron is:   $color_2"
  24 }
  25
  26 if {$color_2 != "LIGHTSTEELBLUE4"} {
  27   puts "ERROR: OCC25340 is reproduced"
  28   puts "       additional investigation is needed"
  29   puts "       expected color is: LIGHTSTEELBLUE4"
  30   puts "       current color is:  $color_2"
  31 }
  32
  33 vdump ${imagedir}/${test_image}.png