puts "==============" puts "OCC158" puts "==============" NewDocument D BinOcaf ################################################################## if { [catch {set res [SaveAs D ${imagedir}/OCC158.cbf]}] != 0 } { puts "OCC158: Error" } else { file delete ${imagedir}/OCC158.cbf }