puts "================" puts "OCC22820" puts "================" puts "" ####################################################################################### # OCCT IGES writer loses plane information ###################################################################################### box b 1 1 1 set b_info [dump b] if { [regexp BSplineSurface ${b_info}] } { puts "Error in dump b" } brepiges b ${imagedir}/22820.igs igesbrep ${imagedir}/22820.igs bb * set types_info [listtypes] puts "types_info=${types_info}" if { [regexp BSplineSurface ${types_info}] } { puts "Error in listtypes" } igesbrep ${imagedir}/22820.igs bb * set bb_info [dump bb] if { [regexp BSplineSurface ${bb_info}] } { puts "Error in dump bb" }