8b1441e3 |
1 | puts "===========" |
2 | puts "OCC27945" |
3 | puts "Visualization - handle correctly view clipping planes within zoom-persistent objects" |
4 | puts "===========" |
5 | puts "" |
6 | |
7 | pload MODELING VISUALIZATION |
8 | |
9 | box b 3 1 2 |
10 | box z000 50 40 30 |
11 | box z010 50 40 30 |
12 | box z002 50 40 30 |
13 | box z012 50 40 30 |
14 | box z300 50 40 30 |
15 | box z302 50 40 30 |
16 | box z310 50 40 30 |
17 | box z312 50 40 30 |
18 | box r1 0.2 0.1 0.1 |
19 | box r2 0.2 0.1 0.1 |
20 | |
21 | vclear |
22 | vinit View1 |
23 | vaxo |
24 | vzbufftrihedron |
25 | vdisplay -dispMode 1 b |
26 | |
27 | vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 0 0 z000 |
28 | vsetlocation z000 -25 -20 -15 |
29 | vdrawtext t000 "000\n" -pos 0 0 0 -color RED -halign right |
30 | |
31 | vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 1 0 z010 |
32 | vsetlocation z010 -25 -20 -15 |
33 | vdrawtext t010 "010\n" -pos 0 1 0 -color RED -halign right |
34 | |
35 | vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 0 2 z002 |
36 | vsetlocation z002 -25 -20 -15 |
37 | vdrawtext t002 "002\n" -pos 0 0 2 -color RED -halign right |
38 | |
39 | vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 1 2 z012 |
40 | vsetlocation z012 -25 -20 -15 |
41 | vdrawtext t012 "012\n" -pos 0 1 2 -color RED -halign right |
42 | |
43 | vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 0 0 z300 |
44 | vsetlocation z300 -25 -20 -15 |
45 | vdrawtext t300 "300\n" -pos 3 0 0 -color RED -halign left |
46 | |
47 | vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 0 2 z302 |
48 | vsetlocation z302 -25 -20 -15 |
49 | vdrawtext t302 "302\n" -pos 3 0 2 -color RED -halign left |
50 | |
51 | vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 1 0 z310 |
52 | vsetlocation z310 -25 -20 -15 |
53 | vdrawtext t310 "310\n" -pos 3 1 0 -color RED -halign left |
54 | |
55 | vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 1 2 z312 |
56 | vsetlocation z312 -25 -20 -15 |
57 | vdrawtext t312 "312\n" -pos 3 1 2 -color RED -halign left |
58 | |
59 | vdisplay -noupdate -dispMode 1 -trsfPers rotate -trsfPersPos -1 1 2 r1 |
60 | vdisplay -noupdate -dispMode 1 -trsfPers rotate -trsfPersPos 4 1 2 r2 |
61 | |
62 | vfit |
63 | vrotate 0.1 0 0 |
64 | |
65 | vclipplane pln -equation -1 0 0 2 -set |
66 | |
67 | set aColor1 [vreadpixel 320 160 rgb name] |
68 | set aColor2 [vreadpixel 80 250 rgb name] |
ba00aab7 |
69 | if { "$aColor1" != "BLACK" } { puts "Error: zoom-persistent object is not clipped" } |
70 | if { "$aColor2" != "DARKGOLDENROD" } { puts "Error: zoom-persistent object is clipped" } |
8b1441e3 |
71 | |
72 | vdump $imagedir/${casename}.png |