0717ddc1 |
1 | puts "============" |
2 | puts "CR24837_2" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Visualization - revise design and implementation of connected Interactive Objects |
7 | ####################################################################### |
8 | |
6fb1a930 |
9 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
10 | |
0717ddc1 |
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 |
aaf8d6a9 |
23 | vdrawtext tb1 "b1" -pos 0 -3 3 -color FF1919 -halign right -valign bottom -angle 000 -zoom 0 -height 14 -aspect regular -font SansFont |
24 | vdrawtext tb2 "b2" -pos 3 0 3 -color 19FF19 -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 FFE1E1 -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 FFE1E1 -halign right -valign bottom -angle 000 -zoom 0 -height 14 -aspect regular -font SansFont |
0717ddc1 |
27 | vsetdispmode 1 |
28 | set anImage ${imagedir}/${casename}_2_1.png |
29 | vdump ${anImage} |
30 | |
b6472664 |
31 | vsetmaterial b1 b2 plastic |
29e2c6d2 |
32 | vsetcolor b1 tb1 RED |
33 | vsetcolor b2 tb2 GREEN |
0717ddc1 |
34 | set anImage ${imagedir}/${casename}_2_2.png |
35 | vdump ${anImage} |
36 | |
37 | vsetlocation b1 0 -3 0 |
29e2c6d2 |
38 | vconnect bc 0 -6 0 b1 b2 tb1 tb2 |
0717ddc1 |
39 | set anImage ${imagedir}/${casename}_2_3.png |
40 | vdump ${anImage} |
3e9c1d1e |
41 | |
42 | vsensdis |
43 | vdump $imagedir/${casename}_sensitive.png |