0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug23942
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