puts "============"
-puts "OCC25632"
+puts "OCC25632: IGES writer looses face orientation"
puts "============"
puts ""
-#######################################################################
-# IGES writer looses face orientation
-#######################################################################
plane p 0 0 0 0 0 1 1 0 0
mkface f p 0 100 0 100
treverse f
normals f 100
-xwd ${imagedir}/${test_image}_1.png
+xwd ${imagedir}/${casename}_1.png
-testwriteiges ${imagedir}/bug25632_f.igs f
-testreadiges ${imagedir}/bug25632_f.igs ff
+set aTmpFile ${imagedir}/${casename}.igs
+testwriteiges $aTmpFile f
+testreadiges $aTmpFile ff
+file delete -force ${aTmpFile}
donly ff
normals ff 100
-xwd ${imagedir}/${test_image}_2.png
+xwd ${imagedir}/${casename}_2.png