Loading files
This file is pinned to the selected release. Download the original to open it in your design tool.
3d097a032This file is pinned to the selected release. Download the original to open it in your design tool.
puts "============"
puts "OCC18541"
puts "============"
puts ""
#######################################################################
# Problem with GCPnts_UniformAbscissa class
#######################################################################
set BugNumber OCC18541
set maxR 100
set minR 50
set NbPoints 10
set ResList [uniformAbscissaEl ${maxR} ${minR} ${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"
}