tests/bugs/vis/bug24564

   1 puts "============"
   2 puts "CR24564"
   3 puts "============"
   4 puts ""
   5
   6 #######################################################################
   7 #  Test for sensitivity of box located over AIS_Plane
   8 #######################################################################
   9
  10 set aV "Driver1/Viewer1/View1"
  11 vinit name=$aV l=32 t=32 w=400 h=400
  12 vactivate $aV
  13 vclear
  14
  15 puts "Testing box selection over the plane in orthogonal projection:"
  16 vpoint p1 0 0 0
  17 vpoint p2 1 0 0
  18 vpoint p3 0 1 0
  19
  20 vplane pl1 p1 p2 p3 0
  21 box b 50 50 50
  22 vdisplay b
  23 vfit
  24 vtop
  25
  26 vaspects -setwidth 5
  27 vmoveto 200 200
  28 if { "[vreadpixel 200 200 rgb name]" != "CYAN1"  } {
  29   puts "Error : The box is not selectable!"
  30 }
  31
  32 puts "Testing box selection over the plane in axonometry projection:"
  33 vaxo
  34 vfit
  35
  36 vmoveto 200 200
  37 if { "[vreadpixel 199 200 rgb name]" != "CYAN1"  } {
  38   puts "Error : The box is not selectable!"
  39 }