tests/bugs/vis/bug24374

   1 puts "============"
   2 puts "CR24374"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  Flipping affects highlight presentation of dimension
   7 #######################################################################
   8 box b 100 100 100
   9 explode b e
  10 vdisplay b
  11 vdisplay b_9
  12 vdimension length name=dim1 b_9 text=3d plane=zox
  13 vdisplay dim1
  14 vselmode b 2 1
  15 vselmode dim1 2 1
  16 vfit
  17 vmoveto 140 370
  18
  19 set x_coord 140
  20 set y_coord 370
  21 checkcolor $x_coord $y_coord 0 1 1
  22
  23 if { $stat != 1 } {
  24   puts "Error : Highlighting of dimension with flipping in local context failed."
  25 }
  26
  27 set only_screen 1