1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
puts "TODO OCC12345 ALL: Faulty OCC17: here can be shading problem"
puts "================"
puts "OCC17"
puts "================"
puts ""
#####################################################
puts " Solid_14 will be the face which is unvisible during displaying entire solid."
#####################################################
restore [locate_data_file OCC17.brep] sh
checkshape sh
explode sh f
renamevar sh_14 result
tclean result
vinit
vdisplay result
vsetdispmode result 1
vfit
set info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $info full tri
regexp { +([-0-9.+eE]+) +nodes} $info full nod
if { $tri != 100 && $nod != 94 } {
puts "Faulty OCC17: here can be shading problem"
}
set 2dviewer 0
|
