| 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; |