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
|
puts "========"
puts "OCC25405"
puts "========"
puts ""
########################################
# STL reader doesn't keep shared nodes
########################################
set GoodNodesNB 64215
set GoodTrianglesNB 117694
vinit
meshfromstl s [locate_data_file head.stl]
set bug_info [meshinfo s]
if {$GoodNodesNB != [lindex $bug_info 3]} {
puts "ERROR: Number of nodes is incorrect: [lindex $bug_info 3] (should be $GoodNodesNB)"
}
if {$GoodTrianglesNB != [lindex $bug_info 7]} {
puts "ERROR: Number of triangles is incorrect: [lindex $bug_info 7] (should be $GoodTrianglesNB)"
}
set only_screen 1
|
