tests/bugs/vis/bug25624

   1 puts "========"
   2 puts "OCC25624"
   3 puts "========"
   4 puts ""
   5 ############################################################################
   6 puts "Visualization - selection is incorrect in perspective mode in a specific case"
   7 ############################################################################
   8
   9 pload MODELING VISUALIZATION
  10 box a 0.0 0.0 0.0 0.1 0.1 0.1
  11 box b 0.0 0.0 0.5 0.1 0.1 0.1
  12 box c 0.0 0.0 1.0 0.1 0.1 0.1
  13
  14 vinit View1
  15 vautozfit 1
  16 vclear
  17 vtop
  18 vsetdispmode 0
  19 vcamera -persp
  20 vdisplay a b c
  21 vfit
  22 vselect 210 210
  23
  24 # check if the closest box is selected
  25 checkcolor 170 10 0.8 0.8 0.8
  26
  27 # check if the farthest box is displayed
  28 # without any highlighting
  29 checkcolor 210 184 1 1 0
  30
  31 set only_screen 1