tests/bugs/vis/bug26726

   1 puts "============"
   2 puts "OCC26726 erase selected objects"
   3 puts "============"
   4 puts ""
   5 pload VISUALIZATION
   6
   7
   8 vclear
   9 vclose all
  10 vinit
  11 vsetdispmode 1
  12
  13 box b0 5 0 0 1 1 1
  14 box b1 0 5 0 1 1 1
  15 box b2 0 0 5 1 1 1
  16 box b3 5 5 5 1 1 1
  17
  18 vdisplay b0 b1 b2 b3
  19
  20 vdump $imagedir/${casename}_0.png
  21
  22 vfit
  23
  24 vselect 0 0 500 500
  25 verase
  26
  27 vdump $imagedir/${casename}_1.png
  28
  29 set info_b0 [vreadpixel 205 355 name]
  30 set info_b1 [vreadpixel 205 190 name]
  31 set info_b2 [vreadpixel 60 100 name]
  32 set info_b3 [vreadpixel 350 100 name]
  33
  34 if { $info_b0 != "BLACK 0" || $info_b1 != "BLACK 0" || $info_b2 != "BLACK 0" || $info_b3 != "BLACK 0" } {
  35   puts "Error: OCC26726 is reproduced. AIS_InteractiveContext::EraseSelected is incorrect."
  36 }