0026106: BRepMesh - revision of data model
[occt.git] / tests / bugs / mesh / bug25503_2
1 puts "============"
2 puts "CR25503: BRepMesh - IncrementalMesh always re-meshes the shape even if existing triangulation satisfies the given deflection"
3 puts "============"
4 puts ""
5
6 puts ""
7 puts "===> meshing full sphere"
8 psphere a 100
9 puts ""
10 puts "incmesh first time"
11 set t3 [expr [lindex [time {incmesh a 0.015}] 0]/1000000]
12 puts "spent $t3 sec"
13 puts ""
14 puts "incmesh second time"
15 set t4 [expr [lindex [time {incmesh a 0.015}] 0]/1000000]
16 puts "spent $t4 sec"
17 if {$t4 != 0} {puts "Error: second time must be quicker"}
18 puts ""