tests/bugs/vis/bug23709_4

   1 puts "==========="
   2 puts "OCC23709"
   3 puts "==========="
   4 puts ""
   5 ##################################
   6 # Redesign of hlrtest command
   7 ##################################
   8
   9 set x_coord 183
  10 set y_coord 267
  11
  12 restore [locate_data_file bug23709_surfcone.brep] result
  13 vinit
  14 vdisplay result
  15 vrotate 35 0 0
  16 vfit
  17 vhlr on
  18 vhlrtype algo result
  19
  20 vaspects -setwidth 5
  21 if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } {
  22   puts "Error : color is not yellow"
  23 }
  24
  25 checkview -screenshot -3d -path ${imagedir}/${test_image}.png