aboutsummaryrefslogtreecommitdiff
path: root/Src/resources/data/avs/Community Picks/UnConeD - Seismogrid.avs
blob: 827d8a955e199e3814c285fcf20d6d3e908ec8d9 (plain) (blame)
ofshex dumpascii
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 .........