0027083: Visualization, Ray Tracing - shape with visible face boundaries disappears...
[occt.git] / tests / heal / begin
CommitLineData
7da5f7b1 1pload TOPTEST
2
40093367 3# To prevent loops limit to 5 minutes
4cpulimit 300
5
40093367 6if { [info exists imagedir] == 0 } {
7 set imagedir .
8}
9
10if { [info exists test_image ] == 0 } {
11 set test_image photo
12}
13
fbf3becf 14proc checklength {theShape theLength} {
15 set aLengthDump [uplevel lprops $theShape -full]
16 regexp {Mass\s*:\s*([-0-9.+eE]+)} $aLengthDump dummy aLength
17 if {abs($aLength - $theLength) > $theLength * 1e-14} {
18 puts "Error: result length is too different."
19 }
20}