tests/bugs/vis/bug61

   1 puts "========"
   2 puts "OCC61"
   3 puts "SAM723"
   4 puts "BUC60919"
   5 puts "========"
   6
   7 vinit
   8 vtrihedron trihedron
   9
  10 set x_coord 205
  11 set y_coord 205
  12
  13 checkcolor $x_coord $y_coord 0.43 0.48 0.54
  14
  15 set xmin 1
  16 set ymin 1
  17 set xmax 409
  18 set ymax 205
  19
  20 # Select part of trihedron
  21 OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
  22 OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
  23
  24 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  25
  26 set only_screen 1