occt/tests/lowalgos/progress/A1

puts "========"
puts "0031190: Modeling Algorithms - progress indication in GeomPlate is inconsistent"
puts "========"

plane p 
trim p p -1 3 -1 3 
mkface p p 
 
beziercurve c1 3 0 0 0 1 0 1 2 0 0 
mkedge e1 c1 
tcopy e1 e2 
tcopy e1 e3 
 
ttranslate e2 0 2 0 
trotate e3 0 0 0 0 0 1 90 
tcopy e3 e4 
ttranslate e4 2 0 0 

# Configure XProgress 
XProgress +t 

# create the surface 
set output [gplate r1 4 0 p e1 0 e2 0 e3 0 e4 0] 

# Test data
set ctr {"0%" "Calculating the surface filled" "Plate_Plate::SolveTI1()" "math_Gauss LU_Decompose" "100%" }

foreach data ${ctr} {
  if ![regexp $data $output] {
    puts "Error: gplate command: Mismatch data on '$data'"
    break
  }
}