tests/bugs/vis/bug64

   1 puts "================"
   2 puts "BUC61018"
   3 puts "OCC64"
   4 puts "================"
   5 puts ""
   6
   7 set x_coord 205
   8 set y_coord 205
   9
  10 vinit
  11 vtrihedron tri
  12 vtri_orig tri
  13
  14 vmoveto 205 205
  15
  16 checkcolor $x_coord $y_coord 0 1 1
  17
  18 set only_screen 1