0493ffd0 |
1 | puts "========" |
2 | puts "0029787: Visualization - Avoid in presentation edges of certain continuity class" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | pload MODELING VISUALIZATION |
7 | |
8 | vclear |
9 | vinit View1 |
293211ae |
10 | vbackground -color WHITE |
0493ffd0 |
11 | |
12 | psphere s1 1 |
13 | psphere s2 1 |
14 | psphere s3 1 |
15 | ttranslate s2 4 0 0 |
16 | ttranslate s3 8 0 0 |
17 | |
18 | vdisplay -dispMode 0 s1 |
19 | vdisplay -dispMode 1 s2 s3 |
20 | vfit |
21 | |
22 | vaspects s2 -setFaceBoundaryDraw 1 -setFaceBoundaryColor RED |
23 | vaspects s3 -setFaceBoundaryDraw 1 -setFaceBoundaryColor RED -setMostContinuity c2 |
24 | |
25 | vdump $::imagedir/${::casename}.png |