0024837: Visualization - revise design and implementation of connected Interactive...
[occt.git] / tests / bugs / vis / bug24837_1
1 puts "============"
2 puts "CR24837_1"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Visualization - revise design and implementation of connected Interactive Objects
7 #######################################################################
8
9 pload MODELING VISUALIZATION
10 vinit
11 box b 1 1 1
12 psphere s 0.5
13 vdisplay b s
14 vsetlocation s 0 2.5 0
15 box d 0.5 0.5 3
16 box d2 0.5 3 0.5
17 vdisplay d d2
18 vconnectto b1 -2 0 0 b
19 vconnect z 2 0 0 b s
20 vconnect z2 4 0 0 d d2
21 vconnect z3 6 0 0 z z2
22 vconnect z4 10 0 0 z3 z2
23 vfit
24 set anImage ${imagedir}/${casename}_1_1.png
25 vdump ${anImage}
26
27 vaddconnected z4 0 4 0 s
28 vdisconnect z4 1
29 vfit
30 set anImage ${imagedir}/${casename}_1_2.png
31 vdump ${anImage}
32
33 vhlr on
34 set anImage ${imagedir}/${casename}_1_3.png
35 vdump ${anImage}
36
37 vhlr off
38 vsetdispmode 1
39 vmoveto 320 330
40 set anImage ${imagedir}/${casename}_1_4.png
41 vdump ${anImage}