mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
17 lines
329 B
Plaintext
17 lines
329 B
Plaintext
if { [isdraw result] } {
|
|
regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
|
|
|
|
#check if result is valid
|
|
puts [checkshape result]
|
|
clear
|
|
smallview
|
|
donly result
|
|
fit
|
|
xwd $imagedir/${test_image}.gif
|
|
} else {
|
|
puts "Error : The prism can not be build."
|
|
}
|
|
|
|
# to end a test script
|
|
puts "TEST COMPLETED"
|