puts "========"
puts "OCC25910"
puts "========"
puts ""
#######################################################################
# The material with 0-density causes errors during writing STEP files
#######################################################################

pload DCAF

NewDocument D
box b 10 10 10
XSetMaterial D [XAddShape D b] Vacuum 0.
set bug_info [catch {WriteStep D $imagedir/OCC25910.stp}]

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