[occt.git] / tests / bugs / moddata_2 / bug453_3

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

puts "========"
puts "OCC453"
puts "(case 3)"
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 shading_137.brep] s 
tscale s 0 0 0 SCALE1
explode s E

blend result s  5.5*SCALE1 s_2  4*SCALE1 s_1  6*SCALE1 s_6 5*SCALE1 s_8  6*SCALE1 s_10 6.5*SCALE1 s_14  7*SCALE1 s_4 5.5*SCALE1 s_5 7*SCALE1 s_16 6*SCALE1 s_11 5*SCALE1 s_19 6.5*SCALE1 s_13
explode result So
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 > 85 } {                             
    puts "Elapsed time is more then 85 seconds - Faulty"
} else {
    puts "Elapsed time is less then 85 seconds - OK"      
}

set 2dviewer 1
Commit	Line	Data
3cdfdc9a	1	puts "TODO OCC24156 MacOS: Tcl Exception: tolerance ang"
	2	puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
	3
a87752f3	4	puts "========"
	5	puts "OCC453"
	6	puts "(case 3)"
	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 shading_137.brep] s
	20	tscale s 0 0 0 SCALE1
	21	explode s E
	22
	23	blend result s 5.5SCALE1 s_2 4SCALE1 s_1 6SCALE1 s_6 5SCALE1 s_8 6SCALE1 s_10 6.5SCALE1 s_14 7SCALE1 s_4 5.5SCALE1 s_5 7SCALE1 s_16 6SCALE1 s_11 5SCALE1 s_19 6.5SCALE1 s_13
	24	explode result So
	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 > 85 } {
	32	puts "Elapsed time is more then 85 seconds - Faulty"
	33	} else {
	34	puts "Elapsed time is less then 85 seconds - OK"
	35	}
	36
	37	set 2dviewer 1
	38