00302ba4 |
1 | puts "=========" |
2 | puts "CR24299" |
3 | puts "=========" |
4 | puts "" |
5 | ############################### |
6 | ## Wrong section curve |
7 | ############################### |
8 | |
9 | restore [locate_data_file pro19653a.brep] b1 |
10 | restore [locate_data_file pro19653b.brep] b2 |
11 | |
12 | explode b1 f |
13 | explode b2 f |
14 | mksurface s1 b1_1 |
15 | mksurface s2 b2_1 |
16 | intersect i s1 s2 |
17 | |
18 | dlog reset |
19 | dlog on |
20 | xdistcs i_2 s1 0 1 10 |
21 | set Log1 [dlog get] |
22 | |
23 | set List1 [split ${Log1} {TD= \t\n}] |
24 | |
25 | set L1 [llength ${List1}] |
26 | set L2 10 |
27 | set L3 5 |
28 | set N [expr (${L1} - ${L2})/${L3} + 1] |
29 | set Tolerance 1.0e-5 |
30 | set D_good 0. |
31 | |
32 | for {set i 1} {${i} <= ${N}} {incr i} { |
33 | set j1 [expr ${L2} + (${i}-1)*${L3}] |
34 | set j2 [expr ${j1} + 2] |
35 | set T [lindex ${List1} ${j1}] |
36 | set D [lindex ${List1} ${j2}] |
37 | #puts "i=${i} j1=${j1} j2=${j2} T=${T} D=${D}" |
38 | if { [expr abs(${D} - ${D_good})] > ${Tolerance} } { |
39 | puts "Error: i=${i} T=${T} D=${D}" |
40 | } |
41 | } |
42 | |
43 | smallview |
44 | fit |
45 | set only_screen_axo 1 |