0024837: Visualization - revise design and implementation of connected Interactive...
[occt.git] / tests / bugs / vis / bug24837_2
1 puts "============"
2 puts "CR24837_2"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Visualization - revise design and implementation of connected Interactive Objects
7 #######################################################################
8
9 pload MODELING VISUALIZATION
10 box o1 -10 -10 -5 1 1 10
11 box o2  10  10 -5 1 1 10
12 box b1 0 0 0 1 2 3
13 box b2 3 0 0 3 2 1
14 vinit View1
15 vclear
16 vtop
17 vsetdispmode 0
18 vdisplay o1 o2
19 vdisplay b1 b2
20 vfit
21 vdrawtext "b1"   0 -3 3 255  25  25 2 0 000 0 14 1 Arial
22 vdrawtext "b2"   3  0 3  25 255  25 2 0 000 0 14 1 Arial
23 vdrawtext "bc_1" 0 -9 3 255 225 225 2 0 000 0 14 1 Arial
24 vdrawtext "bc_2" 3 -6 3 255 225 225 2 0 000 0 14 1 Arial
25 vsetdispmode 1
26 set anImage ${imagedir}/${casename}_2_1.png
27 vdump ${anImage}
28
29 vsetmaterial b1 b2 plastic
30 vsetcolor b1 RED
31 vsetcolor b2 GREEN
32 set anImage ${imagedir}/${casename}_2_2.png
33 vdump ${anImage}
34
35 vsetlocation b1 0 -3 0
36 vconnect bc 0 -6 0 b1 b2
37 set anImage ${imagedir}/${casename}_2_3.png
38 vdump ${anImage}