# Auto-ported from "06 skupers - incantation (duo remix - edit).avs" (Winamp AVS / skupers)
# Texer II point program, 4 AVSTrans macros expanded.
name: "incantation (duo remix - edit)"
author: "skupers"
mode: dots
blend: additive
persist: 0.78
linewidth: 3
ysign: -1

[init]
n=h;pi=acos(-1);xasp=min(h/w,1);yasp=min(w/h,1);

[frame]
xm1=xm1+xm1r;ym1=ym1+ym1r;xm=sin(xm1)*0.4;ym=sin(ym1)*0.4;redf=redf+redr;greenf=greenf+greenr;bluef=bluef+bluer;rx=rx+rxo;ry=ry+ryo;rz=rz+rzo;rzo=rzo*0.97;cx=cos(sin(rx));sx=sin(sin(rx));cy=cos(sin(ry));sy=sin(sin(ry));cz=cos(rz);sz=sin(rz);

[beat]
xm1r=getosc(0.2,0,0)/5;ym1r=getosc(0.3,0,0)/8;redr=rnd(10)/100-0.05;greenr=rnd(10)/100-0.05;bluer=rnd(10)/100-0.05;rxo=getosc(0.5,0.02,0)/15;ryo=getosc(0.3,0.02,0)/15;rzo=-abs(getosc(0.7,0.02,0)/4)-0.05;

[point]
k=getspec(i*80*n%n/n,1/n,0);
r=i*pi*2;d=getspec(.3,0,1)+.25+k;
x1=cos(r*4)*d;
y1=sin(r)*d*cos(i*99);
z1=cos(r)*d*sin(i*99);

x1d=x1*cz-y1*sz;
y1d=x1*sz+y1*cz;
y2d=y1d*cx-z1*sx;
z2d=y1d*sx+z1*cx;
x3d=x1d*cy-z2d*sy;
z3d=x1d*sy+z2d*cy;
zi=1/(z3d+3);
x=if(above(z3d+3,0.1),x3d*zi,x)*xasp-xm;
y=if(above(z3d+3,0.1),y2d*zi,y)*yasp-ym;

alpha=if(below(z3d+2.4,0),0,1);
red=alpha*(1+k)/(3+sin(redf))*(1-z3d);
blue=alpha*k/(4+sin(bluef))*(1-z3d);
green=alpha*k/(3+sin(greenf))*(1-z3d);