# Auto-ported from "Nic01 - Rototronik.avs" (Winamp AVS / Nic01)
# SuperScope point program, 4 AVSTrans macros expanded.
name: "Rototronik"
author: "Nic01"
mode: lines
blend: additive
persist: 0.88
linewidth: 2
ysign: -1

[init]
pi=acos(-1);n=1000;

[frame]
rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx);ys=sin(ry);zs=sin(rz);xc=cos(rx);yc=cos(ry);zc=cos(rz);t=t+0.1;p=0;p1=0.;

[beat]
rdx=(getosc(0,0,0)*500-250)%250/2500;rdy=(getosc(0.05,0,0)*500-250)%250/2500;rdz=(getosc(0.1,0,0)*500-250)%250/2500;

[point]
p=p+1;
p1=if(equal(p%20,1),p1+1,p1);
s=(1-equal(p%20,1));
s1=1-s1;
x1=sin(i*pi*4)*s*s1;
y1=cos(i*pi*4)*s*s1;
x1=x1+getosc((p1%25)*0.04,0,0)*x1;
y1=y1+getosc((p1%25)*0.04,0,0)*y1;
z1=-below(p,500)*0.5+0.25;
c=(2-x1*x1-y1*y1);
;
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;
x2=z2*ys+x1*yc;z1=z2*yc-x1*ys;
x1=x2*zc-y2*zs;y1=y2*zc+x2*zs;
x=x1/(2+z1);y=y1/(2+z1);
red=c;
green=1-c;
c=equal(p,500)*10;
red=red-c;green=green-c;