tests/bugs/vis/bug24622

   1 puts "============"
   2 puts "CR24622"
   3 puts "============"
   4 puts ""
   5
   6 ##############################################################################
   7 #  Test for mapping Image_PixMap on AIS_TexturedShape / Graphic3d_TextureRoot
   8 ##############################################################################
   9
  10 set aV1 "Driver1/Viewer1/View1"
  11 set aV2 "Driver1/Viewer2/View1"
  12 vinit name=$aV1 l=32 t=32 w=400 h=400
  13 vinit name=$aV2 l=32 t=32 w=400 h=400
  14 vactivate $aV1
  15 vsettexturemode $aV1 2
  16 vclear
  17
  18 OCC24622 1D
  19 vtop
  20 vfit
  21
  22 checkcolor 100 200 0 0.5804 0.949
  23
  24 if { $stat != 1 } {
  25   puts "Error : the 1D texture color does not match at px (100, 200)!"
  26 }
  27
  28 checkcolor 300 200 0.298 1.0 0.0
  29
  30 if { $stat != 1 } {
  31   puts "Error : the 1D texture color does not match at px (300, 200)!"
  32 }
  33
  34 vactivate $aV2
  35 vsettexturemode $aV2 2
  36 vclear
  37
  38 OCC24622 2D
  39 vtop
  40 vfit
  41
  42 checkcolor 200 100 0 0.5804 0.949
  43
  44 if { $stat != 1 } {
  45   puts "Error : the 2D texture color does not match at px (200, 100)!"
  46 }
  47
  48 checkcolor 200 300 0.298 1.0 0.0
  49
  50 if { $stat != 1 } {
  51   puts "Error : the 2D texture color does not match at px (200, 300)!"
  52 }
  53
  54 set only_screen 1