[occt.git] / tests / bugs / modalg_5 / bug24157_8

puts "============"
puts "OCC24157"
puts "============"
puts ""
############################################
# Parallelization of assembly part of BO
############################################

set N 19
set dX 2.

box b 100 100 100

explode b f
copy b_1 fx
copy b_3 fy
copy b_5 fz

set q {}
for {set j 1} {$j < $N} {incr j} {
 tcopy fx fx_${j}
 ttranslate fx_${j} [expr $j*$dX] 0. 0. 
 lappend q fx_${j}
}

for {set j 1} {$j < $N} {incr j} {
 tcopy fy fy_${j}
 ttranslate fy_${j} 0. [expr $j*$dX] 0. 
 lappend q fy_${j}
}

for {set j 1} {$j < $N} {incr j} {
 tcopy fz fz_${j}
 ttranslate fz_${j} 0. 0. [expr $j*$dX]
 lappend q fz_${j}
}

eval compound $q b1

bclearobjects
bcleartools
baddcompound b1
bfillds -t

regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time

if { $tps_time > 2.9 } {
  puts "Error: low performance"
} else {
  puts "OK: high performance"
}

set 2dviewer 1
Commit	Line	Data
f1baf495	1	puts "============"
	2	puts "OCC24157"
	3	puts "============"
	4	puts ""
	5	############################################
	6	# Parallelization of assembly part of BO
	7	############################################
	8
	9	set N 19
	10	set dX 2.
	11
	12	box b 100 100 100
	13
	14	explode b f
	15	copy b_1 fx
	16	copy b_3 fy
	17	copy b_5 fz
	18
	19	set q {}
	20	for {set j 1} {$j < $N} {incr j} {
	21	tcopy fx fx_${j}
	22	ttranslate fx_${j} [expr $j*$dX] 0. 0.
	23	lappend q fx_${j}
	24	}
	25
	26	for {set j 1} {$j < $N} {incr j} {
	27	tcopy fy fy_${j}
	28	ttranslate fy_${j} 0. [expr $j*$dX] 0.
	29	lappend q fy_${j}
	30	}
	31
	32	for {set j 1} {$j < $N} {incr j} {
	33	tcopy fz fz_${j}
	34	ttranslate fz_${j} 0. 0. [expr $j*$dX]
	35	lappend q fz_${j}
	36	}
	37
	38	eval compound $q b1
	39
	40	bclearobjects
	41	bcleartools
	42	baddcompound b1
	43	bfillds -t
	44
	45	regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
	46
	47	if { $tps_time > 2.9 } {
	48	puts "Error: low performance"
	49	} else {
	50	puts "OK: high performance"
	51	}
	52
	53	set 2dviewer 1