# vmd tcl procedure: create input file suitable for subsequent rendering.
#
# Time-stamp: <akohlmey 13.04.2003 14:54:54 timburton.bochum>
#
# Copyright (c) 2003 by <Axel.Kohlmeyer@theochem.ruhr-uni-bochum.de>
#
# TODO: hook this into the menu.

# arguments:

proc gen_render \
    {{start 0} {end -1} {step 1} {prog POV3} {format "frame-%05d.pov"}} {

        if {$end < 0} {set end [molinfo [molinfo top] get numframes]}
        
        puts "writing input for rendering with $prog with format $format"
        puts "from step $start to step $end with delta $step"
        for {set i $start} {$i <= $end} {incr i $step} {
            animate goto $i
            render $prog [format $format $i]
        }
}


############################################################
# Local Variables:
# mode: tcl
# time-stamp-format: "%u %02d.%02m.%y %02H:%02M:%02S %s"
# End:
############################################################