65263f37 |
1 | puts "TODO ?OCC453 ALL: Error : The square of result shape is" |
a87752f3 |
2 | |
3 | puts "========" |
4 | puts "OCC453" |
5 | puts "(case 2)" |
6 | puts "========" |
7 | puts "" |
8 | |
9 | dchrono h2 reset |
10 | dchrono h2 start |
11 | |
12 | set make_print_out 0 |
13 | |
14 | dset SCALE 1000. |
15 | dset SCALE1 5 |
16 | tolblend 0.01 1e-04 1e-05 1e-03 |
17 | |
18 | restore [locate_data_file shading_137.brep] s |
19 | tscale s 0 0 0 SCALE1 |
20 | explode s E |
21 | |
22 | blend result s 4.5*SCALE1 s_2 4.5*SCALE1 s_1 4.5*SCALE1 s_6 4.5*SCALE1 s_8 4.5*SCALE1 s_10 4.5*SCALE1 s_14 4.5*SCALE1 s_4 4.5*SCALE1 s_5 4.5*SCALE1 s_16 4.5*SCALE1 s_11 4.5*SCALE1 s_19 4.5*SCALE1 s_13 |
23 | explode result So |
24 | tcopy result_1 result |
25 | |
26 | dchrono h2 stop |
27 | set q2 [ dchrono h2 show ] |
28 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2 |
29 | puts "$z2" |
30 | if { $z2 > 110 } { |
31 | puts "Elapsed time is more then 110 seconds - Faulty" |
32 | } else { |
33 | puts "Elapsed time is less then 110 seconds - OK" |
34 | } |
35 | |
36 | set square 3.65777e+06 |
37 | set 2dviewer 1 |