tests/bugs/vis/bug24930

   1 puts "============"
   2 puts "OCC24930"
   3 puts "============"
   4 puts ""
   5
   6 pload QAcommands
   7
   8 box b 10 10 10
   9 vinit
  10 vdisplay b
  11 vsetdispmode b 1
  12 vfit
  13
  14 #
  15 set anImage_1 ${imagedir}/${casename}_1.png
  16 vdump ${anImage_1}
  17 #
  18
  19 # Enable texture
  20 vtexture b 0
  21
  22 #
  23 set anImage_2 ${imagedir}/${casename}_2.png
  24 vdump ${anImage_2}
  25 #
  26
  27 # Set new color
  28 vsetcolor b GREEN
  29 # Check pixel color
  30 checkcolor 205 180 0 0.64705884456634521 0
  31
  32 #
  33 set anImage_3 ${imagedir}/${casename}_3.png
  34 vdump ${anImage_3}
  35 #
  36 # Reset color
  37 vunsetcolor b
  38 # Check pixel color
  39 checkcolor 205 180 0.608 0.431 0.071
  40
  41 #
  42 set anImage_4 ${imagedir}/${casename}_4.png
  43 vdump ${anImage_4}
  44 #
  45
  46 # Set new material
  47 vsetmaterial b silver
  48 # Check pixel color
  49 checkcolor 205 180 0.380 0.380 0.380
  50
  51 #
  52 set anImage_5 ${imagedir}/${casename}_5.png
  53 vdump ${anImage_5}
  54 #
  55
  56 # Unset material
  57 vunsetmaterial b
  58 # Check pixel color
  59 checkcolor 205 180 0.608 0.431 0.706
  60
  61 #
  62 set anImage_6 ${imagedir}/${casename}_6.png
  63 vdump ${anImage_6}
  64 #