Adding test cases for chl grid
[occt.git] / tests / bugs / moddata / bug613_1
1 puts "========================"
2 puts " OCC613"
3 puts "(case 1)"
4 puts "========================"
5 puts ""
6 #############################################
7 ## Meshing algo cannot create mesh for faces with internal edges
8 #############################################
9
10 restore [locate_data_file OCC613a.brep] result
11
12 tclean result
13 isos result 0
14 incmesh result .1
15 triangles result
16
17 set tri_info [trinfo result]
18 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
19 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
20
21 if { $tri == 0 || $nod == 0 } {
22     puts "Error : Meshing algo cannot create mesh for faces with internal edges "
23 }
24
25 set 3dviewer 1
26