Commit | Line | Data |
---|---|---|
06da7b7e | 1 | puts "========" |
2 | puts "OCC328" | |
3 | puts "========" | |
4 | ||
5 | vinit | |
6 | set dx 10 | |
7 | set dy 10 | |
8 | set dz 10 | |
9 | ||
10 | set x1 30 | |
11 | set y1 307 | |
12 | ||
13 | set x2 30 | |
14 | set y2 107 | |
15 | ||
16 | box b ${dx} ${dy} ${dz} | |
17 | vdisplay b | |
18 | vfit | |
19 | ||
20 | vselmode 2 1 | |
21 | set info [OCC328 b VERTEX] | |
22 | if { [regexp "VERTEX" $info] != 1 } { | |
23 | puts "Faulty: Incorrect selection mode" | |
24 | } | |
25 | ||
26 | vselect ${x1} ${y1} | |
27 | vselect ${x2} ${y2} 1 | |
28 | ||
29 | checkcolor ${x1} ${y1} 0.8 0.8 0.8 | |
30 | checkcolor ${x2} ${y2} 0.8 0.8 0.8 | |
31 | set only_screen 1 | |
32 | ||
33 | ||
34 |