97eab65ac9bbd6e1b2eba6cdb17fc4b0c9ab5908
[occt.git] / tests / bugs / moddata_3 / bug23471
1 puts "TODO OCC26190 ALL: Error: Curve Number is bad"
2 puts "TODO OCC26190 ALL: Error: Length of intersection line is bad!"
3
4 puts "============"
5 puts "CR23471"
6 puts "============"
7 puts ""
8 #######################################################################
9 # Intersection algorithm produces overlapping intersection curves
10 #######################################################################
11
12 # Attention!!!!
13 # Change these values is strictly forbidden (see bug #26190)
14 set GoodNbCurv 1
15 set GoodLength 79655.615367318111
16
17 restore [locate_data_file OCC22790-cx.brep] b
18
19 explode b
20 mksurface s1 b_1
21 mksurface s2 b_3
22 intersect res s1 s2
23
24 set che [whatis res]
25 set ind [string first "3d curve" $che]
26 if {${ind} >= 0} {
27   #Only variable "res" exists
28   copy res res_1
29 }
30
31 set SumLength 0
32
33 set ic 1
34 set AllowRepeate 1
35 while { $AllowRepeate != 0 } {
36   set che [whatis res_$ic]
37   set ind [string first "3d curve" $che]
38   if {${ind} < 0} {
39     set AllowRepeate 0
40   } else {
41     set log [length res_$ic]
42     set exp_string "The length res_$ic is +(\[-0-9.+eE\]+)"
43     regexp ${exp_string} ${log} full len
44     set SumLength [expr $SumLength+$len]
45
46     incr ic
47   }
48 }
49
50 set NbCurv [expr {$ic - 1}]
51 if {$NbCurv == $GoodNbCurv} {
52   puts "OK: Curve Number is good!"
53 } else {
54   puts "Error: Curve Number is bad ($NbCurv curve(s) found, but $GoodNbCurv expected)!"
55 }
56
57 if { abs($SumLength - $GoodLength) < 0.01*$GoodLength } {
58   puts "OK: Length of intersection line is good!"
59 } else {
60   puts "Error: Length of intersection line is bad!"
61   puts "Expected length is: $GoodLength"
62   puts "Found length is:    $SumLength"
63 }