tests/bugs/vis/buc60632_2

   1 if { [array get env os_type] != "" } {
   2     set os $env(os_type)
   3 }
   4 if { [string compare $os "windows"] != 0 } {
   5 }
   6
   7 puts "================"
   8 puts "BUC60632"
   9 puts "================"
  10
  11 vinit
  12 BUC60632 1 100
  13 vfit
  14 vmoveto 126 143
  15 puts "Highlighting by 'Move To' command in shading mode"
  16
  17 set x_coord 128
  18 set y_coord 143
  19
  20 checkcolor $x_coord $y_coord 0 1 1
  21
  22 if { $stat != 1 } {
  23    puts "Error : Highlighting by Move To command in shading mode is WRONG."
  24 }
  25
  26 set only_screen 1
  27
  28