tests/bugs/modalg_2/bug453_1

   1 puts "TODO OCC24156 MacOS: Tcl Exception:"
   2 puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
   3
   4 puts "========"
   5 puts "OCC453"
   6 puts "(case 1)"
   7 puts "========"
   8 puts ""
   9
  10 dchrono h2 reset
  11 dchrono h2 start
  12
  13 set make_print_out 0
  14
  15 dset SCALE 1000.
  16 dset SCALE1 5
  17 tolblend 0.01 1e-04 1e-05 1e-03
  18
  19 restore [locate_data_file CFI_5_f12fgk.rle] s
  20 tscale s 0 0 0 SCALE1
  21 explode s E
  22
  23 blend result s 0.5*SCALE1 s_1 0.5*SCALE1 s_4 0.5*SCALE1 s_12 0.5*SCALE1 s_8 0.5*SCALE1 s_6
  24 explode result sh
  25 tcopy result_1 result
  26
  27 dchrono h2 stop
  28 set q2 [ dchrono h2 show ]
  29 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
  30 puts "$z2"
  31 if { $z2 > 50 } {
  32     puts "Elapsed time is more then 50 seconds - Faulty"
  33 } else {
  34     puts "Elapsed time is less then 50 seconds - OK"
  35 }
  36 set square 6021.51
  37 set 2dviewer 1