mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
42 lines
1.0 KiB
Plaintext
Executable File
42 lines
1.0 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC1416"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Shading mode doesn't work on a face of the model
|
|
######################################################
|
|
|
|
restore [locate_data_file OCC1416.brep] result
|
|
|
|
# Clean mesh
|
|
isos result 0
|
|
tclean result
|
|
|
|
#Creating mesh
|
|
incmesh result 0.01
|
|
|
|
#View the result of mesh
|
|
triangles result
|
|
|
|
##############################################
|
|
if { [catch { set tri_info [trinfo result] } catch_result] } {
|
|
##############################################
|
|
puts "Faulty OCC1416"
|
|
} else {
|
|
set ll [ llength ${tri_info} ]
|
|
if {${ll} < 6} {
|
|
puts "Faulty OCC1416"
|
|
} else {
|
|
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
|
|
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
|
|
if { $tri == 0 || $nod == 0 } {
|
|
puts "Faulty OCC1416"
|
|
} else {
|
|
puts "Warning: OCC1416 looks like OK, but visual checking is required !!!!"
|
|
}
|
|
}
|
|
}
|
|
|
|
set square 863.938
|
|
set 3dviewer 1
|