0030435: Improving performance of Approx_ComputeCLine
[occt.git] / tests / perf / moddata / bug30435
1 puts "========"
2 puts "BUG30435"
3 puts "Improving performance of Approx_ComputeCLine"
4 puts "========"
5 puts ""
6
7 pload QAcommands
8 cone con 0 0 0 0 0 -1 1 0 0 -30 0
9 2dbeziercurve b 4 0 0 15 15 35 -15 50 1.
10 approxcurveonsurf cc b con  1.e-7 1 12 1000
11 clear con
12 clpoles cc
13
14 set time0 ""
15 set time1 ""
16
17 dchrono t0 restart
18 OCC30435 r0 cc 0 50
19 dchrono t0 stop 
20 set inf0 [dchrono t0 counter OCC30435] 
21
22 regexp {COUNTER OCC30435: ([-0-9.+eE]+)} $inf0 full0 time0
23
24 dchrono t1 restart
25 OCC30435 r1 cc 1 50
26 dchrono t1 stop
27 set inf1 [dchrono t1 counter OCC30435_1] 
28  
29 regexp {COUNTER OCC30435_1: ([-0-9.+eE]+)} $inf1 full1 time1
30
31 if { $time1 > $time0 } {
32     puts "Error : optimized algorithm works slowly then initial one"
33 } else {
34     puts "Performance ratio is [expr $time0/$time1]"
35 }
36
37 clpoles r0
38 clpoles r1
39 smallview
40 fit
41 xwd $imagedir/${test_image}.png
42
43
44
45
46