tests/bugs/vis/bug24224

   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
  21 vclear
  22 vinit View1
  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
  53 checkview -screenshot -3d -path ${imagedir}/${test_image}.png