File: KWVolViewDiffImages.tcl

package info (click to toggle)
volview 3.4-3
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 25,204 kB
  • sloc: cpp: 132,585; ansic: 11,612; tcl: 236; sh: 64; makefile: 25; xml: 8
file content (14 lines) | stat: -rw-r--r-- 307 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
proc DiffImages { imageData {threshold 60}} {
   global argc argv

   vtkVVTesting testing
   testing SetImageData $imageData
   for {set i 1} {$i < $argc} {incr i} {
     testing AddArgument "[lindex $argv $i]"
   }

   set res [ testing RegressionTest ${threshold} ]

   testing Delete  
   return $res
}