b859a34d |
1 | puts "===========" |
2 | puts "OCC24224" |
3 | puts "===========" |
4 | puts "" |
5 | ########################################################################## |
6 | # Suspicious logics in changing clipping planets at OpenGL_Structure |
7 | ########################################################################## |
8 | |
9 | ## centre rectangle |
10 | set x1_coord 150 |
11 | set y1_coord 250 |
12 | |
13 | ## right rectangle |
14 | set x2_coord 255 |
15 | set y2_coord 320 |
16 | |
17 | ## left rectangle |
18 | set x3_coord 73 |
19 | set y3_coord 150 |
20 | |
deb02f86 |
21 | vclear |
22 | vinit View1 |
b859a34d |
23 | box b1 0 0 0 10 10 10 |
24 | box b2 30 0 0 10 40 10 |
25 | box b3 -30 0 0 20 20 20 |
26 | vsetdispmode 1 |
27 | vdisplay b1 b2 b3 |
28 | vfit |
29 | |
30 | ## test view-level clipping |
31 | vclipplane create pln1 |
32 | vclipplane change pln1 equation 0 1 0 -5 |
33 | vclipplane change pln1 capping on |
34 | vclipplane change pln1 capping color 0.9 0.9 0.9 |
35 | vclipplane set pln1 view Driver1/Viewer1/View1 |
36 | |
37 | checkcolor $x1_coord $y1_coord 0.9 0.9 0.9 |
38 | checkcolor $x2_coord $y2_coord 0.9 0.9 0.9 |
39 | |
40 | ## test sharing of planes between view and object |
41 | vclipplane set pln1 object b1 |
42 | |
43 | ## test object-level clipping |
44 | vclipplane create pln2 |
45 | vclipplane change pln2 equation -0.707 0.707 0 -25 |
46 | vclipplane change pln2 capping on |
47 | vclipplane change pln2 capping color 0.5 0.5 0.9 |
48 | vclipplane change pln2 capping hatch on |
49 | vclipplane set pln2 object b3 |
50 | |
51 | checkcolor $x3_coord $y3_coord 0.5 0.5 0.9 |
52 | |
5747059b |
53 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |