mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-14 13:30:48 +03:00
0024593: Missing surfaces from STL output
Added test cases
This commit is contained in:
36
tests/bugs/mesh/bug24593_1
Normal file
36
tests/bugs/mesh/bug24593_1
Normal file
@@ -0,0 +1,36 @@
|
||||
puts "========"
|
||||
puts "OCC24593"
|
||||
puts "========"
|
||||
puts ""
|
||||
#################################
|
||||
# Missing surfaces from STL output
|
||||
#################################
|
||||
|
||||
pload XDE
|
||||
|
||||
set refnbfaces 69
|
||||
|
||||
stepread [locate_data_file "285330.stp"] a *
|
||||
renamevar a_1 result
|
||||
|
||||
#1
|
||||
vinit
|
||||
vsetdispmode 1
|
||||
vdisplay result
|
||||
vfit
|
||||
vdump ${imagedir}/${casename}.png
|
||||
|
||||
#2
|
||||
set log1 [explode result f]
|
||||
set nbfaces [llength $log1]
|
||||
|
||||
#3
|
||||
set log2 [tricheck result]
|
||||
|
||||
if { $nbfaces != $refnbfaces } {
|
||||
puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
|
||||
}
|
||||
|
||||
if { [llength $log2] != 0 } {
|
||||
puts "Error : Some faces has failed to mesh"
|
||||
}
|
36
tests/bugs/mesh/bug24593_2
Normal file
36
tests/bugs/mesh/bug24593_2
Normal file
@@ -0,0 +1,36 @@
|
||||
puts "========"
|
||||
puts "OCC24593"
|
||||
puts "========"
|
||||
puts ""
|
||||
#################################
|
||||
# Missing surfaces from STL output
|
||||
#################################
|
||||
|
||||
pload XDE
|
||||
|
||||
set refnbfaces 23
|
||||
|
||||
stepread [locate_data_file "281946.stp"] a *
|
||||
renamevar a_1 result
|
||||
|
||||
#1
|
||||
vinit
|
||||
vsetdispmode 1
|
||||
vdisplay result
|
||||
vfit
|
||||
vdump ${imagedir}/${casename}.png
|
||||
|
||||
#2
|
||||
set log1 [explode result f]
|
||||
set nbfaces [llength $log1]
|
||||
|
||||
#3
|
||||
set log2 [tricheck result]
|
||||
|
||||
if { $nbfaces != $refnbfaces } {
|
||||
puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
|
||||
}
|
||||
|
||||
if { [llength $log2] != 0 } {
|
||||
puts "Error : Some faces has failed to mesh"
|
||||
}
|
Reference in New Issue
Block a user