tests/bugs/vis/bug22368

   1 puts "========================"
   2 puts "OCC22368"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # AIS_Trihedron's highlight presentation isn't updated on trihedron relocation
   7 #######################################################################
   8
   9 set BugNumber OCC22368
  10
  11 vinit
  12 vtrihedron trihedron
  13 OCC74_set trihedron 3
  14
  15 set x1 200
  16 set x2 220
  17 set x3 210
  18
  19 set y 190
  20
  21 vselect ${x3} ${y}
  22
  23 set new_x 100
  24 set new_y 100
  25 set new_z 100
  26
  27 vsetlocation trihedron ${new_x} ${new_y} ${new_z}
  28
  29 set status 0
  30 for {set i ${x1} } {$i <= ${x2} } {incr i} {
  31     checkcolor ${i} ${y} 0 0 0
  32 }
  33
  34 set only_screen 1