puts "==========="
puts "OCC23709"
puts "==========="
puts ""
##################################
# Redesign of hlrtest command
##################################

set x_coord 183
set y_coord 267

restore [locate_data_file bug23709_solidcone.brep] result
vinit
vdisplay result
vrotate 35 0 0
vfit
vhlr on
vhlrtype algo result

vaspects -setwidth 5
if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } {
  puts "Error : color is not yellow"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png