1 puts "================"
3 puts "================"
5 #######################################################################################
6 # OCCT IGES writer loses plane information
7 ######################################################################################
11 if { [regexp BSplineSurface ${b_info}] } {
12 puts "Error in dump b"
15 brepiges b ${imagedir}/22820.igs
16 igesbrep ${imagedir}/22820.igs bb *
18 set types_info [listtypes]
19 puts "types_info=${types_info}"
20 if { [regexp BSplineSurface ${types_info}] } {
21 puts "Error in listtypes"
24 igesbrep ${imagedir}/22820.igs bb *
26 if { [regexp BSplineSurface ${bb_info}] } {
27 puts "Error in dump bb"