40 lines
1.3 KiB
Text
40 lines
1.3 KiB
Text
# 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);
|