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

puts "============"
puts "CR25489"
puts "============"
puts ""
###################################################################################
# GCPnts_TangentialDeflection gives incorrect distribution of points
###################################################################################

restore [locate_data_file bug25469_bad_tria.brep] a

subshape a e 8
mkcurve c a_8

set deflection 0.001
set info [crvtpoints r c ${deflection} pi/6]

set str1 "Nb points +: +(\[-0-9.+eE\]+)\n"
set str2 "Max defl: +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"

regexp "${str1}${str2}" ${info} full Nb dmax ufmax ulmax i

#-1
set min_Nb 4
if { ${Nb} < ${min_Nb} } {
    puts "Error : bad value of Nb points=${Nb}"
}

#-2
if { ${dmax} > ${deflection} } {
    puts "Error : bad value of deflection=${dmax}"
}

smallview
donly a_8 r_a_8
fit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
fe790035	1	puts "============"
	2	puts "CR25489"
	3	puts "============"
	4	puts ""
	5	###################################################################################
	6	# GCPnts_TangentialDeflection gives incorrect distribution of points
	7	###################################################################################
	8
	9	restore [locate_data_file bug25469_bad_tria.brep] a
	10
	11	subshape a e 8
	12	mkcurve c a_8
	13
	14	set deflection 0.001
	15	set info [crvtpoints r c ${deflection} pi/6]
	16
	17	set str1 "Nb points +: +(\[-0-9.+eE\]+)\n"
	18	set str2 "Max defl: +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
	19
	20	regexp "${str1}${str2}" ${info} full Nb dmax ufmax ulmax i
	21
	22	#-1
	23	set min_Nb 4
	24	if { ${Nb} < ${min_Nb} } {
	25	puts "Error : bad value of Nb points=${Nb}"
	26	}
	27
	28	#-2
	29	if { ${dmax} > ${deflection} } {
	30	puts "Error : bad value of deflection=${dmax}"
	31	}
	32
	33	smallview
	34	donly a_8 r_a_8
	35	fit
	36
5747059b	37	checkview -screenshot -2d -path ${imagedir}/${test_image}.png