Nullsoft AVS Preset 0.2 $   à	  Ë  x = xi / (xc - 1) * 2 - 1;
y = (yi + 0.5) / yc * 2 - 1;
linesize = h / yc + 1;

int2 = cos(int / interval * $PI) / 2 + 0.5;
red = cos(frame / 33 + (
(megabuf(0) * int2 + megabuf(12) * (1 - int2)) * (1 - xf) * (1 - yf) +
(megabuf(1) * int2 + megabuf(13) * (1 - int2)) * xf * (1 - yf) +
(megabuf(2) * int2 + megabuf(14) * (1 - int2)) * (1 - xf) * yf +
(megabuf(3) * int2 + megabuf(15) * (1 - int2)) * xf * yf) * 7 * $PI);
green = cos(frame / 35 + (
(megabuf(4) * int2 + megabuf(16) * (1 - int2)) * (1 - xf) * (1 - yf) +
(megabuf(5) * int2 + megabuf(17) * (1 - int2)) * xf * (1 - yf) +
(megabuf(6) * int2 + megabuf(18) * (1 - int2)) * (1 - xf) * yf +
(megabuf(7) * int2 + megabuf(19) * (1 - int2)) * xf * yf) * 7 * $PI);
blue = cos(frame / 37 + (
(megabuf(8) * int2 + megabuf(20) * (1 - int2)) * (1 - xf) * (1 - yf) +
(megabuf(9) * int2 + megabuf(21) * (1 - int2)) * xf * (1 - yf) +
(megabuf(10) * int2 + megabuf(22) * (1 - int2)) * (1 - xf) * yf +
(megabuf(11) * int2 + megabuf(23) * (1 - int2)) * xf * yf) * 7 * $PI);

val = cos((red + green + blue + frame / 17) * $PI) / 2 + 0.5;
red = val * red;
green = val * green;
blue = val * blue;

if(equal(yi % 2, 0),
exec2(assign(xi, xi + 1), if(equal(xi, xc), exec2(assign(xi, xc - 1), assign(yi, yi + 1)), exec2(assign(xv, xi), assign(yv, yi)))),
exec2(assign(xi, xi - 1), if(equal(xi, -1), exec2(assign(xi, 0), assign(yi, yi + 1)), exec2(assign(xv, xi + 1), assign(yv, yi)))));

xf = xv / xc;
yf = yv / yc;   xi = 0; xv = 0; xf = 0;
yi = 0; yv = 0; yf = 0;
frame = frame + 1;
int = if(below(int, interval), int + 1, exec3(
assign(c, 0),
loop(12, exec3(
assign(megabuf(c), megabuf(c + 12)),
assign(megabuf(c + 12), rand(1000) / 1000),
assign(c, c + 1))), 0)); ý  /* Uncomment if you want the effect to abruptly change direction on beats. */
/* c = 0;
int2 = cos(int / interval * $PI) / 2 + 0.5;
loop(12, exec2(
assign(megabuf(c), megabuf(c) * int2 + megabuf(c + 12) * (1 - int2)),
assign(c, c + 1)));
loop(12, exec2(
assign(megabuf(c), rand(1000) / 1000),
assign(c, c + 1)));
int = 0; */

/* Uncomment if you want the effect to completely change on beats. */
/* c = 0;
loop(24, exec2(
assign(megabuf(c), rand(1000) / 1000),
assign(c, c + 1)));
int = 0; */ õ   gr = 3; /* Pixel granularity */
interval = 70; /* Number of frames between changes */
xc = w / gr | 0;
yc = h / gr | 0;
n = xc * yc;
frame = 0;
int = 0;
c = 0;
loop(24, exec2(
assign(megabuf(c), rand(1000) / 1000),
assign(c, c + 1)));       ÿÿÿ       a   ]   Head Change #1 by Andy Goth <unununium@aircanopy.net>
http://andy.junkdrome.org/winamp/avs/ 