anim.tcl

Go to the documentation of this file.

/*  -*- tcl -*-*/
/*  (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>*/
/** 
 * ###
 */

namespace ::sak::animate {}

/*  ###*/

ret  ::sak::animate::init () {
    variable prefix
    variable n      0
    variable max    [llength $prefix]
    variable extend 0
}

ret  ::sak::animate::next (type string) {
    variable prefix
    variable n
    variable max
    Extend string

    puts -nonewline stdout \r\[[lindex $prefix $n]\]\ $string
    flush           stdout

    incr n ; if {$n >= $max} {set n 0}
    return
}

ret  ::sak::animate::last (type string) {
    variable clear
    Extend string

    puts  stdout \r\[$clear\]\ $string
    flush stdout
    return
}

/*  ###*/

ret  ::sak::animate::Extend (type sv) {
    variable extend
    upvar 1 $sv string

    set l [string length $string]
    while {[string length $string] < $extend} {append string " "}
    if {$l > $extend} {set extend $l}
    return
}

/*  ###*/

namespace ::sak::animate {
    variable  prefix {
    {*   }  {*   }  {*   }  {*   }  {*   }
    { *  }  { *  }  { *  }  { *  }  { *  }
    {  * }  {  * }  {  * }  {  * }  {  * }
    {   *}  {   *}  {   *}  {   *}  {   *}
    {  * }  {  * }  {  * }  {  * }  {  * }
    { *  }  { *  }  { *  }  { *  }  { *  }
    }
    variable clear {    }
}

/** 
 * ###
 */

package provide sak::animate 1.0