Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug258_1
1
2 puts "========================"
3 puts " OCC258 "
4 puts "(case 1)"
5 puts "========================"
6
7 restore [locate_data_file shading_143.brep] result
8 puts [checkshape result]
9
10 tclean result
11 isos result 0
12 vinit 
13 vdisplay result
14 vsetdispmode result 1
15 vfit
16 triangles result
17
18 set info [trinfo result]
19 regexp { +([-0-9.+eE]+) +triangles} $info full tri
20 regexp { +([-0-9.+eE]+) +nodes} $info full nod
21
22 if { $tri < 71 || $nod < 73 }  {
23   puts "Error (case 1) : here is shading problem"
24 }
25
26 set 3dviewer 0
27