Nullsoft AVS Preset 0.2 Whacko AVS V - Digital Fish ----------------------------------------------- Fish in AVS! Watch the careless fish swim up and past you in their lovely world of oblivion. Comes with free bubble pump and colorful spotlight installed! Turn your monitor into a groovy aquarium with the click of a button! Seriously, nothing too complicated in here, but I love the end result. The fish move around autonomously and swim around freely rather than to a fixed curve, which is neat and makes them more natural. The rotation angle is synchronized with their movement too rather than tied to a fixed pattern. Just don't forget to feed em regularly :). ------------------------------------------------ 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.),XC$($Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;$Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;$Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;$Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;$Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;$Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;$Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;$Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;$Lhp=-hp; px=(i*2-1)*1.2; py=abs(sin(i*4));py=pow(py,.7)*hp*.5; pz=i*sin(i*4+t*10)*.3; x1=px*cz-py*sz;py=px*sz+py*cz;px=x1; x1=px*cy-pz*sy;z1=px*sy+pz*cy; px=x1+ox;py=py+oy;pz=z1+oz+dp; bc=below(pz,0.1); iz=if(bc,1,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06)*(1-i*.5); red=cr*iz;green=cg*iz;blue=cb*iz;t=t+0.02;af=w/h;hp=1;cr=sin(hu)*.5+.6;cg=sin(hu+2.09)*.5+.6;cb=sin(hu+4.18)*.5+.6;dx=tx-ox;dy=ty-oy;dz=tz-oz;x1=atan2(-dz,-dx);ry=ry+sign(-sin(ry-x1))*.1*above(abs(sin((ry-x1)*.5)),.1);rz=(-atan2(sqrt(sqr(dx)+sqr(dz)),-dy)+1.57)*.07+rz*.9;dx=(-cos(ry)*.05)*.5+dx*.5;dz=(-sin(ry)*.05)*.5+dz*.5;dl=1/sqrt(sqr(dx)+sqr(dy)+sqr(dz));dl=if(below(1/dl,.05),0,dl*(sp*.15+.03));dx=dx*dl;dy=dy*dl;dz=dz*dl;ox=ox+dx;oy=oy+dy;oz=oz+dz;cy=cos(ry);sy=sin(ry);cz=cos(rz);sz=sin(rz);sp=sp*.95;pc=above(t-bt,5+rand(30)*.1);bt=if(pc,t,bt);tz=if(pc,2+6*rand(100)*.01*(rand(2)*2-1),tz);tx=if(pc,1.5*rand(100)*.01*(rand(2)*2-1)*(tz+6),tx);dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);n=min(300,300/(oz+dp)*sqr(max(w,h)/320));sd=sd*.9bt=t;hu=rand(100)/50+hu;tx=7*rand(100)*.01*(rand(2)*2-1);ty=4*rand(100)*.01*sg;tz=3*rand(100)*.01*(rand(2)*2-1);ty=ty+sg*.5;sp=1;sd=1;n=50;ox=rand(100)*.01*(rand(2)*2-1);oy=rand(100)*.01*(rand(2)*2-1);oz=rand(100)*.01*(rand(2)*2-1);tx=1.5*rand(100)*.01*(rand(2)*2-1);ty=rand(100)*.01*(rand(2)*2-1);tz=2+6*rand(100)*.01*(rand(2)*2-1);tx=tx*(tz+6);ty=ty*(tz+6);hu=rand(628)*.01;dp=rand(200)*.1;sg=rand(2)*2-1;sd=0;($ -r=i*6.28;x=cos(r)*sz+xc;y=(sin(r)*sz+yc)*af;acb=equal(ac,1);vx=vx*.9;xc=xc+vx*.1+(rand(100)/50-1)*.01;vy=vy*1.02;yc=yc-vy*.1;ac=if(below(yc+sz,-1),0,1);n=if(acb,48,1);af=w/h;red=brg;green=brg;blue=brg;acb=equal(ac,1);sz=if(acb,sz,(rand(20)+10)*.002);xc=if(acb,xc,(rand(100)/50-1)*(1-sz));yc=if(acb,yc,1);vy=if(acb,vy,(rand(30)+10)/100);vx=getosc(rand(100)*.01,0,0)*vy;ac=if(acb,ac,1);brg=if(acb,brg,rand(50)*.01)Jn=48;bd=0.1;tpi=acos(-1)*2;msf=2;sz=0;xc=0;yc=1;xc=0;yc=1;vx=0;vy=.1;ac=1$ -r=i*6.28;x=cos(r)*sz+xc;y=(sin(r)*sz+yc)*af;acb=equal(ac,1);vx=vx*.9;xc=xc+vx*.1+(rand(100)/50-1)*.01;vy=vy*1.02;yc=yc-vy*.1;ac=if(below(yc+sz,-1),0,1);n=if(acb,48,1);af=w/h;red=brg;green=brg;blue=brg;acb=equal(ac,1);sz=if(acb,sz,(rand(20)+10)*.002);xc=if(acb,xc,(rand(100)/50-1)*(1-sz));yc=if(acb,yc,1);vy=if(acb,vy,(rand(30)+10)/100);vx=getosc(rand(100)*.01,0,0)*vy;ac=if(acb,ac,1);brg=if(acb,brg,rand(50)*.01)Jn=48;bd=0.1;tpi=acos(-1)*2;msf=2;sz=0;xc=0;yc=1;xc=0;yc=1;vx=0;vy=.1;ac=1$ -r=i*6.28;x=cos(r)*sz+xc;y=(sin(r)*sz+yc)*af;acb=equal(ac,1);vx=vx*.9;xc=xc+vx*.1+(rand(100)/50-1)*.01;vy=vy*1.02;yc=yc-vy*.1;ac=if(below(yc+sz,-1),0,1);n=if(acb,48,1);af=w/h;red=brg;green=brg;blue=brg;acb=equal(ac,1);sz=if(acb,sz,(rand(20)+10)*.002);xc=if(acb,xc,(rand(100)/50-1)*(1-sz));yc=if(acb,yc,1);vy=if(acb,vy,(rand(30)+10)/100);vx=getosc(rand(100)*.01,0,0)*vy;ac=if(acb,ac,1);brg=if(acb,brg,rand(50)*.01)Jn=48;bd=0.1;tpi=acos(-1)*2;msf=2;sz=0;xc=0;yc=1;xc=0;yc=1;vx=0;vy=.1;ac=1$ -r=i*6.28;x=cos(r)*sz+xc;y=(sin(r)*sz+yc)*af;acb=equal(ac,1);vx=vx*.9;xc=xc+vx*.1+(rand(100)/50-1)*.01;vy=vy*1.02;yc=yc-vy*.1;ac=if(below(yc+sz,-1),0,1);n=if(acb,48,1);af=w/h;red=brg;green=brg;blue=brg;acb=equal(ac,1);sz=if(acb,sz,(rand(20)+10)*.002);xc=if(acb,xc,(rand(100)/50-1)*(1-sz));yc=if(acb,yc,1);vy=if(acb,vy,(rand(30)+10)/100);vx=getosc(rand(100)*.01,0,0)*vy;ac=if(acb,ac,1);brg=if(acb,brg,rand(50)*.01)Jn=48;bd=0.1;tpi=acos(-1)*2;msf=2;sz=0;xc=0;yc=1;xc=0;yc=1;vx=0;vy=.1;ac=1$ -r=i*6.28;x=cos(r)*sz+xc;y=(sin(r)*sz+yc)*af;acb=equal(ac,1);vx=vx*.9;xc=xc+vx*.1+(rand(100)/50-1)*.01;vy=vy*1.02;yc=yc-vy*.1;ac=if(below(yc+sz,-1),0,1);n=if(acb,48,1);af=w/h;red=brg;green=brg;blue=brg;acb=equal(ac,1);sz=if(acb,sz,(rand(20)+10)*.002);xc=if(acb,xc,(rand(100)/50-1)*(1-sz));yc=if(acb,yc,1);vy=if(acb,vy,(rand(30)+10)/100);vx=getosc(rand(100)*.01,0,0)*vy;ac=if(acb,ac,1);brg=if(acb,brg,rand(50)*.01)Jn=48;bd=0.1;tpi=acos(-1)*2;msf=2;sz=0;xc=0;yc=1;xc=0;yc=1;vx=0;vy=.1;ac=1$ -r=i*6.28;x=cos(r)*sz+xc;y=(sin(r)*sz+yc)*af;acb=equal(ac,1);vx=vx*.9;xc=xc+vx*.1+(rand(100)/50-1)*.01;vy=vy*1.02;yc=yc-vy*.1;ac=if(below(yc+sz,-1),0,1);n=if(acb,48,1);af=w/h;red=brg;green=brg;blue=brg;acb=equal(ac,1);sz=if(acb,sz,(rand(20)+10)*.002);xc=if(acb,xc,(rand(100)/50-1)*(1-sz));yc=if(acb,yc,1);vy=if(acb,vy,(rand(30)+10)/100);vx=getosc(rand(100)*.01,0,0)*vy;ac=if(acb,ac,1);brg=if(acb,brg,rand(50)*.01)Jn=48;bd=0.1;tpi=acos(-1)*2;msf=2;sz=0;xc=0;yc=1;xc=0;yc=1;vx=0;vy=.1;ac=1$($pc=(pc+1)%10; px=cos(i*tpi);py=sin(i*tpi);pz=-i*9+1; pz=pz+dp; bc=below(pz,0.1); iz=if(bc,0,1/pz); x=if(bc,x,px*iz);y=if(bc,y,py*iz*af); iz=max(0,1-pz*.06); red=cr*iz;green=cg*iz;blue=cb*iz; t=t+0.02;af=w/h;cr=sin(hu)*.5+.5;cg=sin(hu+2.09)*.5+.5;cb=sin(hu+4.18)*.5+.5;dp=if(below(dp,-4),dp+20,dp-0.05-sd*.3);sd=sd*.9;pc=0;hu=rand(100)/50+hu;sd=1;An=50;hu=rand(628)*.01;dp=rand(200)*.1;tpi=acos(-1)*2;lx=-1;ly=-1J$($Wx=0; y=i*2-1; br=pow(i*.5,pw)+getosc(i,0,0)*.1; red=cr*br;green=cg*br;blue=cb*br; Xn=h+2;ip=1;pw=pw*.9+.2;cr=sin(hue)*.5+.5;cg=sin(hue+2.09)*.5+.5;cb=sin(hue+4.18)*.5+.5;pw=.5;hue=rand(628)*.01!x=0