6 ##############################################################################
7 # Test for mapping Image_PixMap on AIS_TexturedShape / Graphic3d_TextureRoot
8 ##############################################################################
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
15 vsettexturemode $aV1 2
22 checkcolor 100 200 0 0.5804 0.949
25 puts "Error : the 1D texture color does not match at px (100, 200)!"
28 checkcolor 300 200 0.298 1.0 0.0
31 puts "Error : the 1D texture color does not match at px (300, 200)!"
35 vsettexturemode $aV2 2
42 checkcolor 200 100 0 0.5804 0.949
45 puts "Error : the 2D texture color does not match at px (200, 100)!"
48 checkcolor 200 300 0.298 1.0 0.0
51 puts "Error : the 2D texture color does not match at px (200, 300)!"