0027252: Implicit-implicit intersection (Cylinder-Plane) loses intersection curve
[occt.git] / tests / bugs / modalg_6 / bug27252_3
1 puts "========="
2 puts "OCC24585"
3 puts "========="
4 puts ""
5 ###########################################################
6 # Wrong pcurve of the section curve
7 ###########################################################
8
9 set GoodNbCurv 1
10 set GoodLength 0.9119608849931374
11
12 restore [locate_data_file bug27252_s671.draw] s1
13 restore [locate_data_file bug27252_s672.draw] s2
14
15 set CheckID 0
16
17 foreach Toler { 1.0e-7 1.0e-4 } {
18   incr CheckID
19   
20   intersect result s1 s2 ${Toler}
21
22   set che [whatis result]
23   set ind [string first "3d curve" $che]
24   if {${ind} >= 0} {
25     #Only variable "result" exists
26     renamevar result result_1
27   }
28
29   set clen 0.0
30
31   set ic 1
32   set AllowRepeate 1
33   while { $AllowRepeate != 0 } {
34     set che [whatis result_$ic]
35     set ind [string first "3d curve" $che]
36     if {${ind} < 0} {
37       set AllowRepeate 0
38     } else {
39       display result_$ic
40       
41       bounds result_$ic U1 U2
42       
43       if {[dval U2-U1] < 1.0e-9} {
44         puts "Error: Wrong curve's range!"
45       }
46       
47       xdistcs result_$ic s1 U1 U2 10 1.0e-7
48       xdistcs result_$ic s2 U1 U2 10 1.0e-7
49       
50       for { set ip [expr $ic-1] } { $ip > 0 } { incr ip -1 } {
51         mkedge e1 result_$ic
52         mkedge e2 result_$ip
53
54         set coe [checkoverlapedges e1 e2 5.0e-5]
55
56         puts "result_$ic <-> result_$ip: $coe"
57         if { [regexp "Edges is not overlaped" $coe] != 1 } {
58           puts "Error: result_$ic and result_$ip are overlaped"
59         }
60       }
61       
62       regexp "The length result_$ic is +(\[-0-9.+eE\]+)" [length result_$ic] full ll
63       set clen [expr $clen+$ll]
64        
65       incr ic
66     }
67   }
68
69   if {[expr {$ic - 1}] == $GoodNbCurv} {
70     puts "OK: Number of curves is good!"
71   } else {
72     puts "Error: $GoodNbCurv is expected but [expr {$ic - 1}] is found!"
73   }
74
75   puts "Summary length = $clen"
76   checkreal SumLength $clen $GoodLength 0.0 1.0e-6
77
78   smallview
79   don result*
80   fit
81   clear
82   don s1 s2 result*
83   checkview -screenshot -2d -path ${imagedir}/${test_image}_${CheckID}.png
84 }