tests/bugs/vis/bug25052

   1 puts "==========="
   2 puts "OCC25052"
   3 puts "==========="
   4 puts ""
   5 ##########################################################################
   6 # Visualization - activation of all Clipping Planes within driver limit leads to broken planes management
   7 ##########################################################################
   8
   9 set Image1 ${imagedir}/${casename}_1.png
  10 set Image9 ${imagedir}/${casename}_9.png
  11
  12 box b -30 -30 -30 70 80 90
  13
  14 vinit
  15 vsetdispmode 1
  16 vdisplay b
  17 vfit
  18
  19 vclipplane create p1
  20 vclipplane change p1 equation 1 0 0 -0.1
  21 vclipplane create p2
  22 vclipplane change p2 equation 1 0 0 -0.1
  23 vclipplane create p3
  24 vclipplane change p3 equation 1 0 0 -0.1
  25 vclipplane create p4
  26 vclipplane change p4 equation 1 0 0 -0.1
  27 vclipplane create p5
  28 vclipplane change p5 equation 1 0 0 -0.1
  29 vclipplane create p6
  30 vclipplane change p6 equation 1 0 0 -0.1
  31 vclipplane create p7
  32 vclipplane change p7 equation 1 0 0 -0.1
  33 vclipplane create p8
  34 vclipplane change p8 equation 1 0 0 -0.1
  35 vclipplane create p9
  36 vclipplane change p9 equation 1 0 0 -0.1
  37
  38 vclipplane set p1 view Driver1/Viewer1/View1
  39 vdump ${Image1}
  40 vclipplane set p2 view Driver1/Viewer1/View1
  41 vclipplane set p3 view Driver1/Viewer1/View1
  42 vclipplane set p4 view Driver1/Viewer1/View1
  43 vclipplane set p5 view Driver1/Viewer1/View1
  44 vclipplane set p6 view Driver1/Viewer1/View1
  45 vclipplane set p7 view Driver1/Viewer1/View1
  46 vclipplane set p8 view Driver1/Viewer1/View1
  47 vclipplane set p9 view Driver1/Viewer1/View1
  48 vdump ${Image9}