| 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 | ....................... |