0032387: Visualization - use interface of ray-picking for selection/highlighting...
[occt.git] / tests / vselect / axis / A2
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