mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-15 11:44:07 +03:00
26 lines
392 B
Plaintext
Executable File
26 lines
392 B
Plaintext
Executable File
if { [isdraw result] } {
|
|
if { [info exists 2dviewer] } {
|
|
clear
|
|
smallview
|
|
donly result
|
|
fit
|
|
xwd $imagedir/${test_image}.png
|
|
}
|
|
if { [info exists 3dviewer] } {
|
|
vinit
|
|
vclear
|
|
vdisplay result
|
|
vsetdispmode 1
|
|
vfit
|
|
vdump $imagedir/${test_image}.png
|
|
}
|
|
}
|
|
|
|
if { [info exist only_screen] } {
|
|
vdump $imagedir/${test_image}.png
|
|
}
|
|
|
|
# to end a test script
|
|
puts "TEST COMPLETED"
|
|
|