Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug19811
1 puts "============"
2 puts "OCC19811"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Scaling problem. Appendix for NPAL19806 
7 #######################################################################
8
9 set BugNumber OCC19811
10
11 puts "Load shape ..."
12 restore [locate_data_file bug19811_VanneMP_supports_tiges_V3.brep] result
13
14 puts "Scaling operation ..."
15 if [catch { tscale result 0 0 0 0.5 } catch_result] {
16    puts "Faulty ${BugNumber} : Scaling is wrong"
17 }
18
19 set square 1.6949e+06
20
21 set nb_v_good 173
22 set nb_e_good 285
23 set nb_w_good 113
24 set nb_f_good 113
25 set nb_sh_good 1
26 set nb_sol_good 1
27 set nb_compsol_good 0
28 set nb_compound_good 0
29 set nb_shape_good 686
30
31 vinit
32 vdisplay result
33 vfit
34
35 set only_screen 0