#!/usr/bin/tclsh

set start [ lindex  $argv 0 ]
set end   [ lindex  $argv 1 ]

if { $argc > 2 } {
  set step [lindex $argv 2]
} else {
  set step 1
}

puts "start=$start end=$end step=$step"


set outfile [open "scr_anim" w]
set iter $start
puts $outfile "80" 
while { $iter <= $end } {
   set fileno [format %02s $iter]
   puts $outfile "mo-tilt70.53-replica${fileno}.cfg ./Pic/inter${fileno}.jpg" 
   set iter [expr $iter + $step]
}
close $outfile
