41e259eb |
1 | puts "========" |
2 | puts "OCC25910" |
3 | puts "========" |
4 | puts "" |
5 | ####################################################################### |
6 | # The material with 0-density causes errors during writing STEP files |
7 | ####################################################################### |
8 | |
9 | pload DCAF |
10 | |
11 | NewDocument D |
12 | box b 10 10 10 |
13 | XSetMaterial D [XAddShape D b] Vacuum 0. |
14 | set bug_info [catch {WriteStep D $imagedir/OCC25910.stp}] |
15 | |
16 | if {$bug_info != 0} { |
17 | puts "ERROR: OCC25910 is reproduced." |
18 | } |