dfdfa61f |
1 | puts "TODO OCC23942 ALL: is not equal" |
2 | |
3 | puts "========" |
4 | puts "OCC23942" |
5 | puts "========" |
6 | puts "" |
7 | ######################################################### |
8 | # Pipe algorithms unrobust to number rounding |
9 | ######################################################### |
10 | |
11 | # |
12 | ### 1 |
13 | # |
14 | interpol c [locate_data_file bug23942_points.txt] |
15 | tuyau r_1 c 5 |
16 | |
17 | decho off |
18 | dlog reset |
19 | dlog on |
20 | |
21 | dump r_1 |
22 | |
23 | set info_1 [dlog get] |
24 | dlog reset |
25 | dlog off |
26 | decho on |
27 | |
28 | regexp {Degrees :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_1} full X Degrees_1 |
29 | regexp {NbPoles :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_1} full X NbPoles_1 |
30 | regexp {NbKnots :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_1} full UKnots_1 VKnots_1 |
31 | puts "Degrees_1 = ${Degrees_1}" |
32 | puts "NbPoles_1 = ${NbPoles_1}" |
33 | puts "UKnots_1 = ${UKnots_1}" |
34 | puts "VKnots_1 = ${VKnots_1}" |
35 | |
36 | # |
37 | ### 2 |
38 | # |
39 | save c ${imagedir}/cc |
40 | restore ${imagedir}/cc |
41 | tuyau r_2 cc 5 |
42 | |
43 | decho off |
44 | dlog reset |
45 | dlog on |
46 | |
47 | dump r_2 |
48 | |
49 | set info_2 [dlog get] |
50 | dlog reset |
51 | dlog off |
52 | decho on |
53 | |
54 | regexp {Degrees :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_2} full X Degrees_2 |
55 | regexp {NbPoles :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_2} full X NbPoles_2 |
56 | regexp {NbKnots :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_2} full UKnots_2 VKnots_2 |
57 | puts "Degrees_2 = ${Degrees_2}" |
58 | puts "NbPoles_2 = ${NbPoles_2}" |
59 | puts "UKnots_2 = ${UKnots_2}" |
60 | puts "VKnots_2 = ${VKnots_2}" |
61 | |
62 | # |
63 | ### 3 |
64 | # |
65 | if {${Degrees_1} != ${Degrees_2}} { |
66 | puts "Error : Degrees_1 is not equal Degrees_2" |
67 | } else { |
68 | puts "OK : Degrees_1 is equal Degrees_2" |
69 | } |
70 | if {${NbPoles_1} != ${NbPoles_2}} { |
71 | puts "Error : NbPoles_1 is not equal NbPoles_2" |
72 | } else { |
73 | puts "OK : NbPoles_1 is equal NbPoles_2" |
74 | } |
75 | if {${UKnots_1} != ${UKnots_2}} { |
76 | puts "Error : UKnots_1 is not equal UKnots_2" |
77 | } else { |
78 | puts "OK : UKnots_1 is equal UKnots_2" |
79 | } |
80 | if {${VKnots_1} != ${VKnots_2}} { |
81 | puts "Error : VKnots_1 is not equal VKnots_2" |
82 | } else { |
83 | puts "OK : VKnots_1 is equal VKnots_2" |
84 | } |
85 | |
86 | checkview -display r_1 -2d -path ${imagedir}/${test_image}_1.png |
87 | checkview -display r_2 -2d -path ${imagedir}/${test_image}_2.png |