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"
}