[occt.git] / tests / bugs / modalg_7 / bug30647

puts "========"
puts "0030647: Geom2dGcc_Circ2d2TanRad not giving all the solutions"
puts "========"
puts ""

restore [locate_data_file bug30647_curve1_720.brep] c1
restore [locate_data_file bug30647_curve2_720.brep] c2

explode c1 e
mk2dcurve q1 c1_1
explode c2 e
mk2dcurve q2 c2_1

cirtang r -c q1 -c q2 -r 0.4

smallview  -2D-

2dclear q1
2dfit
display q1

xwd ${imagedir}/${test_image}.png

set NbCurv [llength [directory r_*]]

if { $NbCurv == 8 } {
  puts "OK: Number of circles is good"
} else {
  puts "Error: Not all solutions"
}
Commit	Line	Data
833034f3	1	puts "========"
	2	puts "0030647: Geom2dGcc_Circ2d2TanRad not giving all the solutions"
	3	puts "========"
	4	puts ""
	5
	6	restore [locate_data_file bug30647_curve1_720.brep] c1
	7	restore [locate_data_file bug30647_curve2_720.brep] c2
	8
	9	explode c1 e
	10	mk2dcurve q1 c1_1
	11	explode c2 e
	12	mk2dcurve q2 c2_1
	13
	14	cirtang r -c q1 -c q2 -r 0.4
	15
	16	smallview -2D-
	17
	18	2dclear q1
	19	2dfit
	20	display q1
	21
	22	xwd ${imagedir}/${test_image}.png
	23
	24	set NbCurv [llength [directory r_*]]
	25
	26	if { $NbCurv == 8 } {
	27	puts "OK: Number of circles is good"
	28	} else {
	29	puts "Error: Not all solutions"
	30	}