39 lines
1.1 KiB
Text
39 lines
1.1 KiB
Text
# Auto-ported from "S_KuPeRS - Texering 002.avs" (Winamp AVS / S_KuPeRS)
|
|
# SuperScope point program, 4 AVSTrans macros expanded.
|
|
name: "Texering 002"
|
|
author: "S_KuPeRS"
|
|
mode: dots
|
|
blend: additive
|
|
persist: 0.78
|
|
linewidth: 3
|
|
ysign: -1
|
|
|
|
[init]
|
|
n=100;pi=acos(-1);rx=1.57;ry=1.57;rx=0;ry=0;rz=0;rxo=0;ryo=0;rzo=0;rxt=0;ryt=0;rzt=0;
|
|
|
|
[frame]
|
|
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]
|
|
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)/12;ryo=getosc(0.3,0.02,0)/12;rzo=getosc(0.7,0.02,0)/8;
|
|
|
|
[point]
|
|
r=i*pi*2;r2=i*pi*99;
|
|
x1=sin(r-bluef*1.53+.0776)*cos(r2+greenf);
|
|
y1=cos(r+bluef);
|
|
z1=sin(r2+redf);
|
|
|
|
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);
|
|
y=if(above(z3d+3,0.1),y2d*zi,y);
|
|
|
|
alpha=if(below(z3d+2.4,0),0,1);
|
|
red=alpha*(1+sin(redf)/4-z3d/4)/7;
|
|
blue=alpha*(1+sin(bluef)/4-z3d)/20;
|
|
green=alpha*(1+sin(greenf)/3-z3d/2)/12;
|