tests/bugs/vis/bug129_2

   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 trimv ct c -1e+9 1e+9
  13 mkface ft ct
  14
  15 vinit
  16 vdisplay ft
  17
  18 set x1 207
  19 set y1 184
  20 set x2 222
  21 set y2 175
  22
  23 vmoveto ${x1} ${y1}
  24 checkcolor ${x1} ${y1} 0 1 1
  25
  26 vselect ${x1} ${y1}
  27 checkcolor ${x1} ${y1} 0.8 0.8 0.8
  28
  29 vselect ${x2} ${y2}
  30 checkcolor ${x1} ${y1} 1 1 0
  31
  32 set only_screen 0