191478a5 |
1 | puts "=========" |
2 | puts "CR24427" |
3 | puts "=========" |
4 | puts "" |
5 | ############################### |
6 | ## Wrong section curves |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug24427_b1.brep] b1 |
10 | restore [locate_data_file bug24427_b2.brep] b2 |
11 | |
12 | mksurface s1 b1 |
13 | mksurface s2 b2 |
14 | |
15 | bop b1 b2 |
16 | bopsection ressec |
17 | |
18 | explode ressec e |
19 | mkcurve rr ressec_1 |
20 | |
21 | puts "First test" |
22 | dlog reset |
23 | dlog on |
24 | xdistcs rr s1 0 1 100 |
25 | |
26 | set Log1 [dlog get] |
27 | |
28 | set List1 [split ${Log1} {TD= \t\n}] |
29 | |
30 | set L1 [llength ${List1}] |
31 | set L2 10 |
32 | set L3 5 |
33 | set N [expr (${L1} - ${L2})/${L3} + 1] |
34 | set Tolerance 1.0e-7 |
35 | set D_good 0. |
36 | |
37 | for {set i 1} {${i} <= ${N}} {incr i} { |
38 | set j1 [expr ${L2} + (${i}-1)*${L3}] |
39 | set j2 [expr ${j1} + 2] |
40 | set T [lindex ${List1} ${j1}] |
41 | set D [lindex ${List1} ${j2}] |
42 | puts "i=${i} j1=${j1} j2=${j2} T=${T} D=${D}" |
43 | if { [expr abs(${D} - ${D_good})] > ${Tolerance} } { |
44 | puts "Error: i=${i} T=${T} D=${D}" |
45 | } |
46 | } |
47 | |
48 | |
49 | puts "Second test" |
50 | dlog reset |
51 | dlog on |
52 | xdistcs rr s2 0 1 100 |
53 | set Log2 [dlog get] |
54 | |
55 | set List2 [split ${Log2} {TD= \t\n}] |
56 | |
57 | set L1 [llength ${List2}] |
58 | set L2 10 |
59 | set L3 5 |
60 | set N [expr (${L1} - ${L2})/${L3} + 1] |
61 | set Tolerance 1.0e-7 |
62 | set D_good 0. |
63 | |
64 | for {set i 1} {${i} <= ${N}} {incr i} { |
65 | set j1 [expr ${L2} + (${i}-1)*${L3}] |
66 | set j2 [expr ${j1} + 2] |
67 | set T [lindex ${List2} ${j1}] |
68 | set D [lindex ${List2} ${j2}] |
69 | puts "i=${i} j1=${j1} j2=${j2} T=${T} D=${D}" |
70 | if { [expr abs(${D} - ${D_good})] > ${Tolerance} } { |
71 | puts "Error: i=${i} T=${T} D=${D}" |
72 | } |
73 | } |
74 | |
75 | donly rr s1t s2t |
76 | |
77 | smallview |
78 | fit |
79 | set only_screen_axo 1 |