5 ###################################################################################
6 # BRepMesh - IncrementalMesh always re-meshes the shape even if existing triangulation satisfies the given deflection
7 ###################################################################################
9 puts "===> meshing segment of sphere"
10 psphere a 100 -45 45 180
12 puts "incmesh first time"
13 set t1 [expr [lindex [time {incmesh a 0.003}] 0]/1000000]
16 puts "incmesh second time"
17 set t2 [expr [lindex [time {incmesh a 0.003}] 0]/1000000]
19 if {$t2 != 0} {puts "Error: second time must be quicker"}