ofs | hex dump | ascii |
---|
0000 | 4e 75 6c 6c 73 6f 66 74 20 41 56 53 20 50 72 65 73 65 74 20 30 2e 32 1a 01 15 00 00 00 75 01 00 | Nullsoft.AVS.Preset.0.2......u.. |
0020 | 00 71 01 00 00 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | .q...___________________________ |
0040 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 20 | ___________________________..... |
0060 | 20 57 68 61 63 6b 6f 20 52 65 76 69 73 69 74 65 64 0d 0a 20 20 4d 69 73 74 65 72 20 53 61 6e 74 | .Whacko.Revisited....Mister.Sant |
0080 | 61 0d 0a 20 20 52 65 6d 69 78 20 62 79 3a 20 53 74 65 76 65 6e 20 57 69 74 74 65 6e 73 20 2f 20 | a....Remix.by:.Steven.Wittens./. |
00a0 | 55 6e 43 6f 6e 65 44 0d 0a 0d 0a 20 20 4f 72 69 67 69 6e 61 6c 3a 20 4d 69 73 74 65 72 20 48 61 | UnConeD......Original:.Mister.Ha |
00c0 | 70 70 79 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | ppy..___________________________ |
00e0 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a af af af | ___________________________..... |
0100 | af af af af af af af af af af af af af af af af af af af af af af af af af af af af af af af af | ................................ |
0120 | af af af af af af af af af af af af af af af af af af af 0d 0a 20 20 77 77 77 2e 61 63 6b 6f 2e | .......................www.acko. |
0140 | 6e 65 74 20 2d 20 73 74 65 76 65 6e 20 40 20 61 63 6b 6f 20 64 6f 74 20 6e 65 74 0d 0a 5f 5f 5f | net.-.steven.@.acko.dot.net..___ |
0160 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | ________________________________ |
0180 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 00 19 00 00 00 14 00 00 00 01 00 | ___________________............. |
01a0 | 00 00 4f 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff d1 00 00 00 82 02 00 01 24 80 | ..O...........................$. |
01c0 | 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
01e0 | 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 | @..AVS.2.8+.Effect.List.Config.. |
0200 | 00 00 00 50 00 00 00 01 00 00 00 11 00 00 00 65 3d 31 3b 6c 77 3d 2d 31 3b 6c 68 3d 2d 31 3b 00 | ...P...........e=1;lw=-1;lh=-1;. |
0220 | 33 00 00 00 65 6e 61 62 6c 65 64 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6c 77 2c 77 29 2a 65 71 75 | 3...enabled=bnot(equal(lw,w)*equ |
0240 | 61 6c 28 6c 68 2c 68 29 29 3b 0d 0a 6c 77 3d 77 3b 6c 68 3d 68 3b 00 19 00 00 00 14 00 00 00 01 | al(lh,h));..lw=w;lh=h;.......... |
0260 | 00 00 00 ff fc f9 00 00 00 00 00 00 00 00 00 00 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 00 | ................................ |
0280 | 00 00 00 00 00 00 00 80 00 00 00 2b 00 00 00 9f 03 00 00 01 06 01 00 00 64 79 3d 79 2a 61 66 3b | ...........+............dy=y*af; |
02a0 | 0d 0a 64 78 31 3d 78 2a 63 7a 2d 64 79 2a 73 7a 3b 64 79 31 3d 78 2a 73 7a 2b 64 79 2a 63 7a 3b | ..dx1=x*cz-dy*sz;dy1=x*sz+dy*cz; |
02c0 | 0d 0a 64 79 32 3d 64 79 31 2a 63 78 2d 73 78 3b 64 7a 32 3d 64 79 31 2a 73 78 2b 63 78 3b 0d 0a | ..dy2=dy1*cx-sx;dz2=dy1*sx+cx;.. |
02e0 | 64 78 33 3d 64 78 31 2a 63 79 2d 64 7a 32 2a 73 79 3b 64 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 | dx3=dx1*cy-dz2*sy;dz3=dx1*sy+dz2 |
0300 | 2a 63 79 3b 0d 0a 6b 3d 6f 79 2f 64 79 32 3b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 2c 30 29 2c 31 | *cy;..k=oy/dy2;k=if(below(k,0),1 |
0320 | 30 30 30 2c 6b 29 3b 0d 0a 69 78 3d 2d 6f 78 2b 64 78 33 2a 6b 3b 69 79 3d 2d 6f 79 2b 64 79 32 | 000,k);..ix=-ox+dx3*k;iy=-oy+dy2 |
0340 | 2a 6b 3b 69 7a 3d 2d 6f 7a 2b 64 7a 33 2a 6b 3b 0d 0a 78 3d 69 78 2a 31 2e 34 3b 79 3d 69 7a 2a | *k;iz=-oz+dz3*k;..x=ix*1.4;y=iz* |
0360 | 31 2e 34 3b 0d 0a 64 3d 73 71 72 74 28 73 71 72 28 78 29 2b 73 71 72 28 69 79 29 2b 73 71 72 28 | 1.4;..d=sqrt(sqr(x)+sqr(iy)+sqr( |
0380 | 79 29 29 3b 0d 0a 61 6c 70 68 61 3d 65 78 70 28 2d 64 2a 2e 34 2b 2e 31 37 29 3b 0d 0a 00 06 02 | y));..alpha=exp(-d*.4+.17);..... |
03a0 | 00 00 74 3d 74 2b 30 2e 30 31 3b 0d 0a 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 | ..t=t+0.01;..ox=cos(t)*cos(t*.37 |
03c0 | 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 0d 0a 6f 79 3d 2e 34 35 2d 73 | 9+1)*cos(sin(t*.141));..oy=.45-s |
03e0 | 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 33 35 3b 0d 0a 6f 7a 3d 2d | in(t*.91)*cos(-t*.71)*.35;..oz=- |
0400 | 2e 32 2d 61 62 73 28 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f | .2-abs(sin(t)*cos(-t*.41)*sin(co |
0420 | 73 28 74 2a 2e 36 33 31 29 29 29 3b 0d 0a 6f 74 3d 2e 31 2b 2e 36 2f 73 71 72 74 28 73 71 72 28 | s(t*.631)));..ot=.1+.6/sqrt(sqr( |
0440 | 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 0d 0a 6f 78 3d 6f 78 2a 6f 74 3b | ox)+sqr(oy)+sqr(oz));..ox=ox*ot; |
0460 | 6f 79 3d 6f 79 2a 6f 74 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 0d 0a 72 7a 3d 30 3b 0d 0a 72 79 3d 61 74 | oy=oy*ot;oz=oz*ot;..rz=0;..ry=at |
0480 | 61 6e 32 28 2d 6f 78 2c 6f 7a 29 3b 0d 0a 72 78 3d 2d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 | an2(-ox,oz);..rx=-atan2(oy-.2,sq |
04a0 | 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 | rt(sqr(ox)+sqr(oz)));..cx=cos(rx |
04c0 | 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 | );sx=sin(rx);cy=cos(ry);sy=sin(r |
04e0 | 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 61 66 3d 68 2f | y);cz=cos(rz);sz=sin(rz);..af=h/ |
0500 | 77 3b 0d 0a 62 66 3d 62 66 2a 2e 36 3b 0d 0a 72 65 67 30 30 3d 6f 78 3b 72 65 67 30 31 3d 6f 79 | w;..bf=bf*.6;..reg00=ox;reg01=oy |
0520 | 3b 72 65 67 30 32 3d 6f 7a 3b 72 65 67 30 33 3d 72 78 3b 72 65 67 30 34 3d 72 79 3b 72 65 67 30 | ;reg02=oz;reg03=rx;reg04=ry;reg0 |
0540 | 35 3d 72 7a 3b 72 65 67 30 36 3d 63 78 3b 72 65 67 30 37 3d 2d 73 78 3b 72 65 67 30 38 3d 63 79 | 5=rz;reg06=cx;reg07=-sx;reg08=cy |
0560 | 3b 72 65 67 30 39 3d 2d 73 79 3b 72 65 67 31 30 3d 63 7a 3b 72 65 67 31 31 3d 2d 73 7a 3b 0d 0a | ;reg09=-sy;reg10=cz;reg11=-sz;.. |
0580 | 72 65 67 32 30 3d 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 2d 2e 32 29 2b 73 71 | reg20=sqrt(sqr(ox)+sqr(oy-.2)+sq |
05a0 | 72 28 6f 7a 29 29 3b 00 55 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e | r(oz));.U...ot=min(0,getspec(0,. |
05c0 | 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 | 1,0)*2-1)*((getosc(.3,0,0)*200)% |
05e0 | 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 0d 0a 62 66 3d 33 3b | 2);t=t+5*(ot+if(ot,1,0));..bf=3; |
0600 | 00 0d 00 00 00 74 3d 72 61 6e 64 28 31 30 30 29 3b 00 01 00 00 00 01 00 00 00 10 00 00 00 10 00 | .....t=rand(100);............... |
0620 | 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 28 00 00 00 04 00 00 00 01 00 01 80 50 85 | ..................(...........P. |
0640 | dc 03 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 00 00 00 00 00 00 00 00 00 | ..Acko.net:.Texer.II............ |
0660 | 00 00 4c 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..L............................. |
0680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
0700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
0720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 2d 00 | ..............................-. |
0780 | 00 00 6e 3d 35 30 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 6d 66 3d 31 30 30 3b 6d 74 | ..n=500;tpi=acos(-1)*2;mf=100;mt |
07a0 | 3d 30 3b a4 20 53 6e 6f 77 2f 44 75 73 74 3b d3 00 00 00 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 | =0;..Snow/Dust;....bt=bt+1;t=t+0 |
07c0 | 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 | .02;..ox=reg00;oy=reg01;oz=reg02 |
07e0 | 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 | ;rx=reg03;ry=reg04;rz=reg05;cx=r |
0800 | 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b | eg06;sx=reg07;cy=reg08;sy=reg09; |
0820 | 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 | cz=reg10;sz=reg11;..x=0;y=0;af=w |
0840 | 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 76 31 3d 31 32 35 3b 76 32 3d 31 33 35 3b 76 33 | /h;mp=mp+1.5/mf;v1=125;v2=135;v3 |
0860 | 3d 34 32 31 31 3b 78 3d 31 3b 79 3d 30 3b 0d 0a 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 73 73 3d | =4211;x=1;y=0;....dd=reg20;..ss= |
0880 | 77 2f 33 32 30 3b 67 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c | w/320;g...ot=min(0,getspec(0,.1, |
08a0 | 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 | 0)*2-1)*((getosc(.3,0,0)*200)%2) |
08c0 | 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 | ;t=t+5*(ot+if(ot,1,0));mf=(bt-mt |
08e0 | 29 2a 2e 33 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b bd 01 00 00 76 31 3d 28 76 31 2a 34 32 31 31 | )*.3+mf*.7;mt=bt;....v1=(v1*4211 |
0900 | 2b 37 31 35 31 29 25 31 30 30 30 30 3b 0d 0a 76 32 3d 28 76 32 2a 31 31 35 37 33 2b 39 39 31 33 | +7151)%10000;..v2=(v2*11573+9913 |
0920 | 29 25 31 30 30 30 30 3b 0d 0a 76 33 3d 28 76 33 2a 39 36 34 31 31 2b 31 36 32 31 39 29 25 31 30 | )%10000;..v3=(v3*96411+16219)%10 |
0940 | 30 30 30 3b 0d 0a 79 76 3d 2d 31 30 30 30 30 2b 28 28 76 32 2b 35 2a 62 74 2a 28 76 33 25 31 30 | 000;..yv=-10000+((v2+5*bt*(v3%10 |
0960 | 29 29 25 31 32 30 30 30 29 3b 0d 0a 79 76 3d 6d 69 6e 28 30 2c 79 76 29 3b 0d 0a 70 78 3d 76 31 | ))%12000);..yv=min(0,yv);..px=v1 |
0980 | 2a 2e 30 30 30 31 35 2d 2e 35 2b 6f 78 3b 0d 0a 70 79 3d 79 76 2a 2e 30 30 30 31 2b 6f 79 3b 0d | *.00015-.5+ox;..py=yv*.0001+oy;. |
09a0 | 0a 70 7a 3d 76 33 2a 2e 30 30 30 31 35 2d 2e 35 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 | .pz=v3*.00015-.5+oz;..x1=px*cy-p |
09c0 | 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a | z*sy;z1=px*sy+pz*cy;..y2=py*cx-z |
09e0 | 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 | 1*sx;z2=py*sx+z1*cx;..x3=x1*cz-y |
0a00 | 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 73 6b 69 70 3d 28 62 65 6c 6f | 2*sz;y3=x1*sz+y2*cz;..skip=(belo |
0a20 | 77 28 7a 32 2c 64 64 2a 2e 38 29 29 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 | w(z2,dd*.8));..dt=if(above(z2,.0 |
0a40 | 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d | 5),1/z2,0);..x=if(dt,x3*dt,x);y= |
0a60 | 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 72 65 64 3d 64 74 2d 2e 35 3b 67 72 | if(dt,y3*dt*af,y);..red=dt-.5;gr |
0a80 | 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 64 2a 31 2e 35 3b 0d 0a 73 69 7a 65 78 3d 64 74 2a | een=red;blue=red*1.5;..sizex=dt* |
0aa0 | 2e 31 2a 73 73 3b 73 69 7a 65 79 3d 73 69 7a 65 78 3b 28 00 00 00 04 00 00 00 00 00 01 80 24 00 | .1*ss;sizey=sizex;(...........$. |
0ac0 | 00 00 81 03 00 00 01 b5 01 00 00 75 3d 69 2a 24 70 69 2a 35 32 3b 0d 0a 72 64 3d 6d 69 6e 28 31 | ...........u=i*$pi*52;..rd=min(1 |
0ae0 | 2c 61 62 6f 76 65 28 69 2c 2e 36 29 2a 2e 35 2b 6d 61 78 28 30 2c 73 69 6e 28 69 2a 24 70 69 2a | ,above(i,.6)*.5+max(0,sin(i*$pi* |
0b00 | 31 2e 33 33 29 2a 33 29 29 2a 2e 30 33 3b 0d 0a 71 78 3d 63 6f 73 28 75 29 2a 72 64 2a 2e 37 3b | 1.33)*3))*.03;..qx=cos(u)*rd*.7; |
0b20 | 70 79 3d 73 69 6e 28 75 29 2a 72 64 2a 2e 37 3b 71 7a 3d 69 2a 2e 32 2a 2e 37 3b 0d 0a 70 78 3d | py=sin(u)*rd*.7;qz=i*.2*.7;..px= |
0b40 | 2d 71 78 2a 2e 37 2b 71 7a 2a 2e 37 3b 70 7a 3d 71 78 2a 2e 37 2b 71 7a 2a 2e 37 2d 2e 30 35 35 | -qx*.7+qz*.7;pz=qx*.7+qz*.7-.055 |
0b60 | 3b 0d 0a 70 78 3d 70 78 2b 6f 78 2d 2e 33 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a | ;..px=px+ox-.3;py=py+oy;pz=pz+oz |
0b80 | 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 | ;..x1=px*cy-pz*sy;z1=px*sy+pz*cy |
0ba0 | 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 | ;..y2=py*cx-z1*sx;z2=py*sx+z1*cx |
0bc0 | 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a | ;..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz |
0be0 | 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d | ;..dt=if(above(z2,.01),1/z2,0);. |
0c00 | 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a | .x=if(dt,x3*dt,x);y=if(dt,y3*dt* |
0c20 | 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 64 74 2a 30 | af,y);..linesize=dt*ls;..dt=dt*0 |
0c40 | 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 28 64 74 2d 2e 32 29 2a 2e 32 3b 67 72 65 65 6e 3d 72 65 | .6*ccd;..red=(dt-.2)*.2;green=re |
0c60 | 64 2a 32 2b 61 62 6f 76 65 28 71 7a 2c 2e 30 32 35 29 2a 2e 31 3b 62 6c 75 65 3d 72 65 64 3b 00 | d*2+above(qz,.025)*.1;blue=red;. |
0c80 | 0a 01 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b | ....mv=getspec(0,.5,0)*.1+mv*.9; |
0ca0 | 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b | sv=min(1,mv*6);bt=bt+1;t=t+0.02; |
0cc0 | 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d | ..ox=reg00;oy=reg01;oz=reg02;rx= |
0ce0 | 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 | reg03;ry=reg04;rz=reg05;cx=reg06 |
0d00 | 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 | ;sx=reg07;cy=reg08;sy=reg09;cz=r |
0d20 | 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d | eg10;sz=reg11;..x=0;y=0;af=w/h;m |
0d40 | 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 | p=mp+1.5/mf;..dd=reg20;..ccd=(re |
0d60 | 67 32 30 29 2a 31 2e 36 3b 0d 0a 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 6f 79 3d 6f 79 3b 0d 0a | g20)*1.6;..mf=mf*.92+.8;oy=oy;.. |
0d80 | 6c 73 3d 31 2e 39 2a 77 2f 33 32 30 3b 00 72 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 | ls=1.9*w/320;.r...ot=min(0,getsp |
0da0 | 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 | ec(0,.1,0)*2-1)*((getosc(.3,0,0) |
0dc0 | 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d | *200)%2);t=t+5*(ot+if(ot,1,0));m |
0de0 | 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 72 61 6e 64 | f=(bt-mt)*.5+mf*.7;mt=bt;md=rand |
0e00 | 28 32 29 00 2f 00 00 00 6e 3d 32 30 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 | (2)./...n=200;tpi=acos(-1)*2;t=0 |
0e20 | 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 42 6f 74 74 6c 65 3b 00 02 00 00 00 01 00 00 00 00 | ;mf=100;mt=0;..Bottle;.......... |
0e40 | 00 00 00 01 00 00 00 24 00 00 00 81 03 00 00 01 b5 01 00 00 75 3d 69 2a 24 70 69 2a 35 32 3b 0d | .......$............u=i*$pi*52;. |
0e60 | 0a 72 64 3d 6d 69 6e 28 31 2c 61 62 6f 76 65 28 69 2c 2e 36 29 2a 2e 35 2b 6d 61 78 28 30 2c 73 | .rd=min(1,above(i,.6)*.5+max(0,s |
0e80 | 69 6e 28 69 2a 24 70 69 2a 31 2e 33 33 29 2a 33 29 29 2a 2e 30 33 3b 0d 0a 71 78 3d 63 6f 73 28 | in(i*$pi*1.33)*3))*.03;..qx=cos( |
0ea0 | 75 29 2a 72 64 2a 2e 37 3b 70 79 3d 73 69 6e 28 75 29 2a 72 64 2a 2e 37 3b 71 7a 3d 69 2a 2e 32 | u)*rd*.7;py=sin(u)*rd*.7;qz=i*.2 |
0ec0 | 2a 2e 37 3b 0d 0a 70 78 3d 71 78 2a 2e 39 35 2d 71 7a 2a 2e 32 3b 70 7a 3d 71 78 2a 2e 32 2b 71 | *.7;..px=qx*.95-qz*.2;pz=qx*.2+q |
0ee0 | 7a 2a 2e 39 35 3b 0d 0a 70 78 3d 70 78 2b 6f 78 2d 2e 33 35 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a | z*.95;..px=px+ox-.35;py=py+oy;pz |
0f00 | 3d 70 7a 2b 6f 7a 2d 2e 31 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 | =pz+oz-.1;..x1=px*cy-pz*sy;z1=px |
0f20 | 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 | *sy+pz*cy;..y2=py*cx-z1*sx;z2=py |
0f40 | 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 | *sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1 |
0f60 | 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c | *sz+y2*cz;..dt=if(above(z2,.01), |
0f80 | 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 | 1/z2,0);..x=if(dt,x3*dt,x);y=if( |
0fa0 | 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b | dt,y3*dt*af,y);..linesize=dt*ls; |
0fc0 | 0d 0a 64 74 3d 64 74 2a 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 28 64 74 2d 2e 32 29 2a 2e 32 | ..dt=dt*0.6*ccd;..red=(dt-.2)*.2 |
0fe0 | 3b 67 72 65 65 6e 3d 72 65 64 2a 32 2b 61 62 6f 76 65 28 71 7a 2c 2e 30 32 35 29 2a 2e 31 3b 62 | ;green=red*2+above(qz,.025)*.1;b |
1000 | 6c 75 65 3d 72 65 64 3b 00 0a 01 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a | lue=red;.....mv=getspec(0,.5,0)* |
1020 | 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b | .1+mv*.9;sv=min(1,mv*6);bt=bt+1; |
1040 | 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d | t=t+0.02;..ox=reg00;oy=reg01;oz= |
1060 | 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 | reg02;rx=reg03;ry=reg04;rz=reg05 |
1080 | 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 | ;cx=reg06;sx=reg07;cy=reg08;sy=r |
10a0 | 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 | eg09;cz=reg10;sz=reg11;..x=0;y=0 |
10c0 | 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b | ;af=w/h;mp=mp+1.5/mf;..dd=reg20; |
10e0 | 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 | ..ccd=(reg20)*1.6;..mf=mf*.92+.8 |
1100 | 3b 6f 79 3d 6f 79 3b 0d 0a 6c 73 3d 31 2e 39 2a 77 2f 33 32 30 3b 00 72 00 00 00 6f 74 3d 6d 69 | ;oy=oy;..ls=1.9*w/320;.r...ot=mi |
1120 | 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 | n(0,getspec(0,.1,0)*2-1)*((getos |
1140 | 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f | c(.3,0,0)*200)%2);t=t+5*(ot+if(o |
1160 | 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 | t,1,0));mf=(bt-mt)*.5+mf*.7;mt=b |
1180 | 74 3b 6d 64 3d 72 61 6e 64 28 32 29 00 2f 00 00 00 6e 3d 32 30 30 3b 74 70 69 3d 61 63 6f 73 28 | t;md=rand(2)./...n=200;tpi=acos( |
11a0 | 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 42 6f 74 74 6c 65 3b 00 | -1)*2;t=0;mf=100;mt=0;..Bottle;. |
11c0 | 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 24 00 00 00 91 04 00 00 01 c6 02 00 00 75 3d 69 | ................$............u=i |
11e0 | 2a 24 70 69 2a 31 30 30 3b 72 64 3d 2e 34 2a 28 28 2e 35 2b 73 69 6e 28 69 2a 33 29 29 2a 28 31 | *$pi*100;rd=.4*((.5+sin(i*3))*(1 |
1200 | 2d 73 71 72 28 69 29 29 2b 2e 32 29 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 72 64 3b 71 7a 3d 73 | -sqr(i))+.2);..px=cos(u)*rd;qz=s |
1220 | 69 6e 28 75 29 2a 72 64 3b 71 79 3d 2d 73 71 72 28 69 29 2a 2e 35 3b 0d 0a 74 74 3d 2d 73 69 6e | in(u)*rd;qy=-sqr(i)*.5;..tt=-sin |
1240 | 28 71 79 2a 33 29 2a 2e 35 3b 63 74 74 3d 63 6f 73 28 74 74 29 3b 73 74 74 3d 73 69 6e 28 74 74 | (qy*3)*.5;ctt=cos(tt);stt=sin(tt |
1260 | 29 3b 0d 0a 70 79 3d 71 7a 2a 73 74 74 2b 71 79 2a 63 74 74 3b 71 7a 3d 71 7a 2a 63 74 74 2d 71 | );..py=qz*stt+qy*ctt;qz=qz*ctt-q |
1280 | 79 2a 73 74 74 3b 0d 0a 71 78 3d 70 78 2a 28 31 2d 63 6f 73 28 2d 70 7a 2a 34 2b 31 2d 70 79 2a | y*stt;..qx=px*(1-cos(-pz*4+1-py* |
12a0 | 35 2b 32 29 2a 2e 35 29 3b 0d 0a 74 74 3d 69 3b 63 74 74 3d 63 6f 73 28 74 74 29 3b 73 74 74 3d | 5+2)*.5);..tt=i;ctt=cos(tt);stt= |
12c0 | 73 69 6e 28 74 74 29 3b 0d 0a 70 78 3d 71 78 2a 63 74 74 2d 71 7a 2a 73 74 74 3b 70 7a 3d 71 78 | sin(tt);..px=qx*ctt-qz*stt;pz=qx |
12e0 | 2a 73 74 74 2b 71 7a 2a 63 74 74 3b 0d 0a 70 78 3d 70 78 2a 2e 33 2b 73 69 6e 28 70 79 2a 34 2d | *stt+qz*ctt;..px=px*.3+sin(py*4- |
1300 | 2e 35 29 2a 2e 30 35 2b 6f 78 2b 2e 34 3b 70 79 3d 70 79 2a 2e 33 2b 6f 79 3b 70 7a 3d 70 7a 2a | .5)*.05+ox+.4;py=py*.3+oy;pz=pz* |
1320 | 2e 33 2b 6f 7a 2d 2e 31 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a | .3+oz-.1;..x1=px*cy-pz*sy;z1=px* |
1340 | 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a | sy+pz*cy;..y2=py*cx-z1*sx;z2=py* |
1360 | 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a | sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1* |
1380 | 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 | sz+y2*cz;..dt=if(above(z2,.01),1 |
13a0 | 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 | /z2,0);..x=if(dt,x3*dt,x);y=if(d |
13c0 | 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d | t,y3*dt*af,y);..linesize=dt*ls;. |
13e0 | 0a 64 74 3d 73 69 6e 28 69 2a 32 2d 2e 35 29 2a 33 2b 32 3b 0d 0a 72 65 64 3d 28 64 74 2d 2e 32 | .dt=sin(i*2-.5)*3+2;..red=(dt-.2 |
1400 | 29 2a 2e 32 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 30 3b 63 66 3d 62 6e 6f 74 | )*.2;green=red*.5;blue=0;cf=bnot |
1420 | 28 62 61 6e 64 28 61 62 6f 76 65 28 69 2c 2e 39 35 29 2c 62 65 6c 6f 77 28 69 2c 2e 39 38 29 29 | (band(above(i,.95),below(i,.98)) |
1440 | 29 3b 3b 0d 0a 67 72 65 65 6e 3d 67 72 65 65 6e 2a 63 66 3b 72 65 64 3d 72 65 64 2a 28 2e 35 2b | );;..green=green*cf;red=red*(.5+ |
1460 | 63 66 2a 2e 35 29 3b 0d 0a 72 65 64 3d 6d 61 78 28 2e 31 35 2c 72 65 64 29 3b 67 72 65 65 6e 3d | cf*.5);..red=max(.15,red);green= |
1480 | 6d 61 78 28 2e 31 35 2c 67 72 65 65 6e 29 3b 62 6c 75 65 3d 6d 61 78 28 2e 31 35 2c 62 6c 75 65 | max(.15,green);blue=max(.15,blue |
14a0 | 29 3b 00 08 01 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a | );.....mv=getspec(0,.5,0)*.1+mv* |
14c0 | 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e | .9;sv=min(1,mv*6);bt=bt+1;t=t+0. |
14e0 | 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b | 02;..ox=reg00;oy=reg01;oz=reg02; |
1500 | 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 | rx=reg03;ry=reg04;rz=reg05;cx=re |
1520 | 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 | g06;sx=reg07;cy=reg08;sy=reg09;c |
1540 | 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f | z=reg10;sz=reg11;..x=0;y=0;af=w/ |
1560 | 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d | h;mp=mp+1.5/mf;..dd=reg20;..ccd= |
1580 | 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 6f 79 3d 6f 79 | (reg20)*1.6;..mf=mf*.92+.8;oy=oy |
15a0 | 3b 0d 0a 6c 73 3d 33 2a 77 2f 33 32 30 3b 00 72 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 | ;..ls=3*w/320;.r...ot=min(0,gets |
15c0 | 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 | pec(0,.1,0)*2-1)*((getosc(.3,0,0 |
15e0 | 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b | )*200)%2);t=t+5*(ot+if(ot,1,0)); |
1600 | 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 72 61 6e | mf=(bt-mt)*.5+mf*.7;mt=bt;md=ran |
1620 | 64 28 32 29 00 30 00 00 00 6e 3d 34 30 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d | d(2).0...n=400;tpi=acos(-1)*2;t= |
1640 | 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 47 69 66 74 62 61 67 3b 00 02 00 00 00 01 00 00 | 0;mf=100;mt=0;..Giftbag;........ |
1660 | 00 00 00 00 00 01 00 00 00 24 00 00 00 73 03 00 00 01 a6 01 00 00 75 3d 28 69 2d 2e 35 29 2a 24 | .........$...s........u=(i-.5)*$ |
1680 | 70 69 2a 32 3b 0d 0a 71 7a 3d 2d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 2e 30 35 2c 63 6f | pi*2;..qz=-if(below(i,.5),.05,co |
16a0 | 73 28 75 29 2a 2e 30 35 29 2a 2e 34 3b 0d 0a 71 78 3d 2d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 | s(u)*.05)*.4;..qx=-if(below(i,.5 |
16c0 | 29 2c 28 69 2d 2e 35 29 2a 2e 35 2c 73 69 6e 28 75 29 2a 2e 30 35 29 2a 2e 34 3b 0d 0a 70 78 3d | ),(i-.5)*.5,sin(u)*.05)*.4;..px= |
16e0 | 71 78 2a 2e 37 2d 71 7a 2a 2e 37 3b 70 7a 3d 2d 71 78 2a 2e 37 2d 71 7a 2a 2e 37 3b 0d 0a 70 79 | qx*.7-qz*.7;pz=-qx*.7-qz*.7;..py |
1700 | 3d 30 3b 0d 0a 70 78 3d 70 78 2b 6f 78 2b 2e 34 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b | =0;..px=px+ox+.4;py=py+oy;pz=pz+ |
1720 | 6f 7a 2b 2e 31 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b | oz+.1;..x1=px*cy-pz*sy;z1=px*sy+ |
1740 | 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b | pz*cy;..y2=py*cx-z1*sx;z2=py*sx+ |
1760 | 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b | z1*cx;..x3=x1*cz-y2*sz;y3=x1*sz+ |
1780 | 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 | y2*cz;..dt=if(above(z2,.01),1/z2 |
17a0 | 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 | ,0);..x=if(dt,x3*dt,x);y=if(dt,y |
17c0 | 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 | 3*dt*af,y);..linesize=dt*ls;..dt |
17e0 | 3d 73 69 6e 28 69 2a 32 2d 2e 35 29 2a 33 2b 32 3b 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d | =sin(i*2-.5)*3+2;..ip=bnot(ip);. |
1800 | 0a 72 65 64 3d 31 3b 67 72 65 65 6e 3d 69 70 3b 62 6c 75 65 3d 69 70 2b 2e 34 3b 00 0d 01 00 00 | .red=1;green=ip;blue=ip+.4;..... |
1820 | 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d | mv=getspec(0,.5,0)*.1+mv*.9;sv=m |
1840 | 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 | in(1,mv*6);bt=bt+1;t=t+0.02;..ox |
1860 | 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 | =reg00;oy=reg01;oz=reg02;rx=reg0 |
1880 | 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d | 3;ry=reg04;rz=reg05;cx=reg06;sx= |
18a0 | 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 | reg07;cy=reg08;sy=reg09;cz=reg10 |
18c0 | 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 | ;sz=reg11;..x=0;y=0;af=w/h;mp=mp |
18e0 | 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 | +1.5/mf;..dd=reg20;..ccd=(reg20) |
1900 | 2a 31 2e 36 3b 0d 0a 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 6f 79 3d 6f 79 3b 0d 0a 6c 73 3d 32 | *1.6;..mf=mf*.92+.8;oy=oy;..ls=2 |
1920 | 2a 77 2f 33 32 30 3b 69 70 3d 30 3b 00 72 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 | *w/320;ip=0;.r...ot=min(0,getspe |
1940 | 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a | c(0,.1,0)*2-1)*((getosc(.3,0,0)* |
1960 | 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 | 200)%2);t=t+5*(ot+if(ot,1,0));mf |
1980 | 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 72 61 6e 64 28 | =(bt-mt)*.5+mf*.7;mt=bt;md=rand( |
19a0 | 32 29 00 2d 00 00 00 6e 3d 31 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d | 2).-...n=10;tpi=acos(-1)*2;t=0;m |
19c0 | 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 54 72 65 61 74 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 | f=100;mt=0;..Treat;............. |
19e0 | 01 00 00 00 24 00 00 00 75 03 00 00 01 a8 01 00 00 75 3d 28 69 2d 2e 35 29 2a 24 70 69 2a 32 3b | ....$...u........u=(i-.5)*$pi*2; |
1a00 | 0d 0a 71 7a 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 2e 30 35 2c 63 6f 73 28 75 29 2a 2e | ..qz=if(below(i,.5),.05,cos(u)*. |
1a20 | 30 35 29 2a 2e 34 3b 0d 0a 71 78 3d 2d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 28 69 2d 2e | 05)*.4;..qx=-if(below(i,.5),(i-. |
1a40 | 35 29 2a 2e 35 2c 73 69 6e 28 75 29 2a 2e 30 35 29 2a 2e 34 3b 0d 0a 70 78 3d 71 78 2a 2e 38 36 | 5)*.5,sin(u)*.05)*.4;..px=qx*.86 |
1a60 | 2d 71 7a 2a 2e 35 3b 70 7a 3d 2d 71 78 2a 2e 35 2d 71 7a 2a 2e 38 36 3b 0d 0a 70 79 3d 30 3b 0d | -qz*.5;pz=-qx*.5-qz*.86;..py=0;. |
1a80 | 0a 70 78 3d 70 78 2b 6f 78 2b 2e 31 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 2b 2e | .px=px+ox+.1;py=py+oy;pz=pz+oz+. |
1aa0 | 32 35 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a | 25;..x1=px*cy-pz*sy;z1=px*sy+pz* |
1ac0 | 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a | cy;..y2=py*cx-z1*sx;z2=py*sx+z1* |
1ae0 | 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a | cx;..x3=x1*cz-y2*sz;y3=x1*sz+y2* |
1b00 | 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 | cz;..dt=if(above(z2,.01),1/z2,0) |
1b20 | 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 | ;..x=if(dt,x3*dt,x);y=if(dt,y3*d |
1b40 | 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 73 69 | t*af,y);..linesize=dt*ls;..dt=si |
1b60 | 6e 28 69 2a 32 2d 2e 35 29 2a 33 2b 32 3b 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 72 65 | n(i*2-.5)*3+2;..ip=bnot(ip);..re |
1b80 | 64 3d 31 3b 67 72 65 65 6e 3d 69 70 3b 62 6c 75 65 3d 69 70 2b 2e 34 3b 00 0d 01 00 00 6d 76 3d | d=1;green=ip;blue=ip+.4;.....mv= |
1ba0 | 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 | getspec(0,.5,0)*.1+mv*.9;sv=min( |
1bc0 | 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 3d 72 65 | 1,mv*6);bt=bt+1;t=t+0.02;..ox=re |
1be0 | 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 | g00;oy=reg01;oz=reg02;rx=reg03;r |
1c00 | 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 | y=reg04;rz=reg05;cx=reg06;sx=reg |
1c20 | 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a | 07;cy=reg08;sy=reg09;cz=reg10;sz |
1c40 | 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e | =reg11;..x=0;y=0;af=w/h;mp=mp+1. |
1c60 | 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e | 5/mf;..dd=reg20;..ccd=(reg20)*1. |
1c80 | 36 3b 0d 0a 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 6f 79 3d 6f 79 3b 0d 0a 6c 73 3d 32 2a 77 2f | 6;..mf=mf*.92+.8;oy=oy;..ls=2*w/ |
1ca0 | 33 32 30 3b 69 70 3d 30 3b 00 72 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 | 320;ip=0;.r...ot=min(0,getspec(0 |
1cc0 | 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 | ,.1,0)*2-1)*((getosc(.3,0,0)*200 |
1ce0 | 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 | )%2);t=t+5*(ot+if(ot,1,0));mf=(b |
1d00 | 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 72 61 6e 64 28 32 29 00 | t-mt)*.5+mf*.7;mt=bt;md=rand(2). |
1d20 | 2d 00 00 00 6e 3d 31 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 | -...n=10;tpi=acos(-1)*2;t=0;mf=1 |
1d40 | 30 30 3b 6d 74 3d 30 3b a4 20 54 72 65 61 74 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | 00;mt=0;..Treat;................ |
1d60 | 00 24 00 00 00 73 03 00 00 01 a6 01 00 00 75 3d 28 69 2d 2e 35 29 2a 24 70 69 2a 32 3b 0d 0a 71 | .$...s........u=(i-.5)*$pi*2;..q |
1d80 | 7a 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 2e 30 35 2c 63 6f 73 28 75 29 2a 2e 30 35 29 | z=if(below(i,.5),.05,cos(u)*.05) |
1da0 | 2a 2e 34 3b 0d 0a 71 78 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 28 69 2d 2e 35 29 2a 2e | *.4;..qx=if(below(i,.5),(i-.5)*. |
1dc0 | 35 2c 73 69 6e 28 75 29 2a 2e 30 35 29 2a 2e 34 3b 0d 0a 70 78 3d 71 78 2a 2e 35 2b 71 7a 2a 2e | 5,sin(u)*.05)*.4;..px=qx*.5+qz*. |
1de0 | 38 36 3b 70 7a 3d 71 78 2a 2e 38 36 2d 71 7a 2a 2e 35 3b 0d 0a 70 79 3d 30 3b 0d 0a 70 78 3d 70 | 86;pz=qx*.86-qz*.5;..py=0;..px=p |
1e00 | 78 2b 6f 78 2b 2e 32 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 2b 2e 30 35 3b 0d 0a | x+ox+.2;py=py+oy;pz=pz+oz+.05;.. |
1e20 | 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a | x1=px*cy-pz*sy;z1=px*sy+pz*cy;.. |
1e40 | 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a | y2=py*cx-z1*sx;z2=py*sx+z1*cx;.. |
1e60 | 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a | x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;.. |
1e80 | 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d | dt=if(above(z2,.01),1/z2,0);..x= |
1ea0 | 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c | if(dt,x3*dt,x);y=if(dt,y3*dt*af, |
1ec0 | 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 73 69 6e 28 69 2a 32 | y);..linesize=dt*ls;..dt=sin(i*2 |
1ee0 | 2d 2e 35 29 2a 33 2b 32 3b 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 72 65 64 3d 31 3b 67 | -.5)*3+2;..ip=bnot(ip);..red=1;g |
1f00 | 72 65 65 6e 3d 69 70 3b 62 6c 75 65 3d 69 70 2b 2e 34 3b 00 0d 01 00 00 6d 76 3d 67 65 74 73 70 | reen=ip;blue=ip+.4;.....mv=getsp |
1f20 | 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a | ec(0,.5,0)*.1+mv*.9;sv=min(1,mv* |
1f40 | 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f | 6);bt=bt+1;t=t+0.02;..ox=reg00;o |
1f60 | 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 | y=reg01;oz=reg02;rx=reg03;ry=reg |
1f80 | 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 | 04;rz=reg05;cx=reg06;sx=reg07;cy |
1fa0 | 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 | =reg08;sy=reg09;cz=reg10;sz=reg1 |
1fc0 | 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b | 1;..x=0;y=0;af=w/h;mp=mp+1.5/mf; |
1fe0 | 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 6d | ..dd=reg20;..ccd=(reg20)*1.6;..m |
2000 | 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 6f 79 3d 6f 79 3b 0d 0a 6c 73 3d 32 2a 77 2f 33 32 30 3b 69 | f=mf*.92+.8;oy=oy;..ls=2*w/320;i |
2020 | 70 3d 30 3b 00 72 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 | p=0;.r...ot=min(0,getspec(0,.1,0 |
2040 | 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b | )*2-1)*((getosc(.3,0,0)*200)%2); |
2060 | 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 | t=t+5*(ot+if(ot,1,0));mf=(bt-mt) |
2080 | 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 72 61 6e 64 28 32 29 00 2d 00 00 00 6e | *.5+mf*.7;mt=bt;md=rand(2).-...n |
20a0 | 3d 31 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 | =10;tpi=acos(-1)*2;t=0;mf=100;mt |
20c0 | 3d 30 3b a4 20 54 72 65 61 74 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 28 00 00 00 | =0;..Treat;.................(... |
20e0 | 04 00 00 00 01 00 01 80 fe ff ff ff 14 54 00 00 81 01 00 04 24 80 00 00 00 80 00 00 00 00 00 00 | .............T......$........... |
2100 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 | ......................@..AVS.2.8 |
2120 | 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 0c 00 00 00 00 00 00 | +.Effect.List.Config............ |
2140 | 00 00 00 00 00 00 00 00 00 24 00 00 00 f8 02 00 00 01 00 00 00 00 f6 01 00 00 6d 76 3d 67 65 74 | .........$................mv=get |
2160 | 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d | spec(0,.5,0)*.1+mv*.9;sv=min(1,m |
2180 | 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b | v*6);bt=bt+1;t=t+.02;..ox=reg00; |
21a0 | 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 | oy=reg01;oz=reg02;rx=reg03;ry=re |
21c0 | 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 | g04;rz=reg05;cx=reg06;sx=reg07;c |
21e0 | 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 | y=reg08;sy=reg09;cz=reg10;sz=reg |
2200 | 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 | 11;..x=0;y=0;af=w/h;mp=mp+1.5/mf |
2220 | 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a | ;..dd=reg20;..ccd=(reg20)*1.6;.. |
2240 | 74 64 78 3d 74 64 78 2b 73 69 67 6e 28 74 64 74 2d 74 64 78 29 2a 2e 30 33 3b 74 64 78 3d 6d 69 | tdx=tdx+sign(tdt-tdx)*.03;tdx=mi |
2260 | 6e 28 31 2c 6d 61 78 28 30 2c 74 64 78 29 29 3b 0d 0a 74 64 3d 2e 35 2d 63 6f 73 28 74 64 78 2a | n(1,max(0,tdx));..td=.5-cos(tdx* |
2280 | 24 70 69 2a 32 29 2a 2e 35 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e 31 35 2b 2e 30 | $pi*2)*.5;..an=(sin(mp*2)*.15+.0 |
22a0 | 32 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 63 61 3d 63 6f 73 28 61 6e 29 3b 73 61 3d 73 69 6e | 2)*sv*td+an*.6;ca=cos(an);sa=sin |
22c0 | 28 61 6e 29 3b 0d 0a 66 6e 3d 28 63 6f 73 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 2a | (an);..fn=(cos(mp*2))*sv*(1-td)* |
22e0 | 2e 31 32 35 2b 66 6e 2a 2e 36 3b 63 66 3d 63 6f 73 28 66 6e 29 3b 73 66 3d 73 69 6e 28 66 6e 29 | .125+fn*.6;cf=cos(fn);sf=sin(fn) |
2300 | 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 72 65 67 36 30 3d 61 6e 3b 72 65 67 36 31 3d 63 | ;mf=mf*.92+.8;..reg60=an;reg61=c |
2320 | 61 3b 72 65 67 36 32 3d 73 61 3b 72 65 67 36 33 3d 66 6e 3b 72 65 67 36 34 3d 63 66 3b 72 65 67 | a;reg62=sa;reg63=fn;reg64=cf;reg |
2340 | 36 35 3d 73 66 3b 72 65 67 36 36 3d 6d 66 3b 00 a5 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 | 65=sf;reg66=mf;.....ot=min(0,get |
2360 | 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c | spec(0,.1,0)*2-1)*((getosc(.3,0, |
2380 | 30 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 | 0)*200)%2);t=t+5*(ot+if(ot,1,0)) |
23a0 | 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 74 64 74 3d 69 | ;mf=(bt-mt)*.5+mf*.7;mt=bt;tdt=i |
23c0 | 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 35 25 32 2c 73 69 6e 28 67 65 74 6f 73 | f(getosc(.4,0,0)*255%2,sin(getos |
23e0 | 63 28 2e 36 2c 30 2c 30 29 2a 32 35 29 2a 2e 35 2b 2e 35 2c 74 64 74 29 00 3c 00 00 00 6e 3d 30 | c(.6,0,0)*25)*.5+.5,tdt).<...n=0 |
2400 | 3b 2f 2f 20 54 6f 72 73 6f 20 77 6f 62 62 6c 65 0d 0a 6e 3d 33 32 31 3b 74 70 69 3d 61 63 6f 73 | ;//.Torso.wobble..n=321;tpi=acos |
2420 | 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 00 02 00 00 00 01 00 00 | (-1)*2;t=0;mf=100;mt=0;......... |
2440 | 00 ff ff ff 00 00 00 00 00 28 00 00 00 04 00 00 00 02 00 03 80 24 00 00 00 55 03 00 00 01 88 01 | .........(...........$...U...... |
2460 | 00 00 64 74 3d 69 2a 74 70 69 2a 32 35 3b 0d 0a 70 7a 3d 63 6f 73 28 64 74 29 2a 2e 30 39 2b 2e | ..dt=i*tpi*25;..pz=cos(dt)*.09+. |
2480 | 30 36 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 6d 64 2c 28 63 6f 73 28 64 74 29 2a 2e 35 2b 2e 33 29 | 06+oz;..px=if(md,(cos(dt)*.5+.3) |
24a0 | 2a 63 6f 73 28 6d 70 2a 74 70 69 2a 2e 35 29 2a 2e 30 36 2a 73 76 2c 30 29 3b 0d 0a 64 74 3d 73 | *cos(mp*tpi*.5)*.06*sv,0);..dt=s |
24c0 | 69 6e 28 64 74 29 3b 0d 0a 70 78 3d 63 6f 73 28 69 2a 74 70 69 29 2a 2e 30 35 2a 64 74 2b 2e 30 | in(dt);..px=cos(i*tpi)*.05*dt+.0 |
24e0 | 37 2b 70 78 2b 6f 78 3b 0d 0a 70 79 3d 73 69 6e 28 69 2a 74 70 69 29 2a 2e 30 33 2a 64 74 2d 2e | 7+px+ox;..py=sin(i*tpi)*.03*dt-. |
2500 | 30 32 2b 6f 79 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 | 02+oy;....x1=px*cy-pz*sy;z1=px*s |
2520 | 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 | y+pz*cy;..y2=py*cx-z1*sx;z2=py*s |
2540 | 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 | x+z1*cx;..x3=x1*cz-y2*sz;y3=x1*s |
2560 | 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f | z+y2*cz;..dt=if(above(z2,.01),1/ |
2580 | 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 | z2,0);..x=if(dt,x3*dt,x);y=if(dt |
25a0 | 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a | ,y3*dt*af,y);..linesize=dt*ls;.. |
25c0 | 64 74 3d 64 74 2a 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 64 74 2d 2e 32 3b 67 72 65 65 6e 3d | dt=dt*0.6*ccd;..red=dt-.2;green= |
25e0 | 30 3b 62 6c 75 65 3d 30 3b 00 08 01 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 | 0;blue=0;.....mv=getspec(0,.5,0) |
2600 | 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 | *.1+mv*.9;sv=min(1,mv*6);bt=bt+1 |
2620 | 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a | ;t=t+0.02;..ox=reg00;oy=reg01;oz |
2640 | 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 | =reg02;rx=reg03;ry=reg04;rz=reg0 |
2660 | 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d | 5;cx=reg06;sx=reg07;cy=reg08;sy= |
2680 | 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d | reg09;cz=reg10;sz=reg11;..x=0;y= |
26a0 | 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 | 0;af=w/h;mp=mp+1.5/mf;..dd=reg20 |
26c0 | 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 6d 66 3d 6d 66 2a 2e 39 32 2b 2e | ;..ccd=(reg20)*1.6;..mf=mf*.92+. |
26e0 | 38 3b 6f 79 3d 6f 79 3b 0d 0a 6c 73 3d 32 2a 77 2f 33 32 30 3b 00 72 00 00 00 6f 74 3d 6d 69 6e | 8;oy=oy;..ls=2*w/320;.r...ot=min |
2700 | 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 | (0,getspec(0,.1,0)*2-1)*((getosc |
2720 | 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 | (.3,0,0)*200)%2);t=t+5*(ot+if(ot |
2740 | 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 | ,1,0));mf=(bt-mt)*.5+mf*.7;mt=bt |
2760 | 3b 6d 64 3d 72 61 6e 64 28 32 29 00 32 00 00 00 6e 3d 39 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 | ;md=rand(2).2...n=90;tpi=acos(-1 |
2780 | 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 52 69 67 68 74 20 46 6f 6f 74 | )*2;t=0;mf=100;mt=0;..Right.Foot |
27a0 | 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 24 00 00 00 6b 03 00 00 01 a5 01 00 00 64 | ;.................$...k........d |
27c0 | 74 3d 69 2a 74 70 69 2a 32 35 3b 0d 0a 70 7a 3d 63 6f 73 28 64 74 29 2a 2e 30 39 2b 2e 30 36 2b | t=i*tpi*25;..pz=cos(dt)*.09+.06+ |
27e0 | 6f 7a 3b 0d 0a 70 78 3d 69 66 28 6d 64 2c 28 63 6f 73 28 64 74 29 2a 2e 35 2b 2e 33 29 2a 63 6f | oz;..px=if(md,(cos(dt)*.5+.3)*co |
2800 | 73 28 6d 70 2a 74 70 69 2a 2e 35 29 2a 2e 30 36 2a 69 66 28 65 71 75 61 6c 28 6d 64 2c 31 29 2c | s(mp*tpi*.5)*.06*if(equal(md,1), |
2820 | 31 2c 2d 31 29 2a 28 73 76 2a 2e 37 2b 2e 33 29 2c 30 29 3b 0d 0a 64 74 3d 73 69 6e 28 64 74 29 | 1,-1)*(sv*.7+.3),0);..dt=sin(dt) |
2840 | 3b 0d 0a 70 78 3d 63 6f 73 28 69 2a 74 70 69 29 2a 2e 30 35 2a 64 74 2d 2e 30 37 2b 70 78 2b 6f | ;..px=cos(i*tpi)*.05*dt-.07+px+o |
2860 | 78 3b 0d 0a 70 79 3d 73 69 6e 28 69 2a 74 70 69 29 2a 2e 30 33 2a 64 74 2d 2e 30 32 2b 6f 79 3b | x;..py=sin(i*tpi)*.03*dt-.02+oy; |
2880 | 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 | ....x1=px*cy-pz*sy;z1=px*sy+pz*c |
28a0 | 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 | y;..y2=py*cx-z1*sx;z2=py*sx+z1*c |
28c0 | 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 | x;..x3=x1*cz-y2*sz;y3=x1*sz+y2*c |
28e0 | 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b | z;..dt=if(above(z2,.01),1/z2,0); |
2900 | 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 | ..x=if(dt,x3*dt,x);y=if(dt,y3*dt |
2920 | 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 64 74 2a | *af,y);..linesize=dt*ls;..dt=dt* |
2940 | 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 64 74 2d 2e 32 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 | 0.6*ccd;..red=dt-.2;green=0;blue |
2960 | 3d 30 3b 00 02 01 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 | =0;.....mv=getspec(0,.5,0)*.1+mv |
2980 | 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 | *.9;sv=min(1,mv*6);bt=bt+1;t=t+0 |
29a0 | 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 | .02;..ox=reg00;oy=reg01;oz=reg02 |
29c0 | 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 | ;rx=reg03;ry=reg04;rz=reg05;cx=r |
29e0 | 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b | eg06;sx=reg07;cy=reg08;sy=reg09; |
2a00 | 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 | cz=reg10;sz=reg11;..x=0;y=0;af=w |
2a20 | 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 | /h;mp=mp+1.5/mf;..dd=reg20;..ccd |
2a40 | 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 | =(reg20)*1.6;..mf=mf*.92+.8;..ls |
2a60 | 3d 32 2a 77 2f 33 32 30 3b 00 72 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 | =2*w/320;.r...ot=min(0,getspec(0 |
2a80 | 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 | ,.1,0)*2-1)*((getosc(.3,0,0)*200 |
2aa0 | 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 | )%2);t=t+5*(ot+if(ot,1,0));mf=(b |
2ac0 | 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 72 61 6e 64 28 33 29 00 | t-mt)*.5+mf*.7;mt=bt;md=rand(3). |
2ae0 | 31 00 00 00 6e 3d 39 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 | 1...n=90;tpi=acos(-1)*2;t=0;mf=1 |
2b00 | 30 30 3b 6d 74 3d 30 3b a4 20 4c 65 66 74 20 46 6f 6f 74 3b 00 02 00 00 00 01 00 00 00 00 00 00 | 00;mt=0;..Left.Foot;............ |
2b20 | 00 01 00 00 00 28 00 00 00 04 00 00 00 04 00 01 80 24 00 00 00 6d 04 00 00 01 c4 01 00 00 62 64 | .....(...........$...m........bd |
2b40 | 3d 69 2a 74 70 69 3b 64 74 3d 62 64 2a 32 35 2e 36 3b 0d 0a 61 64 3d 63 6f 73 28 64 74 29 2a 2e | =i*tpi;dt=bd*25.6;..ad=cos(dt)*. |
2b60 | 35 2d 2e 35 3b 0d 0a 70 79 3d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 33 3b | 5-.5;..py=ad*pow(abs(ad),.8)*.3; |
2b80 | 0d 0a 70 7a 3d 73 69 6e 28 64 74 29 2a 63 6f 73 28 62 64 29 2a 2e 30 37 2b 73 69 6e 28 70 79 2a | ..pz=sin(dt)*cos(bd)*.07+sin(py* |
2ba0 | 33 30 29 2a 2e 30 30 35 3b 0d 0a 70 78 3d 73 69 6e 28 64 74 29 2a 73 69 6e 28 62 64 29 2a 2e 30 | 30)*.005;..px=sin(dt)*sin(bd)*.0 |
2bc0 | 39 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 61 2d 70 79 2a 73 61 3b 0d 0a 70 70 79 3d 70 7a 2a 73 61 2b | 9;..ppz=pz*ca-py*sa;..ppy=pz*sa+ |
2be0 | 70 79 2a 63 61 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 3b 0d 0a 70 70 78 3d 70 78 2a 63 66 2d 70 70 | py*ca;..pz=ppz+oz;..ppx=px*cf-pp |
2c00 | 79 2a 73 66 2b 6f 78 3b 0d 0a 70 70 79 3d 70 78 2a 73 66 2b 70 70 79 2a 63 66 2b 6f 79 3b 0d 0a | y*sf+ox;..ppy=px*sf+ppy*cf+oy;.. |
2c20 | 0d 0a 78 31 3d 70 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 70 78 2a 73 79 2b 70 7a 2a 63 | ..x1=ppx*cy-pz*sy;z1=ppx*sy+pz*c |
2c40 | 79 3b 0d 0a 79 32 3d 70 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 70 79 2a 73 78 2b 7a 31 | y;..y2=ppy*cx-z1*sx;z2=ppy*sx+z1 |
2c60 | 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 | *cx;..x3=x1*cz-y2*sz;y3=x1*sz+y2 |
2c80 | 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 | *cz;..dt=if(above(z2,.01),1/z2,0 |
2ca0 | 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a | );..x=if(dt,x3*dt,x);y=if(dt,y3* |
2cc0 | 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 64 | dt*af,y);..linesize=dt*ls;..dt=d |
2ce0 | 74 2a 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 31 3b 67 72 65 65 6e 3d 31 3b 62 6c 75 65 3d 31 | t*0.6*ccd;..red=1;green=1;blue=1 |
2d00 | 3b 00 b6 01 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e | ;.....mv=getspec(0,.5,0)*.1+mv*. |
2d20 | 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 2e 30 32 | 9;sv=min(1,mv*6);bt=bt+1;t=t+.02 |
2d40 | 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 | ;..ox=reg00;oy=reg01;oz=reg02;rx |
2d60 | 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 | =reg03;ry=reg04;rz=reg05;cx=reg0 |
2d80 | 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d | 6;sx=reg07;cy=reg08;sy=reg09;cz= |
2da0 | 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b | reg10;sz=reg11;..x=0;y=0;af=w/h; |
2dc0 | 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 | mp=mp+1.5/mf;..dd=reg20;..ccd=(r |
2de0 | 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e 31 32 35 2b 2e | eg20)*1.6;..an=(sin(mp*2)*.125+. |
2e00 | 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 63 61 3d 63 6f 73 28 61 6e 29 3b 73 61 3d 73 69 | 01)*sv*td+an*.6;ca=cos(an);sa=si |
2e20 | 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 2a 2e | n(an);fn=(sin(mp*2))*sv*(1-td)*. |
2e40 | 31 32 35 2b 66 6e 2a 2e 36 3b 63 66 3d 63 6f 73 28 66 6e 29 3b 73 66 3d 73 69 6e 28 66 6e 29 3b | 125+fn*.6;cf=cos(fn);sf=sin(fn); |
2e60 | 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 34 2a 77 2f 33 32 30 3b 0d 0a 61 6e 3d 72 | mf=mf*.92+.8;..ls=4*w/320;..an=r |
2e80 | 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 67 36 32 3b 66 6e 3d 72 65 67 36 33 3b | eg60;ca=reg61;sa=reg62;fn=reg63; |
2ea0 | 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d 66 3d 72 65 67 36 36 3b 00 9b 00 00 00 | cf=reg64;sf=reg65;mf=reg66;..... |
2ec0 | 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 | ot=min(0,getspec(0,.1,0)*2-1)*(( |
2ee0 | 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 | getosc(.3,0,0)*200)%2);t=t+5*(ot |
2f00 | 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 | +if(ot,1,0));mf=(bt-mt)*.5+mf*.7 |
2f20 | 3b 6d 74 3d 62 74 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 35 25 | ;mt=bt;td=if(getosc(.4,0,0)*255% |
2f40 | 32 2c 67 65 74 6f 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 37 00 00 00 6e | 2,getosc(.6,0,0)*255%2,td).7...n |
2f60 | 3d 33 32 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d | =321;tpi=acos(-1)*2;t=0;mf=100;m |
2f80 | 74 3d 30 3b a4 20 54 6f 72 73 6f 20 4f 63 63 6c 75 64 65 72 3b 00 02 00 00 00 01 00 00 00 00 00 | t=0;..Torso.Occluder;........... |
2fa0 | 00 00 01 00 00 00 28 00 00 00 04 00 00 00 02 00 06 80 24 00 00 00 68 04 00 00 01 c8 01 00 00 62 | ......(...........$...h........b |
2fc0 | 64 3d 69 2a 74 70 69 3b 64 74 3d 62 64 2a 32 35 2e 36 3b 0d 0a 61 64 3d 63 6f 73 28 64 74 29 2a | d=i*tpi;dt=bd*25.6;..ad=cos(dt)* |
2fe0 | 2e 35 2d 2e 35 3b 0d 0a 70 79 3d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 33 | .5-.5;..py=ad*pow(abs(ad),.8)*.3 |
3000 | 3b 0d 0a 70 7a 3d 73 69 6e 28 64 74 29 2a 63 6f 73 28 62 64 29 2a 2e 30 37 2b 73 69 6e 28 70 79 | ;..pz=sin(dt)*cos(bd)*.07+sin(py |
3020 | 2a 33 30 29 2a 2e 30 30 35 3b 0d 0a 70 78 3d 73 69 6e 28 64 74 29 2a 73 69 6e 28 62 64 29 2a 2e | *30)*.005;..px=sin(dt)*sin(bd)*. |
3040 | 30 39 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 61 2d 70 79 2a 73 61 3b 0d 0a 70 70 79 3d 70 7a 2a 73 61 | 09;..ppz=pz*ca-py*sa;..ppy=pz*sa |
3060 | 2b 70 79 2a 63 61 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 3b 0d 0a 70 70 78 3d 70 78 2a 63 66 2d 70 | +py*ca;..pz=ppz+oz;..ppx=px*cf-p |
3080 | 70 79 2a 73 66 2b 6f 78 3b 0d 0a 70 70 79 3d 70 78 2a 73 66 2b 70 70 79 2a 63 66 2b 6f 79 3b 0d | py*sf+ox;..ppy=px*sf+ppy*cf+oy;. |
30a0 | 0a 0d 0a 78 31 3d 70 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 70 78 2a 73 79 2b 70 7a 2a | ...x1=ppx*cy-pz*sy;z1=ppx*sy+pz* |
30c0 | 63 79 3b 0d 0a 79 32 3d 70 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 70 79 2a 73 78 2b 7a | cy;..y2=ppy*cx-z1*sx;z2=ppy*sx+z |
30e0 | 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 | 1*cx;..x3=x1*cz-y2*sz;y3=x1*sz+y |
3100 | 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c | 2*cz;..dt=if(above(z2,.01),1/z2, |
3120 | 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 | 0);..x=if(dt,x3*dt,x);y=if(dt,y3 |
3140 | 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d | *dt*af,y);..linesize=dt*ls;..dt= |
3160 | 64 74 2a 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 64 74 2d 2e 32 3b 67 72 65 65 6e 3d 30 3b 62 | dt*0.6*ccd;..red=dt-.2;green=0;b |
3180 | 6c 75 65 3d 30 3b 00 b6 01 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 | lue=0;.....mv=getspec(0,.5,0)*.1 |
31a0 | 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d | +mv*.9;sv=min(1,mv*6);bt=bt+1;t= |
31c0 | 74 2b 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 | t+.02;..ox=reg00;oy=reg01;oz=reg |
31e0 | 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 | 02;rx=reg03;ry=reg04;rz=reg05;cx |
3200 | 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 | =reg06;sx=reg07;cy=reg08;sy=reg0 |
3220 | 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 | 9;cz=reg10;sz=reg11;..x=0;y=0;af |
3240 | 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 | =w/h;mp=mp+1.5/mf;..dd=reg20;..c |
3260 | 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e | cd=(reg20)*1.6;..an=(sin(mp*2)*. |
3280 | 31 32 35 2b 2e 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 63 61 3d 63 6f 73 28 61 6e 29 3b | 125+.01)*sv*td+an*.6;ca=cos(an); |
32a0 | 73 61 3d 73 69 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d | sa=sin(an);fn=(sin(mp*2))*sv*(1- |
32c0 | 74 64 29 2a 2e 31 32 35 2b 66 6e 2a 2e 36 3b 63 66 3d 63 6f 73 28 66 6e 29 3b 73 66 3d 73 69 6e | td)*.125+fn*.6;cf=cos(fn);sf=sin |
32e0 | 28 66 6e 29 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 34 2a 77 2f 33 32 30 3b 0d | (fn);mf=mf*.92+.8;..ls=4*w/320;. |
3300 | 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 67 36 32 3b 66 6e 3d 72 | .an=reg60;ca=reg61;sa=reg62;fn=r |
3320 | 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d 66 3d 72 65 67 36 36 3b | eg63;cf=reg64;sf=reg65;mf=reg66; |
3340 | 00 9b 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d | .....ot=min(0,getspec(0,.1,0)*2- |
3360 | 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b | 1)*((getosc(.3,0,0)*200)%2);t=t+ |
3380 | 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b | 5*(ot+if(ot,1,0));mf=(bt-mt)*.5+ |
33a0 | 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 | mf*.7;mt=bt;td=if(getosc(.4,0,0) |
33c0 | 2a 32 35 35 25 32 2c 67 65 74 6f 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 | *255%2,getosc(.6,0,0)*255%2,td). |
33e0 | 2e 00 00 00 6e 3d 33 32 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d | ....n=321;tpi=acos(-1)*2;t=0;mf= |
3400 | 31 30 30 3b 6d 74 3d 30 3b a4 20 54 6f 72 73 6f 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 | 100;mt=0;..Torso;............... |
3420 | 00 00 28 00 00 00 04 00 00 00 00 00 01 80 24 00 00 00 3b 05 00 00 01 c9 01 00 00 62 64 3d 69 2a | ..(...........$...;........bd=i* |
3440 | 74 70 69 3b 61 64 3d 2d 2e 35 35 3b 70 79 3d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 | tpi;ad=-.55;py=ad*pow(abs(ad),.8 |
3460 | 29 2a 2e 33 3b 0d 0a 70 7a 3d 63 6f 73 28 62 64 29 2a 2e 30 38 2b 73 69 6e 28 70 79 2a 33 30 29 | )*.3;..pz=cos(bd)*.08+sin(py*30) |
3480 | 2a 2e 30 30 35 3b 0d 0a 70 78 3d 73 69 6e 28 62 64 29 2a 2e 31 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 | *.005;..px=sin(bd)*.1;..ppz=pz*c |
34a0 | 61 2d 70 79 2a 73 61 3b 0d 0a 70 70 79 3d 70 7a 2a 73 61 2b 70 79 2a 63 61 3b 0d 0a 70 7a 3d 70 | a-py*sa;..ppy=pz*sa+py*ca;..pz=p |
34c0 | 70 7a 2b 6f 7a 3b 0d 0a 70 70 78 3d 70 78 2a 63 66 2d 70 70 79 2a 73 66 2b 6f 78 3b 0d 0a 70 70 | pz+oz;..ppx=px*cf-ppy*sf+ox;..pp |
34e0 | 79 3d 70 78 2a 73 66 2b 70 70 79 2a 63 66 2b 6f 79 3b 0d 0a 73 6b 69 70 3d 61 62 6f 76 65 28 73 | y=px*sf+ppy*cf+oy;..skip=above(s |
3500 | 71 72 28 70 70 78 29 2b 73 71 72 28 70 7a 29 2a 2e 38 2c 73 6b 64 64 29 2b 63 31 3b 0d 0a 78 31 | qr(ppx)+sqr(pz)*.8,skdd)+c1;..x1 |
3520 | 3d 70 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a | =ppx*cy-pz*sy;z1=ppx*sy+pz*cy;.. |
3540 | 79 32 3d 70 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 70 79 2a 73 78 2b 7a 31 2a 63 78 3b | y2=ppy*cx-z1*sx;z2=ppy*sx+z1*cx; |
3560 | 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b | ..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz; |
3580 | 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a | ..dt=if(above(z2,.01),1/z2,0);.. |
35a0 | 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 | x=if(dt,x3*dt,x);y=if(dt,y3*dt*a |
35c0 | 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 64 74 2a 30 2e | f,y);..linesize=dt*ls;..dt=dt*0. |
35e0 | 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 30 2e 31 3b 67 72 65 65 6e 3d 30 2e 31 3b 62 6c 75 65 3d 30 | 6*ccd;..red=0.1;green=0.1;blue=0 |
3600 | 2e 31 3b 00 84 02 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 | .1;.....mv=getspec(0,.5,0)*.1+mv |
3620 | 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 2e | *.9;sv=min(1,mv*6);bt=bt+1;t=t+. |
3640 | 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b | 02;..ox=reg00;oy=reg01;oz=reg02; |
3660 | 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 | rx=reg03;ry=reg04;rz=reg05;cx=re |
3680 | 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 | g06;sx=reg07;cy=reg08;sy=reg09;c |
36a0 | 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f | z=reg10;sz=reg11;..x=0;y=0;af=w/ |
36c0 | 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d | h;mp=mp+1.5/mf;..dd=reg20;..ccd= |
36e0 | 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e 31 32 35 | (reg20)*1.6;..an=(sin(mp*2)*.125 |
3700 | 2b 2e 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 63 61 3d 63 6f 73 28 61 6e 29 3b 73 61 3d | +.01)*sv*td+an*.6;ca=cos(an);sa= |
3720 | 73 69 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 | sin(an);fn=(sin(mp*2))*sv*(1-td) |
3740 | 2a 2e 31 32 35 2b 66 6e 2a 2e 36 3b 63 66 3d 63 6f 73 28 66 6e 29 3b 73 66 3d 73 69 6e 28 66 6e | *.125+fn*.6;cf=cos(fn);sf=sin(fn |
3760 | 29 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 34 2a 77 2f 33 32 30 3b 0d 0a 0d 0a | );mf=mf*.92+.8;..ls=4*w/320;.... |
3780 | 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 67 36 32 3b 66 6e 3d 72 65 | an=reg60;ca=reg61;sa=reg62;fn=re |
37a0 | 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d 66 3d 72 65 67 36 36 3b 0d | g63;cf=reg64;sf=reg65;mf=reg66;. |
37c0 | 0a 2f 2a 20 63 6c 69 70 20 2a 2f 0d 0a 61 64 3d 2d 2e 35 35 3b 70 79 3d 61 64 2a 70 6f 77 28 61 | ./*.clip.*/..ad=-.55;py=ad*pow(a |
37e0 | 62 73 28 61 64 29 2c 2e 38 29 2a 2e 33 3b 0d 0a 70 7a 3d 73 69 6e 28 70 79 2a 33 30 29 2a 2e 30 | bs(ad),.8)*.3;..pz=sin(py*30)*.0 |
3800 | 30 35 3b 70 78 3d 30 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 61 2d 70 79 2a 73 61 3b 70 70 79 3d 70 7a | 05;px=0;..ppz=pz*ca-py*sa;ppy=pz |
3820 | 2a 73 61 2b 70 79 2a 63 61 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 3b 70 70 78 3d 70 78 2a 63 66 2d | *sa+py*ca;..pz=ppz+oz;ppx=px*cf- |
3840 | 70 70 79 2a 73 66 2b 6f 78 3b 0d 0a 70 70 79 3d 70 78 2a 73 66 2b 70 70 79 2a 63 66 2b 6f 79 3b | ppy*sf+ox;..ppy=px*sf+ppy*cf+oy; |
3860 | 0d 0a 0d 0a 73 6b 64 64 3d 28 73 71 72 28 70 70 78 29 2b 73 71 72 28 70 7a 29 2a 2e 38 2b 73 71 | ....skdd=(sqr(ppx)+sqr(pz)*.8+sq |
3880 | 72 28 2e 31 29 29 3b 0d 0a 0d 0a 00 9b 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 | r(.1));.........ot=min(0,getspec |
38a0 | 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 | (0,.1,0)*2-1)*((getosc(.3,0,0)*2 |
38c0 | 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d | 00)%2);t=t+5*(ot+if(ot,1,0));mf= |
38e0 | 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 74 64 3d 69 66 28 67 65 74 | (bt-mt)*.5+mf*.7;mt=bt;td=if(get |
3900 | 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 35 25 32 2c 67 65 74 6f 73 63 28 2e 36 2c 30 2c 30 29 | osc(.4,0,0)*255%2,getosc(.6,0,0) |
3920 | 2a 32 35 35 25 32 2c 74 64 29 00 32 00 00 00 6e 3d 34 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 | *255%2,td).2...n=40;tpi=acos(-1) |
3940 | 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 54 6f 72 73 6f 20 42 61 6e 64 3b | *2;t=0;mf=100;mt=0;..Torso.Band; |
3960 | 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 24 00 00 00 61 05 00 00 01 ef 01 00 00 75 3d | .................$...a........u= |
3980 | 28 69 2b 2e 31 32 35 29 2a 24 70 69 2a 32 3b 0d 0a 62 64 3d 30 3b 61 64 3d 2d 2e 35 35 3b 70 79 | (i+.125)*$pi*2;..bd=0;ad=-.55;py |
39a0 | 3d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 33 2b 73 69 6e 28 75 29 2a 2e 30 | =ad*pow(abs(ad),.8)*.3+sin(u)*.0 |
39c0 | 32 35 3b 0d 0a 70 7a 3d 63 6f 73 28 62 64 29 2a 2e 30 38 2b 73 69 6e 28 70 79 2a 33 30 29 2a 2e | 25;..pz=cos(bd)*.08+sin(py*30)*. |
39e0 | 30 30 35 3b 0d 0a 70 78 3d 73 69 6e 28 62 64 29 2a 2e 31 2b 63 6f 73 28 75 29 2a 2e 30 33 3b 0d | 005;..px=sin(bd)*.1+cos(u)*.03;. |
3a00 | 0a 70 70 7a 3d 70 7a 2a 63 61 2d 70 79 2a 73 61 3b 0d 0a 70 70 79 3d 70 7a 2a 73 61 2b 70 79 2a | .ppz=pz*ca-py*sa;..ppy=pz*sa+py* |
3a20 | 63 61 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 3b 0d 0a 70 70 78 3d 70 78 2a 63 66 2d 70 70 79 2a 73 | ca;..pz=ppz+oz;..ppx=px*cf-ppy*s |
3a40 | 66 2b 6f 78 3b 0d 0a 70 70 79 3d 70 78 2a 73 66 2b 70 70 79 2a 63 66 2b 6f 79 3b 0d 0a 73 6b 69 | f+ox;..ppy=px*sf+ppy*cf+oy;..ski |
3a60 | 70 3d 61 62 6f 76 65 28 73 71 72 28 70 70 78 29 2b 73 71 72 28 70 7a 29 2a 2e 38 2c 73 6b 64 64 | p=above(sqr(ppx)+sqr(pz)*.8,skdd |
3a80 | 29 2b 63 31 3b 0d 0a 78 31 3d 70 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 70 78 2a 73 79 | )+c1;..x1=ppx*cy-pz*sy;z1=ppx*sy |
3aa0 | 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 70 79 2a | +pz*cy;..y2=ppy*cx-z1*sx;z2=ppy* |
3ac0 | 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a | sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1* |
3ae0 | 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 | sz+y2*cz;..dt=if(above(z2,.01),1 |
3b00 | 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 | /z2,0);..x=if(dt,x3*dt,x);y=if(d |
3b20 | 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d | t,y3*dt*af,y);..linesize=dt*ls;. |
3b40 | 0a 64 74 3d 64 74 2a 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 31 2e 30 3b 67 72 65 65 6e 3d 30 | .dt=dt*0.6*ccd;..red=1.0;green=0 |
3b60 | 2e 37 3b 62 6c 75 65 3d 30 2e 30 3b 00 86 02 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 | .7;blue=0.0;.....mv=getspec(0,.5 |
3b80 | 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 | ,0)*.1+mv*.9;sv=min(1,mv*6);bt=b |
3ba0 | 74 2b 31 3b 74 3d 74 2b 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b | t+1;t=t+.02;..ox=reg00;oy=reg01; |
3bc0 | 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 | oz=reg02;rx=reg03;ry=reg04;rz=re |
3be0 | 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 | g05;cx=reg06;sx=reg07;cy=reg08;s |
3c00 | 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b | y=reg09;cz=reg10;sz=reg11;..x=0; |
3c20 | 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 | y=0;af=w/h;mp=mp+1.5/mf;..dd=reg |
3c40 | 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d | 20;..ccd=(reg20)*1.6;..an=(sin(m |
3c60 | 70 2a 32 29 2a 2e 31 32 35 2b 2e 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 63 61 3d 63 6f | p*2)*.125+.01)*sv*td+an*.6;ca=co |
3c80 | 73 28 61 6e 29 3b 73 61 3d 73 69 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a | s(an);sa=sin(an);fn=(sin(mp*2))* |
3ca0 | 73 76 2a 28 31 2d 74 64 29 2a 2e 31 32 35 2b 66 6e 2a 2e 36 3b 63 66 3d 63 6f 73 28 66 6e 29 3b | sv*(1-td)*.125+fn*.6;cf=cos(fn); |
3cc0 | 73 66 3d 73 69 6e 28 66 6e 29 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 31 2e 35 | sf=sin(fn);mf=mf*.92+.8;..ls=1.5 |
3ce0 | 2a 77 2f 33 32 30 3b 0d 0a 0d 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d | *w/320;....an=reg60;ca=reg61;sa= |
3d00 | 72 65 67 36 32 3b 66 6e 3d 72 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 | reg62;fn=reg63;cf=reg64;sf=reg65 |
3d20 | 3b 6d 66 3d 72 65 67 36 36 3b 0d 0a 2f 2a 20 63 6c 69 70 20 2a 2f 0d 0a 61 64 3d 2d 2e 35 35 3b | ;mf=reg66;../*.clip.*/..ad=-.55; |
3d40 | 70 79 3d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 33 3b 0d 0a 70 7a 3d 73 69 | py=ad*pow(abs(ad),.8)*.3;..pz=si |
3d60 | 6e 28 70 79 2a 33 30 29 2a 2e 30 30 35 3b 70 78 3d 30 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 61 2d 70 | n(py*30)*.005;px=0;..ppz=pz*ca-p |
3d80 | 79 2a 73 61 3b 70 70 79 3d 70 7a 2a 73 61 2b 70 79 2a 63 61 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a | y*sa;ppy=pz*sa+py*ca;..pz=ppz+oz |
3da0 | 3b 70 70 78 3d 70 78 2a 63 66 2d 70 70 79 2a 73 66 2b 6f 78 3b 0d 0a 70 70 79 3d 70 78 2a 73 66 | ;ppx=px*cf-ppy*sf+ox;..ppy=px*sf |
3dc0 | 2b 70 70 79 2a 63 66 2b 6f 79 3b 0d 0a 0d 0a 73 6b 64 64 3d 28 73 71 72 28 70 70 78 29 2b 73 71 | +ppy*cf+oy;....skdd=(sqr(ppx)+sq |
3de0 | 72 28 70 7a 29 2a 2e 38 2b 73 71 72 28 2e 31 29 29 3b 0d 0a 0d 0a 00 9b 00 00 00 6f 74 3d 6d 69 | r(pz)*.8+sqr(.1));.........ot=mi |
3e00 | 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 | n(0,getspec(0,.1,0)*2-1)*((getos |
3e20 | 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f | c(.3,0,0)*200)%2);t=t+5*(ot+if(o |
3e40 | 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 | t,1,0));mf=(bt-mt)*.5+mf*.7;mt=b |
3e60 | 74 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 35 25 32 2c 67 65 74 | t;td=if(getosc(.4,0,0)*255%2,get |
3e80 | 6f 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 30 00 00 00 6e 3d 35 3b 74 70 | osc(.6,0,0)*255%2,td).0...n=5;tp |
3ea0 | 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 42 | i=acos(-1)*2;t=0;mf=100;mt=0;..B |
3ec0 | 65 6c 74 20 63 6c 69 70 3b 00 02 00 00 00 01 00 00 00 51 51 51 00 01 00 00 00 28 00 00 00 04 00 | elt.clip;.........QQQ.....(..... |
3ee0 | 00 00 02 00 06 80 24 00 00 00 91 05 00 00 01 1a 02 00 00 64 74 3d 69 2a 74 70 69 2a 31 33 2e 36 | ......$............dt=i*tpi*13.6 |
3f00 | 38 3b 0d 0a 61 64 3d 63 6f 73 28 64 74 29 2a 2e 35 2d 2e 35 3b 62 64 3d 69 2a 74 70 69 3b 0d 0a | 8;..ad=cos(dt)*.5-.5;bd=i*tpi;.. |
3f20 | 70 79 3d 2d 2e 32 2d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 32 3b 0d 0a 70 | py=-.2-ad*pow(abs(ad),.8)*.2;..p |
3f40 | 7a 3d 73 69 6e 28 64 74 29 2a 63 6f 73 28 62 64 29 2a 2e 30 35 3b 0d 0a 70 78 3d 73 69 6e 28 64 | z=sin(dt)*cos(bd)*.05;..px=sin(d |
3f60 | 74 29 2a 73 69 6e 28 62 64 29 2a 2e 30 35 3b 0d 0a 63 31 3d 61 62 6f 76 65 28 70 79 2c 2d 2e 31 | t)*sin(bd)*.05;..c1=above(py,-.1 |
3f80 | 31 29 3b 63 32 3d 31 3b 0d 0a 70 70 78 3d 70 78 2a 63 63 2d 70 79 2a 73 63 3b 0d 0a 70 70 79 3d | 1);c2=1;..ppx=px*cc-py*sc;..ppy= |
3fa0 | 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a 70 79 3d 70 70 79 3b 0d 0a 70 78 3d 70 70 78 2b 6f 78 | px*sc+py*cc;..py=ppy;..px=ppx+ox |
3fc0 | 2b 73 66 2a 2e 33 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 64 2d 70 79 2a 73 64 3b 0d 0a 70 70 79 3d 70 | +sf*.3;..ppz=pz*cd-py*sd;..ppy=p |
3fe0 | 7a 2a 73 64 2b 70 79 2a 63 64 3b 0d 0a 70 79 3d 70 70 79 2b 6f 79 2d 2e 32 35 3b 0d 0a 70 7a 3d | z*sd+py*cd;..py=ppy+oy-.25;..pz= |
4000 | 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 | ppz+oz+sa*.3;..x1=px*cy-pz*sy;z1 |
4020 | 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 | =px*sy+pz*cy;..y2=py*cx-z1*sx;z2 |
4040 | 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 | =py*sx+z1*cx;..x3=x1*cz-y2*sz;y3 |
4060 | 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 | =x1*sz+y2*cz;..dt=if(above(z2,.0 |
4080 | 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d | 1),1/z2,0);..x=if(dt,x3*dt,x);y= |
40a0 | 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a | if(dt,y3*dt*af,y);..linesize=dt* |
40c0 | 6c 73 3b 0d 0a 64 74 3d 64 74 2a 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 64 74 2d 2e 31 3b 67 | ls;..dt=dt*0.6*ccd;..red=dt-.1;g |
40e0 | 72 65 65 6e 3d 69 66 28 63 31 2c 72 65 64 2a 2e 38 33 2c 30 29 3b 62 6c 75 65 3d 69 66 28 63 31 | reen=if(c1,red*.83,0);blue=if(c1 |
4100 | 2c 72 65 64 2a 2e 37 33 2c 30 29 3b 00 3e 02 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 | ,red*.73,0);.>...mv=getspec(0,.5 |
4120 | 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 | ,0)*.1+mv*.9;sv=min(1,mv*6);bt=b |
4140 | 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 | t+1;t=t+0.02;..ox=reg00;oy=reg01 |
4160 | 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 | ;oz=reg02;rx=reg03;ry=reg04;rz=r |
4180 | 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b | eg05;cx=reg06;sx=reg07;cy=reg08; |
41a0 | 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 | sy=reg09;cz=reg10;sz=reg11;..x=0 |
41c0 | 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 | ;y=0;af=w/h;mp=mp+1.5/mf;..dd=re |
41e0 | 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 | g20;..ccd=(reg20)*1.6;..an=(sin( |
4200 | 6d 70 2a 32 29 2a 2e 31 32 35 2b 2e 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 73 61 3d 73 | mp*2)*.125+.01)*sv*td+an*.6;sa=s |
4220 | 69 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 2a | in(an);fn=(sin(mp*2))*sv*(1-td)* |
4240 | 2e 31 32 35 2b 66 6e 2a 2e 36 3b 73 66 3d 73 69 6e 28 66 6e 29 3b 73 76 3d 73 76 2a 2e 39 39 2b | .125+fn*.6;sf=sin(fn);sv=sv*.99+ |
4260 | 2e 30 31 3b 63 6e 3d 63 6e 2a 2e 37 2b 2e 33 2a 73 69 6e 28 6d 70 2a 33 29 2a 2e 35 2a 62 65 6c | .01;cn=cn*.7+.3*sin(mp*3)*.5*bel |
4280 | 6f 77 28 6d 64 2c 32 29 2a 61 62 6f 76 65 28 6d 64 2c 2d 31 29 2a 73 76 3b 63 63 3d 63 6f 73 28 | ow(md,2)*above(md,-1)*sv;cc=cos( |
42a0 | 63 6e 29 3b 73 63 3d 73 69 6e 28 63 6e 29 3b 64 6e 3d 28 73 69 6e 28 6d 70 2a 34 29 2a 2e 37 35 | cn);sc=sin(cn);dn=(sin(mp*4)*.75 |
42c0 | 2b 2e 33 29 2a 61 62 6f 76 65 28 6d 64 2c 30 29 2a 73 76 2a 2e 33 2b 64 6e 2a 2e 37 3b 63 64 3d | +.3)*above(md,0)*sv*.3+dn*.7;cd= |
42e0 | 63 6f 73 28 64 6e 29 3b 73 64 3d 73 69 6e 28 64 6e 29 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b | cos(dn);sd=sin(dn);mf=mf*.92+.8; |
4300 | 0d 0a 6c 73 3d 34 2a 77 2f 33 32 30 3b 0d 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 | ..ls=4*w/320;..an=reg60;ca=reg61 |
4320 | 3b 73 61 3d 72 65 67 36 32 3b 66 6e 3d 72 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 | ;sa=reg62;fn=reg63;cf=reg64;sf=r |
4340 | 65 67 36 35 3b 6d 66 3d 72 65 67 36 36 3b 00 eb 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 | eg65;mf=reg66;.....ot=min(0,gets |
4360 | 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 | pec(0,.1,0)*2-1)*((getosc(.3,0,0 |
4380 | 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b | )*200)%2);t=t+5*(ot+if(ot,1,0)); |
43a0 | 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 0d 0a 6d 64 3d 69 | mf=(bt-mt)*.5+mf*.7;mt=bt;..md=i |
43c0 | 66 28 61 62 73 28 67 65 74 6f 73 63 28 2e 33 32 2c 30 2c 30 29 2a 31 30 30 29 25 32 2c 61 62 73 | f(abs(getosc(.32,0,0)*100)%2,abs |
43e0 | 28 67 65 74 6f 73 63 28 2e 35 36 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 36 32 2c 30 2c 30 29 | (getosc(.56,0,0)+getosc(.62,0,0) |
4400 | 29 25 34 2d 31 2c 6d 64 29 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 | )%4-1,md);td=if(getosc(.4,0,0)*2 |
4420 | 35 35 25 32 2c 67 65 74 6f 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 2d 00 | 55%2,getosc(.6,0,0)*255%2,td).-. |
4440 | 00 00 6e 3d 32 32 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 | ..n=220;tpi=acos(-1)*2;t=0;mf=10 |
4460 | 30 3b 6d 74 3d 30 3b a4 20 48 65 61 64 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 28 | 0;mt=0;..Head;.................( |
4480 | 00 00 00 04 00 00 00 00 00 01 80 24 00 00 00 6f 06 00 00 01 12 02 00 00 64 74 3d 69 2a 74 70 69 | ...........$...o........dt=i*tpi |
44a0 | 2a 31 33 2e 36 38 3b 0d 0a 61 64 3d 63 6f 73 28 64 74 29 2a 2e 35 2d 2e 35 3b 62 64 3d 69 2a 74 | *13.68;..ad=cos(dt)*.5-.5;bd=i*t |
44c0 | 70 69 3b 0d 0a 70 79 3d 2d 2e 32 2d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e | pi;..py=-.2-ad*pow(abs(ad),.8)*. |
44e0 | 32 3b 0d 0a 70 7a 3d 73 69 6e 28 64 74 29 2a 63 6f 73 28 62 64 29 2a 2e 30 35 32 3b 0d 0a 70 78 | 2;..pz=sin(dt)*cos(bd)*.052;..px |
4500 | 3d 73 69 6e 28 64 74 29 2a 73 69 6e 28 62 64 29 2a 2e 30 35 32 3b 0d 0a 63 31 3d 61 62 6f 76 65 | =sin(dt)*sin(bd)*.052;..c1=above |
4520 | 28 70 79 2c 2d 2e 31 31 29 3b 63 32 3d 31 3b 0d 0a 70 70 78 3d 70 78 2a 63 63 2d 70 79 2a 73 63 | (py,-.11);c2=1;..ppx=px*cc-py*sc |
4540 | 3b 0d 0a 70 70 79 3d 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a 70 79 3d 70 70 79 3b 0d 0a 70 78 | ;..ppy=px*sc+py*cc;..py=ppy;..px |
4560 | 3d 70 70 78 2b 6f 78 2b 73 66 2a 2e 33 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 64 2d 70 79 2a 73 64 3b | =ppx+ox+sf*.3;..ppz=pz*cd-py*sd; |
4580 | 0d 0a 70 70 79 3d 70 7a 2a 73 64 2b 70 79 2a 63 64 3b 0d 0a 70 79 3d 70 70 79 2b 6f 79 2d 2e 32 | ..ppy=pz*sd+py*cd;..py=ppy+oy-.2 |
45a0 | 35 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 3b 0d 0a 73 6b 69 70 3d 61 62 6f 76 65 | 5;..pz=ppz+oz+sa*.3;..skip=above |
45c0 | 28 73 71 72 28 70 78 29 2b 73 71 72 28 70 7a 29 2c 73 6b 64 64 29 2b 63 31 3b 0d 0a 78 31 3d 70 | (sqr(px)+sqr(pz),skdd)+c1;..x1=p |
45e0 | 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 | x*cy-pz*sy;z1=px*sy+pz*cy;..y2=p |
4600 | 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 | y*cx-z1*sx;z2=py*sx+z1*cx;..x3=x |
4620 | 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 | 1*cz-y2*sz;y3=x1*sz+y2*cz;..dt=i |
4640 | 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 | f(above(z2,.01),1/z2,0);..x=if(d |
4660 | 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d | t,x3*dt,x);y=if(dt,y3*dt*af,y);. |
4680 | 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 72 65 64 3d 2e 39 35 3b 67 72 65 65 6e 3d | .linesize=dt*ls;..red=.95;green= |
46a0 | 30 3b 62 6c 75 65 3d 30 3b 00 20 03 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 | 0;blue=0;.....mv=getspec(0,.5,0) |
46c0 | 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 | *.1+mv*.9;sv=min(1,mv*6);bt=bt+1 |
46e0 | 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a | ;t=t+0.02;..ox=reg00;oy=reg01;oz |
4700 | 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 | =reg02;rx=reg03;ry=reg04;rz=reg0 |
4720 | 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d | 5;cx=reg06;sx=reg07;cy=reg08;sy= |
4740 | 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d | reg09;cz=reg10;sz=reg11;..x=0;y= |
4760 | 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 | 0;af=w/h;mp=mp+1.5/mf;..dd=reg20 |
4780 | 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a | ;..ccd=(reg20)*1.6;..an=(sin(mp* |
47a0 | 32 29 2a 2e 31 32 35 2b 2e 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 73 61 3d 73 69 6e 28 | 2)*.125+.01)*sv*td+an*.6;sa=sin( |
47c0 | 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 2a 2e 31 32 | an);fn=(sin(mp*2))*sv*(1-td)*.12 |
47e0 | 35 2b 66 6e 2a 2e 36 3b 73 66 3d 73 69 6e 28 66 6e 29 3b 73 76 3d 73 76 2a 2e 39 39 2b 2e 30 31 | 5+fn*.6;sf=sin(fn);sv=sv*.99+.01 |
4800 | 3b 63 6e 3d 63 6e 2a 2e 37 2b 2e 33 2a 73 69 6e 28 6d 70 2a 33 29 2a 2e 35 2a 62 65 6c 6f 77 28 | ;cn=cn*.7+.3*sin(mp*3)*.5*below( |
4820 | 6d 64 2c 32 29 2a 61 62 6f 76 65 28 6d 64 2c 2d 31 29 2a 73 76 3b 63 63 3d 63 6f 73 28 63 6e 29 | md,2)*above(md,-1)*sv;cc=cos(cn) |
4840 | 3b 73 63 3d 73 69 6e 28 63 6e 29 3b 64 6e 3d 28 73 69 6e 28 6d 70 2a 34 29 2a 2e 37 35 2b 2e 33 | ;sc=sin(cn);dn=(sin(mp*4)*.75+.3 |
4860 | 29 2a 61 62 6f 76 65 28 6d 64 2c 30 29 2a 73 76 2a 2e 33 2b 64 6e 2a 2e 37 3b 63 64 3d 63 6f 73 | )*above(md,0)*sv*.3+dn*.7;cd=cos |
4880 | 28 64 6e 29 3b 73 64 3d 73 69 6e 28 64 6e 29 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c | (dn);sd=sin(dn);mf=mf*.92+.8;..l |
48a0 | 73 3d 34 2e 35 2a 77 2f 33 32 30 3b 0d 0a 0d 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 | s=4.5*w/320;....an=reg60;ca=reg6 |
48c0 | 31 3b 73 61 3d 72 65 67 36 32 3b 66 6e 3d 72 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d | 1;sa=reg62;fn=reg63;cf=reg64;sf= |
48e0 | 72 65 67 36 35 3b 6d 66 3d 72 65 67 36 36 3b 0d 0a 2f 2a 63 6c 69 70 2a 2f 0d 0a 61 64 3d 2d 2e | reg65;mf=reg66;../*clip*/..ad=-. |
4900 | 36 37 3b 70 79 3d 2d 2e 32 2d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 32 3b | 67;py=-.2-ad*pow(abs(ad),.8)*.2; |
4920 | 0d 0a 70 7a 3d 30 3b 70 78 3d 30 3b 70 70 78 3d 70 78 2a 63 63 2d 70 79 2a 73 63 3b 70 70 79 3d | ..pz=0;px=0;ppx=px*cc-py*sc;ppy= |
4940 | 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a 70 79 3d 70 70 79 3b 70 78 3d 70 70 78 2b 6f 78 2b 73 | px*sc+py*cc;..py=ppy;px=ppx+ox+s |
4960 | 66 2a 2e 33 3b 70 70 7a 3d 70 7a 2a 63 64 2d 70 79 2a 73 64 3b 0d 0a 70 70 79 3d 70 7a 2a 73 64 | f*.3;ppz=pz*cd-py*sd;..ppy=pz*sd |
4980 | 2b 70 79 2a 63 64 3b 70 79 3d 70 70 79 2b 6f 79 2d 2e 32 35 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a | +py*cd;py=ppy+oy-.25;..pz=ppz+oz |
49a0 | 2b 73 61 2a 2e 33 3b 0d 0a 73 6b 64 64 3d 28 73 71 72 28 70 78 29 2b 73 71 72 28 70 7a 29 2b 73 | +sa*.3;..skdd=(sqr(px)+sqr(pz)+s |
49c0 | 71 72 28 2e 30 35 29 29 3b 0d 0a 0d 0a 00 eb 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 | qr(.05));.........ot=min(0,getsp |
49e0 | 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 | ec(0,.1,0)*2-1)*((getosc(.3,0,0) |
4a00 | 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d | *200)%2);t=t+5*(ot+if(ot,1,0));m |
4a20 | 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 0d 0a 6d 64 3d 69 66 | f=(bt-mt)*.5+mf*.7;mt=bt;..md=if |
4a40 | 28 61 62 73 28 67 65 74 6f 73 63 28 2e 33 32 2c 30 2c 30 29 2a 31 30 30 29 25 32 2c 61 62 73 28 | (abs(getosc(.32,0,0)*100)%2,abs( |
4a60 | 67 65 74 6f 73 63 28 2e 35 36 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 36 32 2c 30 2c 30 29 29 | getosc(.56,0,0)+getosc(.62,0,0)) |
4a80 | 25 34 2d 31 2c 6d 64 29 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 | %4-1,md);td=if(getosc(.4,0,0)*25 |
4aa0 | 35 25 32 2c 67 65 74 6f 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 31 00 00 | 5%2,getosc(.6,0,0)*255%2,td).1.. |
4ac0 | 00 6e 3d 32 32 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 | .n=220;tpi=acos(-1)*2;t=0;mf=100 |
4ae0 | 3b 6d 74 3d 30 3b a4 20 48 65 61 64 20 43 61 70 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 | ;mt=0;..Head.Cap;............... |
4b00 | 00 00 28 00 00 00 04 00 00 00 01 00 01 80 50 85 dc 03 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 | ..(...........P...Acko.net:.Texe |
4b20 | 72 20 49 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 cb 07 00 00 00 00 00 00 00 00 00 00 00 00 | r.II............................ |
4b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
4b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
4b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
4ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
4bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
4be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
4c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
4c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 | ................................ |
4c40 | 00 00 00 00 00 00 01 00 00 00 00 00 00 00 2b 00 00 00 6e 3d 30 3b 74 70 69 3d 61 63 6f 73 28 2d | ..............+...n=0;tpi=acos(- |
4c60 | 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 42 65 61 72 64 3b 33 03 00 | 1)*2;t=0;mf=100;mt=0;..Beard;3.. |
4c80 | 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d | .mv=getspec(0,.5,0)*.1+mv*.9;sv= |
4ca0 | 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f | min(1,mv*6);bt=bt+1;t=t+0.02;..o |
4cc0 | 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 | x=reg00;oy=reg01;oz=reg02;rx=reg |
4ce0 | 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 | 03;ry=reg04;rz=reg05;cx=reg06;sx |
4d00 | 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 | =reg07;cy=reg08;sy=reg09;cz=reg1 |
4d20 | 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d | 0;sz=reg11;..x=0;y=0;af=w/h;mp=m |
4d40 | 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 | p+1.5/mf;..dd=reg20;..ccd=(reg20 |
4d60 | 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e 31 32 35 2b 2e 30 31 29 2a | )*1.6;..an=(sin(mp*2)*.125+.01)* |
4d80 | 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 73 61 3d 73 69 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d | sv*td+an*.6;sa=sin(an);fn=(sin(m |
4da0 | 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 2a 2e 31 32 35 2b 66 6e 2a 2e 36 3b 73 66 3d 73 69 | p*2))*sv*(1-td)*.125+fn*.6;sf=si |
4dc0 | 6e 28 66 6e 29 3b 73 76 3d 73 76 2a 2e 39 39 2b 2e 30 31 3b 63 6e 3d 63 6e 2a 2e 37 2b 2e 33 2a | n(fn);sv=sv*.99+.01;cn=cn*.7+.3* |
4de0 | 73 69 6e 28 6d 70 2a 33 29 2a 2e 35 2a 62 65 6c 6f 77 28 6d 64 2c 32 29 2a 61 62 6f 76 65 28 6d | sin(mp*3)*.5*below(md,2)*above(m |
4e00 | 64 2c 2d 31 29 2a 73 76 3b 63 63 3d 63 6f 73 28 63 6e 29 3b 73 63 3d 73 69 6e 28 63 6e 29 3b 64 | d,-1)*sv;cc=cos(cn);sc=sin(cn);d |
4e20 | 6e 3d 28 73 69 6e 28 6d 70 2a 34 29 2a 2e 37 35 2b 2e 33 29 2a 61 62 6f 76 65 28 6d 64 2c 30 29 | n=(sin(mp*4)*.75+.3)*above(md,0) |
4e40 | 2a 73 76 2a 2e 33 2b 64 6e 2a 2e 37 3b 63 64 3d 63 6f 73 28 64 6e 29 3b 73 64 3d 73 69 6e 28 64 | *sv*.3+dn*.7;cd=cos(dn);sd=sin(d |
4e60 | 6e 29 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 34 2a 77 2f 33 32 30 3b 0d 0a 0d | n);mf=mf*.92+.8;..ls=4*w/320;... |
4e80 | 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 67 36 32 3b 66 6e 3d 72 | .an=reg60;ca=reg61;sa=reg62;fn=r |
4ea0 | 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d 66 3d 72 65 67 36 36 3b | eg63;cf=reg64;sf=reg65;mf=reg66; |
4ec0 | 0d 0a 0d 0a 2f 2a 63 6c 69 70 2a 2f 0d 0a 61 64 3d 2d 2e 37 3b 70 79 3d 2d 2e 32 2d 61 64 2a 70 | ..../*clip*/..ad=-.7;py=-.2-ad*p |
4ee0 | 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 32 3b 0d 0a 70 7a 3d 30 3b 70 78 3d 30 3b 70 70 | ow(abs(ad),.8)*.2;..pz=0;px=0;pp |
4f00 | 78 3d 70 78 2a 63 63 2d 70 79 2a 73 63 3b 70 70 79 3d 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a | x=px*cc-py*sc;ppy=px*sc+py*cc;.. |
4f20 | 70 79 3d 70 70 79 3b 70 78 3d 70 70 78 2b 6f 78 2b 73 66 2a 2e 33 3b 70 70 7a 3d 70 7a 2a 63 64 | py=ppy;px=ppx+ox+sf*.3;ppz=pz*cd |
4f40 | 2d 70 79 2a 73 64 3b 0d 0a 70 70 79 3d 70 7a 2a 73 64 2b 70 79 2a 63 64 3b 70 79 3d 70 70 79 2b | -py*sd;..ppy=pz*sd+py*cd;py=ppy+ |
4f60 | 6f 79 2d 2e 32 35 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 3b 0d 0a 73 6b 64 64 3d | oy-.25;..pz=ppz+oz+sa*.3;..skdd= |
4f80 | 28 73 71 72 28 70 78 29 2b 73 71 72 28 70 7a 29 2b 73 71 72 28 2e 30 36 29 29 3b 0d 0a 6e 3d 38 | (sqr(px)+sqr(pz)+sqr(.06));..n=8 |
4fa0 | 30 2a 62 65 6c 6f 77 28 6f 79 2c 2e 35 38 29 3b 0d 0a 0d 0a ea 00 00 00 6f 74 3d 6d 69 6e 28 30 | 0*below(oy,.58);........ot=min(0 |
4fc0 | 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e | ,getspec(0,.1,0)*2-1)*((getosc(. |
4fe0 | 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 | 3,0,0)*200)%2);t=t+5*(ot+if(ot,1 |
5000 | 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 0d | ,0));mf=(bt-mt)*.5+mf*.7;mt=bt;. |
5020 | 0a 6d 64 3d 69 66 28 61 62 73 28 67 65 74 6f 73 63 28 2e 33 32 2c 30 2c 30 29 2a 31 30 30 29 25 | .md=if(abs(getosc(.32,0,0)*100)% |
5040 | 32 2c 61 62 73 28 67 65 74 6f 73 63 28 2e 35 36 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 36 32 | 2,abs(getosc(.56,0,0)+getosc(.62 |
5060 | 2c 30 2c 30 29 29 25 34 2d 31 2c 6d 64 29 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 | ,0,0))%4-1,md);td=if(getosc(.4,0 |
5080 | 2c 30 29 2a 32 35 35 25 32 2c 67 65 74 6f 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 | ,0)*255%2,getosc(.6,0,0)*255%2,t |
50a0 | 64 29 5b 02 00 00 62 64 3d 69 2a 74 70 69 2a 38 3b 61 64 3d 63 6f 73 28 64 74 29 2a 2e 35 2d 2e | d)[...bd=i*tpi*8;ad=cos(dt)*.5-. |
50c0 | 35 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 73 69 67 6e 28 63 6f 73 28 62 64 29 29 2c 2d 31 29 | 5;..skip=equal(sign(cos(bd)),-1) |
50e0 | 3b 0d 0a 61 64 3d 2d 2e 36 2d 73 71 72 74 28 63 6f 73 28 62 64 29 29 2a 2e 33 3b 62 74 74 3d 73 | ;..ad=-.6-sqrt(cos(bd))*.3;btt=s |
5100 | 69 6e 28 61 63 6f 73 28 61 64 2a 32 2b 31 29 29 3b 0d 0a 70 79 3d 2d 2e 31 37 2d 61 64 2a 70 6f | in(acos(ad*2+1));..py=-.17-ad*po |
5120 | 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 32 3b 72 64 3d 2e 30 36 3b 0d 0a 70 7a 3d 62 74 74 | w(abs(ad),.8)*.2;rd=.06;..pz=btt |
5140 | 2a 63 6f 73 28 62 64 29 2a 72 64 2d 2e 30 32 3b 0d 0a 70 78 3d 62 74 74 2a 73 69 6e 28 62 64 29 | *cos(bd)*rd-.02;..px=btt*sin(bd) |
5160 | 2a 72 64 3b 0d 0a 70 70 78 3d 70 78 2a 63 63 2d 70 79 2a 73 63 3b 0d 0a 70 70 79 3d 70 78 2a 73 | *rd;..ppx=px*cc-py*sc;..ppy=px*s |
5180 | 63 2b 70 79 2a 63 63 3b 0d 0a 70 79 3d 70 70 79 3b 0d 0a 70 78 3d 70 70 78 2b 6f 78 2b 73 66 2a | c+py*cc;..py=ppy;..px=ppx+ox+sf* |
51a0 | 2e 33 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 64 2d 70 79 2a 73 64 3b 0d 0a 70 70 79 3d 70 7a 2a 73 64 | .3;..ppz=pz*cd-py*sd;..ppy=pz*sd |
51c0 | 2b 70 79 2a 63 64 3b 0d 0a 70 79 3d 70 70 79 2b 6f 79 2d 2e 32 35 3b 0d 0a 70 7a 3d 70 70 7a 2b | +py*cd;..py=ppy+oy-.25;..pz=ppz+ |
51e0 | 6f 7a 2b 73 61 2a 2e 33 3b 0d 0a 73 6b 69 70 3d 73 6b 69 70 2b 61 62 6f 76 65 28 73 71 72 28 70 | oz+sa*.3;..skip=skip+above(sqr(p |
5200 | 78 29 2b 73 71 72 28 70 7a 29 2c 73 6b 64 64 29 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 | x)+sqr(pz),skdd);..x1=px*cy-pz*s |
5220 | 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 | y;z1=px*sy+pz*cy;..y2=py*cx-z1*s |
5240 | 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 | x;z2=py*sx+z1*cx;..x3=x1*cz-y2*s |
5260 | 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a | z;y3=x1*sz+y2*cz;..dt=if(above(z |
5280 | 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 | 2,.01),1/z2,0);..x=if(dt,x3*dt,x |
52a0 | 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 | );y=if(dt,y3*dt*af,y);..linesize |
52c0 | 3d 64 74 2a 6c 73 3b 0d 0a 72 65 64 3d 2e 35 3b 67 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 | =dt*ls;..red=.5;green=red;blue=r |
52e0 | 65 64 3b 0d 0a 73 69 7a 65 78 3d 64 74 2a 6c 73 2a 2e 30 34 3b 73 69 7a 65 79 3d 73 69 7a 65 78 | ed;..sizex=dt*ls*.04;sizey=sizex |
5300 | 3b 50 85 dc 03 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 00 00 00 00 00 00 | ;P...Acko.net:.Texer.II......... |
5320 | 00 00 00 00 00 47 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .....G.......................... |
5340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
5360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
5380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
53a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
53c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
53e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
5400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
5420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
5440 | 00 31 00 00 00 6e 3d 31 38 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 | .1...n=180;tpi=acos(-1)*2;t=0;mf |
5460 | 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 48 65 61 64 20 42 61 6e 64 3b 1e 03 00 00 6d 76 3d 67 65 74 | =100;mt=0;..Head.Band;....mv=get |
5480 | 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d | spec(0,.5,0)*.1+mv*.9;sv=min(1,m |
54a0 | 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 | v*6);bt=bt+1;t=t+0.02;..ox=reg00 |
54c0 | 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 | ;oy=reg01;oz=reg02;rx=reg03;ry=r |
54e0 | 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b | eg04;rz=reg05;cx=reg06;sx=reg07; |
5500 | 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 | cy=reg08;sy=reg09;cz=reg10;sz=re |
5520 | 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d | g11;..x=0;y=0;af=w/h;mp=mp+1.5/m |
5540 | 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d | f;..dd=reg20;..ccd=(reg20)*1.6;. |
5560 | 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e 31 32 35 2b 2e 30 31 29 2a 73 76 2a 74 64 2b 61 | .an=(sin(mp*2)*.125+.01)*sv*td+a |
5580 | 6e 2a 2e 36 3b 73 61 3d 73 69 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a 73 | n*.6;sa=sin(an);fn=(sin(mp*2))*s |
55a0 | 76 2a 28 31 2d 74 64 29 2a 2e 31 32 35 2b 66 6e 2a 2e 36 3b 73 66 3d 73 69 6e 28 66 6e 29 3b 73 | v*(1-td)*.125+fn*.6;sf=sin(fn);s |
55c0 | 76 3d 73 76 2a 2e 39 39 2b 2e 30 31 3b 63 6e 3d 63 6e 2a 2e 37 2b 2e 33 2a 73 69 6e 28 6d 70 2a | v=sv*.99+.01;cn=cn*.7+.3*sin(mp* |
55e0 | 33 29 2a 2e 35 2a 62 65 6c 6f 77 28 6d 64 2c 32 29 2a 61 62 6f 76 65 28 6d 64 2c 2d 31 29 2a 73 | 3)*.5*below(md,2)*above(md,-1)*s |
5600 | 76 3b 63 63 3d 63 6f 73 28 63 6e 29 3b 73 63 3d 73 69 6e 28 63 6e 29 3b 64 6e 3d 28 73 69 6e 28 | v;cc=cos(cn);sc=sin(cn);dn=(sin( |
5620 | 6d 70 2a 34 29 2a 2e 37 35 2b 2e 33 29 2a 61 62 6f 76 65 28 6d 64 2c 30 29 2a 73 76 2a 2e 33 2b | mp*4)*.75+.3)*above(md,0)*sv*.3+ |
5640 | 64 6e 2a 2e 37 3b 63 64 3d 63 6f 73 28 64 6e 29 3b 73 64 3d 73 69 6e 28 64 6e 29 3b 6d 66 3d 6d | dn*.7;cd=cos(dn);sd=sin(dn);mf=m |
5660 | 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 34 2a 77 2f 33 32 30 3b 0d 0a 0d 0a 61 6e 3d 72 65 67 | f*.92+.8;..ls=4*w/320;....an=reg |
5680 | 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 67 36 32 3b 66 6e 3d 72 65 67 36 33 3b 63 66 | 60;ca=reg61;sa=reg62;fn=reg63;cf |
56a0 | 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d 66 3d 72 65 67 36 36 3b 0d 0a 0d 0a 2f 2a 63 | =reg64;sf=reg65;mf=reg66;..../*c |
56c0 | 6c 69 70 2a 2f 0d 0a 61 64 3d 2d 2e 37 3b 70 79 3d 2d 2e 32 2d 61 64 2a 70 6f 77 28 61 62 73 28 | lip*/..ad=-.7;py=-.2-ad*pow(abs( |
56e0 | 61 64 29 2c 2e 38 29 2a 2e 32 3b 0d 0a 70 7a 3d 30 3b 70 78 3d 30 3b 70 70 78 3d 70 78 2a 63 63 | ad),.8)*.2;..pz=0;px=0;ppx=px*cc |
5700 | 2d 70 79 2a 73 63 3b 70 70 79 3d 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a 70 79 3d 70 70 79 3b | -py*sc;ppy=px*sc+py*cc;..py=ppy; |
5720 | 70 78 3d 70 70 78 2b 6f 78 2b 73 66 2a 2e 33 3b 70 70 7a 3d 70 7a 2a 63 64 2d 70 79 2a 73 64 3b | px=ppx+ox+sf*.3;ppz=pz*cd-py*sd; |
5740 | 0d 0a 70 70 79 3d 70 7a 2a 73 64 2b 70 79 2a 63 64 3b 70 79 3d 70 70 79 2b 6f 79 2d 2e 32 35 3b | ..ppy=pz*sd+py*cd;py=ppy+oy-.25; |
5760 | 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 3b 0d 0a 73 6b 64 64 3d 28 73 71 72 28 70 78 | ..pz=ppz+oz+sa*.3;..skdd=(sqr(px |
5780 | 29 2b 73 71 72 28 70 7a 29 2b 73 71 72 28 2e 30 36 29 29 3b 0d 0a 0d 0a ea 00 00 00 6f 74 3d 6d | )+sqr(pz)+sqr(.06));........ot=m |
57a0 | 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f | in(0,getspec(0,.1,0)*2-1)*((geto |
57c0 | 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 | sc(.3,0,0)*200)%2);t=t+5*(ot+if( |
57e0 | 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d | ot,1,0));mf=(bt-mt)*.5+mf*.7;mt= |
5800 | 62 74 3b 0d 0a 6d 64 3d 69 66 28 61 62 73 28 67 65 74 6f 73 63 28 2e 33 32 2c 30 2c 30 29 2a 31 | bt;..md=if(abs(getosc(.32,0,0)*1 |
5820 | 30 30 29 25 32 2c 61 62 73 28 67 65 74 6f 73 63 28 2e 35 36 2c 30 2c 30 29 2b 67 65 74 6f 73 63 | 00)%2,abs(getosc(.56,0,0)+getosc |
5840 | 28 2e 36 32 2c 30 2c 30 29 29 25 34 2d 31 2c 6d 64 29 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 | (.62,0,0))%4-1,md);td=if(getosc( |
5860 | 2e 34 2c 30 2c 30 29 2a 32 35 35 25 32 2c 67 65 74 6f 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 | .4,0,0)*255%2,getosc(.6,0,0)*255 |
5880 | 25 32 2c 74 64 29 e6 01 00 00 62 64 3d 69 2a 74 70 69 2a 38 3b 0d 0a 61 64 3d 2d 2e 37 3b 0d 0a | %2,td)....bd=i*tpi*8;..ad=-.7;.. |
58a0 | 70 79 3d 2d 2e 32 2d 61 64 2a 70 6f 77 28 61 62 73 28 61 64 29 2c 2e 38 29 2a 2e 32 3b 72 64 3d | py=-.2-ad*pow(abs(ad),.8)*.2;rd= |
58c0 | 2e 30 36 2b 69 2a 2e 30 31 3b 0d 0a 70 7a 3d 63 6f 73 28 62 64 29 2a 72 64 3b 0d 0a 70 78 3d 73 | .06+i*.01;..pz=cos(bd)*rd;..px=s |
58e0 | 69 6e 28 62 64 29 2a 72 64 3b 0d 0a 70 70 78 3d 70 78 2a 63 63 2d 70 79 2a 73 63 3b 0d 0a 70 70 | in(bd)*rd;..ppx=px*cc-py*sc;..pp |
5900 | 79 3d 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a 70 79 3d 70 70 79 3b 0d 0a 70 78 3d 70 70 78 2b | y=px*sc+py*cc;..py=ppy;..px=ppx+ |
5920 | 6f 78 2b 73 66 2a 2e 33 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 64 2d 70 79 2a 73 64 3b 0d 0a 70 70 79 | ox+sf*.3;..ppz=pz*cd-py*sd;..ppy |
5940 | 3d 70 7a 2a 73 64 2b 70 79 2a 63 64 3b 0d 0a 70 79 3d 70 70 79 2b 6f 79 2d 2e 32 35 3b 0d 0a 70 | =pz*sd+py*cd;..py=ppy+oy-.25;..p |
5960 | 7a 3d 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 3b 0d 0a 73 6b 69 70 3d 61 62 6f 76 65 28 73 71 72 28 | z=ppz+oz+sa*.3;..skip=above(sqr( |
5980 | 70 78 29 2b 73 71 72 28 70 7a 29 2c 73 6b 64 64 29 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a | px)+sqr(pz),skdd);..x1=px*cy-pz* |
59a0 | 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a | sy;z1=px*sy+pz*cy;..y2=py*cx-z1* |
59c0 | 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a | sx;z2=py*sx+z1*cx;..x3=x1*cz-y2* |
59e0 | 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 | sz;y3=x1*sz+y2*cz;..dt=if(above( |
5a00 | 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c | z2,.01),1/z2,0);..x=if(dt,x3*dt, |
5a20 | 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 72 65 64 3d 31 3b 67 | x);y=if(dt,y3*dt*af,y);..red=1;g |
5a40 | 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 64 3b 0d 0a 73 69 7a 65 78 3d 64 74 2a 6c 73 2a | reen=red;blue=red;..sizex=dt*ls* |
5a60 | 2e 30 35 3b 73 69 7a 65 79 3d 73 69 7a 65 78 3b 28 00 00 00 04 00 00 00 04 00 03 80 24 00 00 00 | .05;sizey=sizex;(...........$... |
5a80 | d5 05 00 00 01 d9 01 00 00 64 74 3d 69 2a 74 70 69 2a 31 39 3b 0d 0a 61 64 3d 63 6f 73 28 64 74 | .........dt=i*tpi*19;..ad=cos(dt |
5aa0 | 29 2a 2e 34 2d 2e 34 3b 62 64 3d 69 2a 74 70 69 3b 0d 0a 70 79 3d 2d 2e 31 39 2d 61 64 2a 2e 32 | )*.4-.4;bd=i*tpi;..py=-.19-ad*.2 |
5ac0 | 35 3b 0d 0a 70 7a 3d 73 69 6e 28 64 74 29 2a 63 6f 73 28 62 64 29 2a 2e 30 32 3b 0d 0a 70 78 3d | 5;..pz=sin(dt)*cos(bd)*.02;..px= |
5ae0 | 73 69 6e 28 64 74 29 2a 73 69 6e 28 62 64 29 2a 2e 30 32 3b 0d 0a 70 70 78 3d 70 78 2a 63 63 2d | sin(dt)*sin(bd)*.02;..ppx=px*cc- |
5b00 | 70 79 2a 73 63 3b 0d 0a 70 70 79 3d 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a 70 78 3d 70 70 78 | py*sc;..ppy=px*sc+py*cc;..px=ppx |
5b20 | 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 64 2d 70 78 2a 73 64 3b 0d 0a 70 70 78 3d 70 7a 2a 73 64 2b 70 | ;..ppz=pz*cd-px*sd;..ppx=pz*sd+p |
5b40 | 78 2a 63 64 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 2d 2e 30 33 3b 0d 0a 70 79 3d | x*cd;..pz=ppz+oz+sa*.3-.03;..py= |
5b60 | 70 70 79 2b 6f 79 2d 2e 32 33 3b 0d 0a 70 78 3d 70 70 78 2b 6f 78 2d 2e 30 33 2b 73 66 2a 2e 32 | ppy+oy-.23;..px=ppx+ox-.03+sf*.2 |
5b80 | 35 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a | 5;....x1=px*cy-pz*sy;z1=px*sy+pz |
5ba0 | 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 | *cy;..y2=py*cx-z1*sx;z2=py*sx+z1 |
5bc0 | 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 | *cx;..x3=x1*cz-y2*sz;y3=x1*sz+y2 |
5be0 | 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 | *cz;..dt=if(above(z2,.01),1/z2,0 |
5c00 | 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a | );..x=if(dt,x3*dt,x);y=if(dt,y3* |
5c20 | 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 64 | dt*af,y);..linesize=dt*ls;..dt=d |
5c40 | 74 2a 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 31 3b 67 72 65 65 6e 3d 31 3b 62 6c 75 65 3d 31 | t*0.6*ccd;..red=1;green=1;blue=1 |
5c60 | 3b 00 82 02 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e | ;.....mv=getspec(0,.5,0)*.1+mv*. |
5c80 | 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 | 9;sv=min(1,mv*6);bt=bt+1;t=t+0.0 |
5ca0 | 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 | 2;..ox=reg00;oy=reg01;oz=reg02;r |
5cc0 | 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 | x=reg03;ry=reg04;rz=reg05;cx=reg |
5ce0 | 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a | 06;sx=reg07;cy=reg08;sy=reg09;cz |
5d00 | 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 | =reg10;sz=reg11;..x=0;y=0;af=w/h |
5d20 | 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 | ;mp=mp+1.5/mf;..dd=reg20;..ccd=( |
5d40 | 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e 31 32 35 2b | reg20)*1.6;..an=(sin(mp*2)*.125+ |
5d60 | 2e 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 73 61 3d 73 69 6e 28 61 6e 29 3b 66 6e 3d 28 | .01)*sv*td+an*.6;sa=sin(an);fn=( |
5d80 | 73 69 6e 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 2a 2e 31 32 35 2b 66 6e 2a 2e 36 3b | sin(mp*2))*sv*(1-td)*.125+fn*.6; |
5da0 | 73 66 3d 73 69 6e 28 66 6e 29 3b 63 6e 3d 28 28 28 73 69 6e 28 6d 70 2a 34 29 2a 2e 36 2b 73 69 | sf=sin(fn);cn=(((sin(mp*4)*.6+si |
5dc0 | 6e 28 6d 70 2a 2e 39 29 2a 2e 35 29 2a 62 65 6c 6f 77 28 6d 64 2c 32 29 29 2a 73 76 2d 31 2e 35 | n(mp*.9)*.5)*below(md,2))*sv-1.5 |
5de0 | 2d 61 62 6f 76 65 28 6d 64 2c 32 29 2a 2e 37 2d 28 31 2d 73 76 29 2a 2e 37 29 2a 2e 33 2b 63 6e | -above(md,2)*.7-(1-sv)*.7)*.3+cn |
5e00 | 2a 2e 37 3b 63 63 3d 63 6f 73 28 63 6e 29 3b 73 63 3d 73 69 6e 28 63 6e 29 3b 64 6e 3d 28 28 73 | *.7;cc=cos(cn);sc=sin(cn);dn=((s |
5e20 | 69 6e 28 6d 70 2a 33 29 2a 2e 37 2a 73 76 2b 2e 37 29 2a 61 62 6f 76 65 28 6d 64 2c 30 29 29 2a | in(mp*3)*.7*sv+.7)*above(md,0))* |
5e40 | 2e 33 2b 64 6e 2a 2e 37 3b 63 64 3d 63 6f 73 28 64 6e 29 3b 73 64 3d 73 69 6e 28 64 6e 29 3b 6d | .3+dn*.7;cd=cos(dn);sd=sin(dn);m |
5e60 | 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 32 2a 77 2f 33 32 30 3b 0d 0a 6e 3d 69 66 28 | f=mf*.92+.8;..ls=2*w/320;..n=if( |
5e80 | 62 65 6c 6f 77 28 2d 73 79 2c 2d 30 2e 31 29 2a 62 65 6c 6f 77 28 6f 79 2c 2e 34 35 29 2c 39 30 | below(-sy,-0.1)*below(oy,.45),90 |
5ea0 | 2c 30 29 3b 0d 0a 0d 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 67 | ,0);....an=reg60;ca=reg61;sa=reg |
5ec0 | 36 32 3b 66 6e 3d 72 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d 66 | 62;fn=reg63;cf=reg64;sf=reg65;mf |
5ee0 | 3d 72 65 67 36 36 3b 00 29 01 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e | =reg66;.)...ot=min(0,getspec(0,. |
5f00 | 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 | 1,0)*2-1)*((getosc(.3,0,0)*200)% |
5f20 | 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d | 2);t=t+5*(ot+if(ot,1,0));mf=(bt- |
5f40 | 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 69 66 28 28 28 67 65 74 6f 73 | mt)*.5+mf*.7;mt=bt;md=if(((getos |
5f60 | 63 28 2e 31 31 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 39 38 2c 30 2c 30 29 2b 67 65 74 6f 73 | c(.11,0,0)+getosc(.98,0,0)+getos |
5f80 | 63 28 2e 32 33 2c 30 2c 30 29 29 2a 31 30 30 29 25 32 2c 28 28 67 65 74 6f 73 63 28 2e 32 35 38 | c(.23,0,0))*100)%2,((getosc(.258 |
5fa0 | 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 37 34 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 38 38 | ,0,0)+getosc(.74,0,0)+getosc(.88 |
5fc0 | 2c 30 2c 30 29 29 2a 31 30 30 29 25 34 2c 6d 64 29 3b 6d 67 3d 6d 67 2a 2e 38 2b 6d 64 2a 2e 32 | ,0,0))*100)%4,md);mg=mg*.8+md*.2 |
5fe0 | 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 35 25 32 2c 67 65 74 6f | ;td=if(getosc(.4,0,0)*255%2,geto |
6000 | 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 30 00 00 00 6e 3d 39 30 3b 74 70 | sc(.6,0,0)*255%2,td).0...n=90;tp |
6020 | 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 4c | i=acos(-1)*2;t=0;mf=100;mt=0;..L |
6040 | 65 66 74 20 41 72 6d 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 24 00 00 00 d7 05 00 | eft.Arm;.................$...... |
6060 | 00 01 d9 01 00 00 64 74 3d 69 2a 74 70 69 2a 31 39 3b 0d 0a 61 64 3d 63 6f 73 28 64 74 29 2a 2e | ......dt=i*tpi*19;..ad=cos(dt)*. |
6080 | 34 2d 2e 34 3b 62 64 3d 69 2a 74 70 69 3b 0d 0a 70 79 3d 2d 2e 31 39 2d 61 64 2a 2e 32 35 3b 0d | 4-.4;bd=i*tpi;..py=-.19-ad*.25;. |
60a0 | 0a 70 7a 3d 73 69 6e 28 64 74 29 2a 63 6f 73 28 62 64 29 2a 2e 30 32 3b 0d 0a 70 78 3d 73 69 6e | .pz=sin(dt)*cos(bd)*.02;..px=sin |
60c0 | 28 64 74 29 2a 73 69 6e 28 62 64 29 2a 2e 30 32 3b 0d 0a 70 70 78 3d 70 78 2a 63 63 2d 70 79 2a | (dt)*sin(bd)*.02;..ppx=px*cc-py* |
60e0 | 73 63 3b 0d 0a 70 70 79 3d 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a 70 78 3d 70 70 78 3b 0d 0a | sc;..ppy=px*sc+py*cc;..px=ppx;.. |
6100 | 70 70 7a 3d 70 7a 2a 63 64 2d 70 78 2a 73 64 3b 0d 0a 70 70 78 3d 70 7a 2a 73 64 2b 70 78 2a 63 | ppz=pz*cd-px*sd;..ppx=pz*sd+px*c |
6120 | 64 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 2d 2e 30 33 3b 0d 0a 70 79 3d 70 70 79 | d;..pz=ppz+oz+sa*.3-.03;..py=ppy |
6140 | 2b 6f 79 2d 2e 32 33 3b 0d 0a 70 78 3d 70 70 78 2b 6f 78 2b 2e 30 33 2b 73 66 2a 2e 32 35 3b 0d | +oy-.23;..px=ppx+ox+.03+sf*.25;. |
6160 | 0a 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 | ...x1=px*cy-pz*sy;z1=px*sy+pz*cy |
6180 | 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 | ;..y2=py*cx-z1*sx;z2=py*sx+z1*cx |
61a0 | 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a | ;..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz |
61c0 | 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d | ;..dt=if(above(z2,.01),1/z2,0);. |
61e0 | 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a | .x=if(dt,x3*dt,x);y=if(dt,y3*dt* |
6200 | 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 64 74 2a 30 | af,y);..linesize=dt*ls;..dt=dt*0 |
6220 | 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 31 3b 67 72 65 65 6e 3d 31 3b 62 6c 75 65 3d 31 3b 00 85 | .6*ccd;..red=1;green=1;blue=1;.. |
6240 | 02 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 | ...mv=getspec(0,.5,0)*.1+mv*.9;s |
6260 | 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b 0d | v=min(1,mv*6);bt=bt+1;t=t+0.02;. |
6280 | 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 | .ox=reg00;oy=reg01;oz=reg02;rx=r |
62a0 | 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b | eg03;ry=reg04;rz=reg05;cx=reg06; |
62c0 | 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 | sx=reg07;cy=reg08;sy=reg09;cz=re |
62e0 | 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 | g10;sz=reg11;..x=0;y=0;af=w/h;mp |
6300 | 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 | =mp+1.5/mf;..dd=reg20;..ccd=(reg |
6320 | 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e 31 32 35 2b 2e 30 31 | 20)*1.6;..an=(sin(mp*2)*.125+.01 |
6340 | 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 73 61 3d 73 69 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e | )*sv*td+an*.6;sa=sin(an);fn=(sin |
6360 | 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 2a 2e 31 32 35 2b 66 6e 2a 2e 36 3b 73 66 3d | (mp*2))*sv*(1-td)*.125+fn*.6;sf= |
6380 | 73 69 6e 28 66 6e 29 3b 63 6e 3d 28 28 28 73 69 6e 28 6d 70 2a 33 2b 6d 67 29 2a 2e 36 2b 73 69 | sin(fn);cn=(((sin(mp*3+mg)*.6+si |
63a0 | 6e 28 6d 70 2a 2e 39 29 2a 2e 35 29 2a 62 65 6c 6f 77 28 6d 64 2c 32 29 29 2a 73 76 2b 31 2e 35 | n(mp*.9)*.5)*below(md,2))*sv+1.5 |
63c0 | 2d 61 62 6f 76 65 28 6d 64 2c 32 29 2a 2e 37 2b 28 31 2d 73 76 29 2a 2e 37 29 2a 2e 33 2b 63 6e | -above(md,2)*.7+(1-sv)*.7)*.3+cn |
63e0 | 2a 2e 37 3b 63 63 3d 63 6f 73 28 63 6e 29 3b 73 63 3d 73 69 6e 28 63 6e 29 3b 64 6e 3d 28 28 2d | *.7;cc=cos(cn);sc=sin(cn);dn=((- |
6400 | 73 69 6e 28 6d 70 2a 34 29 2a 2e 37 2a 73 76 2d 2e 37 29 2a 61 62 6f 76 65 28 6d 64 2c 30 29 29 | sin(mp*4)*.7*sv-.7)*above(md,0)) |
6420 | 2a 2e 33 2b 64 6e 2a 2e 37 3b 63 64 3d 63 6f 73 28 64 6e 29 3b 73 64 3d 73 69 6e 28 64 6e 29 3b | *.3+dn*.7;cd=cos(dn);sd=sin(dn); |
6440 | 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 32 2a 77 2f 33 32 30 3b 0d 0a 6e 3d 69 66 | mf=mf*.92+.8;..ls=2*w/320;..n=if |
6460 | 28 62 65 6c 6f 77 28 73 79 2c 2d 30 2e 31 29 2a 62 65 6c 6f 77 28 6f 79 2c 2e 34 35 29 2c 39 30 | (below(sy,-0.1)*below(oy,.45),90 |
6480 | 2c 30 29 3b 0d 0a 0d 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 67 | ,0);....an=reg60;ca=reg61;sa=reg |
64a0 | 36 32 3b 66 6e 3d 72 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d 66 | 62;fn=reg63;cf=reg64;sf=reg65;mf |
64c0 | 3d 72 65 67 36 36 3b 00 27 01 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e | =reg66;.'...ot=min(0,getspec(0,. |
64e0 | 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 | 1,0)*2-1)*((getosc(.3,0,0)*200)% |
6500 | 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d | 2);t=t+5*(ot+if(ot,1,0));mf=(bt- |
6520 | 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 69 66 28 28 28 67 65 74 6f 73 | mt)*.5+mf*.7;mt=bt;md=if(((getos |
6540 | 63 28 2e 33 35 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 36 39 2c 30 2c 30 29 2b 67 65 74 6f 73 | c(.35,0,0)+getosc(.69,0,0)+getos |
6560 | 63 28 2e 31 2c 30 2c 30 29 29 2a 31 30 30 29 25 32 2c 28 28 67 65 74 6f 73 63 28 2e 30 39 2c 30 | c(.1,0,0))*100)%2,((getosc(.09,0 |
6580 | 2c 30 29 2b 67 65 74 6f 73 63 28 2e 35 31 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 36 36 2c 30 | ,0)+getosc(.51,0,0)+getosc(.66,0 |
65a0 | 2c 30 29 29 2a 31 30 30 29 25 34 2c 6d 64 29 3b 6d 67 3d 6d 67 2a 2e 38 2b 6d 64 2a 2e 32 3b 74 | ,0))*100)%4,md);mg=mg*.8+md*.2;t |
65c0 | 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 35 25 32 2c 67 65 74 6f 73 63 | d=if(getosc(.4,0,0)*255%2,getosc |
65e0 | 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 31 00 00 00 6e 3d 39 30 3b 74 70 69 3d | (.6,0,0)*255%2,td).1...n=90;tpi= |
6600 | 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 52 69 67 | acos(-1)*2;t=0;mf=100;mt=0;..Rig |
6620 | 68 74 20 41 72 6d 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 28 00 00 00 04 00 00 00 | ht.Arm;.................(....... |
6640 | 02 00 03 80 24 00 00 00 ae 05 00 00 01 dd 01 00 00 64 74 3d 69 2a 74 70 69 2a 31 39 3b 0d 0a 61 | ....$............dt=i*tpi*19;..a |
6660 | 64 3d 63 6f 73 28 64 74 29 2a 2e 34 2d 2e 34 3b 62 64 3d 69 2a 74 70 69 3b 0d 0a 70 79 3d 2d 2e | d=cos(dt)*.4-.4;bd=i*tpi;..py=-. |
6680 | 31 39 2d 61 64 2a 2e 32 35 3b 0d 0a 70 7a 3d 73 69 6e 28 64 74 29 2a 63 6f 73 28 62 64 29 2a 2e | 19-ad*.25;..pz=sin(dt)*cos(bd)*. |
66a0 | 30 32 3b 0d 0a 70 78 3d 73 69 6e 28 64 74 29 2a 73 69 6e 28 62 64 29 2a 2e 30 32 3b 0d 0a 70 70 | 02;..px=sin(dt)*sin(bd)*.02;..pp |
66c0 | 78 3d 70 78 2a 63 63 2d 70 79 2a 73 63 3b 0d 0a 70 70 79 3d 70 78 2a 73 63 2b 70 79 2a 63 63 3b | x=px*cc-py*sc;..ppy=px*sc+py*cc; |
66e0 | 0d 0a 70 78 3d 70 70 78 3b 0d 0a 70 70 7a 3d 70 7a 2a 63 64 2d 70 78 2a 73 64 3b 0d 0a 70 70 78 | ..px=ppx;..ppz=pz*cd-px*sd;..ppx |
6700 | 3d 70 7a 2a 73 64 2b 70 78 2a 63 64 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 2d 2e | =pz*sd+px*cd;..pz=ppz+oz+sa*.3-. |
6720 | 30 33 3b 0d 0a 70 79 3d 70 70 79 2b 6f 79 2d 2e 32 33 3b 0d 0a 70 78 3d 70 70 78 2b 6f 78 2d 2e | 03;..py=ppy+oy-.23;..px=ppx+ox-. |
6740 | 30 33 2b 73 66 2a 2e 32 35 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d | 03+sf*.25;....x1=px*cy-pz*sy;z1= |
6760 | 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d | px*sy+pz*cy;..y2=py*cx-z1*sx;z2= |
6780 | 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d | py*sx+z1*cx;..x3=x1*cz-y2*sz;y3= |
67a0 | 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 | x1*sz+y2*cz;..dt=if(above(z2,.01 |
67c0 | 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 | ),1/z2,0);..x=if(dt,x3*dt,x);y=i |
67e0 | 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c | f(dt,y3*dt*af,y);..linesize=dt*l |
6800 | 73 3b 0d 0a 64 74 3d 64 74 2a 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 64 74 2d 2e 32 3b 67 72 | s;..dt=dt*0.6*ccd;..red=dt-.2;gr |
6820 | 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 00 57 02 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e | een=0;blue=0;.W...mv=getspec(0,. |
6840 | 35 2c 30 29 2a 2e 31 2b 6d 76 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d | 5,0)*.1+mv*.9;sv=min(1,mv*6);bt= |
6860 | 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 | bt+1;t=t+0.02;..ox=reg00;oy=reg0 |
6880 | 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d | 1;oz=reg02;rx=reg03;ry=reg04;rz= |
68a0 | 72 65 67 30 35 3b 63 78 3d 72 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 | reg05;cx=reg06;sx=reg07;cy=reg08 |
68c0 | 3b 73 79 3d 72 65 67 30 39 3b 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d | ;sy=reg09;cz=reg10;sz=reg11;..x= |
68e0 | 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 | 0;y=0;af=w/h;mp=mp+1.5/mf;..dd=r |
6900 | 65 67 32 30 3b 0d 0a 63 63 64 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e | eg20;..ccd=(reg20)*1.6;..an=(sin |
6920 | 28 6d 70 2a 32 29 2a 2e 31 32 35 2b 2e 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 73 61 3d | (mp*2)*.125+.01)*sv*td+an*.6;sa= |
6940 | 73 69 6e 28 61 6e 29 3b 66 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 | sin(an);fn=(sin(mp*2))*sv*(1-td) |
6960 | 2a 2e 31 32 35 2b 66 6e 2a 2e 36 3b 73 66 3d 73 69 6e 28 66 6e 29 3b 63 6e 3d 28 28 28 73 69 6e | *.125+fn*.6;sf=sin(fn);cn=(((sin |
6980 | 28 6d 70 2a 34 29 2a 2e 36 2b 73 69 6e 28 6d 70 2a 2e 39 29 2a 2e 35 29 2a 62 65 6c 6f 77 28 6d | (mp*4)*.6+sin(mp*.9)*.5)*below(m |
69a0 | 64 2c 32 29 29 2a 73 76 2d 31 2e 35 2d 61 62 6f 76 65 28 6d 64 2c 32 29 2a 2e 37 2d 28 31 2d 73 | d,2))*sv-1.5-above(md,2)*.7-(1-s |
69c0 | 76 29 2a 2e 37 29 2a 2e 33 2b 63 6e 2a 2e 37 3b 63 63 3d 63 6f 73 28 63 6e 29 3b 73 63 3d 73 69 | v)*.7)*.3+cn*.7;cc=cos(cn);sc=si |
69e0 | 6e 28 63 6e 29 3b 64 6e 3d 28 28 73 69 6e 28 6d 70 2a 33 29 2a 2e 37 2a 73 76 2b 2e 37 29 2a 61 | n(cn);dn=((sin(mp*3)*.7*sv+.7)*a |
6a00 | 62 6f 76 65 28 6d 64 2c 30 29 29 2a 2e 33 2b 64 6e 2a 2e 37 3b 63 64 3d 63 6f 73 28 64 6e 29 3b | bove(md,0))*.3+dn*.7;cd=cos(dn); |
6a20 | 73 64 3d 73 69 6e 28 64 6e 29 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 32 2a 77 | sd=sin(dn);mf=mf*.92+.8;..ls=2*w |
6a40 | 2f 33 32 30 3b 0d 0a 0d 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 | /320;....an=reg60;ca=reg61;sa=re |
6a60 | 67 36 32 3b 66 6e 3d 72 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d | g62;fn=reg63;cf=reg64;sf=reg65;m |
6a80 | 66 3d 72 65 67 36 36 3b 00 29 01 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c | f=reg66;.)...ot=min(0,getspec(0, |
6aa0 | 2e 31 2c 30 29 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 | .1,0)*2-1)*((getosc(.3,0,0)*200) |
6ac0 | 25 32 29 3b 74 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 | %2);t=t+5*(ot+if(ot,1,0));mf=(bt |
6ae0 | 2d 6d 74 29 2a 2e 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 69 66 28 28 28 67 65 74 6f | -mt)*.5+mf*.7;mt=bt;md=if(((geto |
6b00 | 73 63 28 2e 31 31 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 39 38 2c 30 2c 30 29 2b 67 65 74 6f | sc(.11,0,0)+getosc(.98,0,0)+geto |
6b20 | 73 63 28 2e 32 33 2c 30 2c 30 29 29 2a 31 30 30 29 25 32 2c 28 28 67 65 74 6f 73 63 28 2e 32 35 | sc(.23,0,0))*100)%2,((getosc(.25 |
6b40 | 38 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 37 34 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 38 | 8,0,0)+getosc(.74,0,0)+getosc(.8 |
6b60 | 38 2c 30 2c 30 29 29 2a 31 30 30 29 25 34 2c 6d 64 29 3b 6d 67 3d 6d 67 2a 2e 38 2b 6d 64 2a 2e | 8,0,0))*100)%4,md);mg=mg*.8+md*. |
6b80 | 32 3b 74 64 3d 69 66 28 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 35 25 32 2c 67 65 74 | 2;td=if(getosc(.4,0,0)*255%2,get |
6ba0 | 6f 73 63 28 2e 36 2c 30 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 30 00 00 00 6e 3d 39 30 3b 74 | osc(.6,0,0)*255%2,td).0...n=90;t |
6bc0 | 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 | pi=acos(-1)*2;t=0;mf=100;mt=0;.. |
6be0 | 4c 65 66 74 20 41 72 6d 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 24 00 00 00 b1 05 | Left.Arm;.................$..... |
6c00 | 00 00 01 dd 01 00 00 64 74 3d 69 2a 74 70 69 2a 31 39 3b 0d 0a 61 64 3d 63 6f 73 28 64 74 29 2a | .......dt=i*tpi*19;..ad=cos(dt)* |
6c20 | 2e 34 2d 2e 34 3b 62 64 3d 69 2a 74 70 69 3b 0d 0a 70 79 3d 2d 2e 31 39 2d 61 64 2a 2e 32 35 3b | .4-.4;bd=i*tpi;..py=-.19-ad*.25; |
6c40 | 0d 0a 70 7a 3d 73 69 6e 28 64 74 29 2a 63 6f 73 28 62 64 29 2a 2e 30 32 3b 0d 0a 70 78 3d 73 69 | ..pz=sin(dt)*cos(bd)*.02;..px=si |
6c60 | 6e 28 64 74 29 2a 73 69 6e 28 62 64 29 2a 2e 30 32 3b 0d 0a 70 70 78 3d 70 78 2a 63 63 2d 70 79 | n(dt)*sin(bd)*.02;..ppx=px*cc-py |
6c80 | 2a 73 63 3b 0d 0a 70 70 79 3d 70 78 2a 73 63 2b 70 79 2a 63 63 3b 0d 0a 70 78 3d 70 70 78 3b 0d | *sc;..ppy=px*sc+py*cc;..px=ppx;. |
6ca0 | 0a 70 70 7a 3d 70 7a 2a 63 64 2d 70 78 2a 73 64 3b 0d 0a 70 70 78 3d 70 7a 2a 73 64 2b 70 78 2a | .ppz=pz*cd-px*sd;..ppx=pz*sd+px* |
6cc0 | 63 64 3b 0d 0a 70 7a 3d 70 70 7a 2b 6f 7a 2b 73 61 2a 2e 33 2d 2e 30 33 3b 0d 0a 70 79 3d 70 70 | cd;..pz=ppz+oz+sa*.3-.03;..py=pp |
6ce0 | 79 2b 6f 79 2d 2e 32 33 3b 0d 0a 70 78 3d 70 70 78 2b 6f 78 2b 2e 30 33 2b 73 66 2a 2e 32 35 3b | y+oy-.23;..px=ppx+ox+.03+sf*.25; |
6d00 | 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 | ....x1=px*cy-pz*sy;z1=px*sy+pz*c |
6d20 | 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 | y;..y2=py*cx-z1*sx;z2=py*sx+z1*c |
6d40 | 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 | x;..x3=x1*cz-y2*sz;y3=x1*sz+y2*c |
6d60 | 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b | z;..dt=if(above(z2,.01),1/z2,0); |
6d80 | 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 | ..x=if(dt,x3*dt,x);y=if(dt,y3*dt |
6da0 | 2a 61 66 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 64 74 2a 6c 73 3b 0d 0a 64 74 3d 64 74 2a | *af,y);..linesize=dt*ls;..dt=dt* |
6dc0 | 30 2e 36 2a 63 63 64 3b 0d 0a 72 65 64 3d 64 74 2d 2e 32 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 | 0.6*ccd;..red=dt-.2;green=0;blue |
6de0 | 3d 30 3b 00 5b 02 00 00 6d 76 3d 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 2e 31 2b 6d 76 | =0;.[...mv=getspec(0,.5,0)*.1+mv |
6e00 | 2a 2e 39 3b 73 76 3d 6d 69 6e 28 31 2c 6d 76 2a 36 29 3b 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 | *.9;sv=min(1,mv*6);bt=bt+1;t=t+0 |
6e20 | 2e 30 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 | .02;..ox=reg00;oy=reg01;oz=reg02 |
6e40 | 3b 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 | ;rx=reg03;ry=reg04;rz=reg05;cx=r |
6e60 | 65 67 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b | eg06;sx=reg07;cy=reg08;sy=reg09; |
6e80 | 63 7a 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 | cz=reg10;sz=reg11;..x=0;y=0;af=w |
6ea0 | 2f 68 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 63 63 64 | /h;mp=mp+1.5/mf;..dd=reg20;..ccd |
6ec0 | 3d 28 72 65 67 32 30 29 2a 31 2e 36 3b 0d 0a 61 6e 3d 28 73 69 6e 28 6d 70 2a 32 29 2a 2e 31 32 | =(reg20)*1.6;..an=(sin(mp*2)*.12 |
6ee0 | 35 2b 2e 30 31 29 2a 73 76 2a 74 64 2b 61 6e 2a 2e 36 3b 73 61 3d 73 69 6e 28 61 6e 29 3b 66 6e | 5+.01)*sv*td+an*.6;sa=sin(an);fn |
6f00 | 3d 28 73 69 6e 28 6d 70 2a 32 29 29 2a 73 76 2a 28 31 2d 74 64 29 2a 2e 31 32 35 2b 66 6e 2a 2e | =(sin(mp*2))*sv*(1-td)*.125+fn*. |
6f20 | 36 3b 73 66 3d 73 69 6e 28 66 6e 29 3b 63 6e 3d 28 28 28 73 69 6e 28 6d 70 2a 33 2b 6d 67 29 2a | 6;sf=sin(fn);cn=(((sin(mp*3+mg)* |
6f40 | 2e 36 2b 73 69 6e 28 6d 70 2a 2e 39 29 2a 2e 35 29 2a 62 65 6c 6f 77 28 6d 64 2c 32 29 29 2a 73 | .6+sin(mp*.9)*.5)*below(md,2))*s |
6f60 | 76 2b 31 2e 35 2d 61 62 6f 76 65 28 6d 64 2c 32 29 2a 2e 37 2b 28 31 2d 73 76 29 2a 2e 37 29 2a | v+1.5-above(md,2)*.7+(1-sv)*.7)* |
6f80 | 2e 33 2b 63 6e 2a 2e 37 3b 63 63 3d 63 6f 73 28 63 6e 29 3b 73 63 3d 73 69 6e 28 63 6e 29 3b 64 | .3+cn*.7;cc=cos(cn);sc=sin(cn);d |
6fa0 | 6e 3d 28 28 2d 73 69 6e 28 6d 70 2a 34 29 2a 2e 37 2a 73 76 2d 2e 37 29 2a 61 62 6f 76 65 28 6d | n=((-sin(mp*4)*.7*sv-.7)*above(m |
6fc0 | 64 2c 30 29 29 2a 2e 33 2b 64 6e 2a 2e 37 3b 63 64 3d 63 6f 73 28 64 6e 29 3b 73 64 3d 73 69 6e | d,0))*.3+dn*.7;cd=cos(dn);sd=sin |
6fe0 | 28 64 6e 29 3b 6d 66 3d 6d 66 2a 2e 39 32 2b 2e 38 3b 0d 0a 6c 73 3d 32 2a 77 2f 33 32 30 3b 0d | (dn);mf=mf*.92+.8;..ls=2*w/320;. |
7000 | 0a 0d 0a 61 6e 3d 72 65 67 36 30 3b 63 61 3d 72 65 67 36 31 3b 73 61 3d 72 65 67 36 32 3b 66 6e | ...an=reg60;ca=reg61;sa=reg62;fn |
7020 | 3d 72 65 67 36 33 3b 63 66 3d 72 65 67 36 34 3b 73 66 3d 72 65 67 36 35 3b 6d 66 3d 72 65 67 36 | =reg63;cf=reg64;sf=reg65;mf=reg6 |
7040 | 36 3b 00 27 01 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a | 6;.'...ot=min(0,getspec(0,.1,0)* |
7060 | 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 3d | 2-1)*((getosc(.3,0,0)*200)%2);t= |
7080 | 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a 2e | t+5*(ot+if(ot,1,0));mf=(bt-mt)*. |
70a0 | 35 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b 6d 64 3d 69 66 28 28 28 67 65 74 6f 73 63 28 2e 33 35 | 5+mf*.7;mt=bt;md=if(((getosc(.35 |
70c0 | 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 36 39 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 31 2c | ,0,0)+getosc(.69,0,0)+getosc(.1, |
70e0 | 30 2c 30 29 29 2a 31 30 30 29 25 32 2c 28 28 67 65 74 6f 73 63 28 2e 30 39 2c 30 2c 30 29 2b 67 | 0,0))*100)%2,((getosc(.09,0,0)+g |
7100 | 65 74 6f 73 63 28 2e 35 31 2c 30 2c 30 29 2b 67 65 74 6f 73 63 28 2e 36 36 2c 30 2c 30 29 29 2a | etosc(.51,0,0)+getosc(.66,0,0))* |
7120 | 31 30 30 29 25 34 2c 6d 64 29 3b 6d 67 3d 6d 67 2a 2e 38 2b 6d 64 2a 2e 32 3b 74 64 3d 69 66 28 | 100)%4,md);mg=mg*.8+md*.2;td=if( |
7140 | 67 65 74 6f 73 63 28 2e 34 2c 30 2c 30 29 2a 32 35 35 25 32 2c 67 65 74 6f 73 63 28 2e 36 2c 30 | getosc(.4,0,0)*255%2,getosc(.6,0 |
7160 | 2c 30 29 2a 32 35 35 25 32 2c 74 64 29 00 31 00 00 00 6e 3d 39 30 3b 74 70 69 3d 61 63 6f 73 28 | ,0)*255%2,td).1...n=90;tpi=acos( |
7180 | 2d 31 29 2a 32 3b 74 3d 30 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 3b a4 20 52 69 67 68 74 20 41 72 | -1)*2;t=0;mf=100;mt=0;..Right.Ar |
71a0 | 6d 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 fe ff ff ff 71 00 00 00 80 00 01 01 24 | m;.....................q.......$ |
71c0 | 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
71e0 | 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 | .@..AVS.2.8+.Effect.List.Config. |
7200 | 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 | ................................ |
7220 | 01 00 00 00 00 00 00 00 80 00 00 00 88 71 af 03 43 6f 6c 6f 72 20 4d 61 70 00 00 00 00 00 00 00 | .............q..Color.Map....... |
7240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 b0 02 00 00 04 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7260 | 00 00 00 08 01 00 00 00 02 00 00 00 c8 e6 fa 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
72a0 | 00 00 00 00 02 00 00 00 20 b7 f8 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
72c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
72e0 | 02 00 00 00 88 e9 fa 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 | ................................ |
7320 | c8 55 01 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .U.............................. |
7340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 90 86 01 02 | ................................ |
7360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 a0 67 f4 01 00 00 00 00 | .........................g...... |
73a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
73c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 60 41 e5 01 00 00 00 00 00 00 00 00 | ....................`A.......... |
73e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7400 | 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 68 36 0c 02 00 00 00 00 00 00 00 00 00 00 00 00 | ................h6.............. |
7420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7440 | 00 00 00 00 0d 00 00 00 00 00 00 00 00 00 00 00 11 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 | ................................ |
7460 | 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7480 | ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 | ................................ |
74a0 | 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 | ................................ |
74c0 | 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
74e0 | ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 | ................................ |
7500 | 01 00 00 00 12 00 00 00 10 00 00 00 01 00 00 00 01 00 00 00 02 00 00 00 80 00 00 00 50 85 dc 03 | ............................P... |
7520 | 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | Acko.net:.Texer.II.............. |
7540 | 50 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | P............................... |
7560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
75a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
75c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
75e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7640 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 2d 00 00 00 | ............................-... |
7660 | 6e 3d 35 30 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 6d 66 3d 31 30 30 3b 6d 74 3d 30 | n=500;tpi=acos(-1)*2;mf=100;mt=0 |
7680 | 3b a4 20 53 6e 6f 77 2f 44 75 73 74 3b d3 00 00 00 62 74 3d 62 74 2b 31 3b 74 3d 74 2b 30 2e 30 | ;..Snow/Dust;....bt=bt+1;t=t+0.0 |
76a0 | 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 72 | 2;..ox=reg00;oy=reg01;oz=reg02;r |
76c0 | 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 63 78 3d 72 65 67 | x=reg03;ry=reg04;rz=reg05;cx=reg |
76e0 | 30 36 3b 73 78 3d 72 65 67 30 37 3b 63 79 3d 72 65 67 30 38 3b 73 79 3d 72 65 67 30 39 3b 63 7a | 06;sx=reg07;cy=reg08;sy=reg09;cz |
7700 | 3d 72 65 67 31 30 3b 73 7a 3d 72 65 67 31 31 3b 0d 0a 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 | =reg10;sz=reg11;..x=0;y=0;af=w/h |
7720 | 3b 6d 70 3d 6d 70 2b 31 2e 35 2f 6d 66 3b 76 31 3d 31 32 35 3b 76 32 3d 31 33 35 3b 76 33 3d 34 | ;mp=mp+1.5/mf;v1=125;v2=135;v3=4 |
7740 | 32 31 31 3b 78 3d 31 3b 79 3d 30 3b 0d 0a 0d 0a 64 64 3d 72 65 67 32 30 3b 0d 0a 73 73 3d 77 2f | 211;x=1;y=0;....dd=reg20;..ss=w/ |
7760 | 33 32 30 3b 67 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 | 320;g...ot=min(0,getspec(0,.1,0) |
7780 | 2a 32 2d 31 29 2a 28 28 67 65 74 6f 73 63 28 2e 33 2c 30 2c 30 29 2a 32 30 30 29 25 32 29 3b 74 | *2-1)*((getosc(.3,0,0)*200)%2);t |
77a0 | 3d 74 2b 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 6d 66 3d 28 62 74 2d 6d 74 29 2a | =t+5*(ot+if(ot,1,0));mf=(bt-mt)* |
77c0 | 2e 33 2b 6d 66 2a 2e 37 3b 6d 74 3d 62 74 3b c1 01 00 00 76 31 3d 28 76 31 2a 34 32 31 31 2b 37 | .3+mf*.7;mt=bt;....v1=(v1*4211+7 |
77e0 | 31 35 31 29 25 31 30 30 30 30 3b 0d 0a 76 32 3d 28 76 32 2a 31 31 35 37 33 2b 39 39 31 33 29 25 | 151)%10000;..v2=(v2*11573+9913)% |
7800 | 31 30 30 30 30 3b 0d 0a 76 33 3d 28 76 33 2a 39 36 34 31 31 2b 31 36 32 31 39 29 25 31 30 30 30 | 10000;..v3=(v3*96411+16219)%1000 |
7820 | 30 3b 0d 0a 79 76 3d 2d 31 30 30 30 30 2b 28 28 76 32 2b 35 2a 62 74 2a 28 76 33 25 31 30 29 29 | 0;..yv=-10000+((v2+5*bt*(v3%10)) |
7840 | 25 31 32 30 30 30 29 3b 0d 0a 79 76 3d 6d 69 6e 28 30 2c 79 76 29 3b 0d 0a 70 78 3d 76 31 2a 2e | %12000);..yv=min(0,yv);..px=v1*. |
7860 | 30 30 30 31 35 2d 2e 35 2b 6f 78 3b 0d 0a 70 79 3d 79 76 2a 2e 30 30 30 31 2b 6f 79 3b 0d 0a 70 | 00015-.5+ox;..py=yv*.0001+oy;..p |
7880 | 7a 3d 76 33 2a 2e 30 30 30 31 35 2d 2e 35 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a | z=v3*.00015-.5+oz;..x1=px*cy-pz* |
78a0 | 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a | sy;z1=px*sy+pz*cy;..y2=py*cx-z1* |
78c0 | 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a | sx;z2=py*sx+z1*cx;..x3=x1*cz-y2* |
78e0 | 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 73 6b 69 70 3d 62 6e 6f 74 28 62 65 | sz;y3=x1*sz+y2*cz;..skip=bnot(be |
7900 | 6c 6f 77 28 7a 32 2c 64 64 2a 2e 38 29 29 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c | low(z2,dd*.8));..dt=if(above(z2, |
7920 | 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b | .05),1/z2,0);..x=if(dt,x3*dt,x); |
7940 | 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 72 65 64 3d 64 74 2d 2e 35 3b | y=if(dt,y3*dt*af,y);..red=dt-.5; |
7960 | 67 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 64 2a 31 2e 35 3b 0d 0a 73 69 7a 65 78 3d 64 | green=red;blue=red*1.5;..sizex=d |
7980 | 74 2a 2e 31 2a 73 73 3b 73 69 7a 65 79 3d 73 69 7a 65 78 3b | t*.1*ss;sizey=sizex; |