tests/bugs/vis/bug25340

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