mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-13 23:27:24 +08: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"
|
|
|