Nullsoft AVS Preset 0.2Orbital - By David Cox after spending hours trying to figure out what Elvis 3D did to achieve the 3D look, i gave up and looked in my maths books for 3D transformations. This is the result: lesson 1: makeing things look 3d x1,y1,z1 = sperical coridinates. In terms: fi (phi), th (theata) and r (radius) transforms: x2,y2,z2 = rotate about y axis by C radians x3,y3,z3 = rotate about z axis by C2 radians x,y = put a circle at that position (z3 = distance = relative size)$51lightening squigles (red then blue then yellow)$nd=i*3-1.5; r=if(p,t+(v/4),t); p = bnot(p); x=cos(r)*d; y=sin(r)*d; green= 0 ;blue= 0 ;red = 0.2*abs(d);Wt=if(above(t,2*pi),0,t-0.005); l = if(band(b,equal(l,0)),1.5,if(above(l,0),l-0.01,0));n=75; pi =3.14159; t=0;$8d=i*3-1.5; r=if(p,t+(v/3),t); p = bnot(p); x=cos(r)*d; y=sin(r)*d; green=if(band(band(above(i,l),below(i,l+.05)),below(i,.5) ),-d,0) ; blue=green ; red = 0; Wt=if(above(t,2*pi),0,t-0.005); l = if(band(b,equal(l,0)),0.5,if(above(l,0),l-0.01,0));n=75; pi =3.14159; t =0;$;d=i*3-1.5; r=if(p,t+(v/3),t); p = bnot(p); x=cos(r)*d; y=sin(r)*d; green=if(band(band(above(i,l),below(i,l+.05)),below(i,.5) ),-d,0) ; blue= 0 ; red = green; Wt=if(above(t,2*pi),0,t-0.005); l = if(band(b,equal(l,0)),0.5,if(above(l,0),l-0.01,0));n=75; pi =3.14159; t=pi;' r=r+.005;< A3S P I R A I L 3$Tr3$ red circle$]v2 = if(p,abs(v*8),0); p = bnot(p); d=1/7.5+v2/5; r=t+i*3.14159*4; x=cos(r)*d; y=sin(r)*dt=if(above(t,2*pi),0,t+.01);n=50; pi = 3.14159;band 1 (inner most orbits)$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .25; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .25; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2; band 3$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .75; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .75; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .75; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .75; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .75; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .75; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .75; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Rn=10; pt = 0;r = .75; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Qn=10; pt = 0;r = .5; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;[Wband 2 (yes i know that they are in the wrong order, i couldn't be bothered fixing is)$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Qn=10; pt = 0;r = .5; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Qn=10; pt = 0;r = .5; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Qn=10; pt = 0;r = .5; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Qn=10; pt = 0;r = .5; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Qn=10; pt = 0;r = .5; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Qn=10; pt = 0;r = .5; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;$fi = t; th = 0; x1 = r*sin(fi+pi/2)*cos(th); y1 = r*cos(fi+pi/2); z1 = r*sin(fi+pi/2)*sin(th); x2 = x1*cos(c)-z1*sin(c); y2 = y1; z2= x1*sin(c)+z1*cos(c); x3 = x2*cos(c2)-y2*sin(c2); y3 = x2*sin(c2)+y2*cos(c2); z3=z2; x = x3 + cos(2*pi*i)*rin/(1+z3); rin = 1/100; y = y3 + sin(2*pi*i)*rin/(1+z3); green = if( band(above(z3,0),below(x*x+y*y,1/50)) ,0,1); red = green; blue =green;Ct=if(above(t,2*pi),0,t+.05+s); c=(49*c+cr)/50; c2 = (49*c2+cr2)/50Cs = rand(10)/1000; cr = c+(rand(6)-3)/15; cr2 = c2+(rand(6)-3)/15;Qn=10; pt = 0;r = .5; pi =3.14159; t=0; c = rand(5); c2=rand(5); cr = c; cr2=c2;,& d=d-.01;