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 00 15 00 00 00 fd 02 00 | Nullsoft.AVS.Preset.0.2......... |
0020 | 00 f9 02 00 00 20 57 68 61 63 6b 6f 20 41 56 53 20 56 49 20 2d 20 43 6f 6e 74 61 69 6e 6d 65 6e | ......Whacko.AVS.VI.-.Containmen |
0040 | 74 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | t..----------------------------- |
0060 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 54 68 69 73 20 70 72 65 | --------------------....This.pre |
0080 | 73 65 74 20 73 74 61 72 74 65 64 20 6f 75 74 20 61 73 20 61 20 57 61 72 70 2d 63 6f 72 65 20 6b | set.started.out.as.a.Warp-core.k |
00a0 | 69 6e 64 20 6f 66 20 70 72 65 73 65 74 2c 20 62 75 74 20 6f 6e 63 65 20 49 20 73 61 77 20 74 68 | ind.of.preset,.but.once.I.saw.th |
00c0 | 61 74 20 69 74 20 6c 6f 6f 6b 65 64 20 6d 6f 72 65 20 6c 69 6b 65 20 61 20 63 61 6e 69 73 74 65 | at.it.looked.more.like.a.caniste |
00e0 | 72 20 6f 72 20 63 6f 6e 74 61 69 6e 65 72 2c 20 49 20 63 68 61 6e 67 65 64 20 69 74 20 61 20 62 | r.or.container,.I.changed.it.a.b |
0100 | 69 74 20 61 6e 64 20 61 64 64 65 64 20 73 6f 6d 65 20 6d 6f 72 65 20 72 6f 74 61 74 69 6f 6e 73 | it.and.added.some.more.rotations |
0120 | 2e 0d 0a 0d 0a 54 68 65 20 63 79 6c 69 6e 64 65 72 20 69 73 20 32 2d 73 69 64 65 64 20 61 6e 64 | .....The.cylinder.is.2-sided.and |
0140 | 20 74 68 75 73 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 32 20 44 4d 73 20 28 77 68 69 63 68 20 65 | .thus.consists.of.2.DMs.(which.e |
0160 | 78 70 6c 61 69 6e 73 20 74 68 65 20 73 6c 6f 77 6e 65 73 73 20 6f 66 20 74 68 69 73 20 70 72 65 | xplains.the.slowness.of.this.pre |
0180 | 73 65 74 29 2e 20 49 20 6f 72 69 67 69 6e 61 6c 6c 79 20 70 6c 61 6e 65 64 20 74 6f 20 6d 61 6b | set)..I.originally.planed.to.mak |
01a0 | 65 20 74 68 65 20 63 6f 6e 74 61 69 6e 65 72 27 73 20 63 6f 6e 74 65 6e 74 73 20 6d 6f 72 65 20 | e.the.container's.contents.more. |
01c0 | 69 6e 74 65 72 65 73 74 69 6e 67 2c 20 62 75 74 20 69 74 20 77 6f 75 6c 64 20 62 65 20 74 6f 6f | interesting,.but.it.would.be.too |
01e0 | 20 73 6c 6f 77 2e 0d 0a 0d 0a 4e 6f 77 20 69 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 69 74 27 73 | .slow.....Now.it.looks.like.it's |
0200 | 20 61 20 66 6f 72 63 65 66 69 65 6c 64 20 61 72 6f 75 6e 64 20 73 6f 6d 65 20 64 61 6e 67 65 72 | .a.forcefield.around.some.danger |
0220 | 6f 75 73 20 63 72 65 61 74 75 72 65 20 6f 72 20 73 75 62 73 74 61 6e 63 65 2c 20 77 68 69 63 68 | ous.creature.or.substance,.which |
0240 | 20 69 73 20 6e 65 61 74 20 74 6f 6f 2e 0d 0a 0d 0a 0d 0a 53 74 65 76 65 6e 20 57 69 74 74 65 6e | .is.neat.too.......Steven.Witten |
0260 | 73 20 2f 20 55 6e 43 6f 6e 65 44 0d 0a 73 74 65 76 65 6e 40 61 63 6b 6f 2e 6e 65 74 20 2d 20 77 | s./.UnConeD..steven@acko.net.-.w |
0280 | 77 77 2e 61 63 6b 6f 2e 6e 65 74 0d 0a 0d 0a 28 49 66 20 79 6f 75 20 77 69 73 68 20 74 6f 20 75 | ww.acko.net....(If.you.wish.to.u |
02a0 | 73 65 20 61 6e 79 20 70 61 72 74 20 6f 66 20 74 68 69 73 20 70 72 65 73 65 74 20 69 6e 20 79 6f | se.any.part.of.this.preset.in.yo |
02c0 | 75 72 20 6f 77 6e 20 70 61 63 6b 73 20 79 6f 75 20 61 72 65 20 66 72 65 65 20 74 6f 20 64 6f 20 | ur.own.packs.you.are.free.to.do. |
02e0 | 73 6f 2c 20 6f 6e 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 74 68 61 74 20 79 6f 75 20 69 6e | so,.on.the.condition.that.you.in |
0300 | 63 6c 75 64 65 20 6d 79 20 63 6f 6e 74 61 63 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 29 00 fe ff | clude.my.contact.information)... |
0320 | ff ff 75 03 00 00 80 00 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..u.......$..................... |
0340 | 00 00 00 00 00 00 00 01 00 00 00 03 00 00 00 08 00 00 00 04 00 00 00 2f 03 00 00 28 00 00 00 04 | ......................./...(.... |
0360 | 00 00 00 01 00 03 80 06 00 00 00 04 00 00 00 02 00 00 00 24 00 00 00 ab 00 00 00 01 64 00 00 00 | ...................$........d... |
0380 | 79 3d 28 2d 74 2a 31 30 30 30 29 25 31 30 30 30 2a 2e 30 30 31 2a 32 2d 31 3b 0d 0a 78 3d 69 2a | y=(-t*1000)%1000*.001*2-1;..x=i* |
03a0 | 32 2d 31 3b 0d 0a 72 65 64 3d 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 32 29 3b 67 | 2-1;..red=abs(getosc(i,0,0)*2);g |
03c0 | 72 65 65 6e 3d 72 65 64 2a 63 67 3b 62 6c 75 65 3d 72 65 64 2a 63 62 3b 72 65 64 3d 72 65 64 2a | reen=red*cg;blue=red*cb;red=red* |
03e0 | 63 72 3b 00 22 00 00 00 74 3d 74 2d 30 2e 30 32 3b 63 72 3d 72 65 64 3b 63 67 3d 67 72 65 65 6e | cr;."...t=t-0.02;cr=red;cg=green |
0400 | 3b 63 62 3d 62 6c 75 65 3b 00 00 00 00 00 04 00 00 00 6e 3d 32 00 02 00 00 00 01 00 00 00 33 f7 | ;cb=blue;.........n=2.........3. |
0420 | 95 00 01 00 00 00 24 00 00 00 ac 00 00 00 01 64 00 00 00 79 3d 28 2d 74 2a 31 30 30 30 29 25 31 | ......$........d...y=(-t*1000)%1 |
0440 | 30 30 30 2a 2e 30 30 31 2a 32 2d 31 3b 0d 0a 78 3d 69 2a 32 2d 31 3b 0d 0a 72 65 64 3d 61 62 73 | 000*.001*2-1;..x=i*2-1;..red=abs |
0460 | 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 32 29 3b 67 72 65 65 6e 3d 72 65 64 2a 63 67 3b 62 | (getosc(i,0,0)*2);green=red*cg;b |
0480 | 6c 75 65 3d 72 65 64 2a 63 62 3b 72 65 64 3d 72 65 64 2a 63 72 3b 00 23 00 00 00 74 3d 74 2b 30 | lue=red*cb;red=red*cr;.#...t=t+0 |
04a0 | 2e 30 32 31 3b 63 72 3d 72 65 64 3b 63 67 3d 67 72 65 65 6e 3b 63 62 3d 62 6c 75 65 3b 00 00 00 | .021;cr=red;cg=green;cb=blue;... |
04c0 | 00 00 04 00 00 00 6e 3d 32 00 02 00 00 00 01 00 00 00 31 3a f9 00 01 00 00 00 28 00 00 00 04 00 | ......n=2.........1:......(..... |
04e0 | 00 00 01 66 01 80 24 00 00 00 c1 00 00 00 01 8e 00 00 00 6c 6c 3d 6c 70 3b 0d 0a 6c 70 3d 62 6e | ...f..$............ll=lp;..lp=bn |
0500 | 6f 74 28 72 61 6e 64 28 31 30 29 29 3b 0d 0a 6c 78 3d 69 66 28 62 61 6e 64 28 6c 70 2c 62 6e 6f | ot(rand(10));..lx=if(band(lp,bno |
0520 | 74 28 6c 6c 29 29 2c 6c 78 2b 72 61 6e 64 28 32 29 2a 32 2d 31 2c 6c 78 29 3b 0d 0a 79 3d 69 2a | t(ll)),lx+rand(2)*2-1,lx);..y=i* |
0540 | 32 2d 31 3b 78 3d 6c 78 2a 2e 30 35 2d 31 3b 0d 0a 72 65 64 3d 61 62 73 28 67 65 74 6f 73 63 28 | 2-1;x=lx*.05-1;..red=abs(getosc( |
0560 | 69 2c 30 2c 30 29 2a 33 29 2b 2e 32 3b 67 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 64 3b | i,0,0)*3)+.2;green=red;blue=red; |
0580 | 00 0d 00 00 00 6c 78 3d 72 61 6e 64 28 34 30 29 3b 00 00 00 00 00 05 00 00 00 6e 3d 33 30 00 02 | .....lx=rand(40);.........n=30.. |
05a0 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 d0 00 00 00 01 9d 00 00 00 6c 6c 3d 6c | ...............$............ll=l |
05c0 | 70 3b 0d 0a 6c 70 3d 62 6e 6f 74 28 72 61 6e 64 28 31 30 29 29 3b 0d 0a 6c 78 3d 69 66 28 62 61 | p;..lp=bnot(rand(10));..lx=if(ba |
05e0 | 6e 64 28 6c 70 2c 62 6e 6f 74 28 6c 6c 29 29 2c 6c 78 2b 72 61 6e 64 28 32 29 2a 32 2d 31 2c 6c | nd(lp,bnot(ll)),lx+rand(2)*2-1,l |
0600 | 78 29 3b 0d 0a 79 3d 69 2a 32 2d 31 3b 78 3d 6c 78 2a 2e 30 35 2d 31 3b 0d 0a 72 65 64 3d 61 62 | x);..y=i*2-1;x=lx*.05-1;..red=ab |
0620 | 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 33 29 2b 2e 32 3b 67 72 65 65 6e 3d 72 65 64 3b | s(getosc(i,0,0)*3)+.2;green=red; |
0640 | 62 6c 75 65 3d 72 65 64 2a 2e 32 35 3b 72 65 64 3d 72 65 64 2a 2e 32 35 00 0d 00 00 00 6c 78 3d | blue=red*.25;red=red*.25.....lx= |
0660 | 72 61 6e 64 28 34 30 29 3b 00 00 00 00 00 05 00 00 00 6e 3d 33 30 00 02 00 00 00 01 00 00 00 ff | rand(40);.........n=30.......... |
0680 | ff ff 00 01 00 00 00 12 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2c 00 00 00 04 | ...........................,.... |
06a0 | 00 00 00 01 00 00 00 0f 00 00 00 2b 00 00 00 ff 7f 00 00 01 0e 00 00 00 78 3d 72 2a 2e 33 31 38 | ...........+............x=r*.318 |
06c0 | 3b 79 3d 64 3b 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 2b 00 00 00 44 03 | ;y=d;.....................+...D. |
06e0 | 00 00 01 98 01 00 00 64 79 3d 79 2a 61 66 3b 0d 0a 64 78 31 3d 78 2a 63 7a 2d 64 79 2a 73 7a 3b | .......dy=y*af;..dx1=x*cz-dy*sz; |
0700 | 0d 0a 64 79 31 3d 78 2a 73 7a 2b 64 79 2a 63 7a 3b 0d 0a 64 79 32 3d 64 79 31 2a 63 78 2d 73 78 | ..dy1=x*sz+dy*cz;..dy2=dy1*cx-sx |
0720 | 3b 0d 0a 64 7a 32 3d 64 79 31 2a 73 78 2b 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 79 2d 64 7a | ;..dz2=dy1*sx+cx;..dx3=dx1*cy-dz |
0740 | 32 2a 73 79 3b 0d 0a 64 7a 32 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d 0a 64 78 31 3d 73 | 2*sy;..dz2=dx1*sy+dz2*cy;..dx1=s |
0760 | 71 72 28 64 7a 32 29 2b 73 71 72 28 64 78 33 29 3b 0d 0a 64 79 31 3d 2d 32 2a 28 64 7a 32 2a 6f | qr(dz2)+sqr(dx3);..dy1=-2*(dz2*o |
0780 | 7a 2b 64 78 33 2a 6f 78 29 3b 0d 0a 78 3d 73 71 72 28 64 79 31 29 2d 34 2a 64 78 31 2a 28 73 71 | z+dx3*ox);..x=sqr(dy1)-4*dx1*(sq |
07a0 | 72 28 6f 7a 29 2b 73 71 72 28 6f 78 29 2d 2e 31 29 3b 0d 0a 61 6c 70 68 61 3d 61 62 6f 76 65 28 | r(oz)+sqr(ox)-.1);..alpha=above( |
07c0 | 78 2c 30 29 3b 0d 0a 6b 3d 28 28 2d 64 79 31 2d 73 71 72 74 28 78 29 29 2f 64 78 31 29 2a 2e 35 | x,0);..k=((-dy1-sqrt(x))/dx1)*.5 |
07e0 | 3b 0d 0a 61 6c 70 68 61 3d 69 66 28 61 6c 70 68 61 2c 61 62 6f 76 65 28 6b 2c 30 29 2c 30 29 3b | ;..alpha=if(alpha,above(k,0),0); |
0800 | 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 2a 6b 3b 69 7a 3d 2d | ..ix=-ox+dx3*k;iy=-oy+dy2*k;iz=- |
0820 | 6f 7a 2b 64 7a 32 2a 6b 3b 0d 0a 78 3d 61 73 69 6e 28 73 69 6e 28 61 74 61 6e 32 28 69 7a 2c 69 | oz+dz2*k;..x=asin(sin(atan2(iz,i |
0840 | 78 29 29 29 2a 2e 33 31 38 2a 31 2e 35 3b 79 3d 69 79 2a 34 2d 31 3b 0d 0a 61 6c 70 68 61 3d 61 | x)))*.318*1.5;y=iy*4-1;..alpha=a |
0860 | 6c 70 68 61 2a 6d 69 6e 28 31 2c 37 2d 61 62 73 28 69 79 2b 2e 32 29 2a 32 30 29 3b 0d 0a 00 70 | lpha*min(1,7-abs(iy+.2)*20);...p |
0880 | 01 00 00 74 69 3d 74 69 2a 2e 39 3b 74 3d 74 2b 30 2e 30 32 2b 74 69 2a 2e 31 3b 0d 0a 6f 78 3d | ...ti=ti*.9;t=t+0.02+ti*.1;..ox= |
08a0 | 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e | cos(t)*cos(t*.379+1)*cos(sin(t*. |
08c0 | 31 34 31 29 29 3b 0d 0a 6f 79 3d 2e 32 35 2b 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 | 141));..oy=.25+sin(t*.91)*cos(-t |
08e0 | 2a 2e 37 31 29 2a 2e 32 35 3b 0d 0a 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 | *.71)*.25;..oz=sin(t)*cos(-t*.41 |
0900 | 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 3b 0d 0a 6f 74 3d 2e 37 2b 2e 34 2f 73 71 | )*sin(cos(t*.631));..ot=.7+.4/sq |
0920 | 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 3b 0d 0a 6f 78 3d 6f 78 2a 6f 74 3b 6f | rt(sqr(ox)+sqr(oz));..ox=ox*ot;o |
0940 | 7a 3d 6f 7a 2a 6f 74 3b 0d 0a 72 7a 3d 73 69 6e 28 74 2a 2e 31 34 29 2a 63 6f 73 28 74 2a 2e 34 | z=oz*ot;..rz=sin(t*.14)*cos(t*.4 |
0960 | 37 31 29 2a 2e 35 3b 0d 0a 72 79 3d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 3b 0d 0a 72 78 3d 2d | 71)*.5;..ry=atan2(-ox,oz);..rx=- |
0980 | 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 | atan2(oy-.2,sqrt(sqr(ox)+sqr(oz) |
09a0 | 29 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f | ));..cx=cos(rx);sx=sin(rx);cy=co |
09c0 | 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 | s(ry);sy=sin(ry);cz=cos(rz);sz=s |
09e0 | 69 6e 28 72 7a 29 3b 0d 0a 61 66 3d 68 2f 77 3b 0d 0a 00 06 00 00 00 74 69 3d 31 3b 00 05 00 00 | in(rz);..af=h/w;.......ti=1;.... |
0a00 | 00 74 3d 30 3b 00 00 00 00 00 01 00 00 00 19 00 00 00 07 00 00 00 01 00 00 00 01 00 00 00 01 00 | .t=0;........................... |
0a20 | 00 00 00 00 00 00 fe ff ff ff 71 03 00 00 81 01 00 05 24 80 00 00 00 80 00 00 00 00 00 00 00 00 | ..........q.......$............. |
0a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 2b 00 00 00 44 03 00 00 01 98 01 00 00 | ...................+...D........ |
0a60 | 64 79 3d 79 2a 61 66 3b 0d 0a 64 78 31 3d 78 2a 63 7a 2d 64 79 2a 73 7a 3b 0d 0a 64 79 31 3d 78 | dy=y*af;..dx1=x*cz-dy*sz;..dy1=x |
0a80 | 2a 73 7a 2b 64 79 2a 63 7a 3b 0d 0a 64 79 32 3d 64 79 31 2a 63 78 2d 73 78 3b 0d 0a 64 7a 32 3d | *sz+dy*cz;..dy2=dy1*cx-sx;..dz2= |
0aa0 | 64 79 31 2a 73 78 2b 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 79 2d 64 7a 32 2a 73 79 3b 0d 0a | dy1*sx+cx;..dx3=dx1*cy-dz2*sy;.. |
0ac0 | 64 7a 32 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d 0a 64 78 31 3d 73 71 72 28 64 7a 32 29 | dz2=dx1*sy+dz2*cy;..dx1=sqr(dz2) |
0ae0 | 2b 73 71 72 28 64 78 33 29 3b 0d 0a 64 79 31 3d 2d 32 2a 28 64 7a 32 2a 6f 7a 2b 64 78 33 2a 6f | +sqr(dx3);..dy1=-2*(dz2*oz+dx3*o |
0b00 | 78 29 3b 0d 0a 78 3d 73 71 72 28 64 79 31 29 2d 34 2a 64 78 31 2a 28 73 71 72 28 6f 7a 29 2b 73 | x);..x=sqr(dy1)-4*dx1*(sqr(oz)+s |
0b20 | 71 72 28 6f 78 29 2d 2e 31 29 3b 0d 0a 61 6c 70 68 61 3d 61 62 6f 76 65 28 78 2c 30 29 3b 0d 0a | qr(ox)-.1);..alpha=above(x,0);.. |
0b40 | 6b 3d 28 28 2d 64 79 31 2b 73 71 72 74 28 78 29 29 2f 64 78 31 29 2a 2e 35 3b 0d 0a 61 6c 70 68 | k=((-dy1+sqrt(x))/dx1)*.5;..alph |
0b60 | 61 3d 69 66 28 61 6c 70 68 61 2c 61 62 6f 76 65 28 6b 2c 30 29 2c 30 29 3b 0d 0a 69 78 3d 2d 6f | a=if(alpha,above(k,0),0);..ix=-o |
0b80 | 78 2b 64 78 33 2a 6b 3b 69 79 3d 2d 6f 79 2b 64 79 32 2a 6b 3b 69 7a 3d 2d 6f 7a 2b 64 7a 32 2a | x+dx3*k;iy=-oy+dy2*k;iz=-oz+dz2* |
0ba0 | 6b 3b 0d 0a 78 3d 61 73 69 6e 28 73 69 6e 28 61 74 61 6e 32 28 69 7a 2c 69 78 29 29 29 2a 2e 33 | k;..x=asin(sin(atan2(iz,ix)))*.3 |
0bc0 | 31 38 2a 31 2e 35 3b 79 3d 69 79 2a 34 2d 31 3b 0d 0a 61 6c 70 68 61 3d 61 6c 70 68 61 2a 6d 69 | 18*1.5;y=iy*4-1;..alpha=alpha*mi |
0be0 | 6e 28 31 2c 37 2d 61 62 73 28 69 79 2b 2e 32 29 2a 32 30 29 3b 0d 0a 00 70 01 00 00 74 69 3d 74 | n(1,7-abs(iy+.2)*20);...p...ti=t |
0c00 | 69 2a 2e 39 3b 74 3d 74 2b 30 2e 30 32 2b 74 69 2a 2e 31 3b 0d 0a 6f 78 3d 63 6f 73 28 74 29 2a | i*.9;t=t+0.02+ti*.1;..ox=cos(t)* |
0c20 | 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 0d | cos(t*.379+1)*cos(sin(t*.141));. |
0c40 | 0a 6f 79 3d 2e 32 35 2b 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e | .oy=.25+sin(t*.91)*cos(-t*.71)*. |
0c60 | 32 35 3b 0d 0a 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 | 25;..oz=sin(t)*cos(-t*.41)*sin(c |
0c80 | 6f 73 28 74 2a 2e 36 33 31 29 29 3b 0d 0a 6f 74 3d 2e 37 2b 2e 34 2f 73 71 72 74 28 73 71 72 28 | os(t*.631));..ot=.7+.4/sqrt(sqr( |
0ca0 | 6f 78 29 2b 73 71 72 28 6f 7a 29 29 3b 0d 0a 6f 78 3d 6f 78 2a 6f 74 3b 6f 7a 3d 6f 7a 2a 6f 74 | ox)+sqr(oz));..ox=ox*ot;oz=oz*ot |
0cc0 | 3b 0d 0a 72 7a 3d 73 69 6e 28 74 2a 2e 31 34 29 2a 63 6f 73 28 74 2a 2e 34 37 31 29 2a 2e 35 3b | ;..rz=sin(t*.14)*cos(t*.471)*.5; |
0ce0 | 0d 0a 72 79 3d 61 74 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 | ..ry=atan2(-ox,oz);..rx=-atan2(o |
0d00 | 79 2d 2e 32 2c 73 71 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 | y-.2,sqrt(sqr(ox)+sqr(oz)));..cx |
0d20 | 3d 63 6f 73 28 72 78 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 | =cos(rx);sx=sin(rx);cy=cos(ry);s |
0d40 | 79 3d 73 69 6e 28 72 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 | y=sin(ry);cz=cos(rz);sz=sin(rz); |
0d60 | 0d 0a 61 66 3d 68 2f 77 3b 0d 0a 00 06 00 00 00 74 69 3d 31 3b 00 05 00 00 00 74 3d 30 3b 00 00 | ..af=h/w;.......ti=1;.....t=0;.. |
0d80 | 00 00 00 01 00 00 00 19 00 00 00 07 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 2c | ..............................., |
0da0 | 00 00 00 04 00 00 00 00 00 00 00 28 00 00 00 04 00 00 00 01 00 02 80 24 00 00 00 da 02 00 00 01 | ...........(...........$........ |
0dc0 | 28 01 00 00 75 3d 69 2a 74 70 69 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 2e 33 31 3b 70 7a 3d 73 | (...u=i*tpi;..px=cos(u)*.31;pz=s |
0de0 | 69 6e 28 75 29 2a 2e 33 31 3b 70 79 3d 2d 2e 35 37 35 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 | in(u)*.31;py=-.575;..px=px+ox;py |
0e00 | 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 | =py+oy;pz=pz+oz;..x1=px*cy-pz*sy |
0e20 | 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 78 | ;z1=px*sy+pz*cy;..y2=py*cx-z1*sx |
0e40 | 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 7a | ;z2=py*sx+z1*cx;..x3=x1*cz-y2*sz |
0e60 | 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 32 | ;y3=x1*sz+y2*cz;..dt=if(above(z2 |
0e80 | 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 29 | ,.01),1/z2,0);..x=if(dt,x3*dt,x) |
0ea0 | 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 64 74 2a 30 2e 36 | ;y=if(dt,y3*dt*af,y);..dt=dt*0.6 |
0ec0 | 3b 0d 0a 72 65 64 3d 28 64 74 2d 2e 35 29 2a 28 31 2d 69 70 29 3b 67 72 65 65 6e 3d 72 65 64 3b | ;..red=(dt-.5)*(1-ip);green=red; |
0ee0 | 62 6c 75 65 3d 72 65 64 3b 0d 0a 00 63 01 00 00 74 69 3d 74 69 2a 2e 39 3b 74 3d 74 2b 30 2e 30 | blue=red;...c...ti=ti*.9;t=t+0.0 |
0f00 | 32 2b 74 69 2a 2e 31 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a | 2+ti*.1;ox=cos(t)*cos(t*.379+1)* |
0f20 | 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 2e 32 35 2b 73 69 6e 28 74 2a 2e 39 | cos(sin(t*.141));oy=.25+sin(t*.9 |
0f40 | 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 32 35 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 | 1)*cos(-t*.71)*.25;oz=sin(t)*cos |
0f60 | 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 3b 6f 74 3d 2e 37 2b | (-t*.41)*sin(cos(t*.631));ot=.7+ |
0f80 | 2e 34 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f | .4/sqrt(sqr(ox)+sqr(oz));ox=ox*o |
0fa0 | 74 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 7a 3d 2d 73 69 6e 28 74 2a 2e 31 34 29 2a 63 6f 73 28 74 2a | t;oz=oz*ot;rz=-sin(t*.14)*cos(t* |
0fc0 | 2e 34 37 31 29 2a 2e 35 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 3b 72 78 3d 61 74 | .471)*.5;ry=-atan2(-ox,oz);rx=at |
0fe0 | 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 | an2(oy-.2,sqrt(sqr(ox)+sqr(oz))) |
1000 | 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 | ;cx=cos(rx);sx=sin(rx);cy=cos(ry |
1020 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 | );sy=sin(ry);cz=cos(rz);sz=sin(r |
1040 | 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 00 06 00 00 00 74 69 3d 31 3b 00 28 00 00 | z);x=0;y=0;af=w/h;.....ti=1;.(.. |
1060 | 00 6e 3d 31 35 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=15;tpi=acos(-1)*2;mf=100;mt=0 |
1080 | 3b a3 20 52 69 6e 67 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 d8 02 00 | ;..Ring;.................$...... |
10a0 | 00 01 26 01 00 00 75 3d 69 2a 74 70 69 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 2e 33 33 3b 70 7a | ..&...u=i*tpi;..px=cos(u)*.33;pz |
10c0 | 3d 73 69 6e 28 75 29 2a 2e 33 33 3b 70 79 3d 2d 2e 36 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 | =sin(u)*.33;py=-.6;..px=px+ox;py |
10e0 | 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 | =py+oy;pz=pz+oz;..x1=px*cy-pz*sy |
1100 | 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 78 | ;z1=px*sy+pz*cy;..y2=py*cx-z1*sx |
1120 | 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 7a | ;z2=py*sx+z1*cx;..x3=x1*cz-y2*sz |
1140 | 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 32 | ;y3=x1*sz+y2*cz;..dt=if(above(z2 |
1160 | 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 29 | ,.01),1/z2,0);..x=if(dt,x3*dt,x) |
1180 | 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 64 74 2a 30 2e 36 | ;y=if(dt,y3*dt*af,y);..dt=dt*0.6 |
11a0 | 3b 0d 0a 72 65 64 3d 28 64 74 2d 2e 35 29 2a 28 31 2d 69 70 29 3b 67 72 65 65 6e 3d 72 65 64 3b | ;..red=(dt-.5)*(1-ip);green=red; |
11c0 | 62 6c 75 65 3d 72 65 64 3b 0d 0a 00 63 01 00 00 74 69 3d 74 69 2a 2e 39 3b 74 3d 74 2b 30 2e 30 | blue=red;...c...ti=ti*.9;t=t+0.0 |
11e0 | 32 2b 74 69 2a 2e 31 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a | 2+ti*.1;ox=cos(t)*cos(t*.379+1)* |
1200 | 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 2e 32 35 2b 73 69 6e 28 74 2a 2e 39 | cos(sin(t*.141));oy=.25+sin(t*.9 |
1220 | 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 32 35 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 | 1)*cos(-t*.71)*.25;oz=sin(t)*cos |
1240 | 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 3b 6f 74 3d 2e 37 2b | (-t*.41)*sin(cos(t*.631));ot=.7+ |
1260 | 2e 34 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f | .4/sqrt(sqr(ox)+sqr(oz));ox=ox*o |
1280 | 74 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 7a 3d 2d 73 69 6e 28 74 2a 2e 31 34 29 2a 63 6f 73 28 74 2a | t;oz=oz*ot;rz=-sin(t*.14)*cos(t* |
12a0 | 2e 34 37 31 29 2a 2e 35 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 3b 72 78 3d 61 74 | .471)*.5;ry=-atan2(-ox,oz);rx=at |
12c0 | 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 | an2(oy-.2,sqrt(sqr(ox)+sqr(oz))) |
12e0 | 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 | ;cx=cos(rx);sx=sin(rx);cy=cos(ry |
1300 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 | );sy=sin(ry);cz=cos(rz);sz=sin(r |
1320 | 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 00 06 00 00 00 74 69 3d 31 3b 00 28 00 00 | z);x=0;y=0;af=w/h;.....ti=1;.(.. |
1340 | 00 6e 3d 31 35 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=15;tpi=acos(-1)*2;mf=100;mt=0 |
1360 | 3b a3 20 52 69 6e 67 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 d9 02 00 | ;..Ring;.................$...... |
1380 | 00 01 27 01 00 00 75 3d 69 2a 74 70 69 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 2e 33 31 3b 70 7a | ..'...u=i*tpi;..px=cos(u)*.31;pz |
13a0 | 3d 73 69 6e 28 75 29 2a 2e 33 31 3b 70 79 3d 2e 31 37 35 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 | =sin(u)*.31;py=.175;..px=px+ox;p |
13c0 | 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 | y=py+oy;pz=pz+oz;..x1=px*cy-pz*s |
13e0 | 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 |
1400 | 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 |
1420 | 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 |
1440 | 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 |
1460 | 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 64 74 2a 30 2e | );y=if(dt,y3*dt*af,y);..dt=dt*0. |
1480 | 36 3b 0d 0a 72 65 64 3d 28 64 74 2d 2e 35 29 2a 28 31 2d 69 70 29 3b 67 72 65 65 6e 3d 72 65 64 | 6;..red=(dt-.5)*(1-ip);green=red |
14a0 | 3b 62 6c 75 65 3d 72 65 64 3b 0d 0a 00 63 01 00 00 74 69 3d 74 69 2a 2e 39 3b 74 3d 74 2b 30 2e | ;blue=red;...c...ti=ti*.9;t=t+0. |
14c0 | 30 32 2b 74 69 2a 2e 31 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 | 02+ti*.1;ox=cos(t)*cos(t*.379+1) |
14e0 | 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 2e 32 35 2b 73 69 6e 28 74 2a 2e | *cos(sin(t*.141));oy=.25+sin(t*. |
1500 | 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 32 35 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f | 91)*cos(-t*.71)*.25;oz=sin(t)*co |
1520 | 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 3b 6f 74 3d 2e 37 | s(-t*.41)*sin(cos(t*.631));ot=.7 |
1540 | 2b 2e 34 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a | +.4/sqrt(sqr(ox)+sqr(oz));ox=ox* |
1560 | 6f 74 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 7a 3d 2d 73 69 6e 28 74 2a 2e 31 34 29 2a 63 6f 73 28 74 | ot;oz=oz*ot;rz=-sin(t*.14)*cos(t |
1580 | 2a 2e 34 37 31 29 2a 2e 35 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 3b 72 78 3d 61 | *.471)*.5;ry=-atan2(-ox,oz);rx=a |
15a0 | 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 | tan2(oy-.2,sqrt(sqr(ox)+sqr(oz)) |
15c0 | 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 | );cx=cos(rx);sx=sin(rx);cy=cos(r |
15e0 | 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 | y);sy=sin(ry);cz=cos(rz);sz=sin( |
1600 | 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 00 06 00 00 00 74 69 3d 31 3b 00 28 00 | rz);x=0;y=0;af=w/h;.....ti=1;.(. |
1620 | 00 00 6e 3d 31 35 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 | ..n=15;tpi=acos(-1)*2;mf=100;mt= |
1640 | 30 3b a3 20 52 69 6e 67 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 d7 02 | 0;..Ring;.................$..... |
1660 | 00 00 01 25 01 00 00 75 3d 69 2a 74 70 69 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 2e 33 33 3b 70 | ...%...u=i*tpi;..px=cos(u)*.33;p |
1680 | 7a 3d 73 69 6e 28 75 29 2a 2e 33 33 3b 70 79 3d 2e 32 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 | z=sin(u)*.33;py=.2;..px=px+ox;py |
16a0 | 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 | =py+oy;pz=pz+oz;..x1=px*cy-pz*sy |
16c0 | 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 78 | ;z1=px*sy+pz*cy;..y2=py*cx-z1*sx |
16e0 | 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 7a | ;z2=py*sx+z1*cx;..x3=x1*cz-y2*sz |
1700 | 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 32 | ;y3=x1*sz+y2*cz;..dt=if(above(z2 |
1720 | 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 29 | ,.01),1/z2,0);..x=if(dt,x3*dt,x) |
1740 | 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 64 74 2a 30 2e 36 | ;y=if(dt,y3*dt*af,y);..dt=dt*0.6 |
1760 | 3b 0d 0a 72 65 64 3d 28 64 74 2d 2e 35 29 2a 28 31 2d 69 70 29 3b 67 72 65 65 6e 3d 72 65 64 3b | ;..red=(dt-.5)*(1-ip);green=red; |
1780 | 62 6c 75 65 3d 72 65 64 3b 0d 0a 00 63 01 00 00 74 69 3d 74 69 2a 2e 39 3b 74 3d 74 2b 30 2e 30 | blue=red;...c...ti=ti*.9;t=t+0.0 |
17a0 | 32 2b 74 69 2a 2e 31 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a | 2+ti*.1;ox=cos(t)*cos(t*.379+1)* |
17c0 | 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 2e 32 35 2b 73 69 6e 28 74 2a 2e 39 | cos(sin(t*.141));oy=.25+sin(t*.9 |
17e0 | 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 32 35 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 | 1)*cos(-t*.71)*.25;oz=sin(t)*cos |
1800 | 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 3b 6f 74 3d 2e 37 2b | (-t*.41)*sin(cos(t*.631));ot=.7+ |
1820 | 2e 34 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f | .4/sqrt(sqr(ox)+sqr(oz));ox=ox*o |
1840 | 74 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 7a 3d 2d 73 69 6e 28 74 2a 2e 31 34 29 2a 63 6f 73 28 74 2a | t;oz=oz*ot;rz=-sin(t*.14)*cos(t* |
1860 | 2e 34 37 31 29 2a 2e 35 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 3b 72 78 3d 61 74 | .471)*.5;ry=-atan2(-ox,oz);rx=at |
1880 | 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 | an2(oy-.2,sqrt(sqr(ox)+sqr(oz))) |
18a0 | 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 | ;cx=cos(rx);sx=sin(rx);cy=cos(ry |
18c0 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 | );sy=sin(ry);cz=cos(rz);sz=sin(r |
18e0 | 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 00 06 00 00 00 74 69 3d 31 3b 00 28 00 00 | z);x=0;y=0;af=w/h;.....ti=1;.(.. |
1900 | 00 6e 3d 31 35 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=15;tpi=acos(-1)*2;mf=100;mt=0 |
1920 | 3b a3 20 52 69 6e 67 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 28 00 00 00 04 00 00 | ;..Ring;.................(...... |
1940 | 00 01 00 01 80 24 00 00 00 f4 03 00 00 01 cc 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a | .....$............ip=bnot(ip);.. |
1960 | 75 3d 69 2a 74 70 69 2a 32 30 3b 78 3d 75 2a 2e 30 33 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 73 | u=i*tpi*20;x=u*.03;..px=cos(u)*s |
1980 | 69 6e 28 78 29 3b 70 7a 3d 73 69 6e 28 75 29 2a 73 69 6e 28 78 29 3b 70 79 3d 63 6f 73 28 78 29 | in(x);pz=sin(u)*sin(x);py=cos(x) |
19a0 | 3b 0d 0a 6a 3d 28 70 78 2a 31 30 2e 31 2b 70 79 2a 31 31 2e 31 2b 70 7a 2a 31 33 2e 31 29 2a 31 | ;..j=(px*10.1+py*11.1+pz*13.1)*1 |
19c0 | 30 30 25 31 30 30 2a 2e 30 31 3b 0d 0a 79 3d 2e 31 2b 61 62 73 28 67 65 74 6f 73 63 28 6a 2c 30 | 00%100*.01;..y=.1+abs(getosc(j,0 |
19e0 | 2c 30 29 29 2a 2e 34 3b 0d 0a 70 78 3d 70 78 2a 79 3b 70 79 3d 70 79 2a 79 2d 2e 32 3b 70 7a 3d | ,0))*.4;..px=px*y;py=py*y-.2;pz= |
1a00 | 70 7a 2a 79 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f | pz*y;..px=px+ox;py=py+oy;pz=pz+o |
1a20 | 7a 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 | z;..x1=px*cy-pz*sy;z1=px*sy+pz*c |
1a40 | 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 |
1a60 | 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 |
1a80 | 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); |
1aa0 | 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 |
1ac0 | 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 64 74 2a 30 2e 32 2b 73 71 72 28 74 69 29 2a 2e 33 2b 2e 31 | *af,y);..dt=dt*0.2+sqr(ti)*.3+.1 |
1ae0 | 3b 0d 0a 72 65 64 3d 64 74 2a 28 69 70 2a 2e 37 35 2b 2e 32 35 29 3b 67 72 65 65 6e 3d 72 65 64 | ;..red=dt*(ip*.75+.25);green=red |
1b00 | 2a 63 67 3b 62 6c 75 65 3d 72 65 64 2a 63 62 3b 72 65 64 3d 72 65 64 2a 63 72 3b 0d 0a 00 c6 01 | *cg;blue=red*cb;red=red*cr;..... |
1b20 | 00 00 74 69 3d 74 69 2a 2e 39 3b 74 3d 74 2b 30 2e 30 32 2b 74 69 2a 2e 31 3b 6f 78 3d 63 6f 73 | ..ti=ti*.9;t=t+0.02+ti*.1;ox=cos |
1b40 | 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 | (t)*cos(t*.379+1)*cos(sin(t*.141 |
1b60 | 29 29 3b 6f 79 3d 2e 32 35 2b 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 | ));oy=.25+sin(t*.91)*cos(-t*.71) |
1b80 | 2a 2e 32 35 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 | *.25;oz=sin(t)*cos(-t*.41)*sin(c |
1ba0 | 6f 73 28 74 2a 2e 36 33 31 29 29 3b 6f 74 3d 2e 37 2b 2e 34 2f 73 71 72 74 28 73 71 72 28 6f 78 | os(t*.631));ot=.7+.4/sqrt(sqr(ox |
1bc0 | 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 7a 3d | )+sqr(oz));ox=ox*ot;oz=oz*ot;rz= |
1be0 | 2d 73 69 6e 28 74 2a 2e 31 34 29 2a 63 6f 73 28 74 2a 2e 34 37 31 29 2a 2e 35 3b 72 79 3d 2d 61 | -sin(t*.14)*cos(t*.471)*.5;ry=-a |
1c00 | 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 | tan2(-ox,oz);rx=atan2(oy-.2,sqrt |
1c20 | 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 | (sqr(ox)+sqr(oz)));cx=cos(rx);sx |
1c40 | 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 79 29 3b 63 | =sin(rx);cy=cos(ry);sy=sin(ry);c |
1c60 | 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d | z=cos(rz);sz=sin(rz);x=0;y=0;af= |
1c80 | 77 2f 68 3b 69 70 3d 30 3b 68 75 3d 68 75 2b 2e 30 31 3b 63 72 3d 6d 69 6e 28 31 2c 73 69 6e 28 | w/h;ip=0;hu=hu+.01;cr=min(1,sin( |
1ca0 | 68 75 29 2a 2e 35 2b 31 2e 32 29 3b 63 67 3d 6d 69 6e 28 31 2c 73 69 6e 28 68 75 2b 32 2e 30 39 | hu)*.5+1.2);cg=min(1,sin(hu+2.09 |
1cc0 | 29 2a 2e 35 2b 31 2e 32 29 3b 63 62 3d 6d 69 6e 28 31 2c 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a | )*.5+1.2);cb=min(1,sin(hu+4.18)* |
1ce0 | 2e 35 2b 31 2e 32 29 00 16 00 00 00 74 69 3d 31 3b 68 75 3d 72 61 6e 64 28 36 32 38 29 2a 2e 30 | .5+1.2).....ti=1;hu=rand(628)*.0 |
1d00 | 31 00 2b 00 00 00 6e 3d 34 30 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 6d 66 3d 31 30 | 1.+...n=400;tpi=acos(-1)*2;mf=10 |
1d20 | 30 3b 6d 74 3d 30 3b a3 20 53 70 68 65 72 65 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | 0;mt=0;..Sphere;................ |
1d40 | 00 | . |