[occt.git] / tests / geometry / 2dbeziecurve / B1

# reference
point rp_1  0 0
point rp_2  -0.65021440000000008 0.23541759999999989
point rp_3  -0.62285760000000001 -0.26568060000000016
point rp_4  -0.1324032         -0.59307520000000058
point rp_5  0.5 -0.359375
point rp_6  0.71262720000000057 0.49067519999999837
point rp_7  -0.04280640000000191 1.5503306000000006
point rp_8  -1.9664896000000001 1.9469824000000082
point rp_9  -4.519411199999996   0.49050179999999782
point rp_10   -6 -4
point rd1_1 0 7
point rd2_1 -84 -42
point rd1_2 -2.1719040000000005  -4.1901440000000019
point rd2_2 43.034879999999994   -33.237120000000004
point rd1_3 2.8294560000000004   -4.9642039999999987
point rd2_3 49.701119999999975   18.306120000000032
point rd1_4 6.418943999999998  -0.89913600000000538
point rd2_4 16.316159999999968 58.988159999999944
point rd1_5  5.25 5.6875
point rd2_5 -42 65.625
point rd1_6 -1.9676160000000076 10.636863999999985
point rd2_6 -99.644160000000056 25.011839999999847
point rd1_7 -13.540464000000009  9.0777959999999851
point rd2_7 -122.94911999999997  -63.456120000000169
point rd1_8 -24.105984000000007 -3.1821439999999646
point rd2_8 -72.602880000000027 -185.16287999999992
point rd1_9 -24.188975999999965  -28.003556000000021
point rd2_9  93.932160000000351   -307.65084000000013
point rd1_10  0 -63
point rd2_10  420 -378
2dbeziercurve result  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
val2d result 0 1 10
# Comparison between currents value and references values
set tol 0.000001
set i   1
puts " --> Test value"
repeat 10 {comparepnt2d rp_$i  p_$i  $tol; incr i 1}
set i 1
puts " --> Test D1"
repeat 10 {comparepnt2d rd1_$i d1_$i  $tol; incr i 1}
set i 1
puts " --> Test D2"
repeat 10 {comparepnt2d rd2_$i d2_$i $tol; incr i 1}
checklength result -l 14.909963698913938
Commit	Line	Data
18e25fc9	1	# reference
	2	point rp_1 0 0
	3	point rp_2 -0.65021440000000008 0.23541759999999989
	4	point rp_3 -0.62285760000000001 -0.26568060000000016
	5	point rp_4 -0.1324032 -0.59307520000000058
	6	point rp_5 0.5 -0.359375
	7	point rp_6 0.71262720000000057 0.49067519999999837
	8	point rp_7 -0.04280640000000191 1.5503306000000006
	9	point rp_8 -1.9664896000000001 1.9469824000000082
	10	point rp_9 -4.519411199999996 0.49050179999999782
	11	point rp_10 -6 -4
	12	point rd1_1 0 7
	13	point rd2_1 -84 -42
	14	point rd1_2 -2.1719040000000005 -4.1901440000000019
	15	point rd2_2 43.034879999999994 -33.237120000000004
	16	point rd1_3 2.8294560000000004 -4.9642039999999987
	17	point rd2_3 49.701119999999975 18.306120000000032
	18	point rd1_4 6.418943999999998 -0.89913600000000538
	19	point rd2_4 16.316159999999968 58.988159999999944
	20	point rd1_5 5.25 5.6875
	21	point rd2_5 -42 65.625
	22	point rd1_6 -1.9676160000000076 10.636863999999985
	23	point rd2_6 -99.644160000000056 25.011839999999847
	24	point rd1_7 -13.540464000000009 9.0777959999999851
	25	point rd2_7 -122.94911999999997 -63.456120000000169
	26	point rd1_8 -24.105984000000007 -3.1821439999999646
	27	point rd2_8 -72.602880000000027 -185.16287999999992
	28	point rd1_9 -24.188975999999965 -28.003556000000021
	29	point rd2_9 93.932160000000351 -307.65084000000013
	30	point rd1_10 0 -63
	31	point rd2_10 420 -378
	32	2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
	33	val2d result 0 1 10
7b5e532f	34	# Comparison between currents value and references values
18e25fc9	35	set tol 0.000001
	36	set i 1
	37	puts " --> Test value"
	38	repeat 10 {comparepnt2d rp_$i p_$i $tol; incr i 1}
	39	set i 1
	40	puts " --> Test D1"
	41	repeat 10 {comparepnt2d rd1_$i d1_$i $tol; incr i 1}
	42	set i 1
	43	puts " --> Test D2"
	44	repeat 10 {comparepnt2d rd2_$i d2_$i $tol; incr i 1}
6cc6fc04	45	checklength result -l 14.909963698913938