807340d9 |
1 | puts "========" |
2 | puts "0032338: Visualization - provide straightforward interface for ray-picking" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | pload MODELING VISUALIZATION |
7 | box b 100 200 300 |
8 | vinit View1 |
9 | vdisplay -dispMode 1 b |
10 | vfit |
11 | vselmode b VERTEX 1 |
12 | vselmode b FACE 1 |
13 | set point1 [vmoveto 324 320] |
14 | vdump ${imagedir}/${casename}_p1.png |
15 | |
16 | regexp {([-0-9.+eE]+ [-0-9.+eE]+ [-0-9.+eE]+)} ${point1} full p1 |
17 | checkpoint "point1" $p1 {100 200 0} 0.001 |
18 | |
19 | vselaxis 50 -100 100 0 1 0 -display a |
20 | vmoveto 0 0 |
21 | set point2 [vmoveto 324 320] |
22 | vdump ${imagedir}/${casename}_p2.png |
23 | regexp {([-0-9.+eE]+ [-0-9.+eE]+ [-0-9.+eE]+)} ${point1} full p2 |
24 | checkpoint "point2" $p2 {100 200 0} 0.001 |