Nullsoft AVS Preset 0.262BLUE SPECTRUM - history version by el-vis 2002.Q (<€$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=0;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=0;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=0;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=0;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=0;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=0;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=0;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=1;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=1;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=1;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=1;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=1;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=1;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=1;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=2;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=2;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=2;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=2;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=2;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=2;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=2;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=3;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=3;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=3;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=3;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=3;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=3;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=3;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=4;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=4;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=4;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=4;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=4;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=4;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=4;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=5;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=5;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=5;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=5;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=5;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=5;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=5;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=6;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=6;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=6;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=6;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=6;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=6;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;$tY;ht=if(equal(cr,4),ht-1/st,ht);cr=if(equal(cr,4),0,cr+1); rad=cr*p/2+p/4; x1=xp+(r-r*i)*sin(rad);y1=0.5+ht;z1=zp+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); col=(0.7-z3/2);red=col*(0.75-y1);green=col*(0.75-y1);blue=col fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);cr=0;ht=0;ct=if(equal(ct,5),0,ct+1);vd=if(equal(ct,0),(getspec(vv,1/42,0)-hd)/5,vd);hd=hd+vd;n=hd*st*4+9;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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05­line=6;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;st=40;ct=0;vv=(row+6*line)/42;n=0;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;--bottom lines$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$  rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05‘line=-1;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=0;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=1;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=2;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=3;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=4;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=5;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$ž rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=6;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=0;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=1;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=2;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=3;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=4;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=5;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ÿ rad=i*p*2+p/4; x1=xp+r*sin(rad);y1=0.5;z1=zp+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); col=(0.7-z3/2);red=col*0.25;green=col*0.25;blue=col¢fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Brdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=6;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ --top lines$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=7;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ìrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05‘line=-1;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=0;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=2;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=3;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=4;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=5;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=6;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=-1;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=0;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=1;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=2;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=3;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=4;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=5;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Êrad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=6;row=7;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=0;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=1;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=2;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=3;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=4;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=5;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ$Ërad=i*p*2+p/4; x1=xp+r*sin(rad);y1=-0.25;z1=zp+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); col=(0.7-z3/2)*(1+bt);red=col*0.25;green=col*0.25;blue=col¾bt=if(above(bt,0),bt-0.1,0);fz=fz+bfz;rz=30*sin(fz);fx=fx+bfx;rx=30*sin(fx);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)Ibt=1.5;rdy=1;bfz=abs(getosc(0.5,0,0))*0.05;bfx=abs(getosc(0.8,0,0))*0.05line=6;row=-1;xp=-0.7+row/6*1.4;zp=0.7-line/6*1.4;n=5;r=0.1;mx=0;my=0;mz=0;dst=2;rx=0;rz=0;ry=0;rdx=0;rdy=0;rdz=0;p=acos(-1);p2=2.0*p;p3=180/p;ÿÿÿ