Commit | Line | Data |
---|---|---|
ce97cd97 | 1 | puts "=========" |
2 | puts "0025113: Progress indicator in mesh" | |
3 | puts "=========" | |
4 | puts "" | |
5 | ||
6 | restore [locate_data_file bug21134_r.brep] a | |
7 | tclean a | |
8 | XProgress +t | |
9 | set output [incmesh a 0.005] | |
10 | ||
11 | set ctr { "Perform incmesh" "Mesh Perform" | |
12 | "Face Discret" "100%" | |
13 | "Create triangles on new vertices" } | |
14 | ||
15 | foreach data ${ctr} { | |
16 | if ![regexp $data $output] { | |
17 | puts "Error: Non parallel version incmesh command: Mismatch data on '$data'" | |
18 | break; | |
19 | } | |
20 | } | |
21 |