tests/bugs/vis/buc60587

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