0023260: Regression: Instability in parallel incmesh on Linux.
[occt.git] / tests / boolean / bfuse_complex / Q3
CommitLineData
40093367 1puts " BUC60068 "
2puts "If scales by 1000, time to compute is 10 times greater "
3##
4## mod pkv from
5restore buc60068a.rle a
6restore buc60068b.rle b
7restore buc60068a.rle c
8restore buc60068b.rle d
9restore buc60068a.rle e
10restore buc60068b.rle f
11restore buc60068a.rle g
12restore buc60068b.rle h
13## mod pkv from
14##
15
16## fuse
17dchrono j start
18bfuse resab a b
19dchrono j stop
20
21tscale c 0 0 0 100
22tscale d 0 0 0 100
23dchrono k start
24bfuse rescd c d
25dchrono k stop
26
27tscale e 0 0 0 1000
28tscale f 0 0 0 1000
29dchrono l start
30bfuse resef e f
31dchrono l stop
32
33tscale g 0 0 0 10000
34tscale h 0 0 0 10000
35dchrono m start
36bfuse resgh g h
37dchrono m stop
38
39regexp {Elapsed time: ([0-9]+) Hours ([0-9]+) Minutes ([0-9]|.+) Seconds} [dchrono j show] full Jhours Jminutes Jseconds
40regexp {Elapsed time: ([0-9]+) Hours ([0-9]+) Minutes ([0-9]|.+) Seconds} [dchrono k show] full Khours Kminutes Kseconds
41regexp {Elapsed time: ([0-9]+) Hours ([0-9]+) Minutes ([0-9]|.+) Seconds} [dchrono l show] full Lhours Lminutes Lseconds
42regexp {Elapsed time: ([0-9]+) Hours ([0-9]+) Minutes ([0-9]|.+) Seconds} [dchrono m show] full Mhours Mminutes Mseconds
43
44set Jtime [expr ($Jhours*60*60 + $Jminutes*60 + $Jseconds)*2]
45set Ktime [expr $Khours*60*60 + $Kminutes*60 + $Kseconds]
46set Ltime [expr $Lhours*60*60 + $Lminutes*60 + $Lseconds]
47set Mtime [expr $Mhours*60*60 + $Mminutes*60 + $Mseconds]
48
49if { $Jtime < $Ktime || $Jtime < $Ltime || $Jtime < $Mtime} {
50 puts "Error: incorrect performance of bfuse operation:"
51 puts "SCALE=1 : $Jtime seconds."
52 puts "SCALE=100 : $Ktime seconds."
53 puts "SCALE=1000 : $Ltime seconds."
54 puts "SCALE=10000 : $Mtime seconds."
55}
56
57compound resab rescd resef resgh result
58
59set square 2.5e+13