Nullsoft AVS Preset 0.2 Whacko AVS V - Source II --------------------------------------------- As the name implies, this is a second version of "The Source" in Whacko AVS II. The actual code is totally different, but this is what I originally intented to do with the preset. The fountain is a particle superscope, which looks incredible when combined with a water filter on a surface. I guess this is one of the few presets which actually uses the Water filter for pure Water-effects rather than trippy effects. The fountain can spray in a few different patterns. When it switches it's not as smooth as I'd like it to be, but because the particle-engine is fake, it's not possible to simulate more advanced particles. ------------------------------------------------ UnConeD / Steven Wittens [ steven@acko.net - www.acko.net ] (If you wish to use this preset partially or whole in your own presets or packs, you may do so provided that a clear credit message is included in your preset, along with my contact information.)$$y pc=pc+1;v1=(v1*4211+7151)%10000; v2=(v2*11573+9913)%10000; v3=(v3*96411+16219)%10000; yv=((v1*(1.2-equal(md,1))+bt*200)%10000)*.0001;th=if(equal(md,2),yv*6.28+v3*.000628,v3*.000628+v2*0.0019);hf=sin(v1+v2*121)*1.5+2; th=if(equal(md,3),yv*tpi+sin(t*5+hf)+t*2,th); px=cos(th)*.1*yv*hf; py=-yv*(1-yv)*2; pz=sin(th)*.1*yv*hf; x=px*2;y=pz*2; pz=hu+v3*.0001; cr=sin(pz)*.5+.5;cg=sin(pz+2.09)*.5+.5;cb=sin(pz+4.18)*.5+.5; dt=above(py,-0.1); dt=dt*min(1,abs(getosc(i,0,0)*7)+.25); red=cr*dt;green=cg*dt;blue=cb*dt; @bt=bt+1;t=t+0.02;mp=mp+1/mf;v1=125;v2=135;v3=4214;x=1;y=0;pc=0;ot=min(0,getspec(0,.1,0)*2-1)*((getosc(.3,0,0)*200)%2);t=t+5*(ot+if(ot,1,0));mf=(bt-mt)*.3+mf*.7;mt=bt;hu=hu+getosc(0,0,0)*10;yv=getosc(0.4,0,0)*100%5;hf=md;md=if(yv,md,getosc(0.1,0,0)*50%4);bt=if(band(equal(md,1),hf-md),0,bt);*n=200;tpi=acos(-1)*2;mf=100;mt=0; Splat;$$r=i*tpi+t; x=cos(r)*.8;y=sin(r)*.8; si=getspec(0,0,0)*.5; red=sin(hu)*si+si; green=sin(hu+2.09)*si+si; blue=sin(hu+4.18)*si+si;t=t-0.01;hu=hu+0.03;ti=ti*.9hu=rand(628)*.01;n=50;tpi=acos(-1)*2$r=i*tpi-t; x=cos(r)*.85;y=sin(r)*.85; si=getspec(0,0,0)*.5; red=sin(hu)*si+si; green=sin(hu+2.09)*si+si; blue=sin(hu+4.18)*si+si;t=t-0.01;hu=hu+0.03;ti=ti*.9hu=rand(628)*.01;n=50;tpi=acos(-1)*2 +\pdx=x;dy=y*af;dz=1; dx1=dx*cz-dy*sz; dy1=dx*sz+dy*cz; dy2=dy1*cx-dz*sx; dz2=dy1*sx+dz*cx; dx3=dx1*cy-dz2*sy; dz3=dx1*sy+dz2*cy; k=oy/dy2; k=if(below(k,0),1000,k); ix=-ox+dx3*k;iy=-oy+dy2*k;iz=-oz+dz3*k; ix=ix*2;iz=iz*2; x=ix;y=iz; d=sqrt(ix*ix+iy*iy+iz*iz); r=atan2(ix,iz); alpha=(1.5+bf)-d*(1+bf); alpha=if(above(alpha,1),1,if(below(alpha,0),0,alpha));at=t+0.02; ox=cos(t)*cos(t*.379+1)*cos(sin(t*.141)); oy=.5-sin(t*.91)*cos(-t*.71)*.4; oz=-sin(t)*cos(-t*.41)*sin(cos(t*.631)); ot=.1+.6/sqrt(sqr(ox)+sqr(oy)+sqr(oz)); ox=ox*ot;oy=oy*ot;oz=oz*ot; rz=0; ry=atan2(-ox,oz); rx=-atan2(oy-.2,sqrt(sqr(ox)+sqr(oz))); cx=cos(rx);sx=sin(rx);cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz); af=h/w; bf=bf*.6Uot=min(0,getspec(0,.1,0)*2-1)*((getosc(.3,0,0)*200)%2);t=t+5*(ot+if(ot,1,0)); bf=3;t=0; $($apc=pc+1;v1=(v1*4211+7151)%10000; v2=(v2*11573+9913)%10000; v3=(v3*96411+16219)%10000; yv=((v1*(1.2-equal(md,1))+bt*200)%10000)*.0001;th=if(equal(md,2),yv*6.28+v3*.000628,v3*.000628+v2*0.0019);hf=sin(v1+v2*121)*1.5+2; th=if(equal(md,3),yv*tpi+sin(t*5+hf)+t*2,th); px=cos(th)*.1*yv*hf+ox; py=-yv*(1-yv)*2+oy; pz=sin(th)*.1*yv*hf+oz; x1=px*cy-pz*sy;z1=px*sy+pz*cy; y2=py*cx-z1*sx;z2=py*sx+z1*cx; x3=x1*cz-y2*sz;y3=x1*sz+y2*cz; dt=if(above(z2,.01),1/z2,0); x=if(dt,x3*dt,x);y=if(dt,y3*dt*af,y); dt=dt*0.8+.2; pz=hu+v3*.0001; cr=sin(pz)*.5+.5;cg=sin(pz+2.09)*.5+.5;cb=sin(pz+4.18)*.5+.5; dt=dt*min(1.5,abs(getosc(i,0,0)*7)+.85); red=cr*dt-.5;green=cg*dt-.5;blue=cb*dt-.5; bt=bt+1;t=t+0.02;ox=cos(t)*cos(t*.379+1)*cos(sin(t*.141));oy=.5-sin(t*.91)*cos(-t*.71)*.4;oz=-sin(t)*cos(-t*.41)*sin(cos(t*.631));ot=.1+.6/sqrt(sqr(ox)+sqr(oy)+sqr(oz));ox=ox*ot;oy=oy*ot;oz=oz*ot;rz=0;ry=-atan2(-ox,oz);rx=atan2(oy-.2,sqrt(sqr(ox)+sqr(oz)));cx=cos(rx);sx=sin(rx);cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);x=0;y=0;af=w/h;mp=mp+1/mf;v1=125;v2=135;v3=4214;x=1;y=0;pc=0;ot=min(0,getspec(0,.1,0)*2-1)*((getosc(.3,0,0)*200)%2);t=t+5*(ot+if(ot,1,0));mf=(bt-mt)*.3+mf*.7;mt=bt;hu=hu+getosc(0,0,0)*10;yv=getosc(0.4,0,0)*100%5;hf=md;md=if(yv,md,getosc(0.1,0,0)*50%4);bt=if(band(equal(md,1),hf-md),0,bt);-n=200;tpi=acos(-1)*2;mf=100;mt=0; 3D Drops;d`Multiplier