0026833: Create command checkview containing all viewer types
[occt.git] / tests / boolean / bfuse_complex / Q3
1 puts " BUC60068 "
2 puts "If scales by 1000, time to compute is 10 times greater "
3 ##
4 ## mod pkv from
5 restore [locate_data_file buc60068a.rle] a
6 restore [locate_data_file buc60068b.rle] b
7 restore [locate_data_file buc60068a.rle] c
8 restore [locate_data_file buc60068b.rle] d
9 restore [locate_data_file buc60068a.rle] e
10 restore [locate_data_file buc60068b.rle] f
11 restore [locate_data_file buc60068a.rle] g
12 restore [locate_data_file buc60068b.rle] h
13 ## mod pkv from
14 ##
15
16 ## fuse
17 dchrono j start
18 bfuse resab a b
19 dchrono j stop
20
21 tscale  c 0 0 0 100
22 tscale  d 0 0 0 100
23 dchrono k start
24 bfuse rescd c d
25 dchrono k stop
26
27 tscale  e 0 0 0 1000
28 tscale  f 0 0 0 1000
29 dchrono l start
30 bfuse resef e f
31 dchrono l stop
32
33 tscale  g 0 0 0 10000
34 tscale  h 0 0 0 10000
35 dchrono m start
36 bfuse resgh g h
37 dchrono m stop
38
39 regexp {CPU user time: ([0-9|.]+) seconds} [dchrono j show] full Jseconds
40 regexp {CPU user time: ([0-9|.]+) seconds} [dchrono k show] full Kseconds
41 regexp {CPU user time: ([0-9|.]+) seconds} [dchrono l show] full Lseconds
42 regexp {CPU user time: ([0-9|.]+) seconds} [dchrono m show] full Mseconds
43
44 #sometimes CPU user time may be 0
45 set Jtime [expr ($Jseconds * 1.1) + 0.2]
46 set Ktime $Kseconds
47 set Ltime $Lseconds
48 set Mtime $Mseconds
49
50 if { $Jtime < $Ktime || $Jtime < $Ltime || $Jtime < $Mtime} {
51    puts "Error: incorrect performance of bfuse operation:"
52    puts "SCALE=1     : $Jtime seconds."
53    puts "SCALE=100   : $Ktime seconds."
54    puts "SCALE=1000  : $Ltime seconds."
55    puts "SCALE=10000 : $Mtime seconds."
56 }
57
58 compound resab rescd resef resgh result
59
60 checkprops result -s 2.5e+13
61 checkview -display result -2d -otherwise { a b c d e f g h } -s -path ${imagedir}/${test_image}.png