5 ###############################
6 ## Wrong section curves
7 ###############################
9 restore [locate_data_file bug23981_s1.draw] s1
10 restore [locate_data_file bug23981_s2.draw] s2
17 xdistcs i_1 s1 0 1 100
20 set List1 [split ${Log1} {TD= \t\n}]
22 set L1 [llength ${List1}]
25 set N [expr (${L1} - ${L2})/${L3} + 1]
29 for {set i 1} {${i} <= ${N}} {incr i} {
30 set j1 [expr ${L2} + (${i}-1)*${L3}]
31 set j2 [expr ${j1} + 2]
32 set T [lindex ${List1} ${j1}]
33 set D [lindex ${List1} ${j2}]
34 #puts "i=${i} j1=${j1} j2=${j2} T=${T} D=${D}"
35 if { [expr abs(${D} - ${D_good})] > ${Tolerance} } {
36 puts "Error: i=${i} T=${T} D=${D}"
44 xdistcs i_2 s1 0 1 100
47 set List2 [split ${Log2} {TD= \t\n}]
49 set L1 [llength ${List2}]
52 set N [expr (${L1} - ${L2})/${L3} + 1]
56 for {set i 1} {${i} <= ${N}} {incr i} {
57 set j1 [expr ${L2} + (${i}-1)*${L3}]
58 set j2 [expr ${j1} + 2]
59 set T [lindex ${List2} ${j1}]
60 set D [lindex ${List2} ${j2}]
61 #puts "i=${i} j1=${j1} j2=${j2} T=${T} D=${D}"
62 if { [expr abs(${D} - ${D_good})] > ${Tolerance} } {
63 puts "Error: i=${i} T=${T} D=${D}"