0027715: Visualization - turn off deprecated OpenGL fixed-function pipeline by default
[occt.git] / tests / bugs / vis / bug24224
CommitLineData
b859a34d 1puts "==========="
2puts "OCC24224"
3puts "==========="
4puts ""
5##########################################################################
6# Suspicious logics in changing clipping planets at OpenGL_Structure
7##########################################################################
8
9## centre rectangle
10set x1_coord 150
11set y1_coord 250
12
13## right rectangle
14set x2_coord 255
15set y2_coord 320
16
17## left rectangle
18set x3_coord 73
19set y3_coord 150
20
be375252 21# enable FFP until bug-fix for GLSL
22vcaps -ffp 1
23
b859a34d 24vinit
25box b1 0 0 0 10 10 10
26box b2 30 0 0 10 40 10
27box b3 -30 0 0 20 20 20
28vsetdispmode 1
29vdisplay b1 b2 b3
30vfit
31
32## test view-level clipping
33vclipplane create pln1
34vclipplane change pln1 equation 0 1 0 -5
35vclipplane change pln1 capping on
36vclipplane change pln1 capping color 0.9 0.9 0.9
37vclipplane set pln1 view Driver1/Viewer1/View1
38
39checkcolor $x1_coord $y1_coord 0.9 0.9 0.9
40checkcolor $x2_coord $y2_coord 0.9 0.9 0.9
41
42## test sharing of planes between view and object
43vclipplane set pln1 object b1
44
45## test object-level clipping
46vclipplane create pln2
47vclipplane change pln2 equation -0.707 0.707 0 -25
48vclipplane change pln2 capping on
49vclipplane change pln2 capping color 0.5 0.5 0.9
50vclipplane change pln2 capping hatch on
51vclipplane set pln2 object b3
52
53checkcolor $x3_coord $y3_coord 0.5 0.5 0.9
54
5747059b 55checkview -screenshot -3d -path ${imagedir}/${test_image}.png
b859a34d 56
57
58