28ee613b |
1 | puts "================================================================" |
2 | puts "CR26159" |
3 | puts "Visualization - revise tolerance implementation for selection." |
4 | puts "================================================================" |
5 | puts "" |
6 | |
7 | pload VISUALIZATION MODELING |
8 | box b1 1 1 1 1 1 1 |
9 | box b2 3 3 3 1 1 1 |
10 | box b3 6 6 6 1 1 1 |
11 | vdisplay b1 b2 b3 |
12 | vfit |
13 | |
14 | # activate vertex selection |
15 | vselmode b1 1 1 |
16 | |
17 | # check selection tolerance |
18 | vmoveto 58 324 |
19 | checkcolor 58 324 0 1 1 |
20 | |
21 | # to print tolerance in case of failure: |
22 | puts [vselprecision] |
23 | vdump $imagedir/${casename} |