tests/bugs/vis/bug16950_3

   1 puts "==========="
   2 puts "OCC16950"
   3 puts "==========="
   4 ######################################################
   5 # OCC Visualization fails to display empty nested compounds
   6 ######################################################
   7
   8 pload DCAF
   9
  10 set BugNumber OCC16950
  11
  12 puts "Make compound containing another (empty) one"
  13 compound c
  14 compound c result
  15
  16 pload XDE
  17 puts "Add it to the new XCAF document"
  18 NewDocument D
  19 XAddShape D result
  20
  21 puts "Then display it"
  22 XShow D
  23
  24 # Resume
  25 if [catch { vsetdispmode 1 } res] {
  26    puts "Faulty ${BugNumber}"
  27 } else {
  28    puts "OK ${BugNumber}"
  29 }
  30