00001 package require datareader
00002 package require klt
00003
00004 00005 00006 00007 set imaPath "/net/pelican/data1/robots/dala/data/2005_07_cartons/test12/images"
00008 set imaPrefix "image."
00009 set imaSuffix ".d"
00010 set nbDigits 3
00011 set firstnum 330
00012 set lastnum 320
00013 set pasIma -2
00014
00015 00016 00017 set seqReader [::datareader::new_ImageReader]
00018 ::datareader::ImageReader_setup $seqReader $imaPath $imaPrefix $imaSuffix $nbDigits
00019
00020 00021
00022 ::klt::kltTest $seqReader $firstnum $pasIma $lastnum "/tmp" 500