puts "======="
puts "CR28500: Artifact in shaded view of the shape"
puts "======="
puts ""

puts "TODO CR28500 ALL: Artifact in shaded view of the shape"
puts "TODO CR30056 ALL: Meshing statuses: SelfIntersectingWire Failure Reused"

restore [locate_data_file bug28500_shape_mesh_artifact.brep] a

incmesh a 0.01

vinit
vsetdispmode 1
vdisplay a
vfit

set x 150
set y 150
if { [checkcolor $x $y 0 1 0] == 1 } {
  puts "Error: Artifact in shaded view of the shape"
}

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