Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug364
1 puts "========================"
2 puts "BUC61000"
3 puts " OCC364 "
4 puts "========================"
5 puts ""
6 ##############################################
7 ## Face is invisible in the shading mode in the 3D View. 
8 ##############################################
9
10 restore [locate_data_file OCC364.brep] result 
11 puts [checkshape result]
12
13 tclean result
14 isos result 0
15 vinit 
16 vdisplay result
17 vsetdispmode result 1
18 vfit
19 triangles result
20
21 set info [trinfo result]
22 regexp { +([-0-9.+eE]+) +triangles} $info full tri
23 regexp { +([-0-9.+eE]+) +nodes} $info full nod
24
25 if { $tri != 84 || $nod != 84 }  {
26    puts "Faulty OCC364: here is shading problem"
27 } else {
28    puts "Shading of  OCC364 is OK"
29 }
30
31 set only_screen 1
32
33
34