0717ddc1 |
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 |
29e2c6d2 |
21 | 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 Arial |
22 | 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 Arial |
23 | 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 Arial |
24 | 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 Arial |
0717ddc1 |
25 | vsetdispmode 1 |
26 | set anImage ${imagedir}/${casename}_2_1.png |
27 | vdump ${anImage} |
28 | |
29e2c6d2 |
29 | vsetmaterial b1 b2 tb1 tb2 plastic |
30 | vsetcolor b1 tb1 RED |
31 | vsetcolor b2 tb2 GREEN |
0717ddc1 |
32 | set anImage ${imagedir}/${casename}_2_2.png |
33 | vdump ${anImage} |
34 | |
35 | vsetlocation b1 0 -3 0 |
29e2c6d2 |
36 | vconnect bc 0 -6 0 b1 b2 tb1 tb2 |
0717ddc1 |
37 | set anImage ${imagedir}/${casename}_2_3.png |
38 | vdump ${anImage} |