a8fcd8d0 |
1 | puts "================" |
2 | puts "OCC22820" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
6 | # OCCT IGES writer loses plane information |
7 | ###################################################################################### |
8 | |
a8fcd8d0 |
9 | box b 1 1 1 |
10 | set b_info [dump b] |
11 | if { [regexp BSplineSurface ${b_info}] } { |
12 | puts "Error in dump b" |
13 | } |
14 | |
5879dab4 |
15 | brepiges b ${imagedir}/22820.igs |
16 | igesbrep ${imagedir}/22820.igs bb * |
a8fcd8d0 |
17 | |
18 | set types_info [listtypes] |
19 | puts "types_info=${types_info}" |
20 | if { [regexp BSplineSurface ${types_info}] } { |
21 | puts "Error in listtypes" |
22 | } |
23 | |
5879dab4 |
24 | igesbrep ${imagedir}/22820.igs bb * |
a8fcd8d0 |
25 | set bb_info [dump bb] |
26 | if { [regexp BSplineSurface ${bb_info}] } { |
27 | puts "Error in dump bb" |
28 | } |