tests/bugs/vis/bug129_1

   1 puts "================"
   2 puts "OCC129"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Object is not selectable in the Cascade Viewer
   7 ######################################################################################
   8
   9 set BugNumber OCC22129
  10
  11 cylinder c 0 0 1 10
  12 mkface f c
  13
  14 vinit
  15 vdisplay f
  16
  17 set x1 207
  18 set y1 184
  19 set x2 222
  20 set y2 175
  21
  22 set UNSELECT_R 1
  23 set UNSELECT_G 1
  24 set UNSELECT_B 0
  25
  26 set MOVESELECT_R 0
  27 set MOVESELECT_G 1
  28 set MOVESELECT_B 1
  29
  30
  31 vmoveto ${x1} ${y1}
  32 checkcolor ${x1} ${y1} 0 1 1
  33
  34 vselect ${x1} ${y1}
  35 checkcolor ${x1} ${y1} 0.8 0.8 0.8
  36
  37 vselect ${x2} ${y2}
  38 checkcolor ${x1} ${y1} 1 1 0
  39
  40 set only_screen 1
  41