cc6852f3 |
1 | puts "============" |
2 | puts "0026940: Visualization, TKOpenGl - capping plane should be applied to connected structures" |
3 | puts "Tests capping plane rendering with connected structures" |
4 | puts "============" |
5 | puts "" |
6 | |
7 | vinit View1 |
8 | vclear |
9 | vaxo |
10 | vsetdispmode 1 |
11 | box b 1 1 1 |
12 | vdisplay b |
13 | vfit |
14 | |
15 | vclipplane create pln |
16 | vclipplane set pln view Driver1/Viewer1/View1 |
17 | vclipplane change pln equation 0 1 0 -0.5 |
18 | vclipplane change pln capping on |
19 | |
20 | vdump $imagedir/${casename}_normal.png |
21 | set aColorNorm [vreadpixel 200 250 rgb name] |
22 | if { "$aColorNorm" != "GRAY13" } { |
23 | puts "Error: Expected color of capping plane is GRAY13 (normal presentation). Actial is $aColorNorm" |
24 | } |
25 | |
26 | vclear |
27 | |
28 | vconnectto bb 0 0 0 b |
29 | vdump $imagedir/${casename}_connected.png |
30 | set aColorConn [vreadpixel 200 250 rgb name] |
31 | |
32 | if { "$aColorConn" != "GRAY13" } { |
33 | puts "Error: Expected color of capping plane is GRAY13 (connected presentation). Actial is $aColorConn" |
34 | } |