33 lines
698 B
Text
Executable file
33 lines
698 B
Text
Executable file
# Auto-ported from "14 duo - conjuring sands (skupers remix - edit).avs" (Winamp AVS / duo)
|
|
# Texer II point program, 4 AVSTrans macros expanded.
|
|
name: "conjuring sands (skupers remix - edit)"
|
|
author: "duo"
|
|
mode: dots
|
|
blend: additive
|
|
persist: 0.78
|
|
linewidth: 3
|
|
ysign: -1
|
|
|
|
[init]
|
|
n=15;
|
|
|
|
[frame]
|
|
pfx=pfx+pbx; pfy=pfy+pby; pfz=pfz+pbz; xs=sin(pfx); xc=cos(pfx); ys=sin(pfy); yc=cos(pfy); zs=sin(pfz); zc=cos(pfz);
|
|
|
|
[beat]
|
|
pbx=rnd(10)/70; pby=rnd(10)/70; pbz=rnd(10)/70;
|
|
|
|
[point]
|
|
c=i*(3.14159265358979)*15;
|
|
x1=cos(c);
|
|
y1=i*2-1;
|
|
z1=sin(c);
|
|
x2=x1*xs-y1*xc;
|
|
y2=y1*xs+x1*xc;
|
|
z2=z1*ys-y2*yc;
|
|
x3=y2*ys+z1*yc;
|
|
y3=x2*zs-z2*zc;
|
|
z3=z2*zs+x2*zc+3.5;
|
|
x=x3/z3;
|
|
y=y3/z3;
|
|
red=v*3; green=v*3; blue=v*3;
|