c1e0171c |
1 | puts "TODO ?OCC25918 Windows: Error : The square of result shape is" |
3cdfdc9a |
2 | puts "TODO OCC24156 MacOS: Tcl Exception:" |
3 | puts "TODO OCC24156 MacOS: TEST INCOMPLETE" |
a87752f3 |
4 | |
5 | puts "========" |
6 | puts "OCC453" |
7 | puts "(case 2)" |
8 | puts "========" |
9 | puts "" |
10 | |
11 | dchrono h2 reset |
12 | dchrono h2 start |
13 | |
14 | set make_print_out 0 |
15 | |
16 | dset SCALE 1000. |
17 | dset SCALE1 5 |
18 | tolblend 0.01 1e-04 1e-05 1e-03 |
19 | |
20 | restore [locate_data_file shading_137.brep] s |
21 | tscale s 0 0 0 SCALE1 |
22 | explode s E |
23 | |
24 | 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 |
25 | explode result So |
26 | tcopy result_1 result |
27 | |
28 | dchrono h2 stop |
29 | set q2 [ dchrono h2 show ] |
30 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2 |
31 | puts "$z2" |
32 | if { $z2 > 110 } { |
33 | puts "Elapsed time is more then 110 seconds - Faulty" |
34 | } else { |
35 | puts "Elapsed time is less then 110 seconds - OK" |
36 | } |
37 | |
38 | set square 3.65777e+06 |
39 | set 2dviewer 1 |