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
	vzfit
	vdump $imagedir/${test_image}.png
    }
}

if { [info exist only_screen] } {
    vdump $imagedir/${test_image}.png
}

if { [info exist only_screen2d] } {
    v2ddump $imagedir/${test_image}.png
}

# to end a test script
puts "TEST COMPLETED"