[occt.git] / tests / bugs / modalg_2 / bug453_1

puts "TODO OCC24156 MacOS: Tcl Exception:"
puts "TODO OCC24156 MacOS: TEST INCOMPLETE"

puts "========"
puts "OCC453"
puts "(case 1)"
puts "========"
puts ""

dchrono h2 reset
dchrono h2 start

set make_print_out 0

dset SCALE 1000.
dset SCALE1 5
tolblend 0.01 1e-04 1e-05 1e-03

restore [locate_data_file CFI_5_f12fgk.rle] s 
tscale s 0 0 0 SCALE1
explode s E

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
explode result sh
tcopy result_1 result

dchrono h2 stop
set q2 [ dchrono h2 show ]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
puts "$z2"
if { $z2 > 50 } {                             
    puts "Elapsed time is more then 50 seconds - Faulty"
} else {
    puts "Elapsed time is less then 50 seconds - OK"      
}
set square 6021.51
set 2dviewer 1
Commit	Line	Data
3cdfdc9a	1	puts "TODO OCC24156 MacOS: Tcl Exception:"
3cdfdc9a	2	puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
a87752f3	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.5SCALE1 s_1 0.5SCALE1 s_4 0.5SCALE1 s_12 0.5SCALE1 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