[occt.git] / tests / bugs / moddata_3 / bug25861

puts "================"
puts "OCC25861"
puts "================"
puts ""
#######################################################################
# Wrong result obtained by projection algorithm.
#######################################################################

pload QAcommands

restore [locate_data_file bug25861_f3.brep] f3

point p 6.9184976310066668 -24.127668568051799 8.6427835999999978

set info [xprojponf p f3]

if { [regexp {point px +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} ${info} string x2 y2 z2] != 1 } {
    puts "Error: Wrong result obtained by projection algorithm"
} else {
    puts "OK: Good result obtained by projection algorithm"

    vertex v1 p
    vertex v2 ${x2} ${y2} ${z2}

    set CMP_TOL 1.0e-7
    distmini res v1 v2
    set distmin [dval res_val]
    if { [expr abs(${distmin})] > ${CMP_TOL} } {
       puts "Error: Wrong projection point"
    } else {
       puts "OK: Good projection point"
    }

}
Commit	Line	Data
9bf3177f	1	puts "================"
	2	puts "OCC25861"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Wrong result obtained by projection algorithm.
	7	#######################################################################
	8
	9	pload QAcommands
	10
	11	restore [locate_data_file bug25861_f3.brep] f3
	12
	13	point p 6.9184976310066668 -24.127668568051799 8.6427835999999978
	14
	15	set info [xprojponf p f3]
	16
	17	if { [regexp {point px +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} ${info} string x2 y2 z2] != 1 } {
	18	puts "Error: Wrong result obtained by projection algorithm"
	19	} else {
	20	puts "OK: Good result obtained by projection algorithm"
	21
	22	vertex v1 p
	23	vertex v2 ${x2} ${y2} ${z2}
	24
	25	set CMP_TOL 1.0e-7
	26	distmini res v1 v2
	27	set distmin [dval res_val]
	28	if { [expr abs(${distmin})] > ${CMP_TOL} } {
	29	puts "Error: Wrong projection point"
	30	} else {
	31	puts "OK: Good projection point"
	32	}
	33
	34	}