735dc1d2 |
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 | # |