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 bf 07 00 | Nullsoft.AVS.Preset.0.2......... |
0020 | 00 bb 07 00 00 20 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......._________................ |
0040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 28 20 | ..............................(. |
0060 | 20 20 20 20 20 20 20 5f 5f 5f 5f 5f 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......._____)................... |
0080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a | ................................ |
00a0 | 20 20 5c 20 20 20 20 20 28 20 69 6e 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..\.....(.inal.................. |
00c0 | 5f 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | __.............................. |
00e0 | 20 53 65 69 73 6d 6f 67 72 69 64 0d 0a 20 20 20 20 5c 20 20 20 20 af af af af 5c 20 20 20 20 20 | .Seismogrid......\........\..... |
0100 | 5f 20 20 20 20 20 20 2f 20 20 20 20 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | _....../....)................... |
0120 | 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 5c 20 20 20 7c af 5c 20 20 20 20 5c 5f 2f 20 20 5c 5f | ..............\...|.\....\_/..\_ |
0140 | 2f 20 20 20 20 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | /..../.......................... |
0160 | 20 0d 0a 20 20 20 20 20 20 20 20 5c 2f 20 20 20 20 5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........\/....\.............. |
0180 | 20 20 20 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .../............................ |
01a0 | 62 79 20 53 74 65 76 65 6e 20 57 69 74 74 65 6e 73 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | by.Steven.Wittens............... |
01c0 | 20 20 20 20 5c 5f 5f 2f 5e 5c 5f 5f 2f 20 68 61 63 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....\__/^\__/.hack.............. |
01e0 | 20 20 20 20 20 20 20 20 20 20 61 6b 61 20 55 6e 43 6f 6e 65 44 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f | ..........aka.UnConeD.._________ |
0200 | 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 | ________________________________ |
0220 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 20 20 af af af af af af af af af af af af af af af | _____________................... |
0240 | 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 | ................................ |
0260 | af af af af af 0d 0a 54 68 69 73 20 70 72 65 73 65 74 20 73 74 61 72 74 65 64 20 6f 75 74 20 61 | .......This.preset.started.out.a |
0280 | 73 20 61 6e 20 61 74 74 65 6d 70 74 20 61 74 20 66 61 6b 69 6e 67 20 61 20 77 61 74 65 72 20 73 | s.an.attempt.at.faking.a.water.s |
02a0 | 75 72 66 61 63 65 2e 20 54 68 65 20 6c 61 73 74 20 35 20 72 69 70 70 6c 65 20 73 6f 75 72 63 65 | urface..The.last.5.ripple.source |
02c0 | 73 20 61 6e 64 20 74 69 6d 65 73 20 61 72 65 20 6b 65 70 74 2c 20 61 6e 64 20 74 68 65 20 73 75 | s.and.times.are.kept,.and.the.su |
02e0 | 72 66 61 63 65 20 69 73 20 63 61 6c 63 75 6c 61 74 65 64 20 66 72 6f 6d 20 74 68 61 74 2e 20 41 | rface.is.calculated.from.that..A |
0300 | 73 20 73 6f 6f 6e 20 61 73 20 61 20 72 69 70 70 6c 65 20 68 61 73 20 66 61 64 65 64 2c 20 61 20 | s.soon.as.a.ripple.has.faded,.a. |
0320 | 6e 65 77 20 6f 6e 65 20 69 73 20 67 65 6e 65 72 61 74 65 64 2e 0d 0a 0d 0a 54 6f 20 6d 61 6b 65 | new.one.is.generated.....To.make |
0340 | 20 69 74 20 6d 6f 72 65 20 61 70 70 65 61 6c 69 6e 67 2c 20 49 20 73 74 61 72 74 65 64 20 65 78 | .it.more.appealing,.I.started.ex |
0360 | 70 65 72 69 6d 65 6e 74 69 6e 67 20 77 69 74 68 20 73 68 61 64 69 6e 67 2e 20 41 74 20 66 69 72 | perimenting.with.shading..At.fir |
0380 | 73 74 20 49 20 75 73 65 64 20 61 20 72 65 67 75 6c 61 72 20 6c 69 6e 65 73 63 6f 70 65 2c 20 62 | st.I.used.a.regular.linescope,.b |
03a0 | 75 74 20 61 66 74 65 72 20 6d 61 6b 69 6e 67 20 54 65 78 65 72 20 49 49 20 49 20 75 73 65 64 20 | ut.after.making.Texer.II.I.used. |
03c0 | 74 68 61 74 20 69 6e 73 74 65 61 64 2e 20 49 74 20 6c 6f 6f 6b 73 20 61 20 6c 6f 74 20 73 6d 6f | that.instead..It.looks.a.lot.smo |
03e0 | 6f 74 68 65 72 2e 2e 2e 0d 0a 41 73 69 64 65 20 66 72 6f 6d 20 74 68 65 20 73 68 61 64 69 6e 67 | other.....Aside.from.the.shading |
0400 | 2c 20 74 68 65 72 65 27 73 20 61 6c 73 6f 20 73 6f 6d 65 20 73 70 65 63 69 61 6c 20 63 6f 6c 6f | ,.there's.also.some.special.colo |
0420 | 72 63 6f 64 69 6e 67 2e 20 4f 63 63 61 73 69 6f 6e 61 6c 6c 79 2c 20 61 20 72 69 70 70 6c 65 20 | rcoding..Occasionally,.a.ripple. |
0440 | 77 69 6c 6c 20 61 6c 73 6f 20 63 6f 6e 74 61 69 6e 20 61 20 63 68 61 6e 67 65 20 6f 66 20 63 6f | will.also.contain.a.change.of.co |
0460 | 6c 6f 72 20 74 68 61 74 20 73 70 72 65 61 64 73 20 6f 75 74 20 77 69 74 68 20 74 68 65 20 72 69 | lor.that.spreads.out.with.the.ri |
0480 | 70 70 6c 65 20 75 6e 74 69 6c 20 69 74 20 66 69 6c 6c 73 20 74 68 65 20 61 72 65 61 2e 20 55 6e | pple.until.it.fills.the.area..Un |
04a0 | 74 69 6c 20 74 68 65 20 6e 65 78 74 20 63 6f 6c 6f 72 20 63 68 61 6e 67 65 2e 2e 2e 0d 0a 42 65 | til.the.next.color.change.....Be |
04c0 | 63 61 75 73 65 20 74 68 65 72 65 20 61 72 65 20 61 6c 72 65 61 64 79 20 73 75 62 74 6c 65 20 63 | cause.there.are.already.subtle.c |
04e0 | 6f 6c 6f 72 20 76 61 72 69 61 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 67 72 69 64 2c 20 61 20 63 | olor.variations.in.the.grid,.a.c |
0500 | 6f 6c 6f 72 2d 6d 61 74 72 69 78 20 69 73 20 75 73 65 64 20 61 6e 64 20 74 68 65 6e 20 72 65 6e | olor-matrix.is.used.and.then.ren |
0520 | 64 65 72 65 64 20 69 6e 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 68 75 65 2e 0d 0a 56 65 72 79 | dered.in.a.particular.hue...Very |
0540 | 20 68 6f 6c 6f 67 72 61 70 68 69 63 2e 0d 0a 0d 0a 55 6e 66 6f 72 74 75 6e 61 74 65 6c 79 20 74 | .holographic.....Unfortunately.t |
0560 | 68 65 72 65 27 73 20 6e 6f 74 20 6d 75 63 68 20 65 6c 73 65 20 74 6f 20 64 6f 20 77 69 74 68 20 | here's.not.much.else.to.do.with. |
0580 | 74 68 69 73 20 70 72 65 73 65 74 2c 20 62 65 63 61 75 73 65 20 65 78 74 72 61 73 20 77 6f 75 6c | this.preset,.because.extras.woul |
05a0 | 64 20 73 6c 6f 77 20 69 74 20 64 6f 77 6e 2e 0d 0a 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | d.slow.it.down....______________ |
05c0 | 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 | ________________________________ |
05e0 | 5f 5f 5f 5f 5f 5f 0d 0a af af af af af af af af af af af af af af af af af af af af af af af af | ______.......................... |
0600 | 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 0d 0a | ................................ |
0620 | 28 63 29 20 53 74 65 76 65 6e 20 57 69 74 74 65 6e 73 20 2f 20 55 6e 43 6f 6e 65 44 0d 0a 73 74 | (c).Steven.Wittens./.UnConeD..st |
0640 | 65 76 65 6e 20 40 20 61 63 6b 6f 20 64 6f 74 20 6e 65 74 20 2d 20 77 77 77 2e 61 63 6b 6f 2e 6e | even.@.acko.dot.net.-.www.acko.n |
0660 | 65 74 0d 0a 0d 0a 49 66 20 79 6f 75 20 77 69 73 68 20 74 6f 20 75 73 65 20 61 6e 79 20 70 61 72 | et....If.you.wish.to.use.any.par |
0680 | 74 20 28 6f 72 20 74 68 65 20 77 68 6f 6c 65 29 20 6f 66 20 74 68 69 73 20 70 72 65 73 65 74 20 | t.(or.the.whole).of.this.preset. |
06a0 | 69 6e 20 79 6f 75 72 20 6f 77 6e 20 70 72 65 73 65 74 73 2c 20 70 61 63 6b 73 20 6f 72 20 69 6e | in.your.own.presets,.packs.or.in |
06c0 | 20 61 6e 6f 74 68 65 72 20 6d 65 64 69 75 6d 2c 20 79 6f 75 20 6d 75 73 74 20 69 6e 63 6c 75 64 | .another.medium,.you.must.includ |
06e0 | 65 20 6d 79 20 6e 61 6d 65 20 61 73 20 61 20 63 6c 65 61 72 20 63 72 65 64 69 74 20 72 65 66 65 | e.my.name.as.a.clear.credit.refe |
0700 | 72 65 6e 63 65 2e 20 49 6e 63 6c 75 64 69 6e 67 20 6d 79 20 63 6f 6e 74 61 63 74 20 69 6e 66 6f | rence..Including.my.contact.info |
0720 | 72 6d 61 74 69 6f 6e 2f 77 65 62 73 69 74 65 20 61 64 64 72 65 73 73 20 69 73 20 6e 6f 74 20 72 | rmation/website.address.is.not.r |
0740 | 65 71 75 69 72 65 64 2c 20 62 75 74 20 61 70 70 72 65 63 69 61 74 65 64 2e 0d 0a 45 78 63 65 70 | equired,.but.appreciated...Excep |
0760 | 74 69 6f 6e 20 74 6f 20 74 68 65 20 61 62 6f 76 65 3a 20 79 6f 75 20 6d 61 79 20 64 69 73 70 6c | tion.to.the.above:.you.may.displ |
0780 | 61 79 20 74 68 65 73 65 20 70 72 65 73 65 74 73 20 61 73 20 61 20 70 72 6f 6a 65 63 74 69 6f 6e | ay.these.presets.as.a.projection |
07a0 | 20 61 74 20 70 61 72 74 69 65 73 2c 20 72 61 76 65 73 20 6f 72 20 63 6c 75 62 73 20 77 69 74 68 | .at.parties,.raves.or.clubs.with |
07c0 | 6f 75 74 20 63 72 65 64 69 74 20 72 65 66 65 72 65 6e 63 65 20 6f 6e 2d 73 63 72 65 65 6e 2e 00 | out.credit.reference.on-screen.. |
07e0 | 24 00 00 00 9b 02 00 00 01 09 00 00 00 78 3d 30 3b 79 3d 30 3b 00 1d 02 00 00 74 69 3d 74 69 2a | $............x=0;y=0;.....ti=ti* |
0800 | 2e 39 3b 74 3d 74 2d 2e 30 31 30 2d 74 69 2a 2e 30 32 3b 0d 0a 6f 78 3d 63 6f 73 28 74 29 2a 63 | .9;t=t-.010-ti*.02;..ox=cos(t)*c |
0820 | 6f 73 28 74 2a 2e 33 37 39 2b 31 2b 6d 64 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 2b 6d | os(t*.379+1+md)*cos(sin(t*.141+m |
0840 | 64 29 29 3b 0d 0a 6f 79 3d 2d 73 69 6e 28 74 2a 2e 35 31 37 2b 33 29 2a 63 6f 73 28 2d 74 2a 2e | d));..oy=-sin(t*.517+3)*cos(-t*. |
0860 | 32 31 2b 6d 64 29 2a 2e 37 2b 2e 35 3b 0d 0a 6f 7a 3d 2d 28 73 69 6e 28 74 29 2a 63 6f 73 28 2d | 21+md)*.7+.5;..oz=-(sin(t)*cos(- |
0880 | 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 31 2b 74 2a 2e 36 33 31 29 29 29 3b 0d 0a 6f 74 3d | t*.41)*sin(cos(1+t*.631)));..ot= |
08a0 | 2e 33 2b 31 2e 39 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 | .3+1.9/sqrt(sqr(ox)+sqr(oy)+sqr( |
08c0 | 6f 7a 29 29 3b 0d 0a 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6f 79 2a 6f 74 2d 2e 32 3b 6f 7a 3d 6f | oz));..ox=ox*ot;oy=oy*ot-.2;oz=o |
08e0 | 7a 2a 6f 74 3b 0d 0a 6f 79 3d 73 71 72 74 28 61 62 73 28 6f 79 29 29 2a 73 69 67 6e 28 6f 79 29 | z*ot;..oy=sqrt(abs(oy))*sign(oy) |
0900 | 3b 0d 0a 6f 79 3d 73 71 72 74 28 61 62 73 28 6f 79 29 29 2a 73 69 67 6e 28 6f 79 29 3b 0d 0a 72 | ;..oy=sqrt(abs(oy))*sign(oy);..r |
0920 | 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 79 2c 73 | y=atan2(-ox,oz);..rx=-atan2(oy,s |
0940 | 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 | qrt(sqr(ox)+sqr(oz)));....cx=cos |
0960 | 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 0d 0a 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d | (rx);sx=sin(rx);..cy=cos(ry);sy= |
0980 | 73 69 6e 28 72 79 29 3b 0d 0a 0d 0a 72 65 67 33 30 3d 6f 78 3b 0d 0a 72 65 67 33 31 3d 6f 79 3b | sin(ry);....reg30=ox;..reg31=oy; |
09a0 | 0d 0a 72 65 67 33 32 3d 6f 7a 3b 0d 0a 0d 0a 72 65 67 34 30 3d 63 78 3b 0d 0a 72 65 67 34 31 3d | ..reg32=oz;....reg40=cx;..reg41= |
09c0 | 73 78 3b 0d 0a 72 65 67 34 32 3d 63 79 3b 0d 0a 72 65 67 34 33 3d 73 79 3b 0d 0a 0d 0a 72 65 67 | sx;..reg42=cy;..reg43=sy;....reg |
09e0 | 35 30 3d 77 2f 68 3b 0d 0a 72 65 67 35 31 3d 68 2f 77 3b 0d 0a 0d 0a 72 65 67 39 39 3d 72 65 67 | 50=w/h;..reg51=h/w;....reg99=reg |
0a00 | 39 39 2b 73 69 6e 28 72 74 2d 72 65 67 39 39 29 2a 2e 31 3b 0d 0a 00 1c 00 00 00 74 69 3d 31 3b | 99+sin(rt-reg99)*.1;.......ti=1; |
0a20 | 72 74 3d 72 74 2b 72 61 6e 64 28 36 32 38 29 2a 2e 30 31 3b 0d 0a 00 38 00 00 00 2f 2a 20 43 61 | rt=rt+rand(628)*.01;...8.../*.Ca |
0a40 | 6d 65 72 61 20 63 6f 64 65 20 2a 2f 0d 0a 6e 3d 30 3b 6d 64 3d 72 61 6e 64 28 32 30 30 29 2a 2e | mera.code.*/..n=0;md=rand(200)*. |
0a60 | 30 31 2d 31 3b 74 3d 2d 72 61 6e 64 28 32 30 30 29 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 | 01-1;t=-rand(200);.............. |
0a80 | 00 00 00 24 00 00 00 b0 08 00 00 01 00 00 00 00 2c 04 00 00 72 65 67 30 32 3d 72 65 67 30 32 2a | ...$............,...reg02=reg02* |
0aa0 | 64 65 63 61 79 3b 72 65 67 30 33 3d 72 65 67 30 33 2b 65 78 70 61 6e 64 3b 0d 0a 72 65 67 30 36 | decay;reg03=reg03+expand;..reg06 |
0ac0 | 3d 72 65 67 30 36 2a 64 65 63 61 79 3b 72 65 67 30 37 3d 72 65 67 30 37 2b 65 78 70 61 6e 64 3b | =reg06*decay;reg07=reg07+expand; |
0ae0 | 0d 0a 72 65 67 31 30 3d 72 65 67 31 30 2a 64 65 63 61 79 3b 72 65 67 31 31 3d 72 65 67 31 31 2b | ..reg10=reg10*decay;reg11=reg11+ |
0b00 | 65 78 70 61 6e 64 3b 0d 0a 72 65 67 31 34 3d 72 65 67 31 34 2a 64 65 63 61 79 3b 72 65 67 31 35 | expand;..reg14=reg14*decay;reg15 |
0b20 | 3d 72 65 67 31 35 2b 65 78 70 61 6e 64 3b 0d 0a 72 65 67 31 38 3d 72 65 67 31 38 2a 64 65 63 61 | =reg15+expand;..reg18=reg18*deca |
0b40 | 79 2a 64 65 63 61 79 3b 72 65 67 31 39 3d 72 65 67 31 39 2b 65 78 70 61 6e 64 3b 0d 0a 0d 0a 72 | y*decay;reg19=reg19+expand;....r |
0b60 | 65 67 35 35 3d 67 6c 6f 77 3b 0d 0a 72 65 67 39 37 3d 72 65 67 39 37 2a 2e 38 2b 72 65 67 30 30 | eg55=glow;..reg97=reg97*.8+reg00 |
0b80 | 2a 2e 32 3b 0d 0a 72 65 67 39 38 3d 72 65 67 39 38 2a 2e 38 2b 72 65 67 30 31 2a 2e 32 3b 0d 0a | *.2;..reg98=reg98*.8+reg01*.2;.. |
0ba0 | 72 65 67 37 30 3d 73 70 64 3b 0d 0a 0d 0a 72 65 67 36 30 3d 68 63 78 3b 72 65 67 36 31 3d 68 63 | reg70=spd;....reg60=hcx;reg61=hc |
0bc0 | 79 3b 0d 0a 72 65 67 36 34 3d 73 69 6e 28 68 75 29 2a 2e 35 2b 2e 36 35 3b 72 65 67 36 33 3d 73 | y;..reg64=sin(hu)*.5+.65;reg63=s |
0be0 | 69 6e 28 68 75 2b 32 2e 30 39 29 2a 2e 35 2b 2e 35 3b 72 65 67 36 32 3d 73 69 6e 28 68 75 2b 34 | in(hu+2.09)*.5+.5;reg62=sin(hu+4 |
0c00 | 2e 31 38 29 2a 2e 35 2b 2e 36 35 3b 0d 0a 72 65 67 36 38 3d 73 69 6e 28 6c 68 75 29 2a 2e 35 2b | .18)*.5+.65;..reg68=sin(lhu)*.5+ |
0c20 | 2e 36 35 3b 72 65 67 36 37 3d 73 69 6e 28 6c 68 75 2b 32 2e 30 39 29 2a 2e 35 2b 2e 35 3b 72 65 | .65;reg67=sin(lhu+2.09)*.5+.5;re |
0c40 | 67 36 36 3d 73 69 6e 28 6c 68 75 2b 34 2e 31 38 29 2a 2e 35 2b 2e 36 35 3b 0d 0a 72 65 67 36 35 | g66=sin(lhu+4.18)*.5+.65;..reg65 |
0c60 | 3d 72 65 67 36 35 2b 2e 30 33 35 3b 0d 0a 0d 0a 72 70 74 3d 28 72 70 74 2b 31 29 25 31 30 3b 0d | =reg65+.035;....rpt=(rpt+1)%10;. |
0c80 | 0a 66 74 3d 62 65 6c 6f 77 28 72 65 67 31 38 2c 2e 30 31 29 3b 66 74 3d 69 66 28 72 70 74 2c 30 | .ft=below(reg18,.01);ft=if(rpt,0 |
0ca0 | 2c 66 74 29 3b 78 3d 66 74 3b 0d 0a 72 65 67 31 36 3d 69 66 28 78 2c 72 65 67 31 32 2c 72 65 67 | ,ft);x=ft;..reg16=if(x,reg12,reg |
0cc0 | 31 36 29 3b 72 65 67 31 37 3d 69 66 28 78 2c 72 65 67 31 33 2c 72 65 67 31 37 29 3b 72 65 67 31 | 16);reg17=if(x,reg13,reg17);reg1 |
0ce0 | 38 3d 69 66 28 78 2c 72 65 67 31 34 2c 72 65 67 31 38 29 3b 72 65 67 31 39 3d 69 66 28 78 2c 72 | 8=if(x,reg14,reg18);reg19=if(x,r |
0d00 | 65 67 31 35 2c 72 65 67 31 39 29 3b 0d 0a 72 65 67 31 32 3d 69 66 28 78 2c 72 65 67 30 38 2c 72 | eg15,reg19);..reg12=if(x,reg08,r |
0d20 | 65 67 31 32 29 3b 72 65 67 31 33 3d 69 66 28 78 2c 72 65 67 30 39 2c 72 65 67 31 33 29 3b 72 65 | eg12);reg13=if(x,reg09,reg13);re |
0d40 | 67 31 34 3d 69 66 28 78 2c 72 65 67 31 30 2c 72 65 67 31 34 29 3b 72 65 67 31 35 3d 69 66 28 78 | g14=if(x,reg10,reg14);reg15=if(x |
0d60 | 2c 72 65 67 31 31 2c 72 65 67 31 35 29 3b 0d 0a 72 65 67 30 38 3d 69 66 28 78 2c 72 65 67 30 34 | ,reg11,reg15);..reg08=if(x,reg04 |
0d80 | 2c 72 65 67 30 38 29 3b 72 65 67 30 39 3d 69 66 28 78 2c 72 65 67 30 35 2c 72 65 67 30 39 29 3b | ,reg08);reg09=if(x,reg05,reg09); |
0da0 | 72 65 67 31 30 3d 69 66 28 78 2c 72 65 67 30 36 2c 72 65 67 31 30 29 3b 72 65 67 31 31 3d 69 66 | reg10=if(x,reg06,reg10);reg11=if |
0dc0 | 28 78 2c 72 65 67 30 37 2c 72 65 67 31 31 29 3b 0d 0a 72 65 67 30 34 3d 69 66 28 78 2c 72 65 67 | (x,reg07,reg11);..reg04=if(x,reg |
0de0 | 30 30 2c 72 65 67 30 34 29 3b 72 65 67 30 35 3d 69 66 28 78 2c 72 65 67 30 31 2c 72 65 67 30 35 | 00,reg04);reg05=if(x,reg01,reg05 |
0e00 | 29 3b 72 65 67 30 36 3d 69 66 28 78 2c 72 65 67 30 32 2c 72 65 67 30 36 29 3b 72 65 67 30 37 3d | );reg06=if(x,reg02,reg06);reg07= |
0e20 | 69 66 28 78 2c 72 65 67 30 33 2c 72 65 67 30 37 29 3b 0d 0a 72 65 67 30 30 3d 69 66 28 78 2c 72 | if(x,reg03,reg07);..reg00=if(x,r |
0e40 | 61 6e 64 28 31 36 30 29 2a 2e 30 31 2d 2e 38 2c 72 65 67 30 30 29 3b 72 65 67 30 31 3d 69 66 28 | and(160)*.01-.8,reg00);reg01=if( |
0e60 | 78 2c 72 61 6e 64 28 31 36 30 29 2a 2e 30 31 2d 2e 38 2c 72 65 67 30 31 29 3b 72 65 67 30 32 3d | x,rand(160)*.01-.8,reg01);reg02= |
0e80 | 69 66 28 78 2c 28 67 65 74 73 70 65 63 28 30 2c 2e 31 32 35 2c 30 29 2a 36 2b 2e 32 35 29 2a 2e | if(x,(getspec(0,.125,0)*6+.25)*. |
0ea0 | 32 2c 72 65 67 30 32 29 3b 72 65 67 30 33 3d 69 66 28 78 2c 30 2c 72 65 67 30 33 29 3b 0d 0a 00 | 2,reg02);reg03=if(x,0,reg03);... |
0ec0 | 90 03 00 00 79 3d 66 74 3b 66 74 3d 62 65 6c 6f 77 28 72 65 67 31 38 2c 2e 30 31 29 3b 66 74 3d | ....y=ft;ft=below(reg18,.01);ft= |
0ee0 | 69 66 28 79 2c 66 74 2c 66 74 29 3b 78 3d 66 74 3b 74 63 3d 30 3b 62 63 3d 28 62 63 2b 31 29 25 | if(y,ft,ft);x=ft;tc=0;bc=(bc+1)% |
0f00 | 38 3b 0d 0a 72 65 67 31 36 3d 69 66 28 78 2c 72 65 67 31 32 2c 72 65 67 31 36 29 3b 72 65 67 31 | 8;..reg16=if(x,reg12,reg16);reg1 |
0f20 | 37 3d 69 66 28 78 2c 72 65 67 31 33 2c 72 65 67 31 37 29 3b 72 65 67 31 38 3d 69 66 28 78 2c 72 | 7=if(x,reg13,reg17);reg18=if(x,r |
0f40 | 65 67 31 34 2c 72 65 67 31 38 29 3b 72 65 67 31 39 3d 69 66 28 78 2c 72 65 67 31 35 2c 72 65 67 | eg14,reg18);reg19=if(x,reg15,reg |
0f60 | 31 39 29 3b 0d 0a 72 65 67 31 32 3d 69 66 28 78 2c 72 65 67 30 38 2c 72 65 67 31 32 29 3b 72 65 | 19);..reg12=if(x,reg08,reg12);re |
0f80 | 67 31 33 3d 69 66 28 78 2c 72 65 67 30 39 2c 72 65 67 31 33 29 3b 72 65 67 31 34 3d 69 66 28 78 | g13=if(x,reg09,reg13);reg14=if(x |
0fa0 | 2c 72 65 67 31 30 2c 72 65 67 31 34 29 3b 72 65 67 31 35 3d 69 66 28 78 2c 72 65 67 31 31 2c 72 | ,reg10,reg14);reg15=if(x,reg11,r |
0fc0 | 65 67 31 35 29 3b 0d 0a 72 65 67 30 38 3d 69 66 28 78 2c 72 65 67 30 34 2c 72 65 67 30 38 29 3b | eg15);..reg08=if(x,reg04,reg08); |
0fe0 | 72 65 67 30 39 3d 69 66 28 78 2c 72 65 67 30 35 2c 72 65 67 30 39 29 3b 72 65 67 31 30 3d 69 66 | reg09=if(x,reg05,reg09);reg10=if |
1000 | 28 78 2c 72 65 67 30 36 2c 72 65 67 31 30 29 3b 72 65 67 31 31 3d 69 66 28 78 2c 72 65 67 30 37 | (x,reg06,reg10);reg11=if(x,reg07 |
1020 | 2c 72 65 67 31 31 29 3b 0d 0a 72 65 67 30 34 3d 69 66 28 78 2c 72 65 67 30 30 2c 72 65 67 30 34 | ,reg11);..reg04=if(x,reg00,reg04 |
1040 | 29 3b 72 65 67 30 35 3d 69 66 28 78 2c 72 65 67 30 31 2c 72 65 67 30 35 29 3b 72 65 67 30 36 3d | );reg05=if(x,reg01,reg05);reg06= |
1060 | 69 66 28 78 2c 72 65 67 30 32 2c 72 65 67 30 36 29 3b 72 65 67 30 37 3d 69 66 28 78 2c 72 65 67 | if(x,reg02,reg06);reg07=if(x,reg |
1080 | 30 33 2c 72 65 67 30 37 29 3b 0d 0a 72 65 67 30 30 3d 69 66 28 78 2c 72 61 6e 64 28 31 36 30 29 | 03,reg07);..reg00=if(x,rand(160) |
10a0 | 2a 2e 30 31 2d 2e 38 2c 72 65 67 30 30 29 3b 72 65 67 30 31 3d 69 66 28 78 2c 72 61 6e 64 28 31 | *.01-.8,reg00);reg01=if(x,rand(1 |
10c0 | 36 30 29 2a 2e 30 31 2d 2e 38 2c 72 65 67 30 31 29 3b 72 65 67 30 32 3d 69 66 28 78 2c 28 67 65 | 60)*.01-.8,reg01);reg02=if(x,(ge |
10e0 | 74 73 70 65 63 28 30 2c 2e 31 32 35 2c 30 29 2a 36 2b 2e 35 29 2a 2e 34 2c 72 65 67 30 32 29 3b | tspec(0,.125,0)*6+.5)*.4,reg02); |
1100 | 72 65 67 30 33 3d 69 66 28 78 2c 30 2c 72 65 67 30 33 29 3b 0d 0a 72 65 67 30 32 3d 6d 69 6e 28 | reg03=if(x,0,reg03);..reg02=min( |
1120 | 31 2e 37 2c 72 65 67 30 32 29 3b 0d 0a 0d 0a 78 3d 62 6f 72 28 62 63 2c 62 65 6c 6f 77 28 72 65 | 1.7,reg02);....x=bor(bc,below(re |
1140 | 67 36 35 2c 31 2e 35 29 29 3b 0d 0a 68 63 78 3d 69 66 28 78 2c 68 63 78 2c 72 65 67 30 30 29 3b | g65,1.5));..hcx=if(x,hcx,reg00); |
1160 | 68 63 79 3d 69 66 28 62 63 2c 68 63 79 2c 72 65 67 30 31 29 3b 0d 0a 6c 68 75 3d 69 66 28 78 2c | hcy=if(bc,hcy,reg01);..lhu=if(x, |
1180 | 6c 68 75 2c 68 75 29 3b 0d 0a 68 75 3d 69 66 28 78 2c 68 75 2c 72 61 6e 64 28 36 32 38 29 2a 2e | lhu,hu);..hu=if(x,hu,rand(628)*. |
11a0 | 30 31 29 3b 0d 0a 72 65 67 36 35 3d 69 66 28 78 2c 72 65 67 36 35 2c 30 29 3b 0d 0a 72 65 67 36 | 01);..reg65=if(x,reg65,0);..reg6 |
11c0 | 34 3d 73 69 6e 28 68 75 29 2a 2e 35 2b 2e 36 35 3b 72 65 67 36 33 3d 73 69 6e 28 68 75 2b 32 2e | 4=sin(hu)*.5+.65;reg63=sin(hu+2. |
11e0 | 30 39 29 2a 2e 35 2b 2e 35 3b 72 65 67 36 32 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 2e 35 2b | 09)*.5+.5;reg62=sin(hu+4.18)*.5+ |
1200 | 2e 36 35 3b 0d 0a 72 65 67 36 38 3d 73 69 6e 28 6c 68 75 29 2a 2e 35 2b 2e 36 35 3b 72 65 67 36 | .65;..reg68=sin(lhu)*.5+.65;reg6 |
1220 | 37 3d 73 69 6e 28 6c 68 75 2b 32 2e 30 39 29 2a 2e 35 2b 2e 35 3b 72 65 67 36 36 3d 73 69 6e 28 | 7=sin(lhu+2.09)*.5+.5;reg66=sin( |
1240 | 6c 68 75 2b 34 2e 31 38 29 2a 2e 35 2b 2e 36 35 3b 0d 0a 00 d3 00 00 00 6e 3d 30 3b 2f 2a 20 72 | lhu+4.18)*.5+.65;.......n=0;/*.r |
1260 | 69 70 70 6c 65 20 63 6f 64 65 20 2a 2f 0d 0a 64 65 63 61 79 3d 2e 39 32 3b 65 78 70 61 6e 64 3d | ipple.code.*/..decay=.92;expand= |
1280 | 2e 30 34 35 3b 67 6c 6f 77 3d 2e 33 3b 73 70 64 3d 36 2e 35 3b 0d 0a 6c 68 75 3d 72 61 6e 64 28 | .045;glow=.3;spd=6.5;..lhu=rand( |
12a0 | 36 32 38 29 2a 2e 30 31 3b 68 75 3d 72 61 6e 64 28 36 32 38 29 2a 2e 30 31 3b 0d 0a 0d 0a 72 65 | 628)*.01;hu=rand(628)*.01;....re |
12c0 | 67 30 32 3d 30 3b 72 65 67 30 33 3d 30 3b 0d 0a 72 65 67 30 36 3d 30 3b 72 65 67 30 37 3d 30 3b | g02=0;reg03=0;..reg06=0;reg07=0; |
12e0 | 0d 0a 72 65 67 31 30 3d 30 3b 72 65 67 31 31 3d 30 3b 0d 0a 72 65 67 31 34 3d 30 3b 72 65 67 31 | ..reg10=0;reg11=0;..reg14=0;reg1 |
1300 | 35 3d 30 3b 0d 0a 72 65 67 31 38 3d 30 3b 72 65 67 31 39 3d 30 3b 0d 0a 6c 74 6d 3d 67 65 74 74 | 5=0;..reg18=0;reg19=0;..ltm=gett |
1320 | 69 6d 65 28 30 29 2d 2e 31 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 28 00 00 00 04 | ime(0)-.1;.................(.... |
1340 | 00 00 00 01 00 01 80 e0 84 29 06 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 | .........).Acko.net:.Texer.II... |
1360 | 00 00 00 00 00 00 00 00 00 00 00 60 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...........`.................... |
1380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
1400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
1420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
1440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
1460 | 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 00 00 00 01 | ................................ |
1480 | 00 00 00 00 00 00 00 16 00 00 00 67 3d 31 36 3b 6e 3d 67 2a 67 3b 69 67 3d 31 2f 28 67 2d 31 29 | ...........g=16;n=g*g;ig=1/(g-1) |
14a0 | 3b c9 01 00 00 67 78 3d 30 3b 67 79 3d 30 3b 0d 0a 61 66 3d 72 65 67 35 30 3b 6c 79 3d 30 3b 0d | ;....gx=0;gy=0;..af=reg50;ly=0;. |
14c0 | 0a 67 6c 6f 77 3d 72 65 67 35 35 3b 0d 0a 6c 69 3d 67 6c 6f 77 3b 0d 0a 76 30 30 3d 72 65 67 30 | .glow=reg55;..li=glow;..v00=reg0 |
14e0 | 30 3b 76 30 31 3d 72 65 67 30 31 3b 76 30 32 3d 72 65 67 30 32 3b 76 30 33 3d 72 65 67 30 33 3b | 0;v01=reg01;v02=reg02;v03=reg03; |
1500 | 0d 0a 76 30 34 3d 72 65 67 30 34 3b 76 30 35 3d 72 65 67 30 35 3b 76 30 36 3d 72 65 67 30 36 3b | ..v04=reg04;v05=reg05;v06=reg06; |
1520 | 76 30 37 3d 72 65 67 30 37 3b 0d 0a 76 30 38 3d 72 65 67 30 38 3b 76 30 39 3d 72 65 67 30 39 3b | v07=reg07;..v08=reg08;v09=reg09; |
1540 | 76 31 30 3d 72 65 67 31 30 3b 76 31 31 3d 72 65 67 31 31 3b 0d 0a 76 31 32 3d 72 65 67 31 32 3b | v10=reg10;v11=reg11;..v12=reg12; |
1560 | 76 31 33 3d 72 65 67 31 33 3b 76 31 34 3d 72 65 67 31 34 3b 76 31 35 3d 72 65 67 31 35 3b 0d 0a | v13=reg13;v14=reg14;v15=reg15;.. |
1580 | 76 31 36 3d 72 65 67 31 36 3b 76 31 37 3d 72 65 67 31 37 3b 76 31 38 3d 72 65 67 31 38 3b 76 31 | v16=reg16;v17=reg17;v18=reg18;v1 |
15a0 | 39 3d 72 65 67 31 39 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a | 9=reg19;....ox=reg30;oy=reg31;oz |
15c0 | 3d 72 65 67 33 32 3b 0d 0a 63 78 3d 72 65 67 34 30 3b 73 78 3d 72 65 67 34 31 3b 63 79 3d 72 65 | =reg32;..cx=reg40;sx=reg41;cy=re |
15e0 | 67 34 32 3b 73 79 3d 72 65 67 34 33 3b 0d 0a 73 70 64 3d 72 65 67 37 30 3b 0d 0a 0d 0a 68 63 78 | g42;sy=reg43;..spd=reg70;....hcx |
1600 | 3d 72 65 67 36 30 3b 68 63 79 3d 72 65 67 36 31 3b 0d 0a 68 75 72 3d 72 65 67 36 32 3b 68 75 67 | =reg60;hcy=reg61;..hur=reg62;hug |
1620 | 3d 72 65 67 36 33 3b 68 75 62 3d 72 65 67 36 34 3b 0d 0a 68 69 70 3d 72 65 67 36 35 3b 0d 0a 68 | =reg63;hub=reg64;..hip=reg65;..h |
1640 | 76 72 3d 72 65 67 36 36 3b 68 76 67 3d 72 65 67 36 37 3b 68 76 62 3d 72 65 67 36 38 3b 0d 0a 0d | vr=reg66;hvg=reg67;hvb=reg68;... |
1660 | 0a 73 7a 3d 77 2f 33 32 30 2a 32 2e 38 3b 00 00 00 00 59 04 00 00 68 79 3d 67 78 2a 69 67 2a 32 | .sz=w/320*2.8;....Y...hy=gx*ig*2 |
1680 | 2d 31 3b 68 78 3d 67 79 2a 69 67 2a 32 2d 31 3b 0d 0a 0d 0a 70 79 3d 2e 32 3b 0d 0a 64 3d 2e 37 | -1;hx=gy*ig*2-1;....py=.2;..d=.7 |
16a0 | 35 2a 28 73 71 72 28 68 78 2d 76 30 30 29 2b 73 71 72 28 68 79 2d 76 30 31 29 29 3b 70 79 3d 70 | 5*(sqr(hx-v00)+sqr(hy-v01));py=p |
16c0 | 79 2d 73 69 6e 28 64 2a 31 30 2d 76 30 33 2a 73 70 64 29 2a 76 30 32 2a 6d 69 6e 28 31 2c 6d 61 | y-sin(d*10-v03*spd)*v02*min(1,ma |
16e0 | 78 28 30 2c 76 30 33 2d 64 29 29 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 30 34 29 | x(0,v03-d));..d=.75*(sqr(hx-v04) |
1700 | 2b 73 71 72 28 68 79 2d 76 30 35 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 30 37 | +sqr(hy-v05));py=py-sin(d*10-v07 |
1720 | 2a 73 70 64 29 2a 76 30 36 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 30 37 2d 64 29 29 3b 0d 0a | *spd)*v06*min(1,max(0,v07-d));.. |
1740 | 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 30 38 29 2b 73 71 72 28 68 79 2d 76 30 39 29 29 3b | d=.75*(sqr(hx-v08)+sqr(hy-v09)); |
1760 | 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 31 31 2a 73 70 64 29 2a 76 31 30 2a 6d 69 6e 28 | py=py-sin(d*10-v11*spd)*v10*min( |
1780 | 31 2c 6d 61 78 28 30 2c 76 31 31 2d 64 29 29 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d | 1,max(0,v11-d));..d=.75*(sqr(hx- |
17a0 | 76 31 32 29 2b 73 71 72 28 68 79 2d 76 31 33 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 | v12)+sqr(hy-v13));py=py-sin(d*10 |
17c0 | 2d 76 31 35 2a 73 70 64 29 2a 76 31 34 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 31 35 2d 64 29 | -v15*spd)*v14*min(1,max(0,v15-d) |
17e0 | 29 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 31 36 29 2b 73 71 72 28 68 79 2d 76 31 | );..d=.75*(sqr(hx-v16)+sqr(hy-v1 |
1800 | 37 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 31 39 2a 73 70 64 29 2a 76 31 38 2a | 7));py=py-sin(d*10-v19*spd)*v18* |
1820 | 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 31 39 2d 64 29 29 3b 0d 0a 72 65 64 3d 69 66 28 67 78 2c | min(1,max(0,v19-d));..red=if(gx, |
1840 | 61 74 61 6e 28 6c 79 2d 70 79 29 2a 6c 69 2c 30 29 3b 0d 0a 6c 79 3d 70 79 3b 0d 0a 70 78 3d 68 | atan(ly-py)*li,0);..ly=py;..px=h |
1860 | 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 68 79 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 | x+ox;py=py+oy;pz=hy+oz;..x1=px*c |
1880 | 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a | y+pz*sy;z1=-px*sy+pz*cy;..y2=py* |
18a0 | 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 7a 32 3d 7a 32 | cx+z1*sx;z2=-py*sx+z1*cx;..z2=z2 |
18c0 | 2a 2e 35 2b 2e 35 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 | *.5+.5;..dt=if(above(z2,.01),1/z |
18e0 | 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c | 2,0);..x=if(dt,x1*dt,x);y=if(dt, |
1900 | 79 32 2a 64 74 2a 61 66 2d 2e 31 2c 79 29 3b 0d 0a 73 69 7a 65 78 3d 64 74 2a 73 7a 3b 73 69 7a | y2*dt*af-.1,y);..sizex=dt*sz;siz |
1920 | 65 79 3d 73 69 7a 65 78 3b 0d 0a 0d 0a a3 20 63 6f 6c 6f 72 63 6f 64 65 3b 0d 0a 64 79 3d 28 70 | ey=sizex;......colorcode;..dy=(p |
1940 | 79 2d 6f 79 29 3b 0d 0a 6b 3d 6d 61 78 28 30 2c 2e 30 33 2d 64 79 2a 2e 33 29 3b 6c 3d 6d 61 78 | y-oy);..k=max(0,.03-dy*.3);l=max |
1960 | 28 30 2c 64 79 2a 2e 31 2b 2e 30 33 29 3b 0d 0a 76 67 3d 28 72 65 64 2a 32 2b 2e 30 38 29 3b 76 | (0,dy*.1+.03);..vg=(red*2+.08);v |
1980 | 62 3d 28 72 65 64 2a 31 2e 35 2b 6b 2a 32 29 3b 76 72 3d 28 72 65 64 2a 32 2e 35 2b 6c 2a 32 29 | b=(red*1.5+k*2);vr=(red*2.5+l*2) |
19a0 | 3b 0d 0a 64 3d 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 28 28 73 71 72 28 68 78 2d 68 63 78 29 2b 73 | ;..d=min(1,max(0,((sqr(hx-hcx)+s |
19c0 | 71 72 28 68 79 2d 68 63 79 29 29 2d 68 69 70 2a 32 2e 37 2b 31 29 29 29 3b 0d 0a 76 76 72 3d 68 | qr(hy-hcy))-hip*2.7+1)));..vvr=h |
19e0 | 75 72 2b 64 2a 28 68 76 72 2d 68 75 72 29 3b 0d 0a 76 76 67 3d 68 75 67 2b 64 2a 28 68 76 67 2d | ur+d*(hvr-hur);..vvg=hug+d*(hvg- |
1a00 | 68 75 67 29 3b 0d 0a 76 76 62 3d 68 75 62 2b 64 2a 28 68 76 62 2d 68 75 62 29 3b 0d 0a 72 65 64 | hug);..vvb=hub+d*(hvb-hub);..red |
1a20 | 3d 76 72 2a 76 76 72 2b 76 67 2a 76 76 67 2b 76 62 2a 76 76 62 3b 0d 0a 67 72 65 65 6e 3d 76 72 | =vr*vvr+vg*vvg+vb*vvb;..green=vr |
1a40 | 2a 76 76 62 2b 76 67 2a 76 76 72 2b 76 62 2a 76 76 67 3b 0d 0a 62 6c 75 65 3d 76 72 2a 76 76 67 | *vvb+vg*vvr+vb*vvg;..blue=vr*vvg |
1a60 | 2b 76 67 2a 76 76 62 2b 76 62 2a 76 76 72 3b 0d 0a 0d 0a 67 78 3d 69 66 28 62 65 6c 6f 77 28 67 | +vg*vvb+vb*vvr;....gx=if(below(g |
1a80 | 78 2c 67 2d 31 29 2c 67 78 2b 31 2c 30 29 3b 0d 0a 67 79 3d 69 66 28 65 71 75 61 6c 28 67 78 2c | x,g-1),gx+1,0);..gy=if(equal(gx, |
1aa0 | 30 29 2c 67 79 2b 31 2c 67 79 29 3b 0d 0a 0d 0a 73 6b 69 70 3d 62 65 6c 6f 77 28 72 65 64 2b 67 | 0),gy+1,gy);....skip=below(red+g |
1ac0 | 72 65 65 6e 2b 62 6c 75 65 2c 30 29 3b 0d 0a 28 00 00 00 04 00 00 00 01 00 01 80 24 00 00 00 91 | reen+blue,0);..(...........$.... |
1ae0 | 04 00 00 01 1e 03 00 00 68 78 3d 67 78 2a 69 67 2a 32 2d 31 3b 68 79 3d 67 79 2a 69 67 2a 32 2d | ........hx=gx*ig*2-1;hy=gy*ig*2- |
1b00 | 31 3b 0d 0a 0d 0a 70 79 3d 2e 32 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 30 30 29 | 1;....py=.2;..d=.75*(sqr(hx-v00) |
1b20 | 2b 73 71 72 28 68 79 2d 76 30 31 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 30 33 | +sqr(hy-v01));py=py-sin(d*10-v03 |
1b40 | 2a 73 70 64 29 2a 76 30 32 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 30 33 2d 64 29 29 3b 0d 0a | *spd)*v02*min(1,max(0,v03-d));.. |
1b60 | 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 30 34 29 2b 73 71 72 28 68 79 2d 76 30 35 29 29 3b | d=.75*(sqr(hx-v04)+sqr(hy-v05)); |
1b80 | 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 30 37 2a 73 70 64 29 2a 76 30 36 2a 6d 69 6e 28 | py=py-sin(d*10-v07*spd)*v06*min( |
1ba0 | 31 2c 6d 61 78 28 30 2c 76 30 37 2d 64 29 29 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d | 1,max(0,v07-d));..d=.75*(sqr(hx- |
1bc0 | 76 30 38 29 2b 73 71 72 28 68 79 2d 76 30 39 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 | v08)+sqr(hy-v09));py=py-sin(d*10 |
1be0 | 2d 76 31 31 2a 73 70 64 29 2a 76 31 30 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 31 31 2d 64 29 | -v11*spd)*v10*min(1,max(0,v11-d) |
1c00 | 29 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 31 32 29 2b 73 71 72 28 68 79 2d 76 31 | );..d=.75*(sqr(hx-v12)+sqr(hy-v1 |
1c20 | 33 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 31 35 2a 73 70 64 29 2a 76 31 34 2a | 3));py=py-sin(d*10-v15*spd)*v14* |
1c40 | 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 31 35 2d 64 29 29 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 | min(1,max(0,v15-d));..d=.75*(sqr |
1c60 | 28 68 78 2d 76 31 36 29 2b 73 71 72 28 68 79 2d 76 31 37 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 | (hx-v16)+sqr(hy-v17));py=py-sin( |
1c80 | 64 2a 31 30 2d 76 31 39 2a 73 70 64 29 2a 76 31 38 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 31 | d*10-v19*spd)*v18*min(1,max(0,v1 |
1ca0 | 39 2d 64 29 29 3b 0d 0a 70 78 3d 68 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 68 79 2b | 9-d));..px=hx+ox;py=py+oy;pz=hy+ |
1cc0 | 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a | oz;..x1=px*cy+pz*sy;z1=-px*sy+pz |
1ce0 | 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a | *cy;..y2=py*cx+z1*sx;z2=-py*sx+z |
1d00 | 31 2a 63 78 3b 0d 0a 7a 32 3d 7a 32 2a 2e 35 2b 2e 35 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 | 1*cx;..z2=z2*.5+.5;..ldt=dt;..dt |
1d20 | 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 69 66 | =if(above(z2,.01),1/z2,0);..x=if |
1d40 | 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2d 2e 31 | (dt,x1*dt,x);y=if(dt,y2*dt*af-.1 |
1d60 | 2c 79 29 3b 0d 0a 0d 0a 0d 0a 72 65 64 3d 69 66 28 62 61 6e 64 28 6c 64 74 2c 61 62 6f 76 65 28 | ,y);......red=if(band(ldt,above( |
1d80 | 67 78 2c 30 29 29 2c 69 66 28 62 6f 72 28 65 71 75 61 6c 28 67 79 2c 30 29 2c 65 71 75 61 6c 28 | gx,0)),if(bor(equal(gy,0),equal( |
1da0 | 67 79 2c 67 2d 31 29 29 2c 2e 37 35 2c 2e 32 35 29 2c 30 29 3b 67 72 65 65 6e 3d 72 65 64 3b 62 | gy,g-1)),.75,.25),0);green=red;b |
1dc0 | 6c 75 65 3d 72 65 64 3b 0d 0a 67 78 3d 69 66 28 62 65 6c 6f 77 28 67 78 2c 67 2d 31 29 2c 67 78 | lue=red;..gx=if(below(gx,g-1),gx |
1de0 | 2b 31 2c 30 29 3b 0d 0a 67 79 3d 69 66 28 65 71 75 61 6c 28 67 78 2c 30 29 2c 67 79 2b 31 2c 67 | +1,0);..gy=if(equal(gx,0),gy+1,g |
1e00 | 79 29 3b 0d 0a 00 3b 01 00 00 67 78 3d 30 3b 67 79 3d 30 3b 0d 0a 61 66 3d 72 65 67 35 30 3b 0d | y);...;...gx=0;gy=0;..af=reg50;. |
1e20 | 0a 0d 0a 76 30 30 3d 72 65 67 30 30 3b 76 30 31 3d 72 65 67 30 31 3b 76 30 32 3d 72 65 67 30 32 | ...v00=reg00;v01=reg01;v02=reg02 |
1e40 | 3b 76 30 33 3d 72 65 67 30 33 3b 0d 0a 76 30 34 3d 72 65 67 30 34 3b 76 30 35 3d 72 65 67 30 35 | ;v03=reg03;..v04=reg04;v05=reg05 |
1e60 | 3b 76 30 36 3d 72 65 67 30 36 3b 76 30 37 3d 72 65 67 30 37 3b 0d 0a 76 30 38 3d 72 65 67 30 38 | ;v06=reg06;v07=reg07;..v08=reg08 |
1e80 | 3b 76 30 39 3d 72 65 67 30 39 3b 76 31 30 3d 72 65 67 31 30 3b 76 31 31 3d 72 65 67 31 31 3b 0d | ;v09=reg09;v10=reg10;v11=reg11;. |
1ea0 | 0a 76 31 32 3d 72 65 67 31 32 3b 76 31 33 3d 72 65 67 31 33 3b 76 31 34 3d 72 65 67 31 34 3b 76 | .v12=reg12;v13=reg13;v14=reg14;v |
1ec0 | 31 35 3d 72 65 67 31 35 3b 0d 0a 76 31 36 3d 72 65 67 31 36 3b 76 31 37 3d 72 65 67 31 37 3b 76 | 15=reg15;..v16=reg16;v17=reg17;v |
1ee0 | 31 38 3d 72 65 67 31 38 3b 76 31 39 3d 72 65 67 31 39 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 33 30 3b | 18=reg18;v19=reg19;....ox=reg30; |
1f00 | 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 63 78 3d 72 65 67 34 30 3b 73 78 3d | oy=reg31;oz=reg32;..cx=reg40;sx= |
1f20 | 72 65 67 34 31 3b 63 79 3d 72 65 67 34 32 3b 73 79 3d 72 65 67 34 33 3b 0d 0a 73 70 64 3d 72 65 | reg41;cy=reg42;sy=reg43;..spd=re |
1f40 | 67 37 30 3b 00 00 00 00 00 17 00 00 00 67 3d 32 32 3b 6e 3d 67 2a 67 3b 69 67 3d 31 2f 28 67 2d | g70;.........g=22;n=g*g;ig=1/(g- |
1f60 | 31 29 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 91 04 00 00 01 1e 03 00 | 1);.................$........... |
1f80 | 00 68 78 3d 67 79 2a 69 67 2a 32 2d 31 3b 68 79 3d 67 78 2a 69 67 2a 32 2d 31 3b 0d 0a 0d 0a 70 | .hx=gy*ig*2-1;hy=gx*ig*2-1;....p |
1fa0 | 79 3d 2e 32 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 30 30 29 2b 73 71 72 28 68 79 | y=.2;..d=.75*(sqr(hx-v00)+sqr(hy |
1fc0 | 2d 76 30 31 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 30 33 2a 73 70 64 29 2a 76 | -v01));py=py-sin(d*10-v03*spd)*v |
1fe0 | 30 32 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 30 33 2d 64 29 29 3b 0d 0a 64 3d 2e 37 35 2a 28 | 02*min(1,max(0,v03-d));..d=.75*( |
2000 | 73 71 72 28 68 78 2d 76 30 34 29 2b 73 71 72 28 68 79 2d 76 30 35 29 29 3b 70 79 3d 70 79 2d 73 | sqr(hx-v04)+sqr(hy-v05));py=py-s |
2020 | 69 6e 28 64 2a 31 30 2d 76 30 37 2a 73 70 64 29 2a 76 30 36 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 | in(d*10-v07*spd)*v06*min(1,max(0 |
2040 | 2c 76 30 37 2d 64 29 29 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 30 38 29 2b 73 71 | ,v07-d));..d=.75*(sqr(hx-v08)+sq |
2060 | 72 28 68 79 2d 76 30 39 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 31 31 2a 73 70 | r(hy-v09));py=py-sin(d*10-v11*sp |
2080 | 64 29 2a 76 31 30 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 31 31 2d 64 29 29 3b 0d 0a 64 3d 2e | d)*v10*min(1,max(0,v11-d));..d=. |
20a0 | 37 35 2a 28 73 71 72 28 68 78 2d 76 31 32 29 2b 73 71 72 28 68 79 2d 76 31 33 29 29 3b 70 79 3d | 75*(sqr(hx-v12)+sqr(hy-v13));py= |
20c0 | 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 31 35 2a 73 70 64 29 2a 76 31 34 2a 6d 69 6e 28 31 2c 6d | py-sin(d*10-v15*spd)*v14*min(1,m |
20e0 | 61 78 28 30 2c 76 31 35 2d 64 29 29 3b 0d 0a 64 3d 2e 37 35 2a 28 73 71 72 28 68 78 2d 76 31 36 | ax(0,v15-d));..d=.75*(sqr(hx-v16 |
2100 | 29 2b 73 71 72 28 68 79 2d 76 31 37 29 29 3b 70 79 3d 70 79 2d 73 69 6e 28 64 2a 31 30 2d 76 31 | )+sqr(hy-v17));py=py-sin(d*10-v1 |
2120 | 39 2a 73 70 64 29 2a 76 31 38 2a 6d 69 6e 28 31 2c 6d 61 78 28 30 2c 76 31 39 2d 64 29 29 3b 0d | 9*spd)*v18*min(1,max(0,v19-d));. |
2140 | 0a 70 78 3d 68 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 68 79 2b 6f 7a 3b 0d 0a 78 31 | .px=hx+ox;py=py+oy;pz=hy+oz;..x1 |
2160 | 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 | =px*cy+pz*sy;z1=-px*sy+pz*cy;..y |
2180 | 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a | 2=py*cx+z1*sx;z2=-py*sx+z1*cx;.. |
21a0 | 7a 32 3d 7a 32 2a 2e 35 2b 2e 35 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f | z2=z2*.5+.5;..ldt=dt;..dt=if(abo |
21c0 | 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 74 2c 78 31 2a | ve(z2,.01),1/z2,0);..x=if(dt,x1* |
21e0 | 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2d 2e 31 2c 79 29 3b 0d 0a 0d | dt,x);y=if(dt,y2*dt*af-.1,y);... |
2200 | 0a 0d 0a 72 65 64 3d 69 66 28 62 61 6e 64 28 6c 64 74 2c 61 62 6f 76 65 28 67 78 2c 30 29 29 2c | ...red=if(band(ldt,above(gx,0)), |
2220 | 69 66 28 62 6f 72 28 65 71 75 61 6c 28 67 79 2c 30 29 2c 65 71 75 61 6c 28 67 79 2c 67 2d 31 29 | if(bor(equal(gy,0),equal(gy,g-1) |
2240 | 29 2c 2e 37 35 2c 2e 32 35 29 2c 30 29 3b 67 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 64 | ),.75,.25),0);green=red;blue=red |
2260 | 3b 0d 0a 67 78 3d 69 66 28 62 65 6c 6f 77 28 67 78 2c 67 2d 31 29 2c 67 78 2b 31 2c 30 29 3b 0d | ;..gx=if(below(gx,g-1),gx+1,0);. |
2280 | 0a 67 79 3d 69 66 28 65 71 75 61 6c 28 67 78 2c 30 29 2c 67 79 2b 31 2c 67 79 29 3b 0d 0a 00 3b | .gy=if(equal(gx,0),gy+1,gy);...; |
22a0 | 01 00 00 67 78 3d 30 3b 67 79 3d 30 3b 0d 0a 61 66 3d 72 65 67 35 30 3b 0d 0a 0d 0a 76 30 30 3d | ...gx=0;gy=0;..af=reg50;....v00= |
22c0 | 72 65 67 30 30 3b 76 30 31 3d 72 65 67 30 31 3b 76 30 32 3d 72 65 67 30 32 3b 76 30 33 3d 72 65 | reg00;v01=reg01;v02=reg02;v03=re |
22e0 | 67 30 33 3b 0d 0a 76 30 34 3d 72 65 67 30 34 3b 76 30 35 3d 72 65 67 30 35 3b 76 30 36 3d 72 65 | g03;..v04=reg04;v05=reg05;v06=re |
2300 | 67 30 36 3b 76 30 37 3d 72 65 67 30 37 3b 0d 0a 76 30 38 3d 72 65 67 30 38 3b 76 30 39 3d 72 65 | g06;v07=reg07;..v08=reg08;v09=re |
2320 | 67 30 39 3b 76 31 30 3d 72 65 67 31 30 3b 76 31 31 3d 72 65 67 31 31 3b 0d 0a 76 31 32 3d 72 65 | g09;v10=reg10;v11=reg11;..v12=re |
2340 | 67 31 32 3b 76 31 33 3d 72 65 67 31 33 3b 76 31 34 3d 72 65 67 31 34 3b 76 31 35 3d 72 65 67 31 | g12;v13=reg13;v14=reg14;v15=reg1 |
2360 | 35 3b 0d 0a 76 31 36 3d 72 65 67 31 36 3b 76 31 37 3d 72 65 67 31 37 3b 76 31 38 3d 72 65 67 31 | 5;..v16=reg16;v17=reg17;v18=reg1 |
2380 | 38 3b 76 31 39 3d 72 65 67 31 39 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 | 8;v19=reg19;....ox=reg30;oy=reg3 |
23a0 | 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 63 78 3d 72 65 67 34 30 3b 73 78 3d 72 65 67 34 31 3b 63 | 1;oz=reg32;..cx=reg40;sx=reg41;c |
23c0 | 79 3d 72 65 67 34 32 3b 73 79 3d 72 65 67 34 33 3b 0d 0a 73 70 64 3d 72 65 67 37 30 3b 00 00 00 | y=reg42;sy=reg43;..spd=reg70;... |
23e0 | 00 00 17 00 00 00 67 3d 32 32 3b 6e 3d 67 2a 67 3b 69 67 3d 31 2f 28 67 2d 31 29 3b 00 02 00 00 | ......g=22;n=g*g;ig=1/(g-1);.... |
2400 | 00 01 00 00 00 ff ff ff 00 01 00 00 00 19 00 00 00 14 00 00 00 01 00 00 00 25 33 0d 00 01 00 00 | .........................%3..... |
2420 | 00 00 00 00 00 00 00 00 00 | ......... |