5 ##########################################################################
6 # Suspicious logics in changing clipping planets at OpenGL_Structure
7 ##########################################################################
23 box b2 30 0 0 10 40 10
24 box b3 -30 0 0 20 20 20
29 ## test view-level clipping
30 vclipplane create pln1
31 vclipplane change pln1 equation 0 1 0 -5
32 vclipplane change pln1 capping on
33 vclipplane change pln1 capping color 0.9 0.9 0.9
34 vclipplane set pln1 view Driver1/Viewer1/View1
36 checkcolor $x1_coord $y1_coord 0.9 0.9 0.9
37 checkcolor $x2_coord $y2_coord 0.9 0.9 0.9
39 ## test sharing of planes between view and object
40 vclipplane set pln1 object b1
42 ## test object-level clipping
43 vclipplane create pln2
44 vclipplane change pln2 equation -0.707 0.707 0 -25
45 vclipplane change pln2 capping on
46 vclipplane change pln2 capping color 0.5 0.5 0.9
47 vclipplane change pln2 capping hatch on
48 vclipplane set pln2 object b3
50 checkcolor $x3_coord $y3_coord 0.5 0.5 0.9