| 1 | puts "TODO ?OCC25918 Windows: Error : The square of result shape is" |
| 2 | puts "TODO OCC24156 MacOS: Tcl Exception:" |
| 3 | puts "TODO OCC24156 MacOS: TEST INCOMPLETE" |
| 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 |