aboutsummaryrefslogtreecommitdiff
path: root/Src/resources/data/avs/Community Picks/UnConeD - Silk Strings.avs
blob: 3bff526d3ca52a8a5226f095035321e17c5e773b (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 f3 05 00 Nullsoft.AVS.Preset.0.2.........
0020 00 ef 05 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 0d 0a 20 ................................
00a0 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 5f .\.....(.inal.................._
00c0 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 20 _...............................
00e0 53 69 6c 6b 20 53 74 72 69 6e 67 73 0d 0a 20 20 20 20 5c 20 20 20 20 af af af af 5c 20 20 20 20 Silk.Strings......\........\....
0100 20 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 ._....../....)..................
0120 20 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 ...............\...|.\....\_/..\
0140 5f 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 _/..../.........................
0160 20 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 ............\/....\.............
0180 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 20 ..../...........................
01a0 20 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 .by.Steven.Wittens..............
01c0 20 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 .....\__/^\__/.hack.............
01e0 20 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 ...........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 5f 0d 0a 20 20 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 af 0d 0a 54 68 65 72 65 27 73 20 65 6e 64 6c 65 73 73 20 66 75 6e 20 74 6f 20 62 ........There's.endless.fun.to.b
0280 65 20 68 61 64 20 77 69 74 68 20 74 65 6e 74 61 63 6c 65 2d 6c 69 6b 65 20 73 63 6f 70 65 73 20 e.had.with.tentacle-like.scopes.
02a0 3b 29 2e 20 4e 6f 74 20 6d 75 63 68 20 74 6f 20 73 61 79 20 61 62 6f 75 74 20 74 68 65 6d 20 74 ;)..Not.much.to.say.about.them.t
02c0 68 6f 75 67 68 2e 0d 0a 0d 0a 45 78 74 72 65 6d 65 6c 79 20 6c 6f 6e 67 20 74 72 61 69 6c 73 2c hough.....Extremely.long.trails,
02e0 20 63 75 72 76 79 20 63 6f 64 69 6e 67 20 61 6e 64 20 64 69 7a 7a 69 66 79 69 6e 67 20 63 61 6d .curvy.coding.and.dizzifying.cam
0300 65 72 61 20 63 6f 64 65 20 6d 61 6b 65 20 74 68 69 73 20 6f 6e 65 20 63 6f 6f 6c 2e 20 4f 6e 65 era.code.make.this.one.cool..One
0320 20 69 6d 70 6f 72 74 61 6e 74 20 74 72 69 63 6b 20 69 73 20 75 73 69 6e 67 20 27 73 71 72 74 28 .important.trick.is.using.'sqrt(
0340 69 29 27 20 61 73 20 72 61 64 69 75 73 20 72 61 74 68 65 72 20 74 68 61 6e 20 27 69 27 20 64 69 i)'.as.radius.rather.than.'i'.di
0360 72 65 63 74 6c 79 2e 20 54 68 69 73 20 6d 61 6b 65 73 20 74 68 65 20 73 70 72 65 61 64 69 6e 67 rectly..This.makes.the.spreading
0380 20 73 6c 6f 77 20 64 6f 77 6e 20 74 68 65 20 66 75 72 74 68 65 72 20 69 74 20 67 65 74 73 2e 0d .slow.down.the.further.it.gets..
03a0 0a 0d 0a 4f 66 20 63 6f 75 72 73 65 20 61 20 6e 69 63 65 20 63 6f 6e 76 6f 6c 75 74 69 6f 6e 20 ...Of.course.a.nice.convolution.
03c0 67 6c 6f 77 20 74 6f 20 61 64 64 20 74 68 61 74 20 6c 69 74 74 6c 65 20 65 78 74 72 61 20 74 6f glow.to.add.that.little.extra.to
03e0 6f 2e 0d 0a 20 20 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 o.....__________________________
0400 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a af af af af __________________________......
0420 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 ................................
0440 af af af af af af af af af af af af af af af af af af 0d 0a 28 63 29 20 53 74 65 76 65 6e 20 57 ....................(c).Steven.W
0460 69 74 74 65 6e 73 20 2f 20 55 6e 43 6f 6e 65 44 0d 0a 73 74 65 76 65 6e 20 40 20 61 63 6b 6f 20 ittens./.UnConeD..steven.@.acko.
0480 64 6f 74 20 6e 65 74 20 2d 20 77 77 77 2e 61 63 6b 6f 2e 6e 65 74 0d 0a 0d 0a 49 66 20 79 6f 75 dot.net.-.www.acko.net....If.you
04a0 20 77 69 73 68 20 74 6f 20 75 73 65 20 61 6e 79 20 70 61 72 74 20 28 6f 72 20 74 68 65 20 77 68 .wish.to.use.any.part.(or.the.wh
04c0 6f 6c 65 29 20 6f 66 20 74 68 69 73 20 70 72 65 73 65 74 20 69 6e 20 79 6f 75 72 20 6f 77 6e 20 ole).of.this.preset.in.your.own.
04e0 70 72 65 73 65 74 73 2c 20 70 61 63 6b 73 20 6f 72 20 69 6e 20 61 6e 6f 74 68 65 72 20 6d 65 64 presets,.packs.or.in.another.med
0500 69 75 6d 2c 20 79 6f 75 20 6d 75 73 74 20 69 6e 63 6c 75 64 65 20 6d 79 20 6e 61 6d 65 20 61 73 ium,.you.must.include.my.name.as
0520 20 61 20 63 6c 65 61 72 20 63 72 65 64 69 74 20 72 65 66 65 72 65 6e 63 65 2e 20 49 6e 63 6c 75 .a.clear.credit.reference..Inclu
0540 64 69 6e 67 20 6d 79 20 63 6f 6e 74 61 63 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2f 77 65 62 73 ding.my.contact.information/webs
0560 69 74 65 20 61 64 64 72 65 73 73 20 69 73 20 6e 6f 74 20 72 65 71 75 69 72 65 64 2c 20 62 75 74 ite.address.is.not.required,.but
0580 20 61 70 70 72 65 63 69 61 74 65 64 2e 0d 0a 45 78 63 65 70 74 69 6f 6e 20 74 6f 20 74 68 65 20 .appreciated...Exception.to.the.
05a0 61 62 6f 76 65 3a 20 79 6f 75 20 6d 61 79 20 64 69 73 70 6c 61 79 20 74 68 65 73 65 20 70 72 65 above:.you.may.display.these.pre
05c0 73 65 74 73 20 61 73 20 61 20 70 72 6f 6a 65 63 74 69 6f 6e 20 61 74 20 70 61 72 74 69 65 73 2c sets.as.a.projection.at.parties,
05e0 20 72 61 76 65 73 20 6f 72 20 63 6c 75 62 73 20 77 69 74 68 6f 75 74 20 63 72 65 64 69 74 20 72 .raves.or.clubs.without.credit.r
0600 65 66 65 72 65 6e 63 65 20 6f 6e 2d 73 63 72 65 65 6e 2e 00 24 00 00 00 06 05 00 00 01 00 00 00 eference.on-screen..$...........
0620 00 f1 03 00 00 74 6d 3d 67 65 74 74 69 6d 65 28 30 29 3b 0d 0a 64 65 63 3d 64 65 63 2a 2e 37 2b .....tm=gettime(0);..dec=dec*.7+
0640 28 31 2d 70 6f 77 28 2e 39 2c 28 32 37 2a 28 74 6d 2d 6c 74 29 29 29 29 2a 2e 33 3b 0d 0a 72 65 (1-pow(.9,(27*(tm-lt))))*.3;..re
0660 67 39 30 3d 64 65 63 3b 0d 0a 6c 74 3d 74 6d 3b 0d 0a 0d 0a 7a 6d 3d 7a 6d 2a 2e 38 2b 7a 6d 74 g90=dec;..lt=tm;....zm=zm*.8+zmt
0680 2a 2e 32 3b 0d 0a 6f 78 3d 6f 78 2b 28 6f 78 74 2d 6f 78 29 2a 64 65 63 3b 6f 79 3d 6f 79 2b 28 *.2;..ox=ox+(oxt-ox)*dec;oy=oy+(
06a0 6f 79 74 2d 6f 79 29 2a 64 65 63 3b 6f 7a 3d 6f 7a 2b 28 6f 7a 74 2d 6f 7a 29 2a 64 65 63 3b 0d oyt-oy)*dec;oz=oz+(ozt-oz)*dec;.
06c0 0a 6f 74 3d 2e 31 2b 7a 6d 2a 69 6e 76 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 .ot=.1+zm*invsqrt(sqr(ox)+sqr(oy
06e0 29 2b 73 71 72 28 6f 7a 29 29 3b 0d 0a 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6f 79 2a 6f 74 3b 6f )+sqr(oz));..ox=ox*ot;oy=oy*ot;o
0700 7a 3d 6f 7a 2a 6f 74 3b 0d 0a 0d 0a 76 78 3d 76 78 2b 28 6f 78 2d 76 78 29 2a 64 65 63 3b 76 79 z=oz*ot;....vx=vx+(ox-vx)*dec;vy
0720 3d 76 79 2b 28 6f 79 2d 76 79 29 2a 64 65 63 3b 76 7a 3d 76 7a 2b 28 6f 7a 2d 76 7a 29 2a 64 65 =vy+(oy-vy)*dec;vz=vz+(oz-vz)*de
0740 63 3b 0d 0a 0d 0a 72 7a 3d 30 3b 0d 0a 72 72 79 3d 61 74 61 6e 32 28 2d 76 78 2c 76 7a 29 3b 0d c;....rz=0;..rry=atan2(-vx,vz);.
0760 0a 72 72 78 3d 2d 61 74 61 6e 32 28 76 79 2c 73 71 72 74 28 73 71 72 28 76 78 29 2b 73 71 72 28 .rrx=-atan2(vy,sqrt(sqr(vx)+sqr(
0780 76 7a 29 29 29 3b 0d 0a 72 79 3d 69 66 28 74 2c 72 79 2b 73 69 6e 28 72 72 79 2d 72 79 29 2a 64 vz)));..ry=if(t,ry+sin(rry-ry)*d
07a0 65 63 2c 72 72 79 29 3b 72 78 3d 69 66 28 74 2c 72 78 2b 73 69 6e 28 72 72 78 2d 72 78 29 2a 64 ec,rry);rx=if(t,rx+sin(rrx-rx)*d
07c0 65 63 2c 72 72 78 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 ec,rrx);..cx=cos(rx);sx=sin(rx);
07e0 63 79 3d 63 6f 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 cy=cos(ry);sy=sin(ry);cz=cos(rz)
0800 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 0d 0a 72 65 67 34 31 3d 6f 66 66 3b 0d 0a 72 65 67 30 ;sz=sin(rz);....reg41=off;..reg0
0820 31 3d 72 79 3b 72 65 67 30 32 3d 63 6f 73 28 72 79 29 3b 72 65 67 30 33 3d 73 69 6e 28 72 79 29 1=ry;reg02=cos(ry);reg03=sin(ry)
0840 3b 0d 0a 72 65 67 30 34 3d 72 78 3b 72 65 67 30 35 3d 63 6f 73 28 72 78 29 3b 72 65 67 30 36 3d ;..reg04=rx;reg05=cos(rx);reg06=
0860 73 69 6e 28 72 78 29 3b 0d 0a 72 65 67 31 30 3d 76 78 3b 72 65 67 31 31 3d 76 79 3b 72 65 67 31 sin(rx);..reg10=vx;reg11=vy;reg1
0880 32 3d 76 7a 3b 0d 0a 0d 0a 72 65 67 34 30 3d 72 65 67 34 30 2b 6f 66 66 3b 0d 0a 0d 0a 72 65 67 2=vz;....reg40=reg40+off;....reg
08a0 38 30 3d 72 65 67 38 30 2b 28 72 65 67 37 39 2d 72 65 67 38 30 29 2a 73 77 65 65 70 3b 0d 0a 72 80=reg80+(reg79-reg80)*sweep;..r
08c0 65 67 37 39 3d 72 65 67 37 39 2b 28 72 65 67 37 38 2d 72 65 67 37 39 29 2a 73 77 65 65 70 3b 0d eg79=reg79+(reg78-reg79)*sweep;.
08e0 0a 72 65 67 37 38 3d 72 65 67 37 38 2b 28 72 65 67 37 37 2d 72 65 67 37 38 29 2a 73 77 65 65 70 .reg78=reg78+(reg77-reg78)*sweep
0900 3b 0d 0a 72 65 67 37 37 3d 72 65 67 37 37 2b 28 72 65 67 37 36 2d 72 65 67 37 37 29 2a 73 77 65 ;..reg77=reg77+(reg76-reg77)*swe
0920 65 70 3b 0d 0a 72 65 67 37 36 3d 72 65 67 37 36 2b 28 72 65 67 37 35 2d 72 65 67 37 36 29 2a 73 ep;..reg76=reg76+(reg75-reg76)*s
0940 77 65 65 70 3b 0d 0a 72 65 67 37 35 3d 72 65 67 37 35 2b 28 72 65 67 37 34 2d 72 65 67 37 35 29 weep;..reg75=reg75+(reg74-reg75)
0960 2a 73 77 65 65 70 3b 0d 0a 72 65 67 37 34 3d 72 65 67 37 34 2b 28 72 65 67 37 33 2d 72 65 67 37 *sweep;..reg74=reg74+(reg73-reg7
0980 34 29 2a 73 77 65 65 70 3b 0d 0a 72 65 67 37 33 3d 72 65 67 37 33 2b 28 72 65 67 37 32 2d 72 65 4)*sweep;..reg73=reg73+(reg72-re
09a0 67 37 33 29 2a 73 77 65 65 70 3b 0d 0a 72 65 67 37 32 3d 72 65 67 37 32 2b 28 72 65 67 37 31 2d g73)*sweep;..reg72=reg72+(reg71-
09c0 72 65 67 37 32 29 2a 73 77 65 65 70 3b 0d 0a 72 65 67 37 31 3d 72 65 67 37 31 2b 28 72 65 67 37 reg72)*sweep;..reg71=reg71+(reg7
09e0 30 2d 72 65 67 37 31 29 2a 73 77 65 65 70 3b 0d 0a 72 65 67 37 30 3d 72 65 67 37 30 2b 28 62 2a 0-reg71)*sweep;..reg70=reg70+(b*
0a00 33 2d 72 65 67 37 30 29 2a 73 77 65 65 70 3b 0d 0a 74 3d 31 3b 00 56 00 00 00 7a 6d 74 3d 72 61 3-reg70)*sweep;..t=1;.V...zmt=ra
0a20 6e 64 28 31 30 30 29 2a 2e 30 31 2b 2e 32 3b 0d 0a 6f 78 74 3d 72 61 6e 64 28 32 30 30 29 2a 2e nd(100)*.01+.2;..oxt=rand(200)*.
0a40 30 31 2d 31 3b 6f 79 74 3d 72 61 6e 64 28 32 30 30 29 2a 2e 30 31 2d 31 3b 6f 7a 74 3d 72 61 6e 01-1;oyt=rand(200)*.01-1;ozt=ran
0a60 64 28 32 30 30 29 2a 2e 30 31 2d 31 3b 0d 0a 00 9e 00 00 00 6e 3d 30 3b 2f 2a 67 6c 6f 62 61 6c d(200)*.01-1;.......n=0;/*global
0a80 2a 2f 0d 0a 6f 66 66 3d 2e 30 31 35 3b 73 77 65 65 70 3d 2e 37 35 3b 0d 0a 7a 6d 3d 31 3b 7a 6d */..off=.015;sweep=.75;..zm=1;zm
0aa0 74 3d 31 3b 0d 0a 6f 78 74 3d 72 61 6e 64 28 32 30 30 29 2a 2e 30 31 2d 31 3b 6f 79 74 3d 72 61 t=1;..oxt=rand(200)*.01-1;oyt=ra
0ac0 6e 64 28 32 30 30 29 2a 2e 30 31 2d 31 3b 6f 7a 74 3d 72 61 6e 64 28 32 30 30 29 2a 2e 30 31 2d nd(200)*.01-1;ozt=rand(200)*.01-
0ae0 31 3b 0d 0a 6f 78 3d 6f 78 74 3b 6f 79 3d 6f 79 74 3b 6f 7a 3d 6f 7a 74 3b 76 78 3d 6f 78 3b 76 1;..ox=oxt;oy=oyt;oz=ozt;vx=ox;v
0b00 79 3d 6f 79 3b 76 7a 3d 6f 7a 3b 0d 0a 74 3d 30 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 y=oy;vz=oz;..t=0;...............
0b20 00 00 28 00 00 00 04 00 00 00 02 00 01 80 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b ..(...........$............lj=j;
0b40 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a ..j=i*10;j=j-floor(j);j=(3-2*j)*
0b60 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 sqr(j);..cv=if(below(i,.1),reg70
0b80 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c +(reg71-reg70)*j,if(below(i,.2),
0ba0 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 reg71+(reg72-reg71)*j,if(below(i
0bc0 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 ,.3),reg72+(reg73-reg72)*j,if(be
0be0 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c low(i,.4),reg73+(reg74-reg73)*j,
0c00 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 if(below(i,.5),reg74+(reg75-reg7
0c20 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 4)*j,if(below(i,.6),reg75+(reg76
0c40 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 -reg75)*j,if(below(i,.7),reg76+(
0c60 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 reg77-reg76)*j,if(below(i,.8),re
0c80 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e g77+(reg78-reg77)*j,if(below(i,.
0ca0 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 9),reg78+(reg79-reg78)*j,reg79+(
0cc0 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 reg80-reg79)*j)))))))));..rd=sqr
0ce0 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b t(i);..tth=sin(pt)*cos(pt*1.123+
0d00 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 md1)+cos(pt*4.411+md2)+pt*4+sin(
0d20 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 pt*.31);..tph=2*(cos(pt*1.66)+si
0d40 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 n(pt*2.32+md2)*cos(pt*3.217-md1)
0d60 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 )-pt*.081-cos(pt*9.167)*cos(tth)
0d80 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a ;..ss=sin(tth)*rd;..px=cos(tph)*
0da0 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 ss;py=sin(tph)*ss;pz=cos(tth)*rd
0dc0 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b ;..pt=pt-off;....px=px+ox;py=py+
0de0 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 3b 7a 31 3d oy;pz=pz+oz;..x1=px*cy-pz*sy;z1=
0e00 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d px*sy+pz*cy;..y2=py*cx-z1*sx;z2=
0e20 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d py*sx+z1*cx;..x3=x1*cz-y2*sz;y3=
0e40 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f x1*sz+y2*cz;..ldt=dt;..dt=if(abo
0e60 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 33 2a ve(z2,.01),1/z2,0);..x=if(dt,x3*
0e80 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d dt,x);y=if(dt,y3*dt*asp,y);..cv=
0ea0 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d band(dt,ldt)*(.5+cv*5);..red=(1-
0ec0 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 sqr(i))*cv;green=red*.5;blue=red
0ee0 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d *.2;.......ox=reg10;oy=reg11;oz=
0f00 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 reg12;..ry=reg01;cy=reg02;sy=reg
0f20 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 03;..rx=reg04;cx=reg05;sx=reg06;
0f40 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 ..off=reg41;..asp=w/h;....t=reg4
0f60 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 0;..pt=t;....cx=cos(rx);sx=-sin(
0f80 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f rx);cy=cos(ry);sy=-sin(ry);cz=co
0fa0 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 s(rz);sz=-sin(rz);..j=0;..dt=1;.
0fc0 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b ....,...n=90;..md1=rand(100)*.1;
0fe0 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 md2=rand(100)*.1;...............
1000 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a ....$............lj=j;..j=i*10;j
1020 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 =j-floor(j);j=(3-2*j)*sqr(j);..c
1040 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 v=if(below(i,.1),reg70+(reg71-re
1060 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 g70)*j,if(below(i,.2),reg71+(reg
1080 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 72-reg71)*j,if(below(i,.3),reg72
10a0 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c +(reg73-reg72)*j,if(below(i,.4),
10c0 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 reg73+(reg74-reg73)*j,if(below(i
10e0 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 ,.5),reg74+(reg75-reg74)*j,if(be
1100 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c low(i,.6),reg75+(reg76-reg75)*j,
1120 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 if(below(i,.7),reg76+(reg77-reg7
1140 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 6)*j,if(below(i,.8),reg77+(reg78
1160 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 -reg77)*j,if(below(i,.9),reg78+(
1180 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 reg79-reg78)*j,reg79+(reg80-reg7
11a0 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 9)*j)))))))));..rd=sqrt(i);..tth
11c0 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 =sin(pt)*cos(pt*1.123+md1)+cos(p
11e0 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a t*4.411+md2)+pt*4+sin(pt*.31);..
1200 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b tph=2*(cos(pt*1.66)+sin(pt*2.32+
1220 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d md2)*cos(pt*3.217-md1))-pt*.081-
1240 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 cos(pt*9.167)*cos(tth);..ss=sin(
1260 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 tth)*rd;..px=cos(tph)*ss;py=sin(
1280 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f tph)*ss;pz=cos(tth)*rd;..pt=pt-o
12a0 66 66 3b 0d 0a 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 ff;....px=px+ox;py=py+oy;pz=pz+o
12c0 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
12e0 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
1300 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
1320 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 z;..ldt=dt;..dt=if(above(z2,.01)
1340 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 ,1/z2,0);..x=if(dt,x3*dt,x);y=if
1360 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 (dt,y3*dt*asp,y);..cv=band(dt,ld
1380 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 t)*(.5+cv*5);..red=(1-sqr(i))*cv
13a0 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 ;green=red*.5;blue=red*.2;......
13c0 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 .ox=reg10;oy=reg11;oz=reg12;..ry
13e0 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 =reg01;cy=reg02;sy=reg03;..rx=re
1400 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 g04;cx=reg05;sx=reg06;..off=reg4
1420 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 1;..asp=w/h;....t=reg40;..pt=t;.
1440 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 ...cx=cos(rx);sx=-sin(rx);cy=cos
1460 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d (ry);sy=-sin(ry);cz=cos(rz);sz=-
1480 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d sin(rz);..j=0;..dt=1;.....,...n=
14a0 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 90;..md1=rand(100)*.1;md2=rand(1
14c0 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 ce 04 00)*.1;...................$.....
14e0 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a .......lj=j;..j=i*10;j=j-floor(j
1500 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 );j=(3-2*j)*sqr(j);..cv=if(below
1520 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 (i,.1),reg70+(reg71-reg70)*j,if(
1540 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a below(i,.2),reg71+(reg72-reg71)*
1560 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 j,if(below(i,.3),reg72+(reg73-re
1580 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 g72)*j,if(below(i,.4),reg73+(reg
15a0 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 74-reg73)*j,if(below(i,.5),reg74
15c0 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c +(reg75-reg74)*j,if(below(i,.6),
15e0 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 reg75+(reg76-reg75)*j,if(below(i
1600 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 ,.7),reg76+(reg77-reg76)*j,if(be
1620 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c low(i,.8),reg77+(reg78-reg77)*j,
1640 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 if(below(i,.9),reg78+(reg79-reg7
1660 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 8)*j,reg79+(reg80-reg79)*j))))))
1680 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 )));..rd=sqrt(i);..tth=sin(pt)*c
16a0 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 os(pt*1.123+md1)+cos(pt*4.411+md
16c0 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 2)+pt*4+sin(pt*.31);..tph=2*(cos
16e0 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 (pt*1.66)+sin(pt*2.32+md2)*cos(p
1700 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 t*3.217-md1))-pt*.081-cos(pt*9.1
1720 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 67)*cos(tth);..ss=sin(tth)*rd;..
1740 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a px=cos(tph)*ss;py=sin(tph)*ss;pz
1760 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d =cos(tth)*rd;..pt=pt-off;....px=
1780 70 78 2b 6f 78 3b 70 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 px+ox;py=py+oy;pz=pz+oz;..x1=px*
17a0 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a cy-pz*sy;z1=px*sy+pz*cy;..y2=py*
17c0 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a cx-z1*sx;z2=py*sx+z1*cx;..x3=x1*
17e0 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 cz-y2*sz;y3=x1*sz+y2*cz;..ldt=dt
1800 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d ;..dt=if(above(z2,.01),1/z2,0);.
1820 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a .x=if(dt,x3*dt,x);y=if(dt,y3*dt*
1840 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a asp,y);..cv=band(dt,ldt)*(.5+cv*
1860 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 5);..red=(1-sqr(i))*cv;green=red
1880 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b *.5;blue=red*.2;.......ox=reg10;
18a0 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d oy=reg11;oz=reg12;..ry=reg01;cy=
18c0 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 reg02;sy=reg03;..rx=reg04;cx=reg
18e0 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 05;sx=reg06;..off=reg41;..asp=w/
1900 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 h;....t=reg40;..pt=t;....cx=cos(
1920 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 rx);sx=-sin(rx);cy=cos(ry);sy=-s
1940 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a in(ry);cz=cos(rz);sz=-sin(rz);..
1960 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 j=0;..dt=1;.....,...n=90;..md1=r
1980 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 and(100)*.1;md2=rand(100)*.1;...
19a0 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d ................$............lj=
19c0 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a j;..j=i*10;j=j-floor(j);j=(3-2*j
19e0 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 )*sqr(j);..cv=if(below(i,.1),reg
1a00 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 70+(reg71-reg70)*j,if(below(i,.2
1a20 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 ),reg71+(reg72-reg71)*j,if(below
1a40 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 (i,.3),reg72+(reg73-reg72)*j,if(
1a60 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a below(i,.4),reg73+(reg74-reg73)*
1a80 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 j,if(below(i,.5),reg74+(reg75-re
1aa0 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 g74)*j,if(below(i,.6),reg75+(reg
1ac0 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 76-reg75)*j,if(below(i,.7),reg76
1ae0 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c +(reg77-reg76)*j,if(below(i,.8),
1b00 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 reg77+(reg78-reg77)*j,if(below(i
1b20 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 ,.9),reg78+(reg79-reg78)*j,reg79
1b40 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 +(reg80-reg79)*j)))))))));..rd=s
1b60 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 qrt(i);..tth=sin(pt)*cos(pt*1.12
1b80 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 3+md1)+cos(pt*4.411+md2)+pt*4+si
1ba0 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b n(pt*.31);..tph=2*(cos(pt*1.66)+
1bc0 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 sin(pt*2.32+md2)*cos(pt*3.217-md
1be0 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 1))-pt*.081-cos(pt*9.167)*cos(tt
1c00 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 h);..ss=sin(tth)*rd;..px=cos(tph
1c20 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a )*ss;py=sin(tph)*ss;pz=cos(tth)*
1c40 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 rd;..pt=pt-off;....px=px+ox;py=p
1c60 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 3b 7a y+oy;pz=pz+oz;..x1=px*cy-pz*sy;z
1c80 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 3b 7a 1=px*sy+pz*cy;..y2=py*cx-z1*sx;z
1ca0 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 3b 79 2=py*sx+z1*cx;..x3=x1*cz-y2*sz;y
1cc0 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 3=x1*sz+y2*cz;..ldt=dt;..dt=if(a
1ce0 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 bove(z2,.01),1/z2,0);..x=if(dt,x
1d00 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 3*dt,x);y=if(dt,y3*dt*asp,y);..c
1d20 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 v=band(dt,ldt)*(.5+cv*5);..red=(
1d40 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 1-sqr(i))*cv;green=red*.5;blue=r
1d60 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f ed*.2;.......ox=reg10;oy=reg11;o
1d80 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 z=reg12;..ry=reg01;cy=reg02;sy=r
1da0 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 eg03;..rx=reg04;cx=reg05;sx=reg0
1dc0 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 6;..off=reg41;..asp=w/h;....t=re
1de0 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 g40;..pt=t;....cx=cos(rx);sx=-si
1e00 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d n(rx);cy=cos(ry);sy=-sin(ry);cz=
1e20 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 cos(rz);sz=-sin(rz);..j=0;..dt=1
1e40 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e ;.....,...n=90;..md1=rand(100)*.
1e60 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff 1;md2=rand(100)*.1;.............
1e80 ff 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 ......$............lj=j;..j=i*10
1ea0 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d ;j=j-floor(j);j=(3-2*j)*sqr(j);.
1ec0 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d .cv=if(below(i,.1),reg70+(reg71-
1ee0 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 reg70)*j,if(below(i,.2),reg71+(r
1f00 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 eg72-reg71)*j,if(below(i,.3),reg
1f20 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 72+(reg73-reg72)*j,if(below(i,.4
1f40 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 ),reg73+(reg74-reg73)*j,if(below
1f60 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 (i,.5),reg74+(reg75-reg74)*j,if(
1f80 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a below(i,.6),reg75+(reg76-reg75)*
1fa0 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 j,if(below(i,.7),reg76+(reg77-re
1fc0 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 g76)*j,if(below(i,.8),reg77+(reg
1fe0 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 78-reg77)*j,if(below(i,.9),reg78
2000 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 +(reg79-reg78)*j,reg79+(reg80-re
2020 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 g79)*j)))))))));..rd=sqrt(i);..t
2040 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 th=sin(pt)*cos(pt*1.123+md1)+cos
2060 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b (pt*4.411+md2)+pt*4+sin(pt*.31);
2080 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 ..tph=2*(cos(pt*1.66)+sin(pt*2.3
20a0 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 2+md2)*cos(pt*3.217-md1))-pt*.08
20c0 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 1-cos(pt*9.167)*cos(tth);..ss=si
20e0 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 n(tth)*rd;..px=cos(tph)*ss;py=si
2100 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 n(tph)*ss;pz=cos(tth)*rd;..pt=pt
2120 2d 6f 66 66 3b 0d 0a 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 -off;....px=px+ox;py=py+oy;pz=pz
2140 2b 6f 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 +oz;..x1=px*cy-pz*sy;z1=px*sy+pz
2160 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 *cy;..y2=py*cx-z1*sx;z2=py*sx+z1
2180 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 *cx;..x3=x1*cz-y2*sz;y3=x1*sz+y2
21a0 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 *cz;..ldt=dt;..dt=if(above(z2,.0
21c0 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 1),1/z2,0);..x=if(dt,x3*dt,x);y=
21e0 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c if(dt,y3*dt*asp,y);..cv=band(dt,
2200 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a ldt)*(.5+cv*5);..red=(1-sqr(i))*
2220 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 cv;green=red*.5;blue=red*.2;....
2240 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a ...ox=reg10;oy=reg11;oz=reg12;..
2260 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d ry=reg01;cy=reg02;sy=reg03;..rx=
2280 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 reg04;cx=reg05;sx=reg06;..off=re
22a0 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 g41;..asp=w/h;....t=reg40;..pt=t
22c0 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 ;....cx=cos(rx);sx=-sin(rx);cy=c
22e0 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a os(ry);sy=-sin(ry);cz=cos(rz);sz
2300 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 =-sin(rz);..j=0;..dt=1;.....,...
2320 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 n=90;..md1=rand(100)*.1;md2=rand
2340 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 (100)*.1;...................$...
2360 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 .........lj=j;..j=i*10;j=j-floor
2380 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c (j);j=(3-2*j)*sqr(j);..cv=if(bel
23a0 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 ow(i,.1),reg70+(reg71-reg70)*j,i
23c0 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 f(below(i,.2),reg71+(reg72-reg71
23e0 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d )*j,if(below(i,.3),reg72+(reg73-
2400 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 reg72)*j,if(below(i,.4),reg73+(r
2420 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 eg74-reg73)*j,if(below(i,.5),reg
2440 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 74+(reg75-reg74)*j,if(below(i,.6
2460 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 ),reg75+(reg76-reg75)*j,if(below
2480 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 (i,.7),reg76+(reg77-reg76)*j,if(
24a0 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a below(i,.8),reg77+(reg78-reg77)*
24c0 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 j,if(below(i,.9),reg78+(reg79-re
24e0 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 g78)*j,reg79+(reg80-reg79)*j))))
2500 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 )))));..rd=sqrt(i);..tth=sin(pt)
2520 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b *cos(pt*1.123+md1)+cos(pt*4.411+
2540 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 md2)+pt*4+sin(pt*.31);..tph=2*(c
2560 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 os(pt*1.66)+sin(pt*2.32+md2)*cos
2580 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 (pt*3.217-md1))-pt*.081-cos(pt*9
25a0 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b .167)*cos(tth);..ss=sin(tth)*rd;
25c0 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b ..px=cos(tph)*ss;py=sin(tph)*ss;
25e0 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 pz=cos(tth)*rd;..pt=pt-off;....p
2600 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 x=px+ox;py=py+oy;pz=pz+oz;..x1=p
2620 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 x*cy-pz*sy;z1=px*sy+pz*cy;..y2=p
2640 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 y*cx-z1*sx;z2=py*sx+z1*cx;..x3=x
2660 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 1*cz-y2*sz;y3=x1*sz+y2*cz;..ldt=
2680 64 74 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 dt;..dt=if(above(z2,.01),1/z2,0)
26a0 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 ;..x=if(dt,x3*dt,x);y=if(dt,y3*d
26c0 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 t*asp,y);..cv=band(dt,ldt)*(.5+c
26e0 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 v*5);..red=(1-sqr(i))*cv;green=r
2700 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 ed*.5;blue=red*.2;.......ox=reg1
2720 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 0;oy=reg11;oz=reg12;..ry=reg01;c
2740 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 y=reg02;sy=reg03;..rx=reg04;cx=r
2760 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d eg05;sx=reg06;..off=reg41;..asp=
2780 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f w/h;....t=reg40;..pt=t;....cx=co
27a0 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d s(rx);sx=-sin(rx);cy=cos(ry);sy=
27c0 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b -sin(ry);cz=cos(rz);sz=-sin(rz);
27e0 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 ..j=0;..dt=1;.....,...n=90;..md1
2800 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d =rand(100)*.1;md2=rand(100)*.1;.
2820 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c ..................$............l
2840 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 j=j;..j=i*10;j=j-floor(j);j=(3-2
2860 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 *j)*sqr(j);..cv=if(below(i,.1),r
2880 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c eg70+(reg71-reg70)*j,if(below(i,
28a0 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c .2),reg71+(reg72-reg71)*j,if(bel
28c0 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 ow(i,.3),reg72+(reg73-reg72)*j,i
28e0 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 f(below(i,.4),reg73+(reg74-reg73
2900 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d )*j,if(below(i,.5),reg74+(reg75-
2920 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 reg74)*j,if(below(i,.6),reg75+(r
2940 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 eg76-reg75)*j,if(below(i,.7),reg
2960 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 76+(reg77-reg76)*j,if(below(i,.8
2980 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 ),reg77+(reg78-reg77)*j,if(below
29a0 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 (i,.9),reg78+(reg79-reg78)*j,reg
29c0 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 79+(reg80-reg79)*j)))))))));..rd
29e0 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e =sqrt(i);..tth=sin(pt)*cos(pt*1.
2a00 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 123+md1)+cos(pt*4.411+md2)+pt*4+
2a20 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 sin(pt*.31);..tph=2*(cos(pt*1.66
2a40 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d )+sin(pt*2.32+md2)*cos(pt*3.217-
2a60 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 md1))-pt*.081-cos(pt*9.167)*cos(
2a80 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 tth);..ss=sin(tth)*rd;..px=cos(t
2aa0 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 ph)*ss;py=sin(tph)*ss;pz=cos(tth
2ac0 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 )*rd;..pt=pt-off;....px=px+ox;py
2ae0 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
2b00 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
2b20 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
2b40 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 ;y3=x1*sz+y2*cz;..ldt=dt;..dt=if
2b60 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 (above(z2,.01),1/z2,0);..x=if(dt
2b80 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d ,x3*dt,x);y=if(dt,y3*dt*asp,y);.
2ba0 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 .cv=band(dt,ldt)*(.5+cv*5);..red
2bc0 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 =(1-sqr(i))*cv;green=red*.5;blue
2be0 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 =red*.2;.......ox=reg10;oy=reg11
2c00 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 ;oz=reg12;..ry=reg01;cy=reg02;sy
2c20 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 =reg03;..rx=reg04;cx=reg05;sx=re
2c40 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d g06;..off=reg41;..asp=w/h;....t=
2c60 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d reg40;..pt=t;....cx=cos(rx);sx=-
2c80 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 sin(rx);cy=cos(ry);sy=-sin(ry);c
2ca0 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 z=cos(rz);sz=-sin(rz);..j=0;..dt
2cc0 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 =1;.....,...n=90;..md1=rand(100)
2ce0 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 *.1;md2=rand(100)*.1;...........
2d00 ff ff ff 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a ........$............lj=j;..j=i*
2d20 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 10;j=j-floor(j);j=(3-2*j)*sqr(j)
2d40 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 ;..cv=if(below(i,.1),reg70+(reg7
2d60 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 1-reg70)*j,if(below(i,.2),reg71+
2d80 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 (reg72-reg71)*j,if(below(i,.3),r
2da0 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c eg72+(reg73-reg72)*j,if(below(i,
2dc0 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c .4),reg73+(reg74-reg73)*j,if(bel
2de0 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 ow(i,.5),reg74+(reg75-reg74)*j,i
2e00 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 f(below(i,.6),reg75+(reg76-reg75
2e20 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d )*j,if(below(i,.7),reg76+(reg77-
2e40 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 reg76)*j,if(below(i,.8),reg77+(r
2e60 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 eg78-reg77)*j,if(below(i,.9),reg
2e80 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 78+(reg79-reg78)*j,reg79+(reg80-
2ea0 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d reg79)*j)))))))));..rd=sqrt(i);.
2ec0 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 .tth=sin(pt)*cos(pt*1.123+md1)+c
2ee0 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 os(pt*4.411+md2)+pt*4+sin(pt*.31
2f00 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 );..tph=2*(cos(pt*1.66)+sin(pt*2
2f20 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e .32+md2)*cos(pt*3.217-md1))-pt*.
2f40 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 081-cos(pt*9.167)*cos(tth);..ss=
2f60 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d sin(tth)*rd;..px=cos(tph)*ss;py=
2f80 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d sin(tph)*ss;pz=cos(tth)*rd;..pt=
2fa0 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d pt-off;....px=px+ox;py=py+oy;pz=
2fc0 70 7a 2b 6f 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 pz+oz;..x1=px*cy-pz*sy;z1=px*sy+
2fe0 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b pz*cy;..y2=py*cx-z1*sx;z2=py*sx+
3000 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b z1*cx;..x3=x1*cz-y2*sz;y3=x1*sz+
3020 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c y2*cz;..ldt=dt;..dt=if(above(z2,
3040 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 3b .01),1/z2,0);..x=if(dt,x3*dt,x);
3060 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 y=if(dt,y3*dt*asp,y);..cv=band(d
3080 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 t,ldt)*(.5+cv*5);..red=(1-sqr(i)
30a0 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a )*cv;green=red*.5;blue=red*.2;..
30c0 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b .....ox=reg10;oy=reg11;oz=reg12;
30e0 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 ..ry=reg01;cy=reg02;sy=reg03;..r
3100 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d x=reg04;cx=reg05;sx=reg06;..off=
3120 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 reg41;..asp=w/h;....t=reg40;..pt
3140 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 =t;....cx=cos(rx);sx=-sin(rx);cy
3160 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b =cos(ry);sy=-sin(ry);cz=cos(rz);
3180 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 sz=-sin(rz);..j=0;..dt=1;.....,.
31a0 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 ..n=90;..md1=rand(100)*.1;md2=ra
31c0 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 nd(100)*.1;...................$.
31e0 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f ...........lj=j;..j=i*10;j=j-flo
3200 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 or(j);j=(3-2*j)*sqr(j);..cv=if(b
3220 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a elow(i,.1),reg70+(reg71-reg70)*j
3240 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 ,if(below(i,.2),reg71+(reg72-reg
3260 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 71)*j,if(below(i,.3),reg72+(reg7
3280 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 3-reg72)*j,if(below(i,.4),reg73+
32a0 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 (reg74-reg73)*j,if(below(i,.5),r
32c0 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c eg74+(reg75-reg74)*j,if(below(i,
32e0 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c .6),reg75+(reg76-reg75)*j,if(bel
3300 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 ow(i,.7),reg76+(reg77-reg76)*j,i
3320 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 f(below(i,.8),reg77+(reg78-reg77
3340 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d )*j,if(below(i,.9),reg78+(reg79-
3360 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 reg78)*j,reg79+(reg80-reg79)*j))
3380 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 )))))));..rd=sqrt(i);..tth=sin(p
33a0 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 t)*cos(pt*1.123+md1)+cos(pt*4.41
33c0 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 1+md2)+pt*4+sin(pt*.31);..tph=2*
33e0 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 (cos(pt*1.66)+sin(pt*2.32+md2)*c
3400 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 os(pt*3.217-md1))-pt*.081-cos(pt
3420 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 *9.167)*cos(tth);..ss=sin(tth)*r
3440 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 d;..px=cos(tph)*ss;py=sin(tph)*s
3460 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d s;pz=cos(tth)*rd;..pt=pt-off;...
3480 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 7a 3b 0d 0a 78 31 .px=px+ox;py=py+oy;pz=pz+oz;..x1
34a0 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 =px*cy-pz*sy;z1=px*sy+pz*cy;..y2
34c0 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 =py*cx-z1*sx;z2=py*sx+z1*cx;..x3
34e0 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 =x1*cz-y2*sz;y3=x1*sz+y2*cz;..ld
3500 74 3d 64 74 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 t=dt;..dt=if(above(z2,.01),1/z2,
3520 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 0);..x=if(dt,x3*dt,x);y=if(dt,y3
3540 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 *dt*asp,y);..cv=band(dt,ldt)*(.5
3560 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e +cv*5);..red=(1-sqr(i))*cv;green
3580 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 =red*.5;blue=red*.2;.......ox=re
35a0 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 g10;oy=reg11;oz=reg12;..ry=reg01
35c0 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 ;cy=reg02;sy=reg03;..rx=reg04;cx
35e0 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 =reg05;sx=reg06;..off=reg41;..as
3600 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d p=w/h;....t=reg40;..pt=t;....cx=
3620 63 6f 73 28 72 78 29 3b 73 78 3d 2d 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
3640 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a y=-sin(ry);cz=cos(rz);sz=-sin(rz
3660 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d );..j=0;..dt=1;.....,...n=90;..m
3680 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 d1=rand(100)*.1;md2=rand(100)*.1
36a0 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac 03 00 ;...................$...........
36c0 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 .lj=j;..j=i*10;j=j-floor(j);j=(3
36e0 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 -2*j)*sqr(j);..cv=if(below(i,.1)
3700 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 ,reg70+(reg71-reg70)*j,if(below(
3720 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 i,.2),reg71+(reg72-reg71)*j,if(b
3740 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a elow(i,.3),reg72+(reg73-reg72)*j
3760 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 ,if(below(i,.4),reg73+(reg74-reg
3780 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 73)*j,if(below(i,.5),reg74+(reg7
37a0 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 5-reg74)*j,if(below(i,.6),reg75+
37c0 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 (reg76-reg75)*j,if(below(i,.7),r
37e0 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c eg76+(reg77-reg76)*j,if(below(i,
3800 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c .8),reg77+(reg78-reg77)*j,if(bel
3820 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 ow(i,.9),reg78+(reg79-reg78)*j,r
3840 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a eg79+(reg80-reg79)*j)))))))));..
3860 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a rd=sqrt(i);..tth=sin(pt)*cos(pt*
3880 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 1.123+md1)+cos(pt*4.411+md2)+pt*
38a0 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 4+sin(pt*.31);..tph=2*(cos(pt*1.
38c0 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 66)+sin(pt*2.32+md2)*cos(pt*3.21
38e0 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 7-md1))-pt*.081-cos(pt*9.167)*co
3900 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 s(tth);..ss=sin(tth)*rd;..px=cos
3920 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 (tph)*ss;py=sin(tph)*ss;pz=cos(t
3940 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b th)*rd;..pt=pt-off;....px=px+ox;
3960 70 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 py=py+oy;pz=pz+oz;..x1=px*cy-pz*
3980 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a sy;z1=px*sy+pz*cy;..y2=py*cx-z1*
39a0 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a sx;z2=py*sx+z1*cx;..x3=x1*cz-y2*
39c0 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d sz;y3=x1*sz+y2*cz;..ldt=dt;..dt=
39e0 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 28 if(above(z2,.01),1/z2,0);..x=if(
3a00 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 dt,x3*dt,x);y=if(dt,y3*dt*asp,y)
3a20 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 ;..cv=band(dt,ldt)*(.5+cv*5);..r
3a40 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c ed=(1-sqr(i))*cv;green=red*.5;bl
3a60 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 ue=red*.2;.......ox=reg10;oy=reg
3a80 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 11;oz=reg12;..ry=reg01;cy=reg02;
3aa0 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d sy=reg03;..rx=reg04;cx=reg05;sx=
3ac0 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a reg06;..off=reg41;..asp=w/h;....
3ae0 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 t=reg40;..pt=t;....cx=cos(rx);sx
3b00 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 =-sin(rx);cy=cos(ry);sy=-sin(ry)
3b20 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a ;cz=cos(rz);sz=-sin(rz);..j=0;..
3b40 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 dt=1;.....,...n=90;..md1=rand(10
3b60 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 0)*.1;md2=rand(100)*.1;.........
3b80 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d ..........$............lj=j;..j=
3ba0 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 i*10;j=j-floor(j);j=(3-2*j)*sqr(
3bc0 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 j);..cv=if(below(i,.1),reg70+(re
3be0 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 g71-reg70)*j,if(below(i,.2),reg7
3c00 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 1+(reg72-reg71)*j,if(below(i,.3)
3c20 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 ,reg72+(reg73-reg72)*j,if(below(
3c40 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 i,.4),reg73+(reg74-reg73)*j,if(b
3c60 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a elow(i,.5),reg74+(reg75-reg74)*j
3c80 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 ,if(below(i,.6),reg75+(reg76-reg
3ca0 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 75)*j,if(below(i,.7),reg76+(reg7
3cc0 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 7-reg76)*j,if(below(i,.8),reg77+
3ce0 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 (reg78-reg77)*j,if(below(i,.9),r
3d00 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 eg78+(reg79-reg78)*j,reg79+(reg8
3d20 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 0-reg79)*j)))))))));..rd=sqrt(i)
3d40 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 ;..tth=sin(pt)*cos(pt*1.123+md1)
3d60 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e +cos(pt*4.411+md2)+pt*4+sin(pt*.
3d80 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 31);..tph=2*(cos(pt*1.66)+sin(pt
3da0 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 *2.32+md2)*cos(pt*3.217-md1))-pt
3dc0 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 *.081-cos(pt*9.167)*cos(tth);..s
3de0 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 s=sin(tth)*rd;..px=cos(tph)*ss;p
3e00 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 y=sin(tph)*ss;pz=cos(tth)*rd;..p
3e20 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 t=pt-off;....px=px+ox;py=py+oy;p
3e40 7a 3d 70 7a 2b 6f 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 z=pz+oz;..x1=px*cy-pz*sy;z1=px*s
3e60 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 y+pz*cy;..y2=py*cx-z1*sx;z2=py*s
3e80 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 x+z1*cx;..x3=x1*cz-y2*sz;y3=x1*s
3ea0 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a z+y2*cz;..ldt=dt;..dt=if(above(z
3ec0 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
3ee0 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 );y=if(dt,y3*dt*asp,y);..cv=band
3f00 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 (dt,ldt)*(.5+cv*5);..red=(1-sqr(
3f20 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e 32 3b i))*cv;green=red*.5;blue=red*.2;
3f40 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 .......ox=reg10;oy=reg11;oz=reg1
3f60 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 2;..ry=reg01;cy=reg02;sy=reg03;.
3f80 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 .rx=reg04;cx=reg05;sx=reg06;..of
3fa0 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a f=reg41;..asp=w/h;....t=reg40;..
3fc0 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b pt=t;....cx=cos(rx);sx=-sin(rx);
3fe0 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a cy=cos(ry);sy=-sin(ry);cz=cos(rz
4000 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 );sz=-sin(rz);..j=0;..dt=1;.....
4020 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d ,...n=90;..md1=rand(100)*.1;md2=
4040 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 rand(100)*.1;...................
4060 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 $............lj=j;..j=i*10;j=j-f
4080 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 loor(j);j=(3-2*j)*sqr(j);..cv=if
40a0 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 (below(i,.1),reg70+(reg71-reg70)
40c0 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 *j,if(below(i,.2),reg71+(reg72-r
40e0 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 eg71)*j,if(below(i,.3),reg72+(re
4100 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 g73-reg72)*j,if(below(i,.4),reg7
4120 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 3+(reg74-reg73)*j,if(below(i,.5)
4140 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 ,reg74+(reg75-reg74)*j,if(below(
4160 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 i,.6),reg75+(reg76-reg75)*j,if(b
4180 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a elow(i,.7),reg76+(reg77-reg76)*j
41a0 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 ,if(below(i,.8),reg77+(reg78-reg
41c0 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 77)*j,if(below(i,.9),reg78+(reg7
41e0 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 9-reg78)*j,reg79+(reg80-reg79)*j
4200 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e )))))))));..rd=sqrt(i);..tth=sin
4220 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e (pt)*cos(pt*1.123+md1)+cos(pt*4.
4240 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 411+md2)+pt*4+sin(pt*.31);..tph=
4260 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2*(cos(pt*1.66)+sin(pt*2.32+md2)
4280 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 *cos(pt*3.217-md1))-pt*.081-cos(
42a0 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 pt*9.167)*cos(tth);..ss=sin(tth)
42c0 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 *rd;..px=cos(tph)*ss;py=sin(tph)
42e0 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d *ss;pz=cos(tth)*rd;..pt=pt-off;.
4300 0a 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 7a 3b 0d 0a ...px=px+ox;py=py+oy;pz=pz+oz;..
4320 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a x1=px*cy-pz*sy;z1=px*sy+pz*cy;..
4340 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a y2=py*cx-z1*sx;z2=py*sx+z1*cx;..
4360 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;..
4380 6c 64 74 3d 64 74 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 ldt=dt;..dt=if(above(z2,.01),1/z
43a0 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 2,0);..x=if(dt,x3*dt,x);y=if(dt,
43c0 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 y3*dt*asp,y);..cv=band(dt,ldt)*(
43e0 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 .5+cv*5);..red=(1-sqr(i))*cv;gre
4400 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d en=red*.5;blue=red*.2;.......ox=
4420 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 reg10;oy=reg11;oz=reg12;..ry=reg
4440 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 01;cy=reg02;sy=reg03;..rx=reg04;
4460 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a cx=reg05;sx=reg06;..off=reg41;..
4480 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 asp=w/h;....t=reg40;..pt=t;....c
44a0 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 x=cos(rx);sx=-sin(rx);cy=cos(ry)
44c0 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 ;sy=-sin(ry);cz=cos(rz);sz=-sin(
44e0 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d rz);..j=0;..dt=1;.....,...n=90;.
4500 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a .md1=rand(100)*.1;md2=rand(100)*
4520 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac .1;...................$.........
4540 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d ...lj=j;..j=i*10;j=j-floor(j);j=
4560 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e (3-2*j)*sqr(j);..cv=if(below(i,.
4580 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 1),reg70+(reg71-reg70)*j,if(belo
45a0 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 w(i,.2),reg71+(reg72-reg71)*j,if
45c0 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 (below(i,.3),reg72+(reg73-reg72)
45e0 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 *j,if(below(i,.4),reg73+(reg74-r
4600 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 eg73)*j,if(below(i,.5),reg74+(re
4620 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 g75-reg74)*j,if(below(i,.6),reg7
4640 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 5+(reg76-reg75)*j,if(below(i,.7)
4660 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 ,reg76+(reg77-reg76)*j,if(below(
4680 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 i,.8),reg77+(reg78-reg77)*j,if(b
46a0 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a elow(i,.9),reg78+(reg79-reg78)*j
46c0 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b ,reg79+(reg80-reg79)*j)))))))));
46e0 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 ..rd=sqrt(i);..tth=sin(pt)*cos(p
4700 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 t*1.123+md1)+cos(pt*4.411+md2)+p
4720 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a t*4+sin(pt*.31);..tph=2*(cos(pt*
4740 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 1.66)+sin(pt*2.32+md2)*cos(pt*3.
4760 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 217-md1))-pt*.081-cos(pt*9.167)*
4780 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 cos(tth);..ss=sin(tth)*rd;..px=c
47a0 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 os(tph)*ss;py=sin(tph)*ss;pz=cos
47c0 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f (tth)*rd;..pt=pt-off;....px=px+o
47e0 78 3b 70 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 x;py=py+oy;pz=pz+oz;..x1=px*cy-p
4800 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a z*sy;z1=px*sy+pz*cy;..y2=py*cx-z
4820 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 1*sx;z2=py*sx+z1*cx;..x3=x1*cz-y
4840 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 2*sz;y3=x1*sz+y2*cz;..ldt=dt;..d
4860 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 t=if(above(z2,.01),1/z2,0);..x=i
4880 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c f(dt,x3*dt,x);y=if(dt,y3*dt*asp,
48a0 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d y);..cv=band(dt,ldt)*(.5+cv*5);.
48c0 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b .red=(1-sqr(i))*cv;green=red*.5;
48e0 62 6c 75 65 3d 72 65 64 2a 2e 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 blue=red*.2;.......ox=reg10;oy=r
4900 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 eg11;oz=reg12;..ry=reg01;cy=reg0
4920 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 2;sy=reg03;..rx=reg04;cx=reg05;s
4940 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a x=reg06;..off=reg41;..asp=w/h;..
4960 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b ..t=reg40;..pt=t;....cx=cos(rx);
4980 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 sx=-sin(rx);cy=cos(ry);sy=-sin(r
49a0 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b y);cz=cos(rz);sz=-sin(rz);..j=0;
49c0 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 ..dt=1;.....,...n=90;..md1=rand(
49e0 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 100)*.1;md2=rand(100)*.1;.......
4a00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 ac 03 00 00 6c 6a 3d 6a 3b 0d 0a ............$............lj=j;..
4a20 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 j=i*10;j=j-floor(j);j=(3-2*j)*sq
4a40 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 r(j);..cv=if(below(i,.1),reg70+(
4a60 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 reg71-reg70)*j,if(below(i,.2),re
4a80 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e g71+(reg72-reg71)*j,if(below(i,.
4aa0 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 3),reg72+(reg73-reg72)*j,if(belo
4ac0 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 w(i,.4),reg73+(reg74-reg73)*j,if
4ae0 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 (below(i,.5),reg74+(reg75-reg74)
4b00 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 *j,if(below(i,.6),reg75+(reg76-r
4b20 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 eg75)*j,if(below(i,.7),reg76+(re
4b40 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 g77-reg76)*j,if(below(i,.8),reg7
4b60 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 7+(reg78-reg77)*j,if(below(i,.9)
4b80 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 ,reg78+(reg79-reg78)*j,reg79+(re
4ba0 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 g80-reg79)*j)))))))));..rd=sqrt(
4bc0 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 i);..tth=sin(pt)*cos(pt*1.123+md
4be0 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 1)+cos(pt*4.411+md2)+pt*4+sin(pt
4c00 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 *.31);..tph=2*(cos(pt*1.66)+sin(
4c20 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d pt*2.32+md2)*cos(pt*3.217-md1))-
4c40 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d pt*.081-cos(pt*9.167)*cos(tth);.
4c60 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 .ss=sin(tth)*rd;..px=cos(tph)*ss
4c80 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d ;py=sin(tph)*ss;pz=cos(tth)*rd;.
4ca0 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 .pt=pt-off;....px=px+ox;py=py+oy
4cc0 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 3b 7a 31 3d 70 78 ;pz=pz+oz;..x1=px*cy-pz*sy;z1=px
4ce0 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 *sy+pz*cy;..y2=py*cx-z1*sx;z2=py
4d00 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 *sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1
4d20 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 *sz+y2*cz;..ldt=dt;..dt=if(above
4d40 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 33 2a 64 74 (z2,.01),1/z2,0);..x=if(dt,x3*dt
4d60 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 ,x);y=if(dt,y3*dt*asp,y);..cv=ba
4d80 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 nd(dt,ldt)*(.5+cv*5);..red=(1-sq
4da0 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 2a 2e 35 3b 62 6c 75 65 3d 72 65 64 2a 2e r(i))*cv;green=red*.5;blue=red*.
4dc0 32 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 2;.......ox=reg10;oy=reg11;oz=re
4de0 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 g12;..ry=reg01;cy=reg02;sy=reg03
4e00 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a ;..rx=reg04;cx=reg05;sx=reg06;..
4e20 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b off=reg41;..asp=w/h;....t=reg40;
4e40 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 ..pt=t;....cx=cos(rx);sx=-sin(rx
4e60 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 );cy=cos(ry);sy=-sin(ry);cz=cos(
4e80 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 rz);sz=-sin(rz);..j=0;..dt=1;...
4ea0 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 ..,...n=90;..md1=rand(100)*.1;md
4ec0 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 2=rand(100)*.1;.................
4ee0 00 00 24 00 00 00 c8 04 00 00 01 a6 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a ..$............lj=j;..j=i*10;j=j
4f00 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d -floor(j);j=(3-2*j)*sqr(j);..cv=
4f20 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 if(below(i,.1),reg70+(reg71-reg7
4f40 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 0)*j,if(below(i,.2),reg71+(reg72
4f60 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 -reg71)*j,if(below(i,.3),reg72+(
4f80 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 reg73-reg72)*j,if(below(i,.4),re
4fa0 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e g73+(reg74-reg73)*j,if(below(i,.
4fc0 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 5),reg74+(reg75-reg74)*j,if(belo
4fe0 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 w(i,.6),reg75+(reg76-reg75)*j,if
5000 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 (below(i,.7),reg76+(reg77-reg76)
5020 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 *j,if(below(i,.8),reg77+(reg78-r
5040 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 eg77)*j,if(below(i,.9),reg78+(re
5060 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 g79-reg78)*j,reg79+(reg80-reg79)
5080 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 *j)))))))));..rd=sqrt(i);..tth=s
50a0 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a in(pt)*cos(pt*1.123+md1)+cos(pt*
50c0 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 4.411+md2)+pt*4+sin(pt*.31);..tp
50e0 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 h=2*(cos(pt*1.66)+sin(pt*2.32+md
5100 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 2)*cos(pt*3.217-md1))-pt*.081-co
5120 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 s(pt*9.167)*cos(tth);..ss=sin(tt
5140 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 h)*rd;..px=cos(tph)*ss;py=sin(tp
5160 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 h)*ss;pz=cos(tth)*rd;..pt=pt-off
5180 3b 0d 0a 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 7a 3b ;....px=px+ox;py=py+oy;pz=pz+oz;
51a0 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b ..x1=px*cy-pz*sy;z1=px*sy+pz*cy;
51c0 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b ..y2=py*cx-z1*sx;z2=py*sx+z1*cx;
51e0 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b ..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;
5200 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 ..ldt=dt;..dt=if(above(z2,.01),1
5220 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 /z2,0);..x=if(dt,x3*dt,x);y=if(d
5240 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 t,y3*dt*asp,y);..cv=band(dt,ldt)
5260 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 *(.5+cv*5);..red=(1-sqr(i))*cv;g
5280 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 64 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 reen=red;blue=red;.......ox=reg1
52a0 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 0;oy=reg11;oz=reg12;..ry=reg01;c
52c0 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 y=reg02;sy=reg03;..rx=reg04;cx=r
52e0 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d eg05;sx=reg06;..off=reg41;..asp=
5300 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f w/h;....t=reg40;..pt=t;....cx=co
5320 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d s(rx);sx=-sin(rx);cy=cos(ry);sy=
5340 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b -sin(ry);cz=cos(rz);sz=-sin(rz);
5360 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 ..j=0;..dt=1;.....,...n=90;..md1
5380 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d =rand(100)*.1;md2=rand(100)*.1;.
53a0 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c8 04 00 00 01 a6 03 00 00 6c ..................$............l
53c0 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 j=j;..j=i*10;j=j-floor(j);j=(3-2
53e0 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 *j)*sqr(j);..cv=if(below(i,.1),r
5400 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c eg70+(reg71-reg70)*j,if(below(i,
5420 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c .2),reg71+(reg72-reg71)*j,if(bel
5440 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 ow(i,.3),reg72+(reg73-reg72)*j,i
5460 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 f(below(i,.4),reg73+(reg74-reg73
5480 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d )*j,if(below(i,.5),reg74+(reg75-
54a0 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 reg74)*j,if(below(i,.6),reg75+(r
54c0 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 eg76-reg75)*j,if(below(i,.7),reg
54e0 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 76+(reg77-reg76)*j,if(below(i,.8
5500 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 ),reg77+(reg78-reg77)*j,if(below
5520 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 (i,.9),reg78+(reg79-reg78)*j,reg
5540 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 79+(reg80-reg79)*j)))))))));..rd
5560 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e =sqrt(i);..tth=sin(pt)*cos(pt*1.
5580 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 123+md1)+cos(pt*4.411+md2)+pt*4+
55a0 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 sin(pt*.31);..tph=2*(cos(pt*1.66
55c0 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d )+sin(pt*2.32+md2)*cos(pt*3.217-
55e0 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 md1))-pt*.081-cos(pt*9.167)*cos(
5600 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 tth);..ss=sin(tth)*rd;..px=cos(t
5620 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 ph)*ss;py=sin(tph)*ss;pz=cos(tth
5640 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 )*rd;..pt=pt-off;....px=px+ox;py
5660 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
5680 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
56a0 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
56c0 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 ;y3=x1*sz+y2*cz;..ldt=dt;..dt=if
56e0 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 (above(z2,.01),1/z2,0);..x=if(dt
5700 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d ,x3*dt,x);y=if(dt,y3*dt*asp,y);.
5720 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 .cv=band(dt,ldt)*(.5+cv*5);..red
5740 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 =(1-sqr(i))*cv;green=red;blue=re
5760 64 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 d;.......ox=reg10;oy=reg11;oz=re
5780 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 g12;..ry=reg01;cy=reg02;sy=reg03
57a0 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a ;..rx=reg04;cx=reg05;sx=reg06;..
57c0 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b off=reg41;..asp=w/h;....t=reg40;
57e0 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 ..pt=t;....cx=cos(rx);sx=-sin(rx
5800 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 );cy=cos(ry);sy=-sin(ry);cz=cos(
5820 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 rz);sz=-sin(rz);..j=0;..dt=1;...
5840 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 ..,...n=90;..md1=rand(100)*.1;md
5860 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 2=rand(100)*.1;.................
5880 00 00 24 00 00 00 c8 04 00 00 01 a6 03 00 00 6c 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a ..$............lj=j;..j=i*10;j=j
58a0 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d -floor(j);j=(3-2*j)*sqr(j);..cv=
58c0 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 if(below(i,.1),reg70+(reg71-reg7
58e0 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 0)*j,if(below(i,.2),reg71+(reg72
5900 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 -reg71)*j,if(below(i,.3),reg72+(
5920 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 reg73-reg72)*j,if(below(i,.4),re
5940 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e g73+(reg74-reg73)*j,if(below(i,.
5960 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 5),reg74+(reg75-reg74)*j,if(belo
5980 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 w(i,.6),reg75+(reg76-reg75)*j,if
59a0 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 (below(i,.7),reg76+(reg77-reg76)
59c0 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 *j,if(below(i,.8),reg77+(reg78-r
59e0 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 eg77)*j,if(below(i,.9),reg78+(re
5a00 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 g79-reg78)*j,reg79+(reg80-reg79)
5a20 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 *j)))))))));..rd=sqrt(i);..tth=s
5a40 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a in(pt)*cos(pt*1.123+md1)+cos(pt*
5a60 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 4.411+md2)+pt*4+sin(pt*.31);..tp
5a80 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 h=2*(cos(pt*1.66)+sin(pt*2.32+md
5aa0 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 2)*cos(pt*3.217-md1))-pt*.081-co
5ac0 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 s(pt*9.167)*cos(tth);..ss=sin(tt
5ae0 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 h)*rd;..px=cos(tph)*ss;py=sin(tp
5b00 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 h)*ss;pz=cos(tth)*rd;..pt=pt-off
5b20 3b 0d 0a 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 7a 3b ;....px=px+ox;py=py+oy;pz=pz+oz;
5b40 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b ..x1=px*cy-pz*sy;z1=px*sy+pz*cy;
5b60 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b ..y2=py*cx-z1*sx;z2=py*sx+z1*cx;
5b80 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b ..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;
5ba0 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 ..ldt=dt;..dt=if(above(z2,.01),1
5bc0 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 /z2,0);..x=if(dt,x3*dt,x);y=if(d
5be0 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 t,y3*dt*asp,y);..cv=band(dt,ldt)
5c00 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 *(.5+cv*5);..red=(1-sqr(i))*cv;g
5c20 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 64 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 reen=red;blue=red;.......ox=reg1
5c40 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 0;oy=reg11;oz=reg12;..ry=reg01;c
5c60 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 y=reg02;sy=reg03;..rx=reg04;cx=r
5c80 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d eg05;sx=reg06;..off=reg41;..asp=
5ca0 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f w/h;....t=reg40;..pt=t;....cx=co
5cc0 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d s(rx);sx=-sin(rx);cy=cos(ry);sy=
5ce0 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b -sin(ry);cz=cos(rz);sz=-sin(rz);
5d00 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 ..j=0;..dt=1;.....,...n=90;..md1
5d20 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d =rand(100)*.1;md2=rand(100)*.1;.
5d40 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c8 04 00 00 01 a6 03 00 00 6c ..................$............l
5d60 6a 3d 6a 3b 0d 0a 6a 3d 69 2a 31 30 3b 6a 3d 6a 2d 66 6c 6f 6f 72 28 6a 29 3b 6a 3d 28 33 2d 32 j=j;..j=i*10;j=j-floor(j);j=(3-2
5d80 2a 6a 29 2a 73 71 72 28 6a 29 3b 0d 0a 63 76 3d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 31 29 2c 72 *j)*sqr(j);..cv=if(below(i,.1),r
5da0 65 67 37 30 2b 28 72 65 67 37 31 2d 72 65 67 37 30 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c eg70+(reg71-reg70)*j,if(below(i,
5dc0 2e 32 29 2c 72 65 67 37 31 2b 28 72 65 67 37 32 2d 72 65 67 37 31 29 2a 6a 2c 69 66 28 62 65 6c .2),reg71+(reg72-reg71)*j,if(bel
5de0 6f 77 28 69 2c 2e 33 29 2c 72 65 67 37 32 2b 28 72 65 67 37 33 2d 72 65 67 37 32 29 2a 6a 2c 69 ow(i,.3),reg72+(reg73-reg72)*j,i
5e00 66 28 62 65 6c 6f 77 28 69 2c 2e 34 29 2c 72 65 67 37 33 2b 28 72 65 67 37 34 2d 72 65 67 37 33 f(below(i,.4),reg73+(reg74-reg73
5e20 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 72 65 67 37 34 2b 28 72 65 67 37 35 2d )*j,if(below(i,.5),reg74+(reg75-
5e40 72 65 67 37 34 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 36 29 2c 72 65 67 37 35 2b 28 72 reg74)*j,if(below(i,.6),reg75+(r
5e60 65 67 37 36 2d 72 65 67 37 35 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 37 29 2c 72 65 67 eg76-reg75)*j,if(below(i,.7),reg
5e80 37 36 2b 28 72 65 67 37 37 2d 72 65 67 37 36 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 28 69 2c 2e 38 76+(reg77-reg76)*j,if(below(i,.8
5ea0 29 2c 72 65 67 37 37 2b 28 72 65 67 37 38 2d 72 65 67 37 37 29 2a 6a 2c 69 66 28 62 65 6c 6f 77 ),reg77+(reg78-reg77)*j,if(below
5ec0 28 69 2c 2e 39 29 2c 72 65 67 37 38 2b 28 72 65 67 37 39 2d 72 65 67 37 38 29 2a 6a 2c 72 65 67 (i,.9),reg78+(reg79-reg78)*j,reg
5ee0 37 39 2b 28 72 65 67 38 30 2d 72 65 67 37 39 29 2a 6a 29 29 29 29 29 29 29 29 29 3b 0d 0a 72 64 79+(reg80-reg79)*j)))))))));..rd
5f00 3d 73 71 72 74 28 69 29 3b 0d 0a 74 74 68 3d 73 69 6e 28 70 74 29 2a 63 6f 73 28 70 74 2a 31 2e =sqrt(i);..tth=sin(pt)*cos(pt*1.
5f20 31 32 33 2b 6d 64 31 29 2b 63 6f 73 28 70 74 2a 34 2e 34 31 31 2b 6d 64 32 29 2b 70 74 2a 34 2b 123+md1)+cos(pt*4.411+md2)+pt*4+
5f40 73 69 6e 28 70 74 2a 2e 33 31 29 3b 0d 0a 74 70 68 3d 32 2a 28 63 6f 73 28 70 74 2a 31 2e 36 36 sin(pt*.31);..tph=2*(cos(pt*1.66
5f60 29 2b 73 69 6e 28 70 74 2a 32 2e 33 32 2b 6d 64 32 29 2a 63 6f 73 28 70 74 2a 33 2e 32 31 37 2d )+sin(pt*2.32+md2)*cos(pt*3.217-
5f80 6d 64 31 29 29 2d 70 74 2a 2e 30 38 31 2d 63 6f 73 28 70 74 2a 39 2e 31 36 37 29 2a 63 6f 73 28 md1))-pt*.081-cos(pt*9.167)*cos(
5fa0 74 74 68 29 3b 0d 0a 73 73 3d 73 69 6e 28 74 74 68 29 2a 72 64 3b 0d 0a 70 78 3d 63 6f 73 28 74 tth);..ss=sin(tth)*rd;..px=cos(t
5fc0 70 68 29 2a 73 73 3b 70 79 3d 73 69 6e 28 74 70 68 29 2a 73 73 3b 70 7a 3d 63 6f 73 28 74 74 68 ph)*ss;py=sin(tph)*ss;pz=cos(tth
5fe0 29 2a 72 64 3b 0d 0a 70 74 3d 70 74 2d 6f 66 66 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 )*rd;..pt=pt-off;....px=px+ox;py
6000 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
6020 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
6040 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
6060 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 6c 64 74 3d 64 74 3b 0d 0a 64 74 3d 69 66 ;y3=x1*sz+y2*cz;..ldt=dt;..dt=if
6080 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 (above(z2,.01),1/z2,0);..x=if(dt
60a0 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 73 70 2c 79 29 3b 0d ,x3*dt,x);y=if(dt,y3*dt*asp,y);.
60c0 0a 63 76 3d 62 61 6e 64 28 64 74 2c 6c 64 74 29 2a 28 2e 35 2b 63 76 2a 35 29 3b 0d 0a 72 65 64 .cv=band(dt,ldt)*(.5+cv*5);..red
60e0 3d 28 31 2d 73 71 72 28 69 29 29 2a 63 76 3b 67 72 65 65 6e 3d 72 65 64 3b 62 6c 75 65 3d 72 65 =(1-sqr(i))*cv;green=red;blue=re
6100 64 3b 0d 0a 00 d5 00 00 00 6f 78 3d 72 65 67 31 30 3b 6f 79 3d 72 65 67 31 31 3b 6f 7a 3d 72 65 d;.......ox=reg10;oy=reg11;oz=re
6120 67 31 32 3b 0d 0a 72 79 3d 72 65 67 30 31 3b 63 79 3d 72 65 67 30 32 3b 73 79 3d 72 65 67 30 33 g12;..ry=reg01;cy=reg02;sy=reg03
6140 3b 0d 0a 72 78 3d 72 65 67 30 34 3b 63 78 3d 72 65 67 30 35 3b 73 78 3d 72 65 67 30 36 3b 0d 0a ;..rx=reg04;cx=reg05;sx=reg06;..
6160 6f 66 66 3d 72 65 67 34 31 3b 0d 0a 61 73 70 3d 77 2f 68 3b 0d 0a 0d 0a 74 3d 72 65 67 34 30 3b off=reg41;..asp=w/h;....t=reg40;
6180 0d 0a 70 74 3d 74 3b 0d 0a 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 2d 73 69 6e 28 72 78 ..pt=t;....cx=cos(rx);sx=-sin(rx
61a0 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 2d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 );cy=cos(ry);sy=-sin(ry);cz=cos(
61c0 72 7a 29 3b 73 7a 3d 2d 73 69 6e 28 72 7a 29 3b 0d 0a 6a 3d 30 3b 0d 0a 64 74 3d 31 3b 00 00 00 rz);sz=-sin(rz);..j=0;..dt=1;...
61e0 00 00 2c 00 00 00 6e 3d 39 30 3b 0d 0a 6d 64 31 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 6d 64 ..,...n=90;..md1=rand(100)*.1;md
6200 32 3d 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 2=rand(100)*.1;.................
6220 00 00 fe ff ff ff 61 02 00 00 80 00 01 05 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 ......a.......$.................
6240 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 ................@..AVS.2.8+.Effe
6260 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 ct.List.Config..................
6280 00 00 00 6c bb 69 0d 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c ...l.i.Holden03:.Convolution.Fil
62a0 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ter.............................
62c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62e0 00 00 00 01 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 ................................
6300 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6320 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 ................................
6340 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 00 00 00 00 00 ................................
6360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6380 00 00 00 08 00 00 00 6c bb 69 0d 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e .......l.i.Holden03:.Convolution
63a0 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .Filter.........................
63c0 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63e0 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 ................................
6400 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6420 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 ................................
6440 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 ................................
6460 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 00 00 00 00 00 ................................
6480 00 00 00 00 00 00 00 04 00 00 00 88 71 c1 0d 43 6f 6c 6f 72 20 4d 61 70 00 00 00 00 00 00 00 00 ............q..Color.Map........
64a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 a4 02 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 ................................
64c0 00 00 08 01 00 00 00 01 00 00 00 40 72 2b 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...........@r+..................
64e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6500 00 00 00 02 00 00 00 b0 8b 74 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........t......................
6520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 ................................
6540 00 00 00 d0 8f 76 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .....v..........................
6560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 a8 ................................
6580 8f 76 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .v..............................
65a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 80 8f 76 0f 00 .............................v..
65c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 58 8f 76 0f 00 00 00 00 00 .......................X.v......
6600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 30 8f 76 0f 00 00 00 00 00 00 00 00 00 ...................0.v..........
6640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6660 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 08 1c 2a 09 00 00 00 00 00 00 00 00 00 00 00 00 00 .................*..............
6680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
66a0 00 00 00 2b 00 00 00 37 12 52 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ...+...7.R......................
66c0 ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 ................................
66e0 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6700 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ................................
6720 ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 ................................
6740 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 .......................