tests/bugs/vis/bug23709_1

   1 puts "============"
   2 puts "OCC23709"
   3 puts "============"
   4 puts ""
   5 ############################################################################
   6 # Redesign of hlrtest command
   7 ############################################################################
   8
   9 pcone a 5 0 10
  10 box b 15 0 0 10 10 10
  11 vinit
  12 vdisplay a
  13 vdisplay b
  14 vrotate 35 0 0
  15 vfit
  16 vhlr on
  17 vhlrtype polyalgo b
  18
  19 set x_coord 290
  20 set y_coord 170
  21 vaspects -setwidth 5
  22 if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } {
  23   puts "Error : color is not yellow"
  24 }
  25
  26 set x_coord 86
  27 set y_coord 221
  28 checkcolor $x_coord $y_coord 0 0 0
  29
  30 checkview -screenshot -3d -path ${imagedir}/${test_image}.png