61c421bf |
1 | puts "================" |
2 | puts "OCC71" |
3 | puts "BUC61045" |
4 | puts "================" |
5 | puts "" |
6 | |
7 | # Data |
8 | set Triedron_X 29 |
9 | set Triedron_Y 380 |
10 | |
11 | set Shape_X 120 |
12 | set Shape_Y 250 |
13 | |
14 | # Display box |
15 | vinit |
16 | box b 10 10 10 |
17 | vdisplay b |
18 | |
19 | # Display triedron |
20 | OCC71 |
21 | vfit |
22 | |
23 | # Check triedron color |
24 | checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1 |
25 | |
26 | # Shading box |
27 | vsetdispmode b 1 |
28 | |
29 | # Check box color |
30 | checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09 |
31 | |
32 | # Check triedron color |
33 | checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1 |
34 | |
35 | # Select box |
4754e164 |
36 | vselect ${Shape_X} ${Shape_Y} |
61c421bf |
37 | |
38 | # Check box color |
39 | checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09 |
40 | |
41 | # Check triedron color |
42 | checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1 |
43 | |
44 | # Select empty view |
4754e164 |
45 | vselect 1 1 |
61c421bf |
46 | |
47 | # Check box color |
48 | checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09 |
49 | |
50 | # Check triedron color |
51 | checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1 |
52 | |
5747059b |
53 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |