1puts "============"
2puts "0029938: Visualization - SelectMgr_ViewerSelector::PickedPoint() should return point lying on an object"
3puts "============"
4puts ""
5
6pload MODELING VISUALIZATION
7pload OPENGL
8box b 1 2 3
9vcaps -core
10vclear
11vinit View1
12vaxo
13vdisplay -dispMode 1 -mutable b
14vfit
15vrotate 0.2 0.0 0.0
16vselmode 0 off
17
18#Check Vertex selection mode case
19vselmode 1 on
20vmoveto 337 45
21set pnt "1 2 3"
22set exp {Point: ([-0-9.+eE]+) ([-0-9.+eE]+) ([-0-9.+eE]+)}
23set match [regexp -all -inline $exp [vstate -entities]]
24foreach {_ x y z} $match {
25  if {$pnt != "$x $y $z"} {
26    puts "Error: Calculate point ($x $y $z) is not equal to target ($pnt)" }
27}
28
29#Check Wire selection mode case
30vselmode 1 off
31vselmode 2 on
32vmoveto 295 317
33set pnt "1 2 0"
34set exp {Point: ([-0-9.+eE]+) ([-0-9.+eE]+) ([-0-9.+eE]+)}
35set match [regexp -all -inline $exp [vstate -entities]]
36foreach {_ x y z} $match {
37  if {$pnt != "$x $y $z"} {
38    puts "Error: Calculate point ($x $y $z) is not equal to target ($pnt)" }
39}
40
41#Check Face selection mode case
42vselmode 2 off
43vselmode 4 on
44vmoveto 284 324
45set pnt "1 1.8383 0"
46set exp {Point: ([-0-9.+eE]+) ([-0-9.+eE]+) ([-0-9.+eE]+)}
47set match [regexp -all -inline $exp [vstate -entities]]
48foreach {_ x y z} $match {
49  if {$pnt != "$x $y $z"} {
50    puts "Error: Calculate point ($x $y $z) is not equal to target ($pnt)" }
51}
52vdump ${imagedir}/${casename}.png
53