1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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 ""
|
