Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug453_3
1 puts "========"
2 puts "OCC453"
3 puts "(case 3)"
4 puts "========"
5 puts ""
6
7 dchrono h2 reset
8 dchrono h2 start
9
10 set make_print_out 0
11
12 dset SCALE 1000.
13 dset SCALE1 5
14 tolblend 0.01 1e-04 1e-05 1e-03
15
16 restore [locate_data_file shading_137.brep] s 
17 tscale s 0 0 0 SCALE1
18 explode s E
19
20 blend result s  5.5*SCALE1 s_2  4*SCALE1 s_1  6*SCALE1 s_6 5*SCALE1 s_8  6*SCALE1 s_10 6.5*SCALE1 s_14  7*SCALE1 s_4 5.5*SCALE1 s_5 7*SCALE1 s_16 6*SCALE1 s_11 5*SCALE1 s_19 6.5*SCALE1 s_13
21 explode result So
22 tcopy result_1 result
23
24 dchrono h2 stop
25 set q2 [ dchrono h2 show ]
26 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
27 puts "$z2"
28 if { $z2 > 85 } {                             
29     puts "Elapsed time is more then 85 seconds - Faulty"
30 } else {
31     puts "Elapsed time is less then 85 seconds - OK"      
32 }
33
34 set 2dviewer 1
35