0024837: Visualization - revise design and implementation of connected Interactive...
[occt.git] / tests / bugs / vis / bug25103
1 puts "============"
2 puts "CR25103"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Visualization - Regression in interactive detection
7 #######################################################################
8
9 vinit
10 vsetdispmode 1
11
12 box wall1 1 8 8
13 box wall2 1 8 8
14 box wall3 16 8 1
15
16 vdisplay wall1
17 vdisplay wall2
18 vdisplay wall3
19
20 vsetlocation wall1 -10 0 0
21 vsetlocation wall2 5 0 0
22 vsetlocation wall3 -10 0 -1
23
24 vsetmaterial wall1 stone
25 vsetmaterial wall2 stone
26 vsetmaterial wall3 pewter
27
28 vsetcolor wall1 red
29 vsetcolor wall2 green
30
31 vright
32 vturnview 0 -0.3 0
33 vfit
34
35 set anImage ${imagedir}/${casename}_1.png
36 vdump ${anImage}
37
38 # The next line should highlight the green box (wall2) but it does not
39 vmoveto 394 205
40
41 set anImage ${imagedir}/${casename}_2.png
42 vdump ${anImage}
43
44 # The next line should not hit any object but it highlights the green box
45 vmoveto 264 205
46
47 set anImage ${imagedir}/${casename}_3.png
48 vdump ${anImage}