Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug287
1 puts "TODO OCC12345 ALL: Error : The square of result shape is"
2 puts "TODO OCC12345 ALL: OCC287 : Faulty"
3
4 puts "========================"
5 puts " OCC287 "
6 puts "========================"
7
8 restore [locate_data_file shading_170.brep] result
9 puts [checkshape result]
10
11 tclean result
12 isos result 0
13 incmesh result .1
14 triangles result
15
16 # set 3dviewer 1
17
18 set tri 0
19 set nod 0
20
21 set tri_info [trinfo result]
22 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
23 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
24
25 if { $tri != 604 && $nod != 363} {
26     puts " Warning:  OCC287  looks like OK, but visual checking is required !!!!"
27 } else {
28     puts "OCC287 : Faulty"
29 }
30
31 puts ""
32 puts "Besides, it is impossible to load this shape in 3D Viewer"
33 vinit
34 vdisplay result
35 vfit
36 vsetdispmode result 1
37
38 set square 0
39 set 3dviewer 0
40