puts "===========" puts "OCC24224" puts "===========" puts "" ########################################################################## # Suspicious logics in changing clipping planets at OpenGL_Structure ########################################################################## ## centre rectangle set x1_coord 150 set y1_coord 250 ## right rectangle set x2_coord 255 set y2_coord 320 ## left rectangle set x3_coord 73 set y3_coord 150 vclear vinit View1 box b1 0 0 0 10 10 10 box b2 30 0 0 10 40 10 box b3 -30 0 0 20 20 20 vsetdispmode 1 vdisplay b1 b2 b3 vfit ## test view-level clipping vclipplane create pln1 vclipplane change pln1 equation 0 1 0 -5 vclipplane change pln1 capping on vclipplane change pln1 capping color 0.9 0.9 0.9 vclipplane set pln1 view Driver1/Viewer1/View1 checkcolor $x1_coord $y1_coord 0.9 0.9 0.9 checkcolor $x2_coord $y2_coord 0.9 0.9 0.9 ## test sharing of planes between view and object vclipplane set pln1 object b1 ## test object-level clipping vclipplane create pln2 vclipplane change pln2 equation -0.707 0.707 0 -25 vclipplane change pln2 capping on vclipplane change pln2 capping color 0.5 0.5 0.9 vclipplane change pln2 capping hatch on vclipplane set pln2 object b3 checkcolor $x3_coord $y3_coord 0.5 0.5 0.9 checkview -screenshot -3d -path ${imagedir}/${test_image}.png