f376ac72 |
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 |