f542b7bb |
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.9119608849931454 |
11 | |
12 | restore [locate_data_file bug27252_s1071.draw] s1 |
13 | restore [locate_data_file bug27252_s1072.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" |
7b5e532f |
57 | if { [regexp "Edges are not overlapped" $coe] != 1 } { |
58 | puts "Error: result_$ic and result_$ip are overlapped" |
f542b7bb |
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 | } |