mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-20 11:54:07 +03:00
1fc1a207b0
Added new condition for first indicated element at Draw_ProgressIndicator::Show(), because it’s more logical that at start progress starts at 0 Changed usage of Next() to Next(step) for increment progress to IND_THRESHOLD in RWStl::writeASCII() and RWStl::writeBinary() Changed condition for continuation of writing and add interrupt to this function Added possibility to use Progress indicator in writestl Changed paremeter in constructor Message_ProgressSentry aPS() IND_THRESHOLD to 1 Changed test
36 lines
1.2 KiB
Plaintext
36 lines
1.2 KiB
Plaintext
sphere s 10
|
|
tessellate result s 100 100
|
|
XProgress -tclOutput
|
|
XProgress +t
|
|
set out [writestl result s.stl]
|
|
|
|
set expected {
|
|
{Progress: 0% Triangles: 0 / 20000}
|
|
{Progress: 5% Triangles: 1001 / 20000}
|
|
{Progress: 10% Triangles: 2001 / 20000}
|
|
{Progress: 15% Triangles: 3001 / 20000}
|
|
{Progress: 20% Triangles: 4001 / 20000}
|
|
{Progress: 25% Triangles: 5001 / 20000}
|
|
{Progress: 30% Triangles: 6001 / 20000}
|
|
{Progress: 35% Triangles: 7001 / 20000}
|
|
{Progress: 40% Triangles: 8001 / 20000}
|
|
{Progress: 45% Triangles: 9001 / 20000}
|
|
{Progress: 50% Triangles: 10001 / 20000}
|
|
{Progress: 55% Triangles: 11001 / 20000}
|
|
{Progress: 60% Triangles: 12001 / 20000}
|
|
{Progress: 65% Triangles: 13001 / 20000}
|
|
{Progress: 70% Triangles: 14001 / 20000}
|
|
{Progress: 75% Triangles: 15001 / 20000}
|
|
{Progress: 80% Triangles: 16001 / 20000}
|
|
{Progress: 85% Triangles: 17001 / 20000}
|
|
{Progress: 90% Triangles: 18001 / 20000}
|
|
{Progress: 95% Triangles: 19001 / 20000}
|
|
{Progress: 100% Triangles: 20000 / 20000}
|
|
}
|
|
|
|
if { [string compare [string trim $out] [join $expected "\n"]] } {
|
|
puts "Error: output (see above) does not match expected one:"
|
|
puts "[join $expected "\n"]"
|
|
puts ""
|
|
}
|