tests/bugs/vis/buc60587

   1
   2 puts "========="
   3 puts "BUC60587"
   4 puts "========="
   5 puts ""
   6 puts "=================================="
   7 puts "It takes visual check for this BUG"
   8 puts "=================================="
   9
  10 restore [locate_data_file buc60587a.brep] result
  11 checkshape result
  12 tclean result
  13 vinit
  14 vdisplay result
  15 vfit
  16 vsetdispmode 1
  17 vselect 180 180
  18 vsetcolor result CYAN3
  19
  20 set x_coord 120
  21 set y_coord 180
  22
  23 checkcolor $x_coord $y_coord 0.7 1 0.9
  24
  25 if { $stat != 1 } {
  26    puts "Error : Model has NOT CYAN colour."
  27 }
  28
  29 set only_screen 1
  30