tests/bugs/vis/bug24902_1

   1 puts "==========="
   2 puts "OCC24902"
   3 puts "==========="
   4 puts ""
   5 ###########################################################################################
   6 # Visualization - advanced processing of compounds containing solids and other shape types
   7 # Tests capping on solid, shell and unclosed compound
   8 ###########################################################################################
   9
  10 vinit
  11 box b 0 0 0 10 10 10
  12 box b_shell 15 0 0 10 10 10
  13 box b_solid 30 0 0 10 10 10
  14 explode b F
  15 explode b_shell Sh
  16
  17 # Put shell and solid into compound
  18 compound b_1 b_2 b_3 b_4 b_6 b_comp
  19 vdisplay b_comp b_shell_1 b_solid
  20 vsetdispmode 1
  21 vfit
  22
  23 # set clipping plane
  24 vclipplane create pln1
  25 vclipplane change pln1 equation 0 2 -1 -1
  26 vclipplane change pln1 capping on
  27 vclipplane change pln1 capping color 0.9 0.9 0.9
  28 vclipplane set pln1 view Driver1/Viewer1/View1
  29
  30 vrotate 0 0.2 0
  31
  32 set only_screen 1