//EL SIGUIENTE CÓDIGO ES SOLO BASE DEL CÓDIGO COMPLETO SI DESEAN EL AVS ENTERO PUEDEN ESCRIBIRME A BIT502
// JULIO CHINCHILLA

assign(gmegabuf(0),h/w);
assign(gmegabuf(6),sqrt(h)*2+5);
assign(gmegabuf(8),(h/280)*0.3);
assign(gmegabuf(7),2.5);

//Corrección de aspecto de radio
assign(gmegabuf(0),h/w);

now=gettime(0);
assign(gmegabuf(8),(h/280)*0.3);
assign(gmegabuf(2),1/(now-last));
last=now ;

//Rotaciones de ejes x, y, z
rx=if (above(rx,$PI*2) , 0 , rx +.002);
bump=if(equal(sign(al),-1),1,0);
bpc=if (bump,2,alc);
reg99=bpc;
bpy=if (bump,ar1,0);
bpz=if (bump,-ar2,0);
ex=rx;
ey=bpy;
ez=bpz;
assign(gmegabuf(10),ex);
assign(gmegabuf(11),ey);
assign(gmegabuf(12),ez);


// Rango de cámara
assign(gmegabuf(7),
2/bpc+1.5+abs(sin(zt))*2.5);

//Nùmero de partìculas
assign(gmegabuf(6),sqrt(h)*(2+(1/gmegabuf(7))*8));

//Tamaño de partìculas
assign(gmegabuf(8),(h/280)*(0.25+(1/gmegabuf(7))*.5));

xt=xt+xts ; yt=yt+yts ;
assign(gmegabuf(29),sin(xt));
assign(gmegabuf(30),sin(yt));
xs=sin(xt) ; ys=sin(yt);

//distancia en x
dx=-.2;
assign(gmegabuf(33),dx);

//distancia en y
dy=-0.15-getspec(0,0,0)/15;
assign(gmegabuf(66),dy);


//despliegue de las rotaciones en grados
rad=180/$PI;
reg20=floor(bpc);
reg10=ex*rad;
reg11=ey*rad;
reg12=-ez*rad;

al=getosc(0,0,0);

ar1=rand($PI*2)%$PI/2;
ar2=rand($PI*2)%$PI/3;

alc=rand(3)+1

bpy=cos(b+v)
===============================

n=gmegabuf(6)*.5;

ex=gmegabuf(10);
ey=gmegabuf(11);
ez=gmegabuf(12);
sx=sin(ey) ; cx=cos(ey) ;
sy=sin(ex) ; cy=cos(ex) ;
sz=sin(ez) ; cz=cos(ez) ;

asp=gmegabuf(0);

psize=gmegabuf(8)*1.35;

cmr=gmegabuf(7) ;

xs=gmegabuf(29);
ys=gmegabuf(30) ;


dx=gmegabuf(33);
dy=gmegabuf(66);
 scope code ;
x1=-1.9+dx;
y1=i/2+dy;
z1=0;

 3D rotation ;

x2=x1*cy-z1*sy ; z2=x1*sy+z1*cy ;
y2=y1*cx-z2*sx ; z2=y1*sx+z2*cx ;
x3=x2*cz-y2*sz ; y3=x2*sz+y2*cz ;

 Extras ;

z3=if(below(z2+cmr,0.05),0,1/(z2+cmr)) ;
size=psize*(2/(z2+cmr)) ;
sizex=size ;
sizey=size ;

 3D to 2D ;

x=x3*z3*asp ;
y=y3*z3 ;
skip=bnot(z3) ;

 color code ;

fade=-z2*0.25+0.75 ;
red=fade ;
green=fade ;
blue=fade