# Original bug : 23377
# Date : 12 Aug 2012

igesbrep [locate_data_file OCC23377-Input.igs] result *
regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb
puts "Number of Rational BSpline surfaces is $nb"
set 2dviewer 1