1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-07 18:30:55 +03:00
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

63 lines
1.7 KiB
Plaintext

puts " BUC60068 "
puts "If scales by 1000, time to compute is 10 times greater "
##
## mod pkv from
restore [locate_data_file buc60068a.rle] a
restore [locate_data_file buc60068b.rle] b
restore [locate_data_file buc60068a.rle] c
restore [locate_data_file buc60068b.rle] d
restore [locate_data_file buc60068a.rle] e
restore [locate_data_file buc60068b.rle] f
restore [locate_data_file buc60068a.rle] g
restore [locate_data_file buc60068b.rle] h
## mod pkv from
##
## section
dchrono j start
bsection resab a b
dchrono j stop
tscale c 0 0 0 100
tscale d 0 0 0 100
dchrono k start
bsection rescd c d
dchrono k stop
tscale e 0 0 0 1000
tscale f 0 0 0 1000
dchrono l start
bsection resef e f
dchrono l stop
tscale g 0 0 0 10000
tscale h 0 0 0 10000
dchrono m start
bsection resgh g h
dchrono m stop
regexp {CPU user time: ([0-9|.]+) seconds} [dchrono j show] full Jseconds
regexp {CPU user time: ([0-9|.]+) seconds} [dchrono k show] full Kseconds
regexp {CPU user time: ([0-9|.]+) seconds} [dchrono l show] full Lseconds
regexp {CPU user time: ([0-9|.]+) seconds} [dchrono m show] full Mseconds
#sometimes CPU user time may be 0
set Jtime [expr ($Jseconds * 1.1) + 0.2]
set Ktime $Kseconds
set Ltime $Lseconds
set Mtime $Mseconds
if { $Jtime < $Ktime || $Jtime < $Ltime || $Jtime < $Mtime} {
puts "Error: incorrect performance of bsection operation:"
puts "SCALE=1 : $Jtime seconds."
puts "SCALE=100 : $Ktime seconds."
puts "SCALE=1000 : $Ltime seconds."
puts "SCALE=10000 : $Mtime seconds."
}
compound resab rescd resef resgh result
checkprops result -l 1.41538e+07
checksection result
checkview -display result -2d -otherwise { a b c d e f g h } -l -path ${imagedir}/${test_image}.png