z=30;
swap(y,z);
 
 
a=abs((atan2(x,z)-PI));
///a=int(a/(PI*2)*2)*2*PI;
rot(x,z,a);
 
rot(x,y,t/10);
 
dh=abs(z);
dhh=10/dh;
sh=(dh)/20;
 
u=x*dhh*40+a*PI*122;
v=y*dhh*40;
 
 
 
 
 
x=u/22;
y=v/22-t*2;
 
*/
sh=1;
mm=3.0*2;
//rot(x,y,t*0.1,1+0*1*(0.8+sin(t*2)*0.5));
xx=x/2/mm;
yy=y/2/mm+2.1;
rot(xx,yy,t*0.1,1);    
//rot(x,y,t*0.5);
 
 
   hh=sin(-2*yy)*sin(yy-xx*sqrt(3))*sin(yy+xx*sqrt(3));
   h=sgn(hh);
rot(x,y,t*0.1*h,1);    
 
 
 
 
 
 
 
xx=x/2/mm;
yy=y/2/mm+2.1;
//rot(x,y,t*0.5);
 
 
   hh=sin(-2*yy)*sin(yy-xx*sqrt(3))*sin(yy+xx*sqrt(3));
   h=sgn(hh);
 
 
 
 
 
x=x;
y=(y)*h;
md=PI*10;
 
m=2;
r0=(-2*y)*m;
r1=(y-x*sqrt(3))*m;
r2=(y+x*sqrt(3))*m;
d=max(max(r0%md*sgn(r0),r1%md*sgn(r1)),r2%md*sgn(r2));
 
 
//g=sin(d)*128;    
   dd=int(d/PI)*(PI/0.7);  
 
   
   a=(dd+t*sgn(sin(d*0.5))+atan2(x,-y)+PI)/(2*PI)*5;
   
   
   a=int(a%3);    
   c=a*pow((abs(sin(d))),0.2)*130*sh;    
   c=c*sgn(h)*sgn(sin(d/3));//*sgn(sin(numframes*t));
 
if(c>0)
{
   r=c*0.3;
   h=0;  
   x=c*0.8;  
   
}    
else
{
 
   r=-c*0.6;
   h=-c*1;    
   z=-c*0.1;
 
}
 
 
   //r=h*155;
   //r=(sin(y%(-2*y)))*545;
   //
}
 
swap(&x,&y){
   c=x;
   x=y;
   y=c;
}
 
rot(&x,&y,a,z)
{
 xx=x*cos(a)+y*sin(a);
 yy=x*sin(a)-y*cos(a);
 
 x=xx*z;
 y=yy*z;
 

(^|>|[\\p{Punct}\\p{Space}]+)\\*\\*(.*?)\\*\\*([\\p{Punct}\\p{Space}]+|<|$)