39 lines
932 B
Text
39 lines
932 B
Text
# 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;
|