# 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;