0027670: Visualization - avoid duplication of structures defining primitive array...
[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 vfont add [locate_data_file DejaVuSans.ttf] SansFont
10
11 pload MODELING VISUALIZATION
12 box o1 -10 -10 -5 1 1 10
13 box o2  10  10 -5 1 1 10
14 box b1 0 0 0 1 2 3
15 box b2 3 0 0 3 2 1
16 vinit View1
17 vclear
18 vtop
19 vsetdispmode 0
20 vdisplay o1 o2
21 vdisplay b1 b2
22 vfit
23 vdrawtext tb1 "b1" -pos 0 -3 3 -color 1.0 0.098 0.098 -halign right -valign bottom -angle 000 -zoom 0 -height 14 -aspect regular -font SansFont
24 vdrawtext tb2 "b2" -pos 3 0 3 -color 0.098 1.0 0.098 -halign right -valign bottom -angle 000 -zoom 0 -height 14 -aspect regular -font SansFont
25 vdrawtext bc_1 "bc_1" -pos 0 -9 3 -color 1.0 0.8823 0.8823 -halign right -valign bottom -angle 000 -zoom 0 -height 14 -aspect regular -font SansFont
26 vdrawtext bc_2 "bc_2" -pos 3 -6 3 -color 1.0 0.8823 0.8823 -halign right -valign bottom -angle 000 -zoom 0 -height 14 -aspect regular -font SansFont
27 vsetdispmode 1
28 set anImage ${imagedir}/${casename}_2_1.png
29 vdump ${anImage}
30
31 vsetmaterial b1 b2 plastic
32 vsetcolor b1 tb1 RED
33 vsetcolor b2 tb2 GREEN
34 set anImage ${imagedir}/${casename}_2_2.png
35 vdump ${anImage}
36
37 vsetlocation b1 0 -3 0
38 vconnect bc 0 -6 0 b1 b2 tb1 tb2
39 set anImage ${imagedir}/${casename}_2_3.png
40 vdump ${anImage}