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 center_X 436.67687011410339
set center_Y 148.0981469658436
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     291.61880493164062
set at_Y     -453.53787231445312
set at_Z     82.229469299316406

# Start

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

vsetdispmode 1
vfit


vviewparams ${scale} ${center_X} ${center_Y} \
            ${proj_X} ${proj_Y} ${proj_Z} \
            ${up_X} ${up_Y} ${up_Z} \
            ${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
