puts "============"
puts "OCC23193"
puts "============"
puts ""
###########################################################################
# Some triangles are inverted when writing an STL file
###########################################################################
pload QAcommands


set aFile $imagedir/bug23193_sample.stl

vinit
stepread [locate_data_file bug23193_sample.stp] a *
writestl a_1 ${aFile} 0

meshfromstl m1 ${aFile}
meshcolors m1 elem2 1
vrotate 4 0 0
vfit

set x_coord 189
set y_coord 236

checkcolor $x_coord $y_coord 0 0 0.7

if { ${stat} != 1 } {
    puts "Error : There is missing triangle"
}

set only_screen 1