3bea4c16 |
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 | |