puts "============"
puts "OCC27048"
puts "============"
puts ""
############################################################################
#  Recalculation of BSpline cache causes a performance problems
############################################################################

pload QAcommands

bsplinesurf surf \
3 4 0 4 1 1 2 1 3 4 \
3 4 0 4 1 1 2 1 3 4 \
0  0  0 1   2  0  0 1   3  0 15 1   5  0 15 1   7  0  0 1   10  0  0 1 \
0  2  0 1   1  3  0 1   4  2 15 1   6  3 15 1   8  2  0 1   10  3  0 1 \
0  4  0 1   3  4  0 1   4  3 15 1   5  3 15 1   7  4  0 1   10  5  0 1 \
0  6  0 1   3  6  0 1   4  6 15 1   5  6 15 1   8  5  0 1   10  7  0 1 \
0  8  0 1   2  8  0 1   4  8 15 1   6  8 15 1   7  7  0 1   10  8  0 1 \
0 10  0 1   2 10  0 1   4 10 15 1   6 10 15 1   7 10  0 1   10 10  0 1

dchrono t reset
dchrono t start
OCC27048 surf -0.1 -0.1 1000000
dchrono t stop
set elapsed [dchrono t show]

regexp {CPU user time: ([-0-9.+eE]+) seconds} $elapsed full cpu_time
set max_time 1

if { $cpu_time > ${max_time} } {
    puts "Error: calculating B-spline value takes too long time (greater than ${max_time} sec)"
} else {
    puts "OK: performance calculating B-spline is suitable"
}