puts "============"
puts "OCC23969"
puts "============"
puts ""
##########################################################################
# It's impossible to display shape in 3dviewer. Wrong displaying in axo.
##########################################################################

ReadIges D_First [locate_data_file coque-sup.igs]

XGetOneShape res_1 D_First
vinit
vsetdispmode 1
vdisplay res_1
vfit

set ver_color [vreadpixel 157 104]
if {$ver_color == "0 0 0 0"} {
  puts "ERROR: OCC23969 is reproduced"
}
set ver_color [vreadpixel 111 347]
if {$ver_color == "0 0 0 0"} {
  puts "ERROR: OCC23969 is reproduced"
}
set ver_color [vreadpixel 252 265]
if {$ver_color == "0 0 0 0"} {
  puts "ERROR: OCC23969 is reproduced"
}
set ver_color [vreadpixel 307 77]
if {$ver_color == "0 0 0 0"} {
  puts "ERROR: OCC23969 is reproduced"
}
set ver_color [vreadpixel 243 323]
if {$ver_color == "0 0 0 0"} {
  puts "ERROR: OCC23969 is reproduced"
}

set 3dviewer 1
