ftp.sunet.sepub/pictures/2014.11.ftp.sunet.se-pictures.tar/ftp.sunet.se/pub/pictures/ACiD-artpacks/programs/unix/editors/gimp-plugins-unstable-0_99_23_tar.gz/gimp-plugins-unstable-0_99_23_tar/gimp-plugins-unstable-0.99.23/gimptcl/frags/1.tcl

Text File | 1998-02-20 | 201b | 11 lines

#!/usr/bin/tclsh

proc scroll-string {str} {
    set l [string length $str]
    set t "$str$str"
    for {set i 0} {$i < $l} {incr i} {
    set sstr [string range $t $i [expr $i + 3]]
    puts $sstr
    }
}