0025052: Visualization - activation of all Clipping Planes within driver limit leads...
[occt.git] / tests / bugs / vis / bug25052
1 puts "==========="
2 puts "OCC25052"
3 puts "==========="
4 puts ""
5 ##########################################################################
6 # Visualization - activation of all Clipping Planes within driver limit leads to broken planes management
7 ##########################################################################
8
9 set Image1 ${imagedir}/${casename}_1.png
10 set Image9 ${imagedir}/${casename}_9.png
11
12 box b -30 -30 -30 70 80 90
13
14 vinit
15 vsetdispmode 1
16 vdisplay b
17 vfit
18
19 vclipplane create p1
20 vclipplane change p1 equation 1 0 0 -0.1
21 vclipplane create p2
22 vclipplane change p2 equation 1 0 0 -0.1
23 vclipplane create p3
24 vclipplane change p3 equation 1 0 0 -0.1
25 vclipplane create p4
26 vclipplane change p4 equation 1 0 0 -0.1
27 vclipplane create p5
28 vclipplane change p5 equation 1 0 0 -0.1
29 vclipplane create p6
30 vclipplane change p6 equation 1 0 0 -0.1
31 vclipplane create p7
32 vclipplane change p7 equation 1 0 0 -0.1
33 vclipplane create p8
34 vclipplane change p8 equation 1 0 0 -0.1
35 vclipplane create p9
36 vclipplane change p9 equation 1 0 0 -0.1
37
38 vclipplane set p1 view Driver1/Viewer1/View1
39 vdump ${Image1}
40 vclipplane set p2 view Driver1/Viewer1/View1
41 vclipplane set p3 view Driver1/Viewer1/View1
42 vclipplane set p4 view Driver1/Viewer1/View1
43 vclipplane set p5 view Driver1/Viewer1/View1
44 vclipplane set p6 view Driver1/Viewer1/View1
45 vclipplane set p7 view Driver1/Viewer1/View1
46 vclipplane set p8 view Driver1/Viewer1/View1
47 vclipplane set p9 view Driver1/Viewer1/View1
48 vdump ${Image9}