ofs | hex dump | ascii |
---|
0000 | 4e 75 6c 6c 73 6f 66 74 20 41 56 53 20 50 72 65 73 65 74 20 30 2e 32 1a 01 15 00 00 00 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 | ....................... |