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