1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
puts "============"
puts "OCC18541"
puts "============"
puts ""
#######################################################################
# Problem with GCPnts_UniformAbscissa class
#######################################################################
set BugNumber OCC18541
restore [locate_data_file OCC18541.brep] b-curve
set NbPoints 10
mkcurve res b-curve
set ResList [uniformAbscissa res ${NbPoints}]
if {[llength ${ResList}] > 15} {
set CasCurve_NbPoints [lindex ${ResList} 15]
puts "NbPoints = ${NbPoints} CasCurve_NbPoints = ${CasCurve_NbPoints}"
if { ${CasCurve_NbPoints} != ${NbPoints} } {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
}
} else {
puts "Faulty ${BugNumber} : Bad draw command"
}
|
