Not much to say about this. Just a fun little picwin script that draws a couple of bouncing scrollers. Text, number of scrolls and window size are changable in the script, if you want.
If it runs really slow, try ajusting the amount of scrollers down. If it goes too fast, do the opposite ;_)
alias sinescroll {
window -dak0pf @sine 1 1 640 480
var %num 10
var %text This is just a little script by Knoeki, written on the 14th of january, 2010... If you want, you can edit this text, and the amount of scrollers by changing the text and num variables at the start of the script.. also the width and height of the window are ajustable... have fun! :_)
var %width = $window(@sine).w
var %height = $window(@sine).h
var %scroll = %width
var %total = $calc($width(%text, fixedsys, 12) + %width)
var %x = 1
while (%x <= %num) {
var %sin.count. [ $+ [ %x ] ] $rand(100, 1000)
var %sin.colour. [ $+ [ %x ] ] $rgb($rand(0, 255), $rand(0, 255), $rand(0, 255))
inc %x
}
var %count = 1, %count2 = 1
while (%count <= %total) {
drawrect -nf @sine 1 1 0 0 %width %height
var %x = 1
while (%x <= %num) {
drawtext -nr @sine %sin.colour. [ $+ [ %x ] ] "fixedsys" 12 %scroll $calc(($sin(%sin.count. [ $+ [ %x ] ]).deg * (%height / 3)) + (%height / 2)) %text
inc %sin.count. [ $+ [ %x ] ]
inc %x
}
drawdot @sine
dec %scroll 2
inc %count
}
}
