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

puts "==========="
puts "OCC25701"
puts "==========="
puts ""
######################################################
# Problem with the symmetry of fillet on two perpendicular cylinders
######################################################

restore [locate_data_file bug25701_rx.brep] rx

explode rx e
smallview
donly rx rx_2 rx_5
compound rx_2 rx_5 q

fillet x rx 2.5 q
explode x e
donly x x_9
fit

mkcurve cx_9 x_9

set log [dump cx_9]

regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
puts "Degree=${Degree}"
puts "Poles=${Poles}"
puts "KnotsPoles=${KnotsPoles}"
puts ""

set tol_abs 1.e-11
set tol_rel 0.01
set expected_V 0.

for {set i 1} {${i} <= ${Poles}} {incr i} {
   set exp_string " +${i} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
   regexp ${exp_string} ${log} full U_i V_i
   puts "i=${i} U_i=${U_i} V_i=${V_i}"
   checkreal "V_$i" ${V_i} ${expected_V} ${tol_abs} ${tol_rel}
}

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
af99433e	1	puts "==========="
	2	puts "OCC25701"
	3	puts "==========="
	4	puts ""
	5	######################################################
	6	# Problem with the symmetry of fillet on two perpendicular cylinders
	7	######################################################
	8
	9	restore [locate_data_file bug25701_rx.brep] rx
	10
	11	explode rx e
	12	smallview
	13	donly rx rx_2 rx_5
	14	compound rx_2 rx_5 q
	15
	16	fillet x rx 2.5 q
	17	explode x e
	18	donly x x_9
	19	fit
	20
	21	mkcurve cx_9 x_9
	22
	23	set log [dump cx_9]
	24
	25	regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
	26	puts "Degree=${Degree}"
	27	puts "Poles=${Poles}"
	28	puts "KnotsPoles=${KnotsPoles}"
	29	puts ""
	30
	31	set tol_abs 1.e-11
	32	set tol_rel 0.01
	33	set expected_V 0.
	34
	35	for {set i 1} {${i} <= ${Poles}} {incr i} {
	36	set exp_string " +${i} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
	37	regexp ${exp_string} ${log} full U_i V_i
	38	puts "i=${i} U_i=${U_i} V_i=${V_i}"
	39	checkreal "V_$i" ${V_i} ${expected_V} ${tol_abs} ${tol_rel}
	40	}
	41
5747059b	42	checkview -screenshot -2d -path ${imagedir}/${test_image}.png