5 #######################################################################
6 # Invalid writing to IGES
7 #######################################################################
15 set EdgeFile ${imagedir}/${BugNumber}.igs
16 file delete ${EdgeFile}
20 if {[catch { brepiges e1 ${EdgeFile} } ]} {
23 if {[catch { igesbrep ${EdgeFile} result * } ]} {
26 checknbshapes result -vertex 2 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 3
33 puts "Faulty ${BugNumber}"
35 puts "OK ${BugNumber}"