puts "TODO OCC11111 ALL: Error : The square of result shape is"
pload QAcommands

puts "============"
puts "OCC21415"
puts "============"
puts ""
#######################################################################
# Bad triangulation of cylindrical face with large vertex tolerances
#######################################################################

set BugNumber OCC21415

# Data

set scale    19.469810863701095
set proj_X   0.99999862909317017
set proj_Y   0.0012245246907696128
set proj_Z   -0.0011169711360707879
set up_X     0.00037844621692784131
set up_Y     0.48741284012794495
set up_Z     0.87317168712615967
set at_X     290.970210143045
set at_Y     -0.0594423932820831
set at_Z     -1.29683163874688

# Start

restore [locate_data_file OCC21415-face_bad_meshed.brep] result
vinit
vdisplay result
vfit

vsetdispmode 1
vfit


vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}

puts "TEMPORARY!!!!!!!!!!!!!!!!!"
set square 400000
puts "TEMPORARY!!!!!!!!!!!!!!!!!"

# Analysis of "nbshapes res"
set nb_v_good 1
set nb_e_good 2
set nb_w_good 1
set nb_f_good 1
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 5

set 3dviewer 1
