### anisamp.tcl  -*- Tcl -*-
## Helpers for animating tty interaction.

### Ivan Shmakov, 2020

## To the extent possible under law, the author(s) have dedicated
## all copyright and related and neighboring rights to this software
## to the public domain worldwide.  This software is distributed
## without any warranty.

## You should have received a copy of the CC0 Public Domain Dedication
## along with this software.  If not, see
## <http://creativecommons.org/publicdomain/zero/1.0/>.

### Code:

package require aniputs

proc ani_kbd { varn s { pre 750 } { min 30 } { max 150 } } {
    upvar $varn ev
    if { $pre > 0 } { aniputs_wait ev $pre }
    ## .
    aniputs_uni_chr ev $min $s $max
}

proc ani_samp { varn s { min 256 } { max 384 } } {
    upvar $varn ev
    ## .
    aniputs_uni_str ev $min $s $max
}

package provide anisamp 0.1

### anisamp.tcl ends here