7c3ef2f7 |
1 | puts "========" |
7b5e532f |
2 | puts "0024393: Visualization - objects position with enhanced precision" |
7c3ef2f7 |
3 | puts "========" |
4 | |
5 | pload MODELING VISUALIZATION |
6 | vclear |
7 | vinit View1 |
8 | vaxo |
9 | vzbufftrihedron |
10 | circle c 0 0 0 0.001 |
11 | mkedge e c |
12 | wire w e |
13 | plane s |
14 | mkface f0 s w |
15 | mkface f1000 s w |
16 | ttranslate f1000 1000 0 0 |
17 | # Display object with pre-applied transformation. |
18 | # Result presentation is already corrupted |
19 | # AND it jumps while rotating the camera. |
20 | vpoint v1000 1000 0 0.001 |
21 | vdisplay -dispMode 1 f1000 |
22 | vfit |
23 | |
24 | # Display object with external transformation. |
25 | # Result presentation jumps while rotating the camera. |
26 | vdisplay -dispMode 1 f0 |
27 | vsetlocation f0 1000 0 0 |
28 | |
29 | # Display object with external transformation |
30 | # in Z-layer with translated Origin. |
31 | # Result presentation does not jump while rotating the camera. |
32 | vzlayer top -origin 1000 0 0 |
33 | vdisplay -dispMode 1 -top f0 |
34 | |
35 | # check transformation persistence |
36 | vtrihedron tt |
37 | vdisplay -top -trihedron topLeft 100 100 tt |
38 | |
39 | box zp 40 50 30 |
40 | vdisplay -top -dispMode 1 -trsfPers zoom -trsfPersPos 1000 0 0 zp |
41 | |
42 | # check clippling planes |
43 | vclipplane pln -equation -1 0 0 1000 -set |
44 | |
45 | # check positional lights |
46 | vlight add positional pos 1000 0 0.001 color RED1 headlight 0 |
47 | |
48 | vremove f1000 |
49 | vmoveto 220 220 |
50 | |
51 | vdrawtext text Text -pos 0 0 0 |
52 | vdisplay -top text -trsfPers zoomRotate -trsfPersPos 1000 0 0.001 |
53 | |
54 | vdump $::imagedir/${::casename}.png |