puts "========"
puts "OCC25910: The material with 0-density causes e r r o r s during writing STEP files"
puts "========"
puts ""

pload OCAF

NewDocument D
box b 10 10 10
XSetMaterial D [XAddShape D b] Vacuum 0.

set aTmpFile ${imagedir}/${casename}_tmp.stp
set bug_info [catch {WriteStep D $aTmpFile}]
file delete -force $aTmpFile

if {$bug_info != 0} { puts "ERROR: OCC25910 is reproduced." }