TABLE OF CONTENTS

::pwtk::xsf::getAnimsteps

SYNOPSIS

proc ::pwtk::xsf::getAnimsteps {xsfFile} {

PURPOSE

Return the number of snapshots in the XSF file (in XSF jargon this is called number of ANIMSTEPS).

ARGUMENTS

xsfFile -- name of XSF file

SOURCE

    ::pwtk::fileMustExist $xsfFile XSF
    
    set nimages 1
    pwtk::lineread line $xsfFile {
        if { [regexp ANIMSTEPS $line] } {
            set nimages [lindex $line end]
            break
        }
    }
    return $nimages
}