mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
24 lines
758 B
Plaintext
Executable File
24 lines
758 B
Plaintext
Executable File
puts "TODO CR25469 ALL: Error: second time must be quicker"
|
|
|
|
puts "============"
|
|
puts "CR25503"
|
|
puts "============"
|
|
puts ""
|
|
###################################################################################
|
|
# BRepMesh - IncrementalMesh always re-meshes the shape even if existing triangulation satisfies the given deflection
|
|
###################################################################################
|
|
|
|
puts ""
|
|
puts "===> meshing full sphere"
|
|
psphere a 100
|
|
puts ""
|
|
puts "incmesh first time"
|
|
set t3 [expr [lindex [time {incmesh a 0.015}] 0]/1000000]
|
|
puts "spent $t3 sec"
|
|
puts ""
|
|
puts "incmesh second time"
|
|
set t4 [expr [lindex [time {incmesh a 0.015}] 0]/1000000]
|
|
puts "spent $t4 sec"
|
|
if {$t4 != 0} {puts "Error: second time must be quicker"}
|
|
puts ""
|