Flow, a simple fabric like animation I made for the heck of it. :P
Updates:
Small fix
Changed the background color.
Fixed the shading.
The movement is... different?
;Flow 1.03
;Made by BlueThen on July 5, 2008.
;To install, paste this snippet into your remotes (alt + r)
;and type /flow or right click the channel or status and click Flow to start.
alias flow { window -paoCzdk0 +tnbL @Flow -1 -1 400 400 | window -paohCzdk0 +tnbL @flow.buf -1 -1 800 800 | flow.init }
alias -l flow.init {
set %flo.a 1 | set %flo.time 0 | set %flo.fps 0 | set %flo.c n
set %flo.fcounter 0 | set %flo.fticks $ticks | .timerflo -h 0 100 inc %flo.time | flow.frame
}
alias -l flow.frame {
if (%flo.c != y) {
inc %flo.fcounter | set %flo.ltime $calc($ticks - %flo.oticks)
if ($calc($ticks - %flo.fticks) > 999) { set %flo.fps %flo.fcounter | set %flo.fcounter 0 | set %flo.fticks $ticks }
clear @flow.buf | drawfill @flow.buf 1 1 1 1 | %flo.y = 0
while (%flo.y < 10) {
set %flo.x 0
while (%flo.x < 20) {
%flo.i = $calc(((%flo.y * 20) + 500) + (10 * $sin($calc(%flo.a + (%flo.x * 10) + (%flo.y * 20))).deg))
%flo.t = $calc(((%flo.x * 30) + 100) + (10 * $cos($calc(%flo.a + (%flo.x * 10) + (%flo.y * 20))).deg))
%flo.s = $calc(255 - ($iif(- isin $calc(%flo.i - ((%flo.y * 20) + 500)), $calc(10- $abs($v2)), $calc($v2 + 10)) *10))
drawdot -r @flow.buf $rgb(0,0,%flo.s) $calc(20 + (3 * %flo.y)) %flo.t %flo.i
inc %flo.x
}
inc %flo.y
}
inc %flo.a $calc(20/10 * %flo.ltime) | drawtext @flow.buf 0 Tahoma 20 15 20 FPS: %flo.fps
drawtext @flow.buf 12 Tahoma 30 520 20 Made by BlueThen
drawtext @flow.buf 12 Tahoma 30 520 60 BlueThen.com
drawcopy -m @flow.buf 0 0 800 800 @flow 0 0 400 400
set %flo.oticks $ticks | .timer -o 1 0 flow.frame
}
else unset %flo.c
}
on *:close:@flow: { window -c @flow.buf | .timerflo off | unset %flo.* | set %flo.c y }
menu channel,status {
Flow: flow
}