puts "============"
puts "CR25381"
puts "============"
puts ""
######################################################
# Visualization - XCAFPrs_AISObject ignores visibility flag for sub-shapes
######################################################

ReadStep D [locate_data_file bug25381_test_assembly_invisible.step]
XShow D
vfit

if { "[vreadpixel 198 172 rgb name]" != "WHITE" } {
   puts "OK : XCAFPrs_AISObject get visibility flag for sub-shapes"
} else {
   puts "Error : XCAFPrs_AISObject ignores visibility flag for sub-shapes"
}

set only_screen 1