tests/bugs/vis/bug24725

   1 puts "============"
   2 puts "CR24725"
   3 puts "============"
   4 puts ""
   5
   6 ########################################################
   7 #  Test texture color modulation for AIS_TexturedShape
   8 ########################################################
   9
  10 set aV "Driver1/Viewer1/View1"
  11 vinit name=$aV l=32 t=32 w=400 h=400
  12 vactivate $aV
  13 vclear
  14
  15 box b 1 2 3
  16 vdisplay b
  17 vsetdispmode 1
  18 vtexture b 0
  19 vlight clear
  20 vlight add ambient color white
  21 vfit
  22
  23 set check_x 142
  24 set check_y 352
  25
  26 vtexture b -modulate off
  27
  28 checkcolor $check_x $check_y 1 1 1
  29
  30 if { $stat != 1 } {
  31   puts "Error : color of non-modulated texture is incorrect"
  32 }
  33
  34 vdump $imagedir/${casename}_1.png
  35
  36 vtexture b -modulate on
  37
  38 checkcolor $check_x $check_y 0.329 0.224 0.027
  39
  40 if { $stat != 1 } {
  41   puts "Error : color of modulated texture is incorrect"
  42 }
  43
  44 vdump $imagedir/${casename}_2.png