Nullsoft AVS Preset 0.2    ع   ض    //-/-/-/--------------------------
	black celebration 003
                by el-vis
                selected by skupers
                original comment:

BLACK CELEBBRATION v003 by EL-VIS 2002
(CyBeRpUnX) ‏ےےےُ  €   $€   €                                    (        €$   ˆ  W   x=xp+(r*i)*sin(p2*i*60);y=yp+(r*i)*cos(p2*i*60);
col=1-i*i;red=col;green=col;blue=col 4   fx=fx+bfx;fy=fy+bfy;xp=0.15*sin(fx);yp=0.15*cos(fy) „   bfx=rand(20)/100-0.1;bfy=rand(20)/100-0.1;rd=rand(5)/10+0.5;bl=rand(5)/10+0.5;gr=rand(5)/10+0.5;bfr1=rand(10)/100;bfr2=rand(10)/100 X   ds=rand(30)/1000+0.01;n=1500;r=0.3;p=acos(-1);p2=2.0*p;p3=180/p;yp=0;r1=rand(200)/100*p                        	                      ‏ےےےكy  پ $€   إ                          (       <€$   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=0;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=1;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=2;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=3;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=4;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=5;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=6;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=7;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=8;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ï  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); ‹   ct=0;ges=40;num=9;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=10;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=11;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=12;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=13;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=14;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=15;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=16;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=17;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=18;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=19;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=20;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=21;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=22;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=23;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=24;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=25;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=26;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=27;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=28;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=29;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=30;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=31;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=32;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=33;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=34;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=35;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=36;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=37;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=38;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=39;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے    $   ً  ر   rad=p2*i+p/4;
x1=xp+r*sin(rad);z1=0;y1=yp+r*cos(rad);
y2=y1*xc-z1*xs;z2=y1*xs+z1*xc;x2=z2*ys+x1*yc;z3=z2*yc-x1*ys;x3=x2*zc-y2*zs;y3=y2*zc+x2*zs;
x4=mx+x3;y4=my+y3;z4=mz+z3;
x=x4/(1+z4/dst);y=y4/(1+z4/dst) *  fr=fr+0.01;ct=if(equal(ct,5),0,ct+1);xp=0.75+0.5*sin(fr);rd=if(equal(ct,0),(0.05+getspec(vv,1/ges,0)*0.7-r)/5*sb,rd);yd=if(equal(ct,0),(getosc(vv,1/ges,0)-yp)/5*sb,yd);r=r+rd;yp=yp+yd;rx=rx+rdx;ry=ry+rdy;rz=rz+rdz;xs=sin(rx/p3);ys=sin(ry/p3);zs=sin(rz/p3);xc=cos(rx/p3);yc=cos(ry/p3);zc=cos(rz/p3) H   rdy=1;rdz=0.5;cb=if(equal(cb,3),0,cb+1);sb=if(equal(cb,0),bnot(sb),sb); Œ   ct=0;ges=40;num=40;vv=num/ges;n=5;r=0.05;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ry=num/ges*360;xp=-1       ےےے                      