puts "============"
puts "OCC25632: IGES writer looses face orientation"
puts "============"
puts ""

plane p 0 0 0 0 0 1 1 0 0
mkface f p 0 100 0 100

smallview
donly f

normals f 100

treverse f
normals f 100

xwd ${imagedir}/${casename}_1.png

set aTmpFile ${imagedir}/${casename}.igs
testwriteiges $aTmpFile f
testreadiges  $aTmpFile ff
file delete -force ${aTmpFile}

donly ff

normals ff 100

xwd ${imagedir}/${casename}_2.png