[occt.git] / tests / bugs / modalg / bug817_3

pload QAcommands

puts "============"
puts "OCC817"
puts "============"
puts ""
#############################
## Bad results of BRepAlgoAPI_Common
#############################

set InfoList [OCC817 result 30]


set OriginalVolume 0
regexp {Info: Original volume  = ([-0-9.+eE]+)} $InfoList full OriginalVolume

set AccumulatedMeshedVolume 0
regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume

set percent_max 0.1
set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]

if {${percent} > ${percent_max}} {
    puts "OCC817: Error"
} else {
    puts "OCC817: OK"
}
set 2dviewer 0
set square 6000
Commit	Line	Data
352ffd73	1	pload QAcommands
	2
	3	puts "============"
	4	puts "OCC817"
	5	puts "============"
	6	puts ""
	7	#############################
	8	## Bad results of BRepAlgoAPI_Common
	9	#############################
	10
	11	set InfoList [OCC817 result 30]
	12
	13
	14	set OriginalVolume 0
	15	regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
	16
	17	set AccumulatedMeshedVolume 0
	18	regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
	19
	20	set percent_max 0.1
	21	set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
	22
	23	if {${percent} > ${percent_max}} {
	24	puts "OCC817: Error"
	25	} else {
	26	puts "OCC817: OK"
	27	}
	28	set 2dviewer 0
	29	set square 6000