puts "================"
puts "OCC22670"
puts "================"
puts ""
#######################################################################################
# Regression in the method RWStl::WriteAscii
#######################################################################################
#
puts "================"
puts "OCC22866"
puts "================"
puts ""
#######################################################################################
# Now it is not possible to mesh a shape in parallel mode during the export in STL
#######################################################################################
#

set BugNumber OCC22670

set filepath [locate_data_file OMF6391_box.stl]
if { [catch { readstl res_mesh $filepath } catch_result] } {
    puts "Faulty ${BugNumber}: here is reading problem"
} else {
    set nbshapes_res_mesh [nbshapes res_mesh]

    set aFile $imagedir/${test_image}.stl
    catch {exec rm -f ${aFile}}

    set anASCIImode 0
    set InParallel 1
    writestl res_mesh ${aFile} ${anASCIImode} ${InParallel}
    catch {exec chmod 777 ${aFile}}

    readstl result ${aFile}

    set nb_v_good 8
    set nb_e_good 18
    set nb_w_good 12
    set nb_f_good 12
    set nb_sh_good 1
    set nb_sol_good 0
    set nb_compsol_good 0
    set nb_compound_good 0
    set nb_shape_good 51
}
set square 600
set 3dviewer 0