| 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 b0 09 00 | Nullsoft.AVS.Preset.0.2......... |
| 0020 | 00 ac 09 00 00 20 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......._________................ |
| 0040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 28 20 | ..............................(. |
| 0060 | 20 20 20 20 20 20 20 5f 5f 5f 5f 5f 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......._____)................... |
| 0080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a | ................................ |
| 00a0 | 20 20 5c 20 20 20 20 20 28 20 69 6e 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..\.....(.inal.................. |
| 00c0 | 5f 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | __.............................. |
| 00e0 | 54 6f 6b 79 6f 20 42 75 6c 6c 65 74 0d 0a 20 20 20 20 5c 20 20 20 20 af af af af 5c 20 20 20 20 | Tokyo.Bullet......\........\.... |
| 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 41 73 20 73 68 6f 75 6c 64 20 62 65 20 6f 62 76 69 6f 75 73 2c 20 74 68 | ........As.should.be.obvious,.th |
| 0280 | 69 73 20 69 73 20 74 68 65 20 6d 6f 73 74 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 70 72 65 73 65 | is.is.the.most.complicated.prese |
| 02a0 | 74 20 69 6e 20 74 68 69 73 20 70 61 63 6b 2e 20 49 74 27 73 20 61 20 63 6f 6e 74 69 6e 75 61 74 | t.in.this.pack..It's.a.continuat |
| 02c0 | 69 6f 6e 20 6f 66 20 74 68 65 20 4e 65 6f 6e 20 43 6f 61 73 74 65 72 20 69 64 65 61 2c 20 62 75 | ion.of.the.Neon.Coaster.idea,.bu |
| 02e0 | 74 20 6f 70 74 69 6d 69 7a 65 64 20 61 6e 64 20 61 64 6a 75 73 74 65 64 20 66 6f 72 20 41 56 53 | t.optimized.and.adjusted.for.AVS |
| 0300 | 20 32 2e 38 2e 20 54 68 65 20 74 72 61 63 6b 20 6e 6f 77 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 | .2.8..The.track.now.consists.of. |
| 0320 | 32 36 20 73 65 70 61 72 61 74 65 20 62 61 73 69 63 20 70 69 65 63 65 73 2c 20 77 68 69 63 68 20 | 26.separate.basic.pieces,.which. |
| 0340 | 61 72 65 20 73 6d 6f 6f 74 68 65 64 20 74 6f 67 65 74 68 65 72 20 74 6f 20 66 6f 72 6d 20 74 68 | are.smoothed.together.to.form.th |
| 0360 | 65 20 74 72 61 63 6b 2e 20 49 74 20 69 73 20 6d 6f 72 65 20 74 68 61 6e 20 74 77 69 63 65 20 61 | e.track..It.is.more.than.twice.a |
| 0380 | 73 20 6c 6f 6e 67 20 74 68 61 6e 20 69 6e 20 4e 65 6f 6e 20 43 6f 61 73 74 65 72 2e 0d 0a 0d 0a | s.long.than.in.Neon.Coaster..... |
| 03a0 | 54 68 65 20 62 61 73 69 63 20 70 72 69 6e 63 69 70 6c 65 20 69 73 20 73 74 69 6c 6c 20 74 68 65 | The.basic.principle.is.still.the |
| 03c0 | 20 73 61 6d 65 3a 20 74 68 65 20 63 61 6d 65 72 61 20 68 6f 6f 6b 73 20 6f 6e 74 6f 20 74 68 65 | .same:.the.camera.hooks.onto.the |
| 03e0 | 20 63 6f 72 72 65 63 74 20 70 6f 69 6e 74 20 61 73 20 69 74 20 67 65 74 73 20 64 72 61 77 6e 20 | .correct.point.as.it.gets.drawn. |
| 0400 | 6f 6e 20 74 68 65 20 74 72 61 63 6b 2e 20 54 68 69 73 20 74 69 6d 65 20 49 20 61 64 64 65 64 20 | on.the.track..This.time.I.added. |
| 0420 | 70 6f 73 69 74 69 6f 6e 20 69 6e 74 65 72 70 6f 6c 61 74 69 6f 6e 20 74 68 6f 75 67 68 2c 20 61 | position.interpolation.though,.a |
| 0440 | 6e 64 20 74 68 69 73 20 61 6c 6c 6f 77 73 20 66 6f 72 20 76 61 72 69 61 62 6c 65 20 73 70 65 65 | nd.this.allows.for.variable.spee |
| 0460 | 64 73 2e 20 54 68 65 20 6c 6f 67 69 63 61 6c 20 72 65 73 75 6c 74 20 69 73 20 61 20 70 68 79 73 | ds..The.logical.result.is.a.phys |
| 0480 | 69 63 61 6c 6c 79 20 63 6f 72 72 65 63 74 20 63 6f 61 73 74 65 72 20 77 69 74 68 20 67 72 61 76 | ically.correct.coaster.with.grav |
| 04a0 | 69 74 79 21 20 54 68 69 73 20 61 64 64 73 20 61 20 6c 6f 74 20 74 6f 20 74 68 65 20 72 65 61 6c | ity!.This.adds.a.lot.to.the.real |
| 04c0 | 69 73 74 69 63 20 66 65 65 6c 2e 20 49 20 61 6c 73 6f 20 61 64 61 70 74 65 64 20 74 68 65 20 63 | istic.feel..I.also.adapted.the.c |
| 04e0 | 6f 64 65 20 73 6f 20 74 68 65 20 73 70 65 65 64 20 69 73 20 69 6e 64 65 70 65 6e 64 61 6e 74 20 | ode.so.the.speed.is.independant. |
| 0500 | 6f 66 20 74 68 65 20 66 72 61 6d 65 20 72 61 74 65 2e 0d 0a 0d 0a 41 73 69 64 65 20 66 72 6f 6d | of.the.frame.rate.....Aside.from |
| 0520 | 20 72 65 67 75 6c 61 72 20 63 75 72 76 65 73 20 49 20 61 64 64 65 64 20 33 20 73 70 65 63 69 61 | .regular.curves.I.added.3.specia |
| 0540 | 6c 73 3a 20 61 20 6c 6f 6f 70 2c 20 61 20 63 6f 72 6b 73 63 72 65 77 20 61 6e 64 20 61 20 62 61 | ls:.a.loop,.a.corkscrew.and.a.ba |
| 0560 | 72 72 65 6c 2d 72 6f 6c 6c 2e 20 45 61 63 68 20 75 73 65 73 20 63 75 73 74 6f 6d 20 63 6f 64 65 | rrel-roll..Each.uses.custom.code |
| 0580 | 20 66 6f 72 20 74 68 65 20 63 61 6d 65 72 61 2f 6d 6f 76 65 6d 65 6e 74 2c 20 74 61 6b 69 6e 67 | .for.the.camera/movement,.taking |
| 05a0 | 20 6f 76 65 72 20 63 6f 6e 74 72 6f 6c 20 61 74 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 | .over.control.at.the.appropriate |
| 05c0 | 20 74 69 6d 65 73 2e 0d 0a 0d 0a 54 68 61 6e 6b 73 20 74 6f 20 67 6c 6f 62 61 6c 20 76 61 72 69 | .times.....Thanks.to.global.vari |
| 05e0 | 61 62 6c 65 73 2c 20 49 20 63 61 6e 20 61 6c 73 6f 20 73 79 6e 63 20 6f 74 68 65 72 20 6f 62 6a | ables,.I.can.also.sync.other.obj |
| 0600 | 65 63 74 73 20 74 6f 20 74 68 65 20 74 72 61 63 6b 2e 20 49 20 61 64 64 65 64 20 61 20 62 75 6e | ects.to.the.track..I.added.a.bun |
| 0620 | 63 68 20 6f 66 20 6e 65 6f 6e 20 6f 62 6a 65 63 74 73 2c 20 6c 61 73 65 72 73 2c 20 73 6f 6d 65 | ch.of.neon.objects,.lasers,.some |
| 0640 | 20 4b 61 6e 6a 69 20 61 6e 64 20 4b 61 74 61 6b 61 6e 61 20 74 65 78 74 20 61 6e 64 20 73 69 67 | .Kanji.and.Katakana.text.and.sig |
| 0660 | 6e 73 20 74 6f 20 6d 61 6b 65 20 69 74 20 63 6f 6d 70 6c 65 74 65 6c 79 20 27 54 6f 6b 79 6f 27 | ns.to.make.it.completely.'Tokyo' |
| 0680 | 2e 0d 0a 0d 0a 54 68 65 20 6e 61 6d 65 20 63 6f 6d 65 73 20 66 72 6f 6d 20 74 68 65 20 4a 61 70 | .....The.name.comes.from.the.Jap |
| 06a0 | 61 6e 65 73 65 20 62 75 6c 6c 65 74 20 74 72 61 69 6e 2c 20 53 68 69 6e 6b 61 6e 73 65 6e 2e 20 | anese.bullet.train,.Shinkansen.. |
| 06c0 | 57 72 69 74 69 6e 67 20 74 68 61 74 20 6f 75 74 20 69 6e 20 73 75 70 65 72 73 63 6f 70 65 73 20 | Writing.that.out.in.superscopes. |
| 06e0 | 77 6f 75 6c 64 20 62 65 20 61 20 62 69 74 20 74 6f 6f 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 74 | would.be.a.bit.too.complicated.t |
| 0700 | 68 6f 75 67 68 2c 20 73 6f 20 49 20 77 65 6e 74 20 66 6f 72 20 27 54 6f 6b 79 6f 20 52 6f 6c 6c | hough,.so.I.went.for.'Tokyo.Roll |
| 0720 | 65 72 63 6f 61 73 74 65 72 27 20 69 6e 73 74 65 61 64 2e 20 54 68 65 20 72 65 64 20 72 6f 74 61 | ercoaster'.instead..The.red.rota |
| 0740 | 74 69 6e 67 20 67 6c 79 70 68 73 20 73 61 79 20 27 41 56 53 27 2e 0d 0a 0d 0a 45 6e 6a 6f 79 20 | ting.glyphs.say.'AVS'.....Enjoy. |
| 0760 | 74 68 69 73 20 66 61 73 74 2c 20 73 6d 6f 6f 74 68 20 72 69 64 65 20 62 75 69 6c 74 20 65 6e 74 | this.fast,.smooth.ride.built.ent |
| 0780 | 69 72 65 6c 79 20 6f 75 74 20 6f 66 20 73 75 70 65 72 73 63 6f 70 65 73 2e 2e 2e 20 3b 29 2e 0d | irely.out.of.superscopes....;).. |
| 07a0 | 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 5f 5f 5f | ..._____________________________ |
| 07c0 | 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 af af af | _______________________......... |
| 07e0 | 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 | ................................ |
| 0800 | 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 69 74 74 | .................(c).Steven.Witt |
| 0820 | 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 64 6f 74 | ens./.UnConeD..steven.@.acko.dot |
| 0840 | 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 20 77 69 | .net.-.www.acko.net....If.you.wi |
| 0860 | 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 6f 6c 65 | sh.to.use.any.part.(or.the.whole |
| 0880 | 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 70 72 65 | ).of.this.preset.in.your.own.pre |
| 08a0 | 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 69 75 6d | sets,.packs.or.in.another.medium |
| 08c0 | 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 20 61 20 | ,.you.must.include.my.name.as.a. |
| 08e0 | 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 64 69 6e | clear.credit.reference..Includin |
| 0900 | 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 69 74 65 | g.my.contact.information/website |
| 0920 | 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 20 61 70 | .address.is.not.required,.but.ap |
| 0940 | 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 61 62 6f | preciated...Exception.to.the.abo |
| 0960 | 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 73 65 74 | ve:.you.may.display.these.preset |
| 0980 | 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 20 72 61 | s.as.a.projection.at.parties,.ra |
| 09a0 | 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 65 66 65 | ves.or.clubs.without.credit.refe |
| 09c0 | 72 65 6e 63 65 20 6f 6e 2d 73 63 72 65 65 6e 2e 00 24 00 00 00 8b 05 00 00 01 00 00 00 00 8f 04 | rence.on-screen..$.............. |
| 09e0 | 00 00 2f 2a 20 46 50 53 20 61 64 6a 75 73 74 20 2a 2f 0d 0a 6c 74 6d 3d 74 6d 3b 0d 0a 74 6d 3d | ../*.FPS.adjust.*/..ltm=tm;..tm= |
| 0a00 | 67 65 74 74 69 6d 65 28 30 29 3b 64 74 6d 3d 28 74 6d 2d 6c 74 6d 29 2a 2e 35 2a 32 30 2b 64 74 | gettime(0);dtm=(tm-ltm)*.5*20+dt |
| 0a20 | 6d 2a 2e 35 3b 0d 0a 2f 2a 20 54 72 61 63 6b 6c 65 6e 67 74 68 20 2a 2f 0d 0a 74 72 61 63 6b 3d | m*.5;../*.Tracklength.*/..track= |
| 0a40 | 72 65 67 39 31 2d 75 6e 69 74 3b 72 65 67 39 30 3d 31 3b 72 65 67 38 39 3d 30 3b 0d 0a 2f 2a 20 | reg91-unit;reg90=1;reg89=0;../*. |
| 0a60 | 47 6c 6f 62 61 6c 20 70 72 6f 67 72 65 73 73 20 2a 2f 0d 0a 72 65 67 39 31 3d 30 3b 0d 0a 2f 2a | Global.progress.*/..reg91=0;../* |
| 0a80 | 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6c 78 3d 6f 78 3b 6c 79 3d 6f 79 3b 6c 7a 3d 6f 7a 3b 0d 0a | .Camera.*/..lx=ox;ly=oy;lz=oz;.. |
| 0aa0 | 6f 78 3d 2d 72 65 67 37 35 3b 6f 79 3d 2d 72 65 67 37 36 3b 6f 7a 3d 2d 72 65 67 37 37 3b 0d 0a | ox=-reg75;oy=-reg76;oz=-reg77;.. |
| 0ac0 | 6c 78 3d 6f 78 2d 6c 78 3b 6c 79 3d 6f 79 2d 6c 79 3b 6c 7a 3d 6f 7a 2d 6c 7a 3b 74 3d 74 2d 2e | lx=ox-lx;ly=oy-ly;lz=oz-lz;t=t-. |
| 0ae0 | 30 31 32 3b 0d 0a 66 3d 31 2f 28 73 71 72 74 28 73 71 72 28 6c 78 29 2b 73 71 72 28 6c 79 29 2b | 012;..f=1/(sqrt(sqr(lx)+sqr(ly)+ |
| 0b00 | 73 71 72 28 6c 7a 29 2b 2e 30 30 30 31 29 29 3b 0d 0a 73 70 64 3d 73 70 64 2a 2e 33 2b 2e 37 2a | sqr(lz)+.0001));..spd=spd*.3+.7* |
| 0b20 | 6d 61 78 28 69 66 28 62 65 6c 6f 77 28 72 65 67 37 39 2c 35 2b 31 31 2e 37 38 29 2c 2e 30 34 35 | max(if(below(reg79,5+11.78),.045 |
| 0b40 | 2c 2e 30 30 31 29 2c 73 70 64 2a 69 66 28 62 65 6c 6f 77 28 72 65 67 37 39 2c 31 34 29 2c 2e 39 | ,.001),spd*if(below(reg79,14),.9 |
| 0b60 | 2c 6d 69 6e 28 2e 39 39 39 39 2c 28 31 2d 2e 30 30 33 35 2a 64 74 6d 29 2a 28 31 2b 73 6f 75 6e | ,min(.9999,(1-.0035*dtm)*(1+soun |
| 0b80 | 64 72 65 70 2a 2e 30 33 29 29 29 2d 6c 79 2a 2e 30 39 33 29 3b 0d 0a 2f 2a 20 43 61 72 20 70 6f | drep*.03)))-ly*.093);../*.Car.po |
| 0ba0 | 73 69 74 69 6f 6e 20 2a 2f 0d 0a 63 61 72 3d 63 61 72 2b 73 70 64 2a 64 74 6d 2a 31 2e 31 3b 63 | sition.*/..car=car+spd*dtm*1.1;c |
| 0bc0 | 61 72 3d 69 66 28 61 62 6f 76 65 28 63 61 72 2c 74 72 61 63 6b 29 2c 30 2c 63 61 72 29 3b 0d 0a | ar=if(above(car,track),0,car);.. |
| 0be0 | 72 65 67 37 38 3d 30 3b 72 65 67 37 39 3d 63 61 72 3b 0d 0a 72 72 79 3d 69 66 28 62 65 6c 6f 77 | reg78=0;reg79=car;..rry=if(below |
| 0c00 | 28 63 61 72 2c 30 29 2c 34 2e 39 34 2c 61 74 61 6e 32 28 2d 6c 78 2c 6c 7a 29 2b 33 2e 31 34 31 | (car,0),4.94,atan2(-lx,lz)+3.141 |
| 0c20 | 35 29 3b 0d 0a 72 72 78 3d 61 74 61 6e 32 28 6c 79 2c 73 71 72 74 28 73 71 72 28 6c 78 29 2b 73 | 5);..rrx=atan2(ly,sqrt(sqr(lx)+s |
| 0c40 | 71 72 28 6c 7a 29 29 29 3b 0d 0a 72 79 3d 72 79 2b 73 69 6e 28 72 72 79 2d 72 79 29 2a 2e 35 3b | qr(lz)));..ry=ry+sin(rry-ry)*.5; |
| 0c60 | 72 78 3d 72 78 2b 73 69 6e 28 72 72 78 2d 72 78 29 2a 2e 35 3b 0d 0a 0d 0a 2f 2f 20 49 6e 74 72 | rx=rx+sin(rrx-rx)*.5;....//.Intr |
| 0c80 | 6f 0d 0a 6f 78 3d 69 66 28 62 65 6c 6f 77 28 63 61 72 2c 30 29 2c 31 2c 6f 78 29 3b 0d 0a 6f 79 | o..ox=if(below(car,0),1,ox);..oy |
| 0ca0 | 3d 69 66 28 62 65 6c 6f 77 28 63 61 72 2c 30 29 2c 30 2e 32 35 2c 6f 79 29 3b 0d 0a 6f 7a 3d 69 | =if(below(car,0),0.25,oy);..oz=i |
| 0cc0 | 66 28 62 65 6c 6f 77 28 63 61 72 2c 30 29 2c 2e 34 2c 6f 7a 29 3b 0d 0a 72 78 3d 69 66 28 62 65 | f(below(car,0),.4,oz);..rx=if(be |
| 0ce0 | 6c 6f 77 28 63 61 72 2c 30 29 2c 2e 31 2c 72 78 29 3b 0d 0a 0d 0a 72 65 67 37 30 3d 75 6e 69 74 | low(car,0),.1,rx);....reg70=unit |
| 0d00 | 3b 72 65 67 36 39 3d 31 2f 75 6e 69 74 3b 0d 0a 72 65 67 36 34 3d 73 6d 6f 6f 74 68 3b 0d 0a 72 | ;reg69=1/unit;..reg64=smooth;..r |
| 0d20 | 65 67 35 30 3d 77 2f 68 3b 0d 0a 0d 0a 72 65 67 33 30 3d 6f 78 3b 72 65 67 33 31 3d 6f 79 3b 72 | eg50=w/h;....reg30=ox;reg31=oy;r |
| 0d40 | 65 67 33 32 3d 6f 7a 3b 0d 0a 72 78 3d 69 66 28 72 65 67 30 39 2c 72 65 67 34 30 2c 72 78 29 3b | eg32=oz;..rx=if(reg09,reg40,rx); |
| 0d60 | 72 65 67 34 30 3d 72 78 3b 0d 0a 72 79 3d 69 66 28 72 65 67 30 39 2c 72 65 67 34 31 2c 72 79 29 | reg40=rx;..ry=if(reg09,reg41,ry) |
| 0d80 | 3b 72 65 67 34 31 3d 72 79 3b 0d 0a 72 7a 3d 72 7a 2b 73 69 6e 28 2d 72 65 67 34 32 2d 72 7a 29 | ;reg41=ry;..rz=rz+sin(-reg42-rz) |
| 0da0 | 2a 2e 33 3b 0d 0a 72 65 67 34 33 3d 63 6f 73 28 72 78 29 3b 72 65 67 34 34 3d 73 69 6e 28 72 78 | *.3;..reg43=cos(rx);reg44=sin(rx |
| 0dc0 | 29 3b 0d 0a 72 65 67 34 35 3d 63 6f 73 28 72 79 29 3b 72 65 67 34 36 3d 73 69 6e 28 72 79 29 3b | );..reg45=cos(ry);reg46=sin(ry); |
| 0de0 | 0d 0a 72 65 67 34 37 3d 63 6f 73 28 72 7a 29 3b 72 65 67 34 38 3d 73 69 6e 28 72 7a 29 3b 0d 0a | ..reg47=cos(rz);reg48=sin(rz);.. |
| 0e00 | 0d 0a 2f 2a 20 73 69 7a 65 73 20 2a 2f 0d 0a 72 65 67 32 30 3d 2e 31 32 3b 72 65 67 32 31 3d 31 | ../*.sizes.*/..reg20=.12;reg21=1 |
| 0e20 | 30 3b 0d 0a 0d 0a 72 65 67 31 36 3d 72 65 67 31 36 2b 2e 33 3b 0d 0a 0d 0a 73 6e 64 72 65 70 3d | 0;....reg16=reg16+.3;....sndrep= |
| 0e40 | 73 6e 64 72 65 70 2a 2e 39 2b 67 65 74 73 70 65 63 28 2e 30 2c 2e 32 2c 30 29 2a 2e 31 3b 0d 0a | sndrep*.9+getspec(.0,.2,0)*.1;.. |
| 0e60 | 0d 0a 72 65 67 39 36 3d 77 2f 33 32 30 3b 0d 0a 00 1c 00 00 00 72 65 67 31 36 3d 72 65 67 31 36 | ..reg96=w/320;.......reg16=reg16 |
| 0e80 | 2b 72 61 6e 64 28 31 30 30 29 2a 2e 31 3b 0d 0a 00 bf 00 00 00 6e 3d 30 3b 20 2f 2a 20 47 6c 6f | +rand(100)*.1;.......n=0;./*.Glo |
| 0ea0 | 62 61 6c 20 2a 2f 0d 0a 75 6e 69 74 3d 2e 30 38 3b 73 6d 6f 6f 74 68 3d 30 2e 39 34 3b 73 70 64 | bal.*/..unit=.08;smooth=0.94;spd |
| 0ec0 | 3d 2e 30 36 3b 63 61 72 3d 2d 73 70 64 2d 2e 30 30 31 3b 72 65 67 39 31 3d 31 30 30 3b 0d 0a 72 | =.06;car=-spd-.001;reg91=100;..r |
| 0ee0 | 65 67 34 39 3d 30 3b 72 79 3d 34 2e 39 34 3b 72 78 3d 2d 2e 31 3b 72 7a 3d 30 3b 72 65 67 34 32 | eg49=0;ry=4.94;rx=-.1;rz=0;reg42 |
| 0f00 | 3d 72 7a 3b 72 65 67 30 39 3d 30 3b 0d 0a 6f 78 3d 2d 2e 31 3b 6f 79 3d 2d 2e 31 35 3b 6f 7a 3d | =rz;reg09=0;..ox=-.1;oy=-.15;oz= |
| 0f20 | 2e 33 35 3b 0d 0a 72 65 67 37 35 3d 31 3b 72 65 67 37 36 3d 2d 2e 31 35 3b 72 65 7a 37 37 3d 30 | .35;..reg75=1;reg76=-.15;rez77=0 |
| 0f40 | 3b 0d 0a 74 6d 3d 67 65 74 74 69 6d 65 28 30 29 3b 0d 0a 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ;..tm=gettime(0);............... |
| 0f60 | 00 00 00 00 28 00 00 00 04 00 00 00 01 00 04 80 24 00 00 00 6d 07 00 00 01 32 06 00 00 2f 2a 20 | ....(...........$...m....2.../*. |
| 0f80 | 74 72 61 63 6b 20 2d 20 73 74 72 61 69 67 68 74 20 2a 2f 0d 0a 70 78 3d 69 2a 35 3b 70 7a 3d 30 | track.-.straight.*/..px=i*5;pz=0 |
| 0fa0 | 3b 0d 0a 70 79 3d 28 63 6f 73 28 69 2a 24 70 69 2a 2e 35 29 2d 31 29 2a 32 2e 35 3b 0d 0a 0d 0a | ;..py=(cos(i*$pi*.5)-1)*2.5;.... |
| 0fc0 | 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 | //.Smooth..px=px+(reg61-px)*reg6 |
| 0fe0 | 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 | 4;py=py+(reg62-py)*reg64;pz=pz+( |
| 1000 | 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 | reg63-pz)*reg64;..lx=px-reg61;ly |
| 1020 | 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 | =py-reg62;lz=pz-reg63;..//.Camer |
| 1040 | 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 | a.hook..v=if(reg78,0,below(reg79 |
| 1060 | 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 | ,reg91));........reg78=if(v,1,re |
| 1080 | 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a | g78);..j=reg79*reg69+.500;..j=(j |
| 10a0 | 2d 28 6a 7c 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 | -(j|0)+.500);reg55=j;..reg75=if( |
| 10c0 | 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 | v,reg61+lx*j,reg75);..reg76=if(v |
| 10e0 | 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c | ,reg62+ly*j,reg76);..reg77=if(v, |
| 1100 | 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a | reg63+lz*j,reg77);..//.New.pos.. |
| 1120 | 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c | reg61=if(i,px,reg61);reg62=if(i, |
| 1140 | 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d | py,reg62);reg63=if(i,pz,reg63);. |
| 1160 | 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 63 | ...//.Banking..ap=atan2(lz,lx);c |
| 1180 | 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 | a=cos(ap);sa=sin(ap);vv=reg20*re |
| 11a0 | 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 | g90;..jx=sa;jz=-ca;jy=-sin(ap-re |
| 11c0 | 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 | g66)*reg21;j=vv/sqrt(sqr(jx)+sqr |
| 11e0 | 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 | (jy)+sqr(jz));..px=px+j*jx;py=py |
| 1200 | 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 72 65 | +j*jy;pz=pz+j*jz;..reg66=ap;..re |
| 1220 | 67 34 32 3d 69 66 28 76 2c 28 72 65 67 34 32 2b 73 69 6e 28 2d 72 65 67 34 32 29 2a 2e 33 29 2a | g42=if(v,(reg42+sin(-reg42)*.3)* |
| 1240 | 28 31 2d 69 29 2b 69 2a 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b | (1-i)+i*(ap-reg66)*reg21,reg42); |
| 1260 | 0d 0a 72 65 67 34 31 3d 69 66 28 76 2c 6d 69 6e 28 2d 2e 31 30 2c 72 65 67 34 31 29 2c 72 65 67 | ..reg41=if(v,min(-.10,reg41),reg |
| 1280 | 34 31 29 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d | 41);....tx=px;ty=py;tz=pz;gvvvv= |
| 12a0 | 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d | reg89;/////////////////////////. |
| 12c0 | 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 | .tx=tx+ox;ty=ty+oy;tz=tz+oz;..px |
| 12e0 | 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 | =if(gvvvv,if(equal(gvvvv,2),tx,r |
| 1300 | 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 | eg27),reg24);..py=if(gvvvv,if(eq |
| 1320 | 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a | ual(gvvvv,2),ty,reg28),reg25);.. |
| 1340 | 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a | pz=if(gvvvv,if(equal(gvvvv,2),tz |
| 1360 | 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 | ,reg29),reg26);..reg24=reg27;reg |
| 1380 | 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b | 25=reg28;reg26=reg29;..reg27=tx; |
| 13a0 | 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 | reg28=ty;reg29=tz;....x1=px*cy+p |
| 13c0 | 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a | z*sy;z1=pz*cy-px*sy;..y2=py*cx+z |
| 13e0 | 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 | 1*sx;z2=z1*cx-py*sx;..x3=x1*cz+y |
| 1400 | 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 | 2*sz;y3=y2*cz-x1*sz+.15;..red=u1 |
| 1420 | 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a | ;u1=if(above(z2,0.05),1/z2,0);.. |
| 1440 | 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 | x=if(u1,x3*u1,x);y=if(u1,y3*u1*r |
| 1460 | 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2a 61 62 6f 76 65 28 69 2c 2e | eg50,y);..cv=if(red*u1*above(i,. |
| 1480 | 30 34 29 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 | 04),(sin(u1-reg16)*.4+1),0);dv=u |
| 14a0 | 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d | 1*(reg90*(reg89+reg91*5)%3)*.3+m |
| 14c0 | 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e | in(1,max(.02,sin(reg91*2-reg16*. |
| 14e0 | 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e | 1)-.3)*4);..red=cv*(.1+dv);green |
| 1500 | 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 | =cv*(.12+dv);blue=1.2*cv*(.2+dv) |
| 1520 | 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ;..u1=sqrt(u1)*1.3;//----------- |
| 1540 | 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 | ----/..red=red*u1;green=green*u1 |
| 1560 | 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 | ;blue=blue*u1;//////....reg91=re |
| 1580 | 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d | g91+unit;..reg90=-reg90;..reg89= |
| 15a0 | 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 0c 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d | (reg89+1)%3;......./*.Length.*/. |
| 15c0 | 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 35 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 | .unit=reg70;..len=5;n=len/unit+1 |
| 15e0 | 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d | ;ilen=1/len;reg91=reg91-unit;... |
| 1600 | 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 | ./*.Piece.connecting.*/..pmin=re |
| 1620 | 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 | g91;..pmax=pmin+len;..../*.Camer |
| 1640 | 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 | a.*/..ox=reg30;oy=reg31;oz=reg32 |
| 1660 | 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a | ;..rx=reg40;ry=reg41;rz=reg42;.. |
| 1680 | 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d | cx=reg43;sx=reg44;..cy=reg45;sy= |
| 16a0 | 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 0d 0a 00 00 | reg46;..cz=reg47;sz=reg48;...... |
| 16c0 | 00 00 00 0e 00 00 00 2f 2a 20 50 69 65 63 65 20 31 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff | ......./*.Piece.1.*/............ |
| 16e0 | 00 01 00 00 00 24 00 00 00 4f 07 00 00 01 12 06 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 69 72 | .....$...O......../*.track.-.cir |
| 1700 | 63 6c 65 20 2a 2f 0d 0a 75 3d 28 69 2a 31 2e 32 35 2d 2e 35 29 2a 24 70 69 3b 0d 0a 70 78 3d 35 | cle.*/..u=(i*1.25-.5)*$pi;..px=5 |
| 1720 | 2b 63 6f 73 28 75 29 2a 33 3b 70 7a 3d 33 2b 73 69 6e 28 75 29 2a 33 3b 0d 0a 70 79 3d 37 2e 34 | +cos(u)*3;pz=3+sin(u)*3;..py=7.4 |
| 1740 | 39 39 33 38 2a 28 2d 73 69 6e 28 69 2a 24 70 69 2a 2e 35 29 29 2a 2e 37 30 37 2d 32 2e 35 3b 0d | 9938*(-sin(i*$pi*.5))*.707-2.5;. |
| 1760 | 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 | ...//.Smooth..px=px+(reg61-px)*r |
| 1780 | 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 | eg64;py=py+(reg62-py)*reg64;pz=p |
| 17a0 | 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 | z+(reg63-pz)*reg64;..lx=px-reg61 |
| 17c0 | 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 | ;ly=py-reg62;lz=pz-reg63;..//.Ca |
| 17e0 | 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 | mera.hook..v=if(reg78,0,below(re |
| 1800 | 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 | g79,reg91));........reg78=if(v,1 |
| 1820 | 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a | ,reg78);..j=reg79*reg69+.500;..j |
| 1840 | 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d | =(j-(j|0)+.500);reg55=j;..reg75= |
| 1860 | 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 | if(v,reg61+lx*j,reg75);..reg76=i |
| 1880 | 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 | f(v,reg62+ly*j,reg76);..reg77=if |
| 18a0 | 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f | (v,reg63+lz*j,reg77);..//.New.po |
| 18c0 | 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 | s..reg61=if(i,px,reg61);reg62=if |
| 18e0 | 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 | (i,py,reg62);reg63=if(i,pz,reg63 |
| 1900 | 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 | );....//.Banking..ap=atan2(lz,lx |
| 1920 | 29 3b 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 | );ca=cos(ap);sa=sin(ap);vv=reg20 |
| 1940 | 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 | *reg90;..jx=sa;jz=-ca;jy=-sin(ap |
| 1960 | 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b | -reg66)*reg21;j=vv/sqrt(sqr(jx)+ |
| 1980 | 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 | sqr(jy)+sqr(jz));..px=px+j*jx;py |
| 19a0 | 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 | =py+j*jy;pz=pz+j*jz;..reg42=if(v |
| 19c0 | 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 0d 0a 72 65 67 | ,(ap-reg66)*reg21,reg42);....reg |
| 19e0 | 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 | 66=ap;....tx=px;ty=py;tz=pz;gvvv |
| 1a00 | 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | v=reg89;//////////////////////// |
| 1a20 | 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a | /..tx=tx+ox;ty=ty+oy;tz=tz+oz;.. |
| 1a40 | 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 | px=if(gvvvv,if(equal(gvvvv,2),tx |
| 1a60 | 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 | ,reg27),reg24);..py=if(gvvvv,if( |
| 1a80 | 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b | equal(gvvvv,2),ty,reg28),reg25); |
| 1aa0 | 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c | ..pz=if(gvvvv,if(equal(gvvvv,2), |
| 1ac0 | 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 | tz,reg29),reg26);..reg24=reg27;r |
| 1ae0 | 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 | eg25=reg28;reg26=reg29;..reg27=t |
| 1b00 | 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 | x;reg28=ty;reg29=tz;....x1=px*cy |
| 1b20 | 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 | +pz*sy;z1=pz*cy-px*sy;..y2=py*cx |
| 1b40 | 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a | +z1*sx;z2=z1*cx-py*sx;..x3=x1*cz |
| 1b60 | 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d | +y2*sz;y3=y2*cz-x1*sz+.15;..red= |
| 1b80 | 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b | u1;u1=if(above(z2,0.05),1/z2,0); |
| 1ba0 | 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 | ..x=if(u1,x3*u1,x);y=if(u1,y3*u1 |
| 1bc0 | 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 | *reg50,y);..cv=if(red*u1,(sin(u1 |
| 1be0 | 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 | -reg16)*.4+1),0);dv=u1*(reg90*(r |
| 1c00 | 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 | eg89+reg91*5)%3)*.3+min(1,max(.0 |
| 1c20 | 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d | 2,sin(reg91*2-reg16*.1)-.3)*4);. |
| 1c40 | 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 | .red=cv*(.1+dv);green=cv*(.12+dv |
| 1c60 | 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 | );blue=1.2*cv*(.2+dv);..u1=sqrt( |
| 1c80 | 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d | u1)*1.3;//---------------/..red= |
| 1ca0 | 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a | red*u1;green=green*u1;blue=blue* |
| 1cc0 | 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a | u1;//////....reg91=reg91+unit;.. |
| 1ce0 | 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 | reg90=-reg90;..reg89=(reg89+1)%3 |
| 1d00 | 3b 0d 0a 00 0e 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 | ;......./*.Length.*/..unit=reg70 |
| 1d20 | 3b 0d 0a 6c 65 6e 3d 31 31 2e 37 38 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 | ;..len=11.78;n=len/unit+1;ilen=1 |
| 1d40 | 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 | /len;reg91=reg91-unit;..../*.Pie |
| 1d60 | 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 | ce.connecting.*/..pmin=reg91;..p |
| 1d80 | 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f | max=pmin+len;..../*.Camera.*/..o |
| 1da0 | 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 | x=reg30;oy=reg31;oz=reg32;..rx=r |
| 1dc0 | 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 | eg40;ry=reg41;rz=reg42;..cx=reg4 |
| 1de0 | 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d | 3;sx=reg44;..cy=reg45;sy=reg46;. |
| 1e00 | 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0e 00 00 00 2f 2a | .cz=reg47;sz=reg48;.........../* |
| 1e20 | 20 50 69 65 63 65 20 32 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 | .Piece.2.*/.................$... |
| 1e40 | 91 07 00 00 01 52 06 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 73 74 72 61 69 67 68 74 20 2a 2f 0d | .....R.../*.track.-.straight.*/. |
| 1e60 | 0a 70 78 3d 32 2e 38 37 39 2b 28 2d 35 2e 31 37 31 36 2d 32 2e 38 37 39 29 2a 69 3b 0d 0a 70 7a | .px=2.879+(-5.1716-2.879)*i;..pz |
| 1e80 | 3d 35 2e 31 32 31 33 2b 28 2d 32 2e 38 32 38 34 2d 35 2e 31 32 31 33 29 2a 69 3b 0d 0a 70 79 3d | =5.1213+(-2.8284-5.1213)*i;..py= |
| 1ea0 | 28 2d 37 2e 38 30 32 2d 69 66 28 62 65 6c 6f 77 28 69 2c 2e 35 29 2c 28 63 6f 73 28 69 2a 24 70 | (-7.802-if(below(i,.5),(cos(i*$p |
| 1ec0 | 69 2a 32 29 2d 31 29 2a 35 2e 38 30 32 2a 2e 35 2c 2d 28 63 6f 73 28 69 2a 24 70 69 2a 34 29 2d | i*2)-1)*5.802*.5,-(cos(i*$pi*4)- |
| 1ee0 | 31 29 2a 2e 35 2d 35 2e 38 30 32 2d 32 2a 28 69 2a 32 2d 31 29 29 29 3b 0d 0a 0d 0a 2f 2f 20 53 | 1)*.5-5.802-2*(i*2-1)));....//.S |
| 1f00 | 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 | mooth..px=px+(reg61-px)*reg64;py |
| 1f20 | 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 | =py+(reg62-py)*reg64;pz=pz+(reg6 |
| 1f40 | 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d | 3-pz)*reg64;..lx=px-reg61;ly=py- |
| 1f60 | 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f | reg62;lz=pz-reg63;..//.Camera.ho |
| 1f80 | 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 | ok..v=if(reg78,0,below(reg79,reg |
| 1fa0 | 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 | 91));........reg78=if(v,1,reg78) |
| 1fc0 | 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c | ;..j=reg79*reg69+.500;..j=(j-(j| |
| 1fe0 | 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 | 0)+.500);reg55=j;..reg75=if(v,re |
| 2000 | 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 | g61+lx*j,reg75);..reg76=if(v,reg |
| 2020 | 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 | 62+ly*j,reg76);..reg77=if(v,reg6 |
| 2040 | 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 | 3+lz*j,reg77);..//.New.pos..reg6 |
| 2060 | 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 | 1=if(i,px,reg61);reg62=if(i,py,r |
| 2080 | 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f | eg62);reg63=if(i,pz,reg63);..../ |
| 20a0 | 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 63 61 3d 63 6f | /.Banking..ap=atan2(lz,lx);ca=co |
| 20c0 | 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b | s(ap);sa=sin(ap);vv=reg20*reg90; |
| 20e0 | 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 | ..jx=sa;jz=-ca;jy=-sin(ap-reg66) |
| 2100 | 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 | *reg21;j=vv/sqrt(sqr(jx)+sqr(jy) |
| 2120 | 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a | +sqr(jz));..px=px+j*jx;py=py+j*j |
| 2140 | 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 | y;pz=pz+j*jz;..reg42=if(v,(ap-re |
| 2160 | 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d | g66)*reg21,reg42);..reg66=ap;... |
| 2180 | 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f | .tx=px;ty=py;tz=pz;gvvvv=reg89;/ |
| 21a0 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b | ////////////////////////..tx=tx+ |
| 21c0 | 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 | ox;ty=ty+oy;tz=tz+oz;..px=if(gvv |
| 21e0 | 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 | vv,if(equal(gvvvv,2),tx,reg27),r |
| 2200 | 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 | eg24);..py=if(gvvvv,if(equal(gvv |
| 2220 | 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 | vv,2),ty,reg28),reg25);..pz=if(g |
| 2240 | 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 | vvvv,if(equal(gvvvv,2),tz,reg29) |
| 2260 | 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 | ,reg26);..reg24=reg27;reg25=reg2 |
| 2280 | 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 | 8;reg26=reg29;..reg27=tx;reg28=t |
| 22a0 | 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 | y;reg29=tz;....x1=px*cy+pz*sy;z1 |
| 22c0 | 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 | =pz*cy-px*sy;..y2=py*cx+z1*sx;z2 |
| 22e0 | 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 | =z1*cx-py*sx;..x3=x1*cz+y2*sz;y3 |
| 2300 | 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 | =y2*cz-x1*sz+.15;..red=u1;u1=if( |
| 2320 | 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 | above(z2,0.05),1/z2,0);..x=if(u1 |
| 2340 | 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 | ,x3*u1,x);y=if(u1,y3*u1*reg50,y) |
| 2360 | 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e | ;..cv=if(red*u1,(sin(u1-reg16)*. |
| 2380 | 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 | 4+1),0);dv=u1*(reg90*(reg89+reg9 |
| 23a0 | 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 | 1*5)%3)*.3+min(1,max(.02,sin(reg |
| 23c0 | 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 | 91*2-reg16*.1)-.3)*4);..red=cv*( |
| 23e0 | 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e | .1+dv);green=cv*(.12+dv);blue=1. |
| 2400 | 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f | 2*cv*(.2+dv);..u1=sqrt(u1)*1.3;/ |
| 2420 | 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 | /---------------/..red=red*u1;gr |
| 2440 | 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f | een=green*u1;blue=blue*u1;////// |
| 2460 | 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 | ....reg91=reg91+unit;..reg90=-re |
| 2480 | 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 10 01 00 00 2f | g90;..reg89=(reg89+1)%3;......./ |
| 24a0 | 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 31 31 | *.Length.*/..unit=reg70;..len=11 |
| 24c0 | 2e 33 31 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 | .31;n=len/unit+1;ilen=1/len;reg9 |
| 24e0 | 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 | 1=reg91-unit;..../*.Piece.connec |
| 2500 | 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b | ting.*/..pmin=reg91;..pmax=pmin+ |
| 2520 | 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 | len;....../*.Camera.*/..ox=reg30 |
| 2540 | 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 | ;oy=reg31;oz=reg32;..rx=reg40;ry |
| 2560 | 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 | =reg41;rz=reg42;..cx=reg43;sx=re |
| 2580 | 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 | g44;..cy=reg45;sy=reg46;..cz=reg |
| 25a0 | 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0e 00 00 00 2f 2a 20 50 69 65 63 65 20 | 47;sz=reg48;.........../*.Piece. |
| 25c0 | 33 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 52 07 00 00 01 13 06 | 3.*/.................$...R...... |
| 25e0 | 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 69 72 63 6c 65 20 2a 2f 0d 0a 75 3d 2d 28 69 2a 31 2e | ../*.track.-.circle.*/..u=-(i*1. |
| 2600 | 32 35 2b 2e 32 35 29 2a 24 70 69 3b 0d 0a 70 78 3d 2d 38 2b 63 6f 73 28 75 29 2a 34 3b 70 7a 3d | 25+.25)*$pi;..px=-8+cos(u)*4;pz= |
| 2620 | 73 69 6e 28 75 29 2a 34 3b 0d 0a 70 79 3d 28 63 6f 73 28 69 2a 24 70 69 2a 32 29 2d 31 29 2a 31 | sin(u)*4;..py=(cos(i*$pi*2)-1)*1 |
| 2640 | 2e 34 2a 28 31 2d 63 6f 73 28 69 2a 24 70 69 29 29 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d | .4*(1-cos(i*$pi));....//.Smooth. |
| 2660 | 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 | .px=px+(reg61-px)*reg64;py=py+(r |
| 2680 | 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a | eg62-py)*reg64;pz=pz+(reg63-pz)* |
| 26a0 | 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b | reg64;..lx=px-reg61;ly=py-reg62; |
| 26c0 | 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d | lz=pz-reg63;..//.Camera.hook..v= |
| 26e0 | 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 | if(reg78,0,below(reg79,reg91));. |
| 2700 | 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 | .......reg78=if(v,1,reg78);..j=r |
| 2720 | 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 | eg79*reg69+.500;..j=(j-(j|0)+.50 |
| 2740 | 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 | 0);reg55=j;..reg75=if(v,reg61+lx |
| 2760 | 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a | *j,reg75);..reg76=if(v,reg62+ly* |
| 2780 | 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a | j,reg76);..reg77=if(v,reg63+lz*j |
| 27a0 | 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 | ,reg77);..//.New.pos..reg61=if(i |
| 27c0 | 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b | ,px,reg61);reg62=if(i,py,reg62); |
| 27e0 | 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b | reg63=if(i,pz,reg63);....//.Bank |
| 2800 | 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 63 61 3d 63 6f 73 28 61 70 29 3b | ing..ap=atan2(lz,lx);ca=cos(ap); |
| 2820 | 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 | sa=sin(ap);vv=reg20*reg90;..jx=s |
| 2840 | 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 | a;jz=-ca;jy=-sin(ap-reg66)*reg21 |
| 2860 | 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a | ;j=vv/sqrt(sqr(jx)+sqr(jy)+sqr(j |
| 2880 | 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 | z));..px=px+j*jx;py=py+j*jy;pz=p |
| 28a0 | 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 | z+j*jz;..reg42=if(v,(ap-reg66)*r |
| 28c0 | 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 | eg21,reg42);..reg66=ap;....tx=px |
| 28e0 | 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f | ;ty=py;tz=pz;gvvvv=reg89;/////// |
| 2900 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d | //////////////////..tx=tx+ox;ty= |
| 2920 | 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 | ty+oy;tz=tz+oz;..px=if(gvvvv,if( |
| 2940 | 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b | equal(gvvvv,2),tx,reg27),reg24); |
| 2960 | 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c | ..py=if(gvvvv,if(equal(gvvvv,2), |
| 2980 | 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 | ty,reg28),reg25);..pz=if(gvvvv,i |
| 29a0 | 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 | f(equal(gvvvv,2),tz,reg29),reg26 |
| 29c0 | 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 | );..reg24=reg27;reg25=reg28;reg2 |
| 29e0 | 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 | 6=reg29;..reg27=tx;reg28=ty;reg2 |
| 2a00 | 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 | 9=tz;....x1=px*cy+pz*sy;z1=pz*cy |
| 2a20 | 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 | -px*sy;..y2=py*cx+z1*sx;z2=z1*cx |
| 2a40 | 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a | -py*sx;..x3=x1*cz+y2*sz;y3=y2*cz |
| 2a60 | 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 | -x1*sz+.15;..red=u1;u1=if(above( |
| 2a80 | 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 | z2,0.05),1/z2,0);..x=if(u1,x3*u1 |
| 2aa0 | 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d | ,x);y=if(u1,y3*u1*reg50,y);..cv= |
| 2ac0 | 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 | if(red*u1,(sin(u1-reg16)*.4+1),0 |
| 2ae0 | 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 | );dv=u1*(reg90*(reg89+reg91*5)%3 |
| 2b00 | 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 | )*.3+min(1,max(.02,sin(reg91*2-r |
| 2b20 | 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 | eg16*.1)-.3)*4);..red=cv*(.1+dv) |
| 2b40 | 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 | ;green=cv*(.12+dv);blue=1.2*cv*( |
| 2b60 | 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d | .2+dv);..u1=sqrt(u1)*1.3;//----- |
| 2b80 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 | ----------/..red=red*u1;green=gr |
| 2ba0 | 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 | een*u1;blue=blue*u1;//////....re |
| 2bc0 | 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a | g91=reg91+unit;..reg90=-reg90;.. |
| 2be0 | 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 10 01 00 00 2f 2a 20 4c 65 6e 67 | reg89=(reg89+1)%3;......./*.Leng |
| 2c00 | 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 31 35 2e 37 31 3b 6e 3d | th.*/..unit=reg70;..len=15.71;n= |
| 2c20 | 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 | len/unit+1;ilen=1/len;reg91=reg9 |
| 2c40 | 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a | 1-unit;..../*.Piece.connecting.* |
| 2c60 | 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a | /..pmin=reg91;..pmax=pmin+len;.. |
| 2c80 | 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 | ..../*.Camera.*/..ox=reg30;oy=re |
| 2ca0 | 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 | g31;oz=reg32;..rx=reg40;ry=reg41 |
| 2cc0 | 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a | ;rz=reg42;..cx=reg43;sx=reg44;.. |
| 2ce0 | 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d | cy=reg45;sy=reg46;..cz=reg47;sz= |
| 2d00 | 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0e 00 00 00 2f 2a 20 50 69 65 63 65 20 34 20 2a 2f 00 02 | reg48;.........../*.Piece.4.*/.. |
| 2d20 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 51 07 00 00 01 0e 06 00 00 2f 2a 20 74 | ...............$...Q......../*.t |
| 2d40 | 72 61 63 6b 20 2d 20 68 65 6c 69 78 20 2a 2f 0d 0a 75 3d 28 69 2a 32 2d 2e 35 29 2a 24 70 69 3b | rack.-.helix.*/..u=(i*2-.5)*$pi; |
| 2d60 | 0d 0a 70 78 3d 2d 38 2b 63 6f 73 28 75 29 2a 32 3b 70 7a 3d 36 2b 73 69 6e 28 75 29 2a 32 3b 0d | ..px=-8+cos(u)*2;pz=6+sin(u)*2;. |
| 2d80 | 0a 70 79 3d 28 63 6f 73 28 69 2a 24 70 69 29 2d 31 29 2a 2e 35 2b 28 63 6f 73 28 69 2a 24 70 69 | .py=(cos(i*$pi)-1)*.5+(cos(i*$pi |
| 2da0 | 2a 32 29 2d 31 29 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 | *2)-1);....//.Smooth..px=px+(reg |
| 2dc0 | 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 | 61-px)*reg64;py=py+(reg62-py)*re |
| 2de0 | 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d | g64;pz=pz+(reg63-pz)*reg64;..lx= |
| 2e00 | 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 | px-reg61;ly=py-reg62;lz=pz-reg63 |
| 2e20 | 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c | ;..//.Camera.hook..v=if(reg78,0, |
| 2e40 | 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 | below(reg79,reg91));........reg7 |
| 2e60 | 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b | 8=if(v,1,reg78);..j=reg79*reg69+ |
| 2e80 | 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b | .500;..j=(j-(j|0)+.500);reg55=j; |
| 2ea0 | 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d | ..reg75=if(v,reg61+lx*j,reg75);. |
| 2ec0 | 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a | .reg76=if(v,reg62+ly*j,reg76);.. |
| 2ee0 | 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f | reg77=if(v,reg63+lz*j,reg77);../ |
| 2f00 | 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b | /.New.pos..reg61=if(i,px,reg61); |
| 2f20 | 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c | reg62=if(i,py,reg62);reg63=if(i, |
| 2f40 | 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 | pz,reg63);....//.Banking..ap=ata |
| 2f60 | 6e 32 28 6c 7a 2c 6c 78 29 3b 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b | n2(lz,lx);ca=cos(ap);sa=sin(ap); |
| 2f80 | 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 | vv=reg20*reg90;..jx=sa;jz=-ca;jy |
| 2fa0 | 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 | =-sin(ap-reg66)*reg21;j=vv/sqrt( |
| 2fc0 | 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 | sqr(jx)+sqr(jy)+sqr(jz));..px=px |
| 2fe0 | 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 | +j*jx;py=py+j*jy;pz=pz+j*jz;..re |
| 3000 | 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 | g42=if(v,(ap-reg66)*reg21,reg42) |
| 3020 | 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 | ;..reg66=ap;....tx=px;ty=py;tz=p |
| 3040 | 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | z;gvvvv=reg89;////////////////// |
| 3060 | 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a | ///////..tx=tx+ox;ty=ty+oy;tz=tz |
| 3080 | 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 | +oz;..px=if(gvvvv,if(equal(gvvvv |
| 30a0 | 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 | ,2),tx,reg27),reg24);..py=if(gvv |
| 30c0 | 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 | vv,if(equal(gvvvv,2),ty,reg28),r |
| 30e0 | 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 | eg25);..pz=if(gvvvv,if(equal(gvv |
| 3100 | 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 | vv,2),tz,reg29),reg26);..reg24=r |
| 3120 | 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 | eg27;reg25=reg28;reg26=reg29;..r |
| 3140 | 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 | eg27=tx;reg28=ty;reg29=tz;....x1 |
| 3160 | 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 | =px*cy+pz*sy;z1=pz*cy-px*sy;..y2 |
| 3180 | 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 | =py*cx+z1*sx;z2=z1*cx-py*sx;..x3 |
| 31a0 | 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b | =x1*cz+y2*sz;y3=y2*cz-x1*sz+.15; |
| 31c0 | 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f | ..red=u1;u1=if(above(z2,0.05),1/ |
| 31e0 | 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 | z2,0);..x=if(u1,x3*u1,x);y=if(u1 |
| 3200 | 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 | ,y3*u1*reg50,y);..cv=if(red*u1,( |
| 3220 | 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 | sin(u1-reg16)*.4+1),0);dv=u1*(re |
| 3240 | 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c | g90*(reg89+reg91*5)%3)*.3+min(1, |
| 3260 | 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 | max(.02,sin(reg91*2-reg16*.1)-.3 |
| 3280 | 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 | )*4);..red=cv*(.1+dv);green=cv*( |
| 32a0 | 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 | .12+dv);blue=1.2*cv*(.2+dv);..u1 |
| 32c0 | 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f | =sqrt(u1)*1.3;//---------------/ |
| 32e0 | 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 | ..red=red*u1;green=green*u1;blue |
| 3300 | 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 | =blue*u1;//////....reg91=reg91+u |
| 3320 | 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 | nit;..reg90=-reg90;..reg89=(reg8 |
| 3340 | 39 2b 31 29 25 33 3b 0d 0a 00 14 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 | 9+1)%3;......./*.Length.*/..unit |
| 3360 | 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 31 38 2e 38 35 2a 32 2f 33 3b 6e 3d 6c 65 6e 2f 75 6e 69 | =reg70;..len=18.85*2/3;n=len/uni |
| 3380 | 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b | t+1;ilen=1/len;reg91=reg91-unit; |
| 33a0 | 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e | ..../*.Piece.connecting.*/..pmin |
| 33c0 | 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 | =reg91;..pmax=pmin+len;....../*. |
| 33e0 | 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d | Camera.*/..ox=reg30;oy=reg31;oz= |
| 3400 | 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 | reg32;..rx=reg40;ry=reg41;rz=reg |
| 3420 | 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 | 42;..cx=reg43;sx=reg44;..cy=reg4 |
| 3440 | 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d | 5;sy=reg46;..cz=reg47;sz=reg48;. |
| 3460 | 0a 00 00 00 00 00 0e 00 00 00 2f 2a 20 50 69 65 63 65 20 35 20 2a 2f 00 02 00 00 00 01 00 00 00 | ........../*.Piece.5.*/......... |
| 3480 | ff ff ff 00 01 00 00 00 24 00 00 00 21 07 00 00 01 e6 05 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 | ........$...!......../*.track.-. |
| 34a0 | 73 74 72 61 69 67 68 74 20 2a 2f 0d 0a 70 78 3d 2d 38 2b 35 2a 69 3b 0d 0a 70 7a 3d 34 3b 0d 0a | straight.*/..px=-8+5*i;..pz=4;.. |
| 34c0 | 70 79 3d 2d 31 2b 28 63 6f 73 28 69 2a 24 70 69 29 2d 31 29 2a 2e 35 3b 0d 0a 0d 0a 2f 2f 20 53 | py=-1+(cos(i*$pi)-1)*.5;....//.S |
| 34e0 | 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 | mooth..px=px+(reg61-px)*reg64;py |
| 3500 | 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 | =py+(reg62-py)*reg64;pz=pz+(reg6 |
| 3520 | 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d | 3-pz)*reg64;..lx=px-reg61;ly=py- |
| 3540 | 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f | reg62;lz=pz-reg63;..//.Camera.ho |
| 3560 | 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 | ok..v=if(reg78,0,below(reg79,reg |
| 3580 | 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 | 91));........reg78=if(v,1,reg78) |
| 35a0 | 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c | ;..j=reg79*reg69+.500;..j=(j-(j| |
| 35c0 | 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 | 0)+.500);reg55=j;..reg75=if(v,re |
| 35e0 | 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 | g61+lx*j,reg75);..reg76=if(v,reg |
| 3600 | 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 | 62+ly*j,reg76);..reg77=if(v,reg6 |
| 3620 | 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 | 3+lz*j,reg77);..//.New.pos..reg6 |
| 3640 | 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 | 1=if(i,px,reg61);reg62=if(i,py,r |
| 3660 | 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f | eg62);reg63=if(i,pz,reg63);..../ |
| 3680 | 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 63 61 3d 63 6f | /.Banking..ap=atan2(lz,lx);ca=co |
| 36a0 | 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b | s(ap);sa=sin(ap);vv=reg20*reg90; |
| 36c0 | 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 | ..jx=sa;jz=-ca;jy=-sin(ap-reg66) |
| 36e0 | 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 | *reg21;j=vv/sqrt(sqr(jx)+sqr(jy) |
| 3700 | 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a | +sqr(jz));..px=px+j*jx;py=py+j*j |
| 3720 | 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 | y;pz=pz+j*jz;..reg42=if(v,(ap-re |
| 3740 | 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d | g66)*reg21,reg42);..reg66=ap;... |
| 3760 | 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f | .tx=px;ty=py;tz=pz;gvvvv=reg89;/ |
| 3780 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b | ////////////////////////..tx=tx+ |
| 37a0 | 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 | ox;ty=ty+oy;tz=tz+oz;..px=if(gvv |
| 37c0 | 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 | vv,if(equal(gvvvv,2),tx,reg27),r |
| 37e0 | 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 | eg24);..py=if(gvvvv,if(equal(gvv |
| 3800 | 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 | vv,2),ty,reg28),reg25);..pz=if(g |
| 3820 | 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 | vvvv,if(equal(gvvvv,2),tz,reg29) |
| 3840 | 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 | ,reg26);..reg24=reg27;reg25=reg2 |
| 3860 | 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 | 8;reg26=reg29;..reg27=tx;reg28=t |
| 3880 | 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 | y;reg29=tz;....x1=px*cy+pz*sy;z1 |
| 38a0 | 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 | =pz*cy-px*sy;..y2=py*cx+z1*sx;z2 |
| 38c0 | 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 | =z1*cx-py*sx;..x3=x1*cz+y2*sz;y3 |
| 38e0 | 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 | =y2*cz-x1*sz+.15;..red=u1;u1=if( |
| 3900 | 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 | above(z2,0.05),1/z2,0);..x=if(u1 |
| 3920 | 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 | ,x3*u1,x);y=if(u1,y3*u1*reg50,y) |
| 3940 | 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e | ;..cv=if(red*u1,(sin(u1-reg16)*. |
| 3960 | 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 | 4+1),0);dv=u1*(reg90*(reg89+reg9 |
| 3980 | 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 | 1*5)%3)*.3+min(1,max(.02,sin(reg |
| 39a0 | 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 | 91*2-reg16*.1)-.3)*4);..red=cv*( |
| 39c0 | 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e | .1+dv);green=cv*(.12+dv);blue=1. |
| 39e0 | 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f | 2*cv*(.2+dv);..u1=sqrt(u1)*1.3;/ |
| 3a00 | 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 | /---------------/..red=red*u1;gr |
| 3a20 | 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f | een=green*u1;blue=blue*u1;////// |
| 3a40 | 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 | ....reg91=reg91+unit;..reg90=-re |
| 3a60 | 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 0c 01 00 00 2f | g90;..reg89=(reg89+1)%3;......./ |
| 3a80 | 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 35 3b | *.Length.*/..unit=reg70;..len=5; |
| 3aa0 | 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 | n=len/unit+1;ilen=1/len;reg91=re |
| 3ac0 | 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 | g91-unit;..../*.Piece.connecting |
| 3ae0 | 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b | .*/..pmin=reg91;..pmax=pmin+len; |
| 3b00 | 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d | ....../*.Camera.*/..ox=reg30;oy= |
| 3b20 | 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 | reg31;oz=reg32;..rx=reg40;ry=reg |
| 3b40 | 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b | 41;rz=reg42;..cx=reg43;sx=reg44; |
| 3b60 | 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 | ..cy=reg45;sy=reg46;..cz=reg47;s |
| 3b80 | 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0e 00 00 00 2f 2a 20 50 69 65 63 65 20 36 20 2a 2f | z=reg48;.........../*.Piece.6.*/ |
| 3ba0 | 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 41 07 00 00 01 02 06 00 00 2f 2a | .................$...A......../* |
| 3bc0 | 20 74 72 61 63 6b 20 2d 20 63 69 72 63 6c 65 20 2a 2f 0d 0a 75 3d 28 69 2a 2e 35 2d 2e 35 29 2a | .track.-.circle.*/..u=(i*.5-.5)* |
| 3be0 | 24 70 69 3b 0d 0a 70 78 3d 2d 33 2b 63 6f 73 28 75 29 2a 32 3b 70 7a 3d 36 2b 73 69 6e 28 75 29 | $pi;..px=-3+cos(u)*2;pz=6+sin(u) |
| 3c00 | 2a 32 3b 0d 0a 70 79 3d 2d 32 2d 28 63 6f 73 28 69 2a 24 70 69 2a 2e 35 29 2d 31 29 3b 0d 0a 0d | *2;..py=-2-(cos(i*$pi*.5)-1);... |
| 3c20 | 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 | .//.Smooth..px=px+(reg61-px)*reg |
| 3c40 | 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b | 64;py=py+(reg62-py)*reg64;pz=pz+ |
| 3c60 | 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c | (reg63-pz)*reg64;..lx=px-reg61;l |
| 3c80 | 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 | y=py-reg62;lz=pz-reg63;..//.Came |
| 3ca0 | 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 | ra.hook..v=if(reg78,0,below(reg7 |
| 3cc0 | 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 | 9,reg91));........reg78=if(v,1,r |
| 3ce0 | 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 | eg78);..j=reg79*reg69+.500;..j=( |
| 3d00 | 6a 2d 28 6a 7c 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 | j-(j|0)+.500);reg55=j;..reg75=if |
| 3d20 | 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 | (v,reg61+lx*j,reg75);..reg76=if( |
| 3d40 | 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 | v,reg62+ly*j,reg76);..reg77=if(v |
| 3d60 | 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d | ,reg63+lz*j,reg77);..//.New.pos. |
| 3d80 | 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 | .reg61=if(i,px,reg61);reg62=if(i |
| 3da0 | 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b | ,py,reg62);reg63=if(i,pz,reg63); |
| 3dc0 | 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b | ....//.Banking..ap=atan2(lz,lx); |
| 3de0 | 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 | ca=cos(ap);sa=sin(ap);vv=reg20*r |
| 3e00 | 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 | eg90;..jx=sa;jz=-ca;jy=-sin(ap-r |
| 3e20 | 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 | eg66)*reg21;j=vv/sqrt(sqr(jx)+sq |
| 3e40 | 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 | r(jy)+sqr(jz));..px=px+j*jx;py=p |
| 3e60 | 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 | y+j*jy;pz=pz+j*jz;..reg42=if(v,( |
| 3e80 | 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 | ap-reg66)*reg21,reg42);..reg66=a |
| 3ea0 | 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 | p;....tx=px;ty=py;tz=pz;gvvvv=re |
| 3ec0 | 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 | g89;/////////////////////////..t |
| 3ee0 | 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 | x=tx+ox;ty=ty+oy;tz=tz+oz;..px=i |
| 3f00 | 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 | f(gvvvv,if(equal(gvvvv,2),tx,reg |
| 3f20 | 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 | 27),reg24);..py=if(gvvvv,if(equa |
| 3f40 | 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a | l(gvvvv,2),ty,reg28),reg25);..pz |
| 3f60 | 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 | =if(gvvvv,if(equal(gvvvv,2),tz,r |
| 3f80 | 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 | eg29),reg26);..reg24=reg27;reg25 |
| 3fa0 | 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 | =reg28;reg26=reg29;..reg27=tx;re |
| 3fc0 | 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a | g28=ty;reg29=tz;....x1=px*cy+pz* |
| 3fe0 | 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a | sy;z1=pz*cy-px*sy;..y2=py*cx+z1* |
| 4000 | 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a | sx;z2=z1*cx-py*sx;..x3=x1*cz+y2* |
| 4020 | 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 | sz;y3=y2*cz-x1*sz+.15;..red=u1;u |
| 4040 | 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d | 1=if(above(z2,0.05),1/z2,0);..x= |
| 4060 | 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 | if(u1,x3*u1,x);y=if(u1,y3*u1*reg |
| 4080 | 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 | 50,y);..cv=if(red*u1,(sin(u1-reg |
| 40a0 | 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 | 16)*.4+1),0);dv=u1*(reg90*(reg89 |
| 40c0 | 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 | +reg91*5)%3)*.3+min(1,max(.02,si |
| 40e0 | 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 | n(reg91*2-reg16*.1)-.3)*4);..red |
| 4100 | 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c | =cv*(.1+dv);green=cv*(.12+dv);bl |
| 4120 | 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a | ue=1.2*cv*(.2+dv);..u1=sqrt(u1)* |
| 4140 | 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a | 1.3;//---------------/..red=red* |
| 4160 | 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f | u1;green=green*u1;blue=blue*u1;/ |
| 4180 | 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 | /////....reg91=reg91+unit;..reg9 |
| 41a0 | 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 | 0=-reg90;..reg89=(reg89+1)%3;... |
| 41c0 | 10 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c | ..../*.Length.*/..unit=reg70;..l |
| 41e0 | 65 6e 3d 33 2e 31 34 32 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e | en=3.142;n=len/unit+1;ilen=1/len |
| 4200 | 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 | ;reg91=reg91-unit;..../*.Piece.c |
| 4220 | 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d | onnecting.*/..pmin=reg91;..pmax= |
| 4240 | 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d | pmin+len;....../*.Camera.*/..ox= |
| 4260 | 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 | reg30;oy=reg31;oz=reg32;..rx=reg |
| 4280 | 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b | 40;ry=reg41;rz=reg42;..cx=reg43; |
| 42a0 | 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 | sx=reg44;..cy=reg45;sy=reg46;..c |
| 42c0 | 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0e 00 00 00 2f 2a 20 50 | z=reg47;sz=reg48;.........../*.P |
| 42e0 | 69 65 63 65 20 37 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 53 07 | iece.7.*/.................$...S. |
| 4300 | 00 00 01 14 06 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 69 72 63 6c 65 20 2a 2f 0d 0a 75 3d 2d | ......./*.track.-.circle.*/..u=- |
| 4320 | 28 69 2a 2e 35 2b 31 29 2a 24 70 69 3b 0d 0a 70 78 3d 32 2b 63 6f 73 28 75 29 2a 33 3b 70 7a 3d | (i*.5+1)*$pi;..px=2+cos(u)*3;pz= |
| 4340 | 36 2b 73 69 6e 28 75 29 2a 33 3b 0d 0a 70 79 3d 2d 32 2d 28 63 6f 73 28 28 6d 69 6e 28 32 2c 69 | 6+sin(u)*3;..py=-2-(cos((min(2,i |
| 4360 | 2a 31 2e 35 2b 31 29 29 2a 24 70 69 2a 2e 35 29 2d 31 29 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 | *1.5+1))*$pi*.5)-1);....//.Smoot |
| 4380 | 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b | h..px=px+(reg61-px)*reg64;py=py+ |
| 43a0 | 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a | (reg62-py)*reg64;pz=pz+(reg63-pz |
| 43c0 | 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 | )*reg64;..lx=px-reg61;ly=py-reg6 |
| 43e0 | 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a | 2;lz=pz-reg63;..//.Camera.hook.. |
| 4400 | 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 | v=if(reg78,0,below(reg79,reg91)) |
| 4420 | 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a | ;........reg78=if(v,1,reg78);..j |
| 4440 | 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e | =reg79*reg69+.500;..j=(j-(j|0)+. |
| 4460 | 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b | 500);reg55=j;..reg75=if(v,reg61+ |
| 4480 | 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c | lx*j,reg75);..reg76=if(v,reg62+l |
| 44a0 | 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a | y*j,reg76);..reg77=if(v,reg63+lz |
| 44c0 | 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 | *j,reg77);..//.New.pos..reg61=if |
| 44e0 | 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 | (i,px,reg61);reg62=if(i,py,reg62 |
| 4500 | 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 | );reg63=if(i,pz,reg63);....//.Ba |
| 4520 | 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 63 61 3d 63 6f 73 28 61 70 | nking..ap=atan2(lz,lx);ca=cos(ap |
| 4540 | 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 2a 31 2e 32 3b | );sa=sin(ap);vv=reg20*reg90*1.2; |
| 4560 | 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 | ..jx=sa;jz=-ca;jy=-sin(ap-reg66) |
| 4580 | 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 | *reg21;j=vv/sqrt(sqr(jx)+sqr(jy) |
| 45a0 | 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a | +sqr(jz));..px=px+j*jx;py=py+j*j |
| 45c0 | 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 | y;pz=pz+j*jz;..reg42=if(v,(ap-re |
| 45e0 | 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d | g66)*reg21,reg42);..reg66=ap;... |
| 4600 | 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f | .tx=px;ty=py;tz=pz;gvvvv=reg89;/ |
| 4620 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b | ////////////////////////..tx=tx+ |
| 4640 | 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 | ox;ty=ty+oy;tz=tz+oz;..px=if(gvv |
| 4660 | 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 | vv,if(equal(gvvvv,2),tx,reg27),r |
| 4680 | 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 | eg24);..py=if(gvvvv,if(equal(gvv |
| 46a0 | 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 | vv,2),ty,reg28),reg25);..pz=if(g |
| 46c0 | 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 | vvvv,if(equal(gvvvv,2),tz,reg29) |
| 46e0 | 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 | ,reg26);..reg24=reg27;reg25=reg2 |
| 4700 | 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 | 8;reg26=reg29;..reg27=tx;reg28=t |
| 4720 | 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 | y;reg29=tz;....x1=px*cy+pz*sy;z1 |
| 4740 | 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 | =pz*cy-px*sy;..y2=py*cx+z1*sx;z2 |
| 4760 | 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 | =z1*cx-py*sx;..x3=x1*cz+y2*sz;y3 |
| 4780 | 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 | =y2*cz-x1*sz+.15;..red=u1;u1=if( |
| 47a0 | 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 | above(z2,0.05),1/z2,0);..x=if(u1 |
| 47c0 | 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 | ,x3*u1,x);y=if(u1,y3*u1*reg50,y) |
| 47e0 | 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e | ;..cv=if(red*u1,(sin(u1-reg16)*. |
| 4800 | 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 | 4+1),0);dv=u1*(reg90*(reg89+reg9 |
| 4820 | 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 | 1*5)%3)*.3+min(1,max(.02,sin(reg |
| 4840 | 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 | 91*2-reg16*.1)-.3)*4);..red=cv*( |
| 4860 | 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e | .1+dv);green=cv*(.12+dv);blue=1. |
| 4880 | 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f | 2*cv*(.2+dv);..u1=sqrt(u1)*1.3;/ |
| 48a0 | 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 | /---------------/..red=red*u1;gr |
| 48c0 | 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f | een=green*u1;blue=blue*u1;////// |
| 48e0 | 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 | ....reg91=reg91+unit;..reg90=-re |
| 4900 | 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 10 01 00 00 2f | g90;..reg89=(reg89+1)%3;......./ |
| 4920 | 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 34 2e | *.Length.*/..unit=reg70;..len=4. |
| 4940 | 37 31 32 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 | 712;n=len/unit+1;ilen=1/len;reg9 |
| 4960 | 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 | 1=reg91-unit;..../*.Piece.connec |
| 4980 | 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b | ting.*/..pmin=reg91;..pmax=pmin+ |
| 49a0 | 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 | len;....../*.Camera.*/..ox=reg30 |
| 49c0 | 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 | ;oy=reg31;oz=reg32;..rx=reg40;ry |
| 49e0 | 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 | =reg41;rz=reg42;..cx=reg43;sx=re |
| 4a00 | 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 | g44;..cy=reg45;sy=reg46;..cz=reg |
| 4a20 | 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0e 00 00 00 2f 2a 20 50 69 65 63 65 20 | 47;sz=reg48;.........../*.Piece. |
| 4a40 | 38 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 56 07 00 00 01 f6 05 | 8.*/.................$...V...... |
| 4a60 | 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 68 69 63 61 6e 65 20 2a 2f 0d 0a 70 78 3d 32 2b 69 2a | ../*.track.-.chicane.*/..px=2+i* |
| 4a80 | 33 3b 0d 0a 70 7a 3d 39 2d 32 2a 28 33 2d 32 2a 69 29 2a 73 71 72 28 69 29 3b 0d 0a 70 79 3d 28 | 3;..pz=9-2*(3-2*i)*sqr(i);..py=( |
| 4aa0 | 63 6f 73 28 69 2a 24 70 69 2a 2e 35 29 2d 31 29 2a 2e 32 35 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f | cos(i*$pi*.5)-1)*.25;....//.Smoo |
| 4ac0 | 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 | th..px=px+(reg61-px)*reg64;py=py |
| 4ae0 | 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 | +(reg62-py)*reg64;pz=pz+(reg63-p |
| 4b00 | 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 | z)*reg64;..lx=px-reg61;ly=py-reg |
| 4b20 | 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d | 62;lz=pz-reg63;..//.Camera.hook. |
| 4b40 | 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 | .v=if(reg78,0,below(reg79,reg91) |
| 4b60 | 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a | );........reg78=if(v,1,reg78);.. |
| 4b80 | 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b | j=reg79*reg69+.500;..j=(j-(j|0)+ |
| 4ba0 | 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 | .500);reg55=j;..reg75=if(v,reg61 |
| 4bc0 | 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b | +lx*j,reg75);..reg76=if(v,reg62+ |
| 4be0 | 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c | ly*j,reg76);..reg77=if(v,reg63+l |
| 4c00 | 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 | z*j,reg77);..//.New.pos..reg61=i |
| 4c20 | 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 | f(i,px,reg61);reg62=if(i,py,reg6 |
| 4c40 | 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 | 2);reg63=if(i,pz,reg63);....//.B |
| 4c60 | 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 63 61 3d 63 6f 73 28 61 | anking..ap=atan2(lz,lx);ca=cos(a |
| 4c80 | 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a | p);sa=sin(ap);vv=reg20*reg90;..j |
| 4ca0 | 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 | x=sa;jz=-ca;jy=-sin(ap-reg66)*re |
| 4cc0 | 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 | g21;j=vv/sqrt(sqr(jx)+sqr(jy)+sq |
| 4ce0 | 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 | r(jz));..px=px+j*jx;py=py+j*jy;p |
| 4d00 | 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 | z=pz+j*jz;..reg42=if(v,(ap-reg66 |
| 4d20 | 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 | )*reg21,reg42);..reg66=ap;....tx |
| 4d40 | 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f | =px;ty=py;tz=pz;gvvvv=reg89;//// |
| 4d60 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b | /////////////////////..tx=tx+ox; |
| 4d80 | 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c | ty=ty+oy;tz=tz+oz;..px=if(gvvvv, |
| 4da0 | 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 | if(equal(gvvvv,2),tx,reg27),reg2 |
| 4dc0 | 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c | 4);..py=if(gvvvv,if(equal(gvvvv, |
| 4de0 | 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 | 2),ty,reg28),reg25);..pz=if(gvvv |
| 4e00 | 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 | v,if(equal(gvvvv,2),tz,reg29),re |
| 4e20 | 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 | g26);..reg24=reg27;reg25=reg28;r |
| 4e40 | 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 | eg26=reg29;..reg27=tx;reg28=ty;r |
| 4e60 | 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a | eg29=tz;....x1=px*cy+pz*sy;z1=pz |
| 4e80 | 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 | *cy-px*sy;..y2=py*cx+z1*sx;z2=z1 |
| 4ea0 | 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 | *cx-py*sx;..x3=x1*cz+y2*sz;y3=y2 |
| 4ec0 | 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f | *cz-x1*sz+.15;..red=u1;u1=if(abo |
| 4ee0 | 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 | ve(z2,0.05),1/z2,0);..x=if(u1,x3 |
| 4f00 | 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a | *u1,x);y=if(u1,y3*u1*reg50,y);.. |
| 4f20 | 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 | cv=if(red*u1,(sin(u1-reg16)*.4+1 |
| 4f40 | 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 | ),0);dv=u1*(reg90*(reg89+reg91*5 |
| 4f60 | 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a | )%3)*.3+min(1,max(.02,sin(reg91* |
| 4f80 | 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b | 2-reg16*.1)-.3)*4);..red=cv*(.1+ |
| 4fa0 | 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 | dv);green=cv*(.12+dv);blue=1.2*c |
| 4fc0 | 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d | v*(.2+dv);..u1=sqrt(u1)*1.3;//-- |
| 4fe0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e | -------------/..red=red*u1;green |
| 5000 | 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d | =green*u1;blue=blue*u1;//////... |
| 5020 | 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 | .reg91=reg91+unit;..reg90=-reg90 |
| 5040 | 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 31 01 00 00 2f 2a 20 4c | ;..reg89=(reg89+1)%3;...1.../*.L |
| 5060 | 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 2f 2a 20 63 68 69 63 61 6e | ength.*/..unit=reg70;../*.chican |
| 5080 | 65 3a 20 66 28 6b 29 20 3d 20 31 2e 33 32 36 35 20 2a 2f 0d 0a 6c 65 6e 3d 31 2e 33 32 36 35 2a | e:.f(k).=.1.3265.*/..len=1.3265* |
| 50a0 | 33 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d | 3;n=len/unit+1;ilen=1/len;reg91= |
| 50c0 | 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 | reg91-unit;..../*.Piece.connecti |
| 50e0 | 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 | ng.*/..pmin=reg91;..pmax=pmin+le |
| 5100 | 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f | n;....../*.Camera.*/..ox=reg30;o |
| 5120 | 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 | y=reg31;oz=reg32;..rx=reg40;ry=r |
| 5140 | 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 | eg41;rz=reg42;..cx=reg43;sx=reg4 |
| 5160 | 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 | 4;..cy=reg45;sy=reg46;..cz=reg47 |
| 5180 | 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0e 00 00 00 2f 2a 20 50 69 65 63 65 20 39 20 | ;sz=reg48;.........../*.Piece.9. |
| 51a0 | 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 61 07 00 00 01 20 06 00 00 | */.................$...a........ |
| 51c0 | 2f 2a 20 74 72 61 63 6b 20 2d 20 63 69 72 63 6c 65 20 2a 2f 0d 0a 75 3d 2d 28 69 2d 2e 35 29 2a | /*.track.-.circle.*/..u=-(i-.5)* |
| 51e0 | 24 70 69 3b 0d 0a 70 78 3d 35 2b 63 6f 73 28 75 29 2a 34 3b 70 7a 3d 33 2b 73 69 6e 28 75 29 2a | $pi;..px=5+cos(u)*4;pz=3+sin(u)* |
| 5200 | 34 3b 0d 0a 70 79 3d 28 63 6f 73 28 6d 69 6e 28 32 2c 28 69 2a 33 2e 31 35 37 36 2b 31 29 29 2a | 4;..py=(cos(min(2,(i*3.1576+1))* |
| 5220 | 24 70 69 2a 2e 32 35 29 2d 31 2b 28 63 6f 73 28 69 2a 24 70 69 2a 32 29 2d 31 29 29 3b 0d 0a 0d | $pi*.25)-1+(cos(i*$pi*2)-1));... |
| 5240 | 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 | .//.Smooth..px=px+(reg61-px)*reg |
| 5260 | 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b | 64;py=py+(reg62-py)*reg64;pz=pz+ |
| 5280 | 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c | (reg63-pz)*reg64;..lx=px-reg61;l |
| 52a0 | 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 | y=py-reg62;lz=pz-reg63;..//.Came |
| 52c0 | 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 | ra.hook..v=if(reg78,0,below(reg7 |
| 52e0 | 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 | 9,reg91));........reg78=if(v,1,r |
| 5300 | 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 | eg78);..j=reg79*reg69+.500;..j=( |
| 5320 | 6a 2d 28 6a 7c 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 | j-(j|0)+.500);reg55=j;..reg75=if |
| 5340 | 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 | (v,reg61+lx*j,reg75);..reg76=if( |
| 5360 | 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 | v,reg62+ly*j,reg76);..reg77=if(v |
| 5380 | 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d | ,reg63+lz*j,reg77);..//.New.pos. |
| 53a0 | 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 | .reg61=if(i,px,reg61);reg62=if(i |
| 53c0 | 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b | ,py,reg62);reg63=if(i,pz,reg63); |
| 53e0 | 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b | ....//.Banking..ap=atan2(lz,lx); |
| 5400 | 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 | ca=cos(ap);sa=sin(ap);vv=reg20*r |
| 5420 | 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 | eg90;..jx=sa;jz=-ca;jy=-sin(ap-r |
| 5440 | 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 | eg66)*reg21;j=vv/sqrt(sqr(jx)+sq |
| 5460 | 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 | r(jy)+sqr(jz));..px=px+j*jx;py=p |
| 5480 | 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 | y+j*jy;pz=pz+j*jz;..reg42=if(v,( |
| 54a0 | 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 | ap-reg66)*reg21,reg42);..reg66=a |
| 54c0 | 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 | p;....tx=px;ty=py;tz=pz;gvvvv=re |
| 54e0 | 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 | g89;/////////////////////////..t |
| 5500 | 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 | x=tx+ox;ty=ty+oy;tz=tz+oz;..px=i |
| 5520 | 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 | f(gvvvv,if(equal(gvvvv,2),tx,reg |
| 5540 | 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 | 27),reg24);..py=if(gvvvv,if(equa |
| 5560 | 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a | l(gvvvv,2),ty,reg28),reg25);..pz |
| 5580 | 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 | =if(gvvvv,if(equal(gvvvv,2),tz,r |
| 55a0 | 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 | eg29),reg26);..reg24=reg27;reg25 |
| 55c0 | 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 | =reg28;reg26=reg29;..reg27=tx;re |
| 55e0 | 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e | g28=ty;reg29=tz;..u1=sqrt(u1)*1. |
| 5600 | 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 | 3;//---------------/..x1=px*cy+p |
| 5620 | 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a | z*sy;z1=pz*cy-px*sy;..y2=py*cx+z |
| 5640 | 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 | 1*sx;z2=z1*cx-py*sx;..x3=x1*cz+y |
| 5660 | 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 | 2*sz;y3=y2*cz-x1*sz+.15;..red=u1 |
| 5680 | 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a | ;u1=if(above(z2,0.05),1/z2,0);.. |
| 56a0 | 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 | x=if(u1,x3*u1,x);y=if(u1,y3*u1*r |
| 56c0 | 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 | eg50,y);..cv=if(red*u1,(sin(u1-r |
| 56e0 | 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 | eg16)*.4+1),0);dv=u1*(reg90*(reg |
| 5700 | 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c | 89+reg91*5)%3)*.3+min(1,max(.02, |
| 5720 | 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 | sin(reg91*2-reg16*.1)-.3)*4);..r |
| 5740 | 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b | ed=cv*(.1+dv);green=cv*(.12+dv); |
| 5760 | 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 0d 0a 72 65 64 3d 72 65 64 2a | blue=1.2*cv*(.2+dv);....red=red* |
| 5780 | 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f | u1;green=green*u1;blue=blue*u1;/ |
| 57a0 | 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 | /////....reg91=reg91+unit;..reg9 |
| 57c0 | 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 | 0=-reg90;..reg89=(reg89+1)%3;... |
| 57e0 | 11 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c | ..../*.Length.*/..unit=reg70;..l |
| 5800 | 65 6e 3d 31 32 2e 35 36 36 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 | en=12.566;n=len/unit+1;ilen=1/le |
| 5820 | 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 | n;reg91=reg91-unit;..../*.Piece. |
| 5840 | 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 | connecting.*/..pmin=reg91;..pmax |
| 5860 | 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 | =pmin+len;....../*.Camera.*/..ox |
| 5880 | 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 | =reg30;oy=reg31;oz=reg32;..rx=re |
| 58a0 | 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 | g40;ry=reg41;rz=reg42;..cx=reg43 |
| 58c0 | 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a | ;sx=reg44;..cy=reg45;sy=reg46;.. |
| 58e0 | 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 | cz=reg47;sz=reg48;.........../*. |
| 5900 | 50 69 65 63 65 20 31 30 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 | Piece.10.*/.................$... |
| 5920 | 20 07 00 00 01 e4 05 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 73 74 72 61 69 67 68 74 20 2a 2f 0d | ........./*.track.-.straight.*/. |
| 5940 | 0a 70 78 3d 35 2d 69 2a 32 2e 35 3b 70 7a 3d 2d 31 3b 0d 0a 70 79 3d 28 2d 31 2d 63 6f 73 28 69 | .px=5-i*2.5;pz=-1;..py=(-1-cos(i |
| 5960 | 2a 24 70 69 29 29 2a 2e 35 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 | *$pi))*.5;....//.Smooth..px=px+( |
| 5980 | 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 | reg61-px)*reg64;py=py+(reg62-py) |
| 59a0 | 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a | *reg64;pz=pz+(reg63-pz)*reg64;.. |
| 59c0 | 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 | lx=px-reg61;ly=py-reg62;lz=pz-re |
| 59e0 | 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 | g63;..//.Camera.hook..v=if(reg78 |
| 5a00 | 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 | ,0,below(reg79,reg91));........r |
| 5a20 | 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 | eg78=if(v,1,reg78);..j=reg79*reg |
| 5a40 | 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 | 69+.500;..j=(j-(j|0)+.500);reg55 |
| 5a60 | 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 | =j;..reg75=if(v,reg61+lx*j,reg75 |
| 5a80 | 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 | );..reg76=if(v,reg62+ly*j,reg76) |
| 5aa0 | 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b | ;..reg77=if(v,reg63+lz*j,reg77); |
| 5ac0 | 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 | ..//.New.pos..reg61=if(i,px,reg6 |
| 5ae0 | 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 | 1);reg62=if(i,py,reg62);reg63=if |
| 5b00 | 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d | (i,pz,reg63);....//.Banking..ap= |
| 5b20 | 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 | atan2(lz,lx);ca=cos(ap);sa=sin(a |
| 5b40 | 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 | p);vv=reg20*reg90;..jx=sa;jz=-ca |
| 5b60 | 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 | ;jy=-sin(ap-reg66)*reg21;j=vv/sq |
| 5b80 | 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 | rt(sqr(jx)+sqr(jy)+sqr(jz));..px |
| 5ba0 | 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d | =px+j*jx;py=py+j*jy;pz=pz+j*jz;. |
| 5bc0 | 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 | .reg42=if(v,(ap-reg66)*reg21,reg |
| 5be0 | 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 | 42);..reg66=ap;....tx=px;ty=py;t |
| 5c00 | 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | z=pz;gvvvv=reg89;/////////////// |
| 5c20 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a | //////////..tx=tx+ox;ty=ty+oy;tz |
| 5c40 | 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 | =tz+oz;..px=if(gvvvv,if(equal(gv |
| 5c60 | 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 | vvv,2),tx,reg27),reg24);..py=if( |
| 5c80 | 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 | gvvvv,if(equal(gvvvv,2),ty,reg28 |
| 5ca0 | 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 | ),reg25);..pz=if(gvvvv,if(equal( |
| 5cc0 | 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 | gvvvv,2),tz,reg29),reg26);..reg2 |
| 5ce0 | 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b | 4=reg27;reg25=reg28;reg26=reg29; |
| 5d00 | 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d | ..reg27=tx;reg28=ty;reg29=tz;... |
| 5d20 | 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d | .x1=px*cy+pz*sy;z1=pz*cy-px*sy;. |
| 5d40 | 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d | .y2=py*cx+z1*sx;z2=z1*cx-py*sx;. |
| 5d60 | 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e | .x3=x1*cz+y2*sz;y3=y2*cz-x1*sz+. |
| 5d80 | 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 | 15;..red=u1;u1=if(above(z2,0.05) |
| 5da0 | 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 | ,1/z2,0);..x=if(u1,x3*u1,x);y=if |
| 5dc0 | 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 | (u1,y3*u1*reg50,y);..cv=if(red*u |
| 5de0 | 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a | 1,(sin(u1-reg16)*.4+1),0);dv=u1* |
| 5e00 | 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e | (reg90*(reg89+reg91*5)%3)*.3+min |
| 5e20 | 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 | (1,max(.02,sin(reg91*2-reg16*.1) |
| 5e40 | 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 | -.3)*4);..red=cv*(.1+dv);green=c |
| 5e60 | 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d | v*(.12+dv);blue=1.2*cv*(.2+dv);. |
| 5e80 | 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .u1=sqrt(u1)*1.3;//------------- |
| 5ea0 | 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 | --/..red=red*u1;green=green*u1;b |
| 5ec0 | 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 | lue=blue*u1;//////....reg91=reg9 |
| 5ee0 | 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 | 1+unit;..reg90=-reg90;..reg89=(r |
| 5f00 | 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 0c 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 | eg89+1)%3;......./*.Length.*/..u |
| 5f20 | 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 32 2e 35 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 | nit=reg70;..len=2.5;n=len/unit+1 |
| 5f40 | 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d | ;ilen=1/len;reg91=reg91-unit;... |
| 5f60 | 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 | ./*.Piece.connecting.*/..pmin=re |
| 5f80 | 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 | g91;..pmax=pmin+len;..../*.Camer |
| 5fa0 | 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 | a.*/..ox=reg30;oy=reg31;oz=reg32 |
| 5fc0 | 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a | ;..rx=reg40;ry=reg41;rz=reg42;.. |
| 5fe0 | 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d | cx=reg43;sx=reg44;..cy=reg45;sy= |
| 6000 | 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 | reg46;..cz=reg47;sz=reg48;...... |
| 6020 | 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 31 31 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ...../*.Piece.11.*/............. |
| 6040 | 01 00 00 00 24 00 00 00 a0 07 00 00 01 58 06 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 6c 6f 6f 70 | ....$........X.../*.track.-.loop |
| 6060 | 20 2a 2f 0d 0a 75 3d 69 2a 24 70 69 2a 32 3b 0d 0a 70 78 3d 2d 73 69 6e 28 75 29 2a 31 2e 35 2b | .*/..u=i*$pi*2;..px=-sin(u)*1.5+ |
| 6080 | 32 2e 35 3b 70 7a 3d 2d 31 2b 28 33 2d 32 2a 69 29 2a 73 71 72 28 69 29 2a 32 3b 0d 0a 70 79 3d | 2.5;pz=-1+(3-2*i)*sqr(i)*2;..py= |
| 60a0 | 2d 28 31 2d 63 6f 73 28 75 29 29 2a 31 2e 35 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 | -(1-cos(u))*1.5;....//.Smooth..p |
| 60c0 | 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 | x=px+(reg61-px)*reg64;py=py+(reg |
| 60e0 | 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 | 62-py)*reg64;pz=pz+(reg63-pz)*re |
| 6100 | 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a | g64;..lx=px-reg61;ly=py-reg62;lz |
| 6120 | 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 | =pz-reg63;..//.Camera.hook..v=if |
| 6140 | 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 | (reg78,0,below(reg79,reg91));... |
| 6160 | 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 | .....reg78=if(v,1,reg78);..j=reg |
| 6180 | 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 30 29 | 79*reg69+.500;..j=(j-(j|0)+.500) |
| 61a0 | 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b | ;..reg75=if(v,reg61+lx*j,reg75); |
| 61c0 | 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d | ..reg76=if(v,reg62+ly*j,reg76);. |
| 61e0 | 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a | .reg77=if(v,reg63+lz*j,reg77);.. |
| 6200 | 69 6b 3d 28 72 65 67 37 39 2d 70 6d 69 6e 29 2a 69 6c 65 6e 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f | ik=(reg79-pmin)*ilen;..//.New.po |
| 6220 | 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 | s..reg61=if(i,px,reg61);reg62=if |
| 6240 | 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 | (i,py,reg62);reg63=if(i,pz,reg63 |
| 6260 | 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 76 76 3d 2d 72 65 67 32 30 2a 72 65 67 39 | );....//.Banking..vv=-reg20*reg9 |
| 6280 | 30 3b 0d 0a 6a 7a 3d 2d 76 76 3b 70 7a 3d 70 7a 2b 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 | 0;..jz=-vv;pz=pz+jz;..reg42=if(v |
| 62a0 | 2c 30 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 30 39 3d 62 61 6e 64 28 61 62 6f 76 65 28 72 65 67 | ,0,reg42);..reg09=band(above(reg |
| 62c0 | 37 39 2c 70 6d 69 6e 29 2c 62 6e 6f 74 28 61 62 6f 76 65 28 72 65 67 37 39 2c 70 6d 61 78 2b 75 | 79,pmin),bnot(above(reg79,pmax+u |
| 62e0 | 6e 69 74 29 29 29 3b 0d 0a 72 65 67 34 39 3d 76 3b 0d 0a 72 65 67 34 31 3d 69 66 28 76 2c 31 2e | nit)));..reg49=v;..reg41=if(v,1. |
| 6300 | 36 31 2d 28 31 2e 36 31 2d 31 2e 34 35 34 29 2a 69 2c 72 65 67 34 31 29 3b 0d 0a 74 61 3d 2e 37 | 61-(1.61-1.454)*i,reg41);..ta=.7 |
| 6320 | 2d 61 74 61 6e 32 28 72 65 67 37 35 2d 32 2e 35 2c 72 65 67 37 36 2b 31 2e 35 29 3b 0d 0a 72 65 | -atan2(reg75-2.5,reg76+1.5);..re |
| 6340 | 67 34 30 3d 69 66 28 76 2c 72 65 67 34 30 2b 73 69 6e 28 74 61 2d 2e 32 30 2b 28 2d 2e 36 35 2b | g40=if(v,reg40+sin(ta-.20+(-.65+ |
| 6360 | 2e 32 30 29 2a 69 2d 72 65 67 34 30 29 2a 28 6d 69 6e 28 31 2c 69 6b 29 29 2c 72 65 67 34 30 29 | .20)*i-reg40)*(min(1,ik)),reg40) |
| 6380 | 3b 0d 0a 72 65 67 36 36 3d 30 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a | ;..reg66=0;....tx=px;ty=py;tz=pz |
| 63a0 | 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | ;gvvvv=reg89;/////////////////// |
| 63c0 | 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b | //////..tx=tx+ox;ty=ty+oy;tz=tz+ |
| 63e0 | 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c | oz;..px=if(gvvvv,if(equal(gvvvv, |
| 6400 | 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 | 2),tx,reg27),reg24);..py=if(gvvv |
| 6420 | 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 | v,if(equal(gvvvv,2),ty,reg28),re |
| 6440 | 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 | g25);..pz=if(gvvvv,if(equal(gvvv |
| 6460 | 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 | v,2),tz,reg29),reg26);..reg24=re |
| 6480 | 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 | g27;reg25=reg28;reg26=reg29;..re |
| 64a0 | 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d | g27=tx;reg28=ty;reg29=tz;....x1= |
| 64c0 | 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d | px*cy+pz*sy;z1=pz*cy-px*sy;..y2= |
| 64e0 | 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d | py*cx+z1*sx;z2=z1*cx-py*sx;..x3= |
| 6500 | 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d | x1*cz+y2*sz;y3=y2*cz-x1*sz+.15;. |
| 6520 | 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a | .red=u1;u1=if(above(z2,0.05),1/z |
| 6540 | 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c | 2,0);..x=if(u1,x3*u1,x);y=if(u1, |
| 6560 | 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 | y3*u1*reg50,y);..cv=if(red*u1,(s |
| 6580 | 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 | in(u1-reg16)*.4+1),0);dv=u1*(reg |
| 65a0 | 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d | 90*(reg89+reg91*5)%3)*.3+min(1,m |
| 65c0 | 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 | ax(.02,sin(reg91*2-reg16*.1)-.3) |
| 65e0 | 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e | *4);..red=cv*(.1+dv);green=cv*(. |
| 6600 | 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d | 12+dv);blue=1.2*cv*(.2+dv);..u1= |
| 6620 | 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d | sqrt(u1)*1.3;//---------------/. |
| 6640 | 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d | .red=red*u1;green=green*u1;blue= |
| 6660 | 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e | blue*u1;//////....reg91=reg91+un |
| 6680 | 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 | it;..reg90=-reg90;..reg89=(reg89 |
| 66a0 | 2b 31 29 25 33 3b 0d 0a 00 18 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d | +1)%3;......./*.Length.*/..unit= |
| 66c0 | 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 33 2e 31 34 31 35 2a 33 2a 31 2e 33 32 36 35 3b 6e 3d 6c 65 | reg70;..len=3.1415*3*1.3265;n=le |
| 66e0 | 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d | n/unit+1;ilen=1/len;reg91=reg91- |
| 6700 | 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d | unit;..../*.Piece.connecting.*/. |
| 6720 | 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a | .pmin=reg91;..pmax=pmin+len;.... |
| 6740 | 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b | /*.Camera.*/..ox=reg30;oy=reg31; |
| 6760 | 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d | oz=reg32;..rx=reg40;ry=reg41;rz= |
| 6780 | 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 | reg42;..cx=reg43;sx=reg44;..cy=r |
| 67a0 | 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 | eg45;sy=reg46;..cz=reg47;sz=reg4 |
| 67c0 | 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 31 32 20 2a 2f 00 02 00 00 00 | 8;.........../*.Piece.12.*/..... |
| 67e0 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 23 07 00 00 01 e5 05 00 00 2f 2a 20 74 72 61 63 | ............$...#......../*.trac |
| 6800 | 6b 20 2d 20 73 74 72 61 69 67 68 74 20 2a 2f 0d 0a 70 78 3d 32 2e 35 2d 69 2a 35 2e 35 3b 70 7a | k.-.straight.*/..px=2.5-i*5.5;pz |
| 6820 | 3d 31 3b 0d 0a 70 79 3d 28 63 6f 73 28 69 2a 24 70 69 2a 32 29 2d 31 29 2a 2e 31 35 3b 0d 0a 0d | =1;..py=(cos(i*$pi*2)-1)*.15;... |
| 6840 | 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 | .//.Smooth..px=px+(reg61-px)*reg |
| 6860 | 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b | 64;py=py+(reg62-py)*reg64;pz=pz+ |
| 6880 | 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c | (reg63-pz)*reg64;..lx=px-reg61;l |
| 68a0 | 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 | y=py-reg62;lz=pz-reg63;..//.Came |
| 68c0 | 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 | ra.hook..v=if(reg78,0,below(reg7 |
| 68e0 | 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 | 9,reg91));........reg78=if(v,1,r |
| 6900 | 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 | eg78);..j=reg79*reg69+.500;..j=( |
| 6920 | 6a 2d 28 6a 7c 30 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 | j-(j|0)+.500);reg55=j;..reg75=if |
| 6940 | 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 | (v,reg61+lx*j,reg75);..reg76=if( |
| 6960 | 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 | v,reg62+ly*j,reg76);..reg77=if(v |
| 6980 | 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d | ,reg63+lz*j,reg77);..//.New.pos. |
| 69a0 | 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 | .reg61=if(i,px,reg61);reg62=if(i |
| 69c0 | 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b | ,py,reg62);reg63=if(i,pz,reg63); |
| 69e0 | 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 2a | ....//.Banking..ap=atan2(lz,lx)* |
| 6a00 | 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 | 0;............ca=cos(ap);sa=sin( |
| 6a20 | 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 | ap);vv=reg20*reg90;..jx=sa;jz=-c |
| 6a40 | 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 | a;jy=-sin(ap-reg66)*reg21;j=vv/s |
| 6a60 | 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 | qrt(sqr(jx)+sqr(jy)+sqr(jz));..p |
| 6a80 | 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b | x=px+j*jx;py=py+j*jy;pz=pz+j*jz; |
| 6aa0 | 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 30 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 30 3b | ..reg42=if(v,0,reg42);..reg66=0; |
| 6ac0 | 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 | ....tx=px;ty=py;tz=pz;gvvvv=reg8 |
| 6ae0 | 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d | 9;/////////////////////////..tx= |
| 6b00 | 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 | tx+ox;ty=ty+oy;tz=tz+oz;..px=if( |
| 6b20 | 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 | gvvvv,if(equal(gvvvv,2),tx,reg27 |
| 6b40 | 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 | ),reg24);..py=if(gvvvv,if(equal( |
| 6b60 | 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 | gvvvv,2),ty,reg28),reg25);..pz=i |
| 6b80 | 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 | f(gvvvv,if(equal(gvvvv,2),tz,reg |
| 6ba0 | 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 | 29),reg26);..reg24=reg27;reg25=r |
| 6bc0 | 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 | eg28;reg26=reg29;..reg27=tx;reg2 |
| 6be0 | 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 | 8=ty;reg29=tz;....x1=px*cy+pz*sy |
| 6c00 | 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 | ;z1=pz*cy-px*sy;..y2=py*cx+z1*sx |
| 6c20 | 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a | ;z2=z1*cx-py*sx;..x3=x1*cz+y2*sz |
| 6c40 | 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d | ;y3=y2*cz-x1*sz+.15;..red=u1;u1= |
| 6c60 | 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 | if(above(z2,0.05),1/z2,0);..x=if |
| 6c80 | 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 | (u1,x3*u1,x);y=if(u1,y3*u1*reg50 |
| 6ca0 | 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 | ,y);..cv=if(red*u1,(sin(u1-reg16 |
| 6cc0 | 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 | )*.4+1),0);dv=u1*(reg90*(reg89+r |
| 6ce0 | 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 | eg91*5)%3)*.3+min(1,max(.02,sin( |
| 6d00 | 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 | reg91*2-reg16*.1)-.3)*4);..red=c |
| 6d20 | 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 | v*(.1+dv);green=cv*(.12+dv);blue |
| 6d40 | 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e | =1.2*cv*(.2+dv);..u1=sqrt(u1)*1. |
| 6d60 | 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 | 3;//---------------/..red=red*u1 |
| 6d80 | 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f | ;green=green*u1;blue=blue*u1;/// |
| 6da0 | 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d | ///....reg91=reg91+unit;..reg90= |
| 6dc0 | 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 0e 01 | -reg90;..reg89=(reg89+1)%3;..... |
| 6de0 | 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e | ../*.Length.*/..unit=reg70;..len |
| 6e00 | 3d 35 2e 35 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 | =5.5;n=len/unit+1;ilen=1/len;reg |
| 6e20 | 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 | 91=reg91-unit;..../*.Piece.conne |
| 6e40 | 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e | cting.*/..pmin=reg91;..pmax=pmin |
| 6e60 | 2b 6c 65 6e 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b | +len;..../*.Camera.*/..ox=reg30; |
| 6e80 | 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d | oy=reg31;oz=reg32;..rx=reg40;ry= |
| 6ea0 | 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 | reg41;rz=reg42;..cx=reg43;sx=reg |
| 6ec0 | 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 | 44;..cy=reg45;sy=reg46;..cz=reg4 |
| 6ee0 | 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 | 7;sz=reg48;............./*.Piece |
| 6f00 | 20 31 33 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 50 08 00 00 01 | .13.*/.................$...P.... |
| 6f20 | 12 07 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 6f 72 6b 73 63 72 65 77 20 2a 2f 0d 0a 75 3d 69 | ..../*.track.-.corkscrew.*/..u=i |
| 6f40 | 2a 24 70 69 2a 32 3b 0d 0a 70 78 3d 28 28 2d 39 2b 32 2a 61 63 6f 73 28 69 2a 32 2d 31 29 2a 30 | *$pi*2;..px=((-9+2*acos(i*2-1)*0 |
| 6f60 | 2e 39 35 35 29 2b 28 2d 33 2d 69 2a 36 29 29 2a 2e 35 3b 0d 0a 70 7a 3d 73 69 6e 28 69 2a 24 70 | .955)+(-3-i*6))*.5;..pz=sin(i*$p |
| 6f80 | 69 29 2a 73 69 6e 28 75 29 2a 31 2e 34 2b 31 3b 0d 0a 70 79 3d 2d 28 31 2d 63 6f 73 28 75 29 29 | i)*sin(u)*1.4+1;..py=-(1-cos(u)) |
| 6fa0 | 2a 31 2e 34 2d 28 63 6f 73 28 69 2a 24 70 69 29 2d 31 29 2a 2e 33 3b 0d 0a 0d 0a 2f 2f 20 53 6d | *1.4-(cos(i*$pi)-1)*.3;....//.Sm |
| 6fc0 | 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d | ooth..px=px+(reg61-px)*reg64;py= |
| 6fe0 | 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 | py+(reg62-py)*reg64;pz=pz+(reg63 |
| 7000 | 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 | -pz)*reg64;..lx=px-reg61;ly=py-r |
| 7020 | 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f | eg62;lz=pz-reg63;..//.Camera.hoo |
| 7040 | 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 | k..v=if(reg78,0,below(reg79,reg9 |
| 7060 | 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b | 1));........reg78=if(v,1,reg78); |
| 7080 | 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 | ..j=reg79*reg69+.500;..j=(j-(j|0 |
| 70a0 | 29 2b 2e 35 30 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 | )+.500);reg55=j;..reg75=if(v,reg |
| 70c0 | 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 | 61+lx*j,reg75);..reg76=if(v,reg6 |
| 70e0 | 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 | 2+ly*j,reg76);..reg77=if(v,reg63 |
| 7100 | 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 69 6b 3d 28 72 65 67 37 39 2d 70 6d 69 6e 29 2a 69 | +lz*j,reg77);..ik=(reg79-pmin)*i |
| 7120 | 6c 65 6e 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c | len;..//.New.pos..reg61=if(i,px, |
| 7140 | 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 | reg61);reg62=if(i,py,reg62);reg6 |
| 7160 | 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d | 3=if(i,pz,reg63);....//.Banking. |
| 7180 | 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 | .ap=atan2(lz,lx);ca=cos(ap);sa=s |
| 71a0 | 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a | in(ap);vv=reg20*reg90;..jx=sa;jz |
| 71c0 | 3d 2d 63 61 3b 6a 79 3d 2d 74 61 6e 28 28 69 2b 2e 35 29 2a 24 70 69 2a 32 29 3b 6a 3d 76 76 2f | =-ca;jy=-tan((i+.5)*$pi*2);j=vv/ |
| 71e0 | 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a | sqrt(sqr(jx)+sqr(jy)+sqr(jz));.. |
| 7200 | 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a | px=px+j*jx;py=py+j*jy;pz=pz+j*jz |
| 7220 | 3b 0d 0a 72 65 67 34 30 3d 69 66 28 76 2c 73 69 6e 28 69 2a 24 70 69 29 2a 73 69 6e 28 69 2a 24 | ;..reg40=if(v,sin(i*$pi)*sin(i*$ |
| 7240 | 70 69 2a 32 29 2a 2e 35 2d 2e 30 38 33 2b 28 2d 2e 34 37 39 2b 2e 30 38 33 29 2a 69 2c 72 65 67 | pi*2)*.5-.083+(-.479+.083)*i,reg |
| 7260 | 34 30 29 3b 0d 0a 72 65 67 34 31 3d 69 66 28 76 2c 73 69 6e 28 69 2a 24 70 69 29 2a 73 69 6e 28 | 40);..reg41=if(v,sin(i*$pi)*sin( |
| 7280 | 69 2a 24 70 69 2a 2e 35 29 2b 31 2e 35 37 2b 28 31 2e 32 39 2d 31 2e 35 37 29 2a 69 2c 72 65 67 | i*$pi*.5)+1.57+(1.29-1.57)*i,reg |
| 72a0 | 34 31 29 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 69 2a 24 70 69 2a 32 2b 2e 32 32 2a 69 2c 72 | 41);..reg42=if(v,i*$pi*2+.22*i,r |
| 72c0 | 65 67 34 32 29 3b 0d 0a 72 65 67 30 39 3d 62 6f 72 28 72 65 67 30 39 2c 62 61 6e 64 28 61 62 6f | eg42);..reg09=bor(reg09,band(abo |
| 72e0 | 76 65 28 72 65 67 37 39 2c 70 6d 69 6e 29 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 70 6d 61 78 29 | ve(reg79,pmin),below(reg79,pmax) |
| 7300 | 29 29 3b 0d 0a 72 65 67 34 39 3d 76 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 | ));..reg49=v;..reg66=ap;....tx=p |
| 7320 | 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f | x;ty=py;tz=pz;gvvvv=reg89;////// |
| 7340 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 | ///////////////////..tx=tx+ox;ty |
| 7360 | 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 | =ty+oy;tz=tz+oz;..px=if(gvvvv,if |
| 7380 | 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 | (equal(gvvvv,2),tx,reg27),reg24) |
| 73a0 | 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 | ;..py=if(gvvvv,if(equal(gvvvv,2) |
| 73c0 | 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c | ,ty,reg28),reg25);..pz=if(gvvvv, |
| 73e0 | 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 | if(equal(gvvvv,2),tz,reg29),reg2 |
| 7400 | 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 | 6);..reg24=reg27;reg25=reg28;reg |
| 7420 | 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 | 26=reg29;..reg27=tx;reg28=ty;reg |
| 7440 | 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 | 29=tz;....x1=px*cy+pz*sy;z1=pz*c |
| 7460 | 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 | y-px*sy;..y2=py*cx+z1*sx;z2=z1*c |
| 7480 | 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 | x-py*sx;..x3=x1*cz+y2*sz;y3=y2*c |
| 74a0 | 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 | z-x1*sz+.15;..red=u1;u1=if(above |
| 74c0 | 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 | (z2,0.05),1/z2,0);..x=if(u1,x3*u |
| 74e0 | 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 | 1,x);y=if(u1,y3*u1*reg50,y);..cv |
| 7500 | 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c | =if(red*u1,(sin(u1-reg16)*.4+1), |
| 7520 | 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 | 0);dv=u1*(reg90*(reg89+reg91*5)% |
| 7540 | 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d | 3)*.3+min(1,max(.02,sin(reg91*2- |
| 7560 | 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 | reg16*.1)-.3)*4);..red=cv*(.1+dv |
| 7580 | 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a | );green=cv*(.12+dv);blue=1.2*cv* |
| 75a0 | 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d | (.2+dv);..u1=sqrt(u1)*1.3;//---- |
| 75c0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 | -----------/..red=red*u1;green=g |
| 75e0 | 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 | reen*u1;blue=blue*u1;//////....r |
| 7600 | 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d | eg91=reg91+unit;..reg90=-reg90;. |
| 7620 | 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 0e 01 00 00 2f 2a 20 4c 65 6e | .reg89=(reg89+1)%3;......./*.Len |
| 7640 | 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 31 30 2e 31 31 3b 6e | gth.*/..unit=reg70;..len=10.11;n |
| 7660 | 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 | =len/unit+1;ilen=1/len;reg91=reg |
| 7680 | 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 | 91-unit;..../*.Piece.connecting. |
| 76a0 | 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d | */..pmin=reg91;..pmax=pmin+len;. |
| 76c0 | 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 | .../*.Camera.*/..ox=reg30;oy=reg |
| 76e0 | 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b | 31;oz=reg32;..rx=reg40;ry=reg41; |
| 7700 | 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 | rz=reg42;..cx=reg43;sx=reg44;..c |
| 7720 | 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 | y=reg45;sy=reg46;..cz=reg47;sz=r |
| 7740 | 65 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 31 34 20 2a 2f 00 02 | eg48;.........../*.Piece.14.*/.. |
| 7760 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 d8 07 00 00 01 65 06 00 00 2f 2a 20 74 | ...............$........e.../*.t |
| 7780 | 72 61 63 6b 20 2d 20 63 69 72 63 6c 65 20 2a 2f 0d 0a 75 3d 28 69 2b 2e 35 29 2a 24 70 69 3b 0d | rack.-.circle.*/..u=(i+.5)*$pi;. |
| 77a0 | 0a 70 78 3d 2d 39 2b 63 6f 73 28 75 29 2a 33 3b 70 7a 3d 2d 32 2b 73 69 6e 28 75 29 2a 33 3b 0d | .px=-9+cos(u)*3;pz=-2+sin(u)*3;. |
| 77c0 | 0a 70 79 3d 63 6f 73 28 69 2a 24 70 69 29 2d 31 2b 28 63 6f 73 28 69 2a 24 70 69 29 2b 31 29 2a | .py=cos(i*$pi)-1+(cos(i*$pi)+1)* |
| 77e0 | 2e 33 3b 0d 0a 6c 65 6e 6d 3d 6c 65 6e 6d 2b 73 71 72 74 28 73 71 72 28 70 70 78 2d 70 78 29 2b | .3;..lenm=lenm+sqrt(sqr(ppx-px)+ |
| 7800 | 73 71 72 28 70 70 79 2d 70 79 29 2b 73 71 72 28 70 70 7a 2d 70 7a 29 29 3b 0d 0a 70 70 78 3d 70 | sqr(ppy-py)+sqr(ppz-pz));..ppx=p |
| 7820 | 78 3b 70 70 79 3d 70 79 3b 70 70 7a 3d 70 7a 3b 0d 0a 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d | x;ppy=py;ppz=pz;......//.Smooth. |
| 7840 | 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 | .px=px+(reg61-px)*reg64;py=py+(r |
| 7860 | 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a | eg62-py)*reg64;pz=pz+(reg63-pz)* |
| 7880 | 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b | reg64;..lx=px-reg61;ly=py-reg62; |
| 78a0 | 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d | lz=pz-reg63;..//.Camera.hook..v= |
| 78c0 | 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 | if(reg78,0,below(reg79,reg91));. |
| 78e0 | 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 | .......reg78=if(v,1,reg78);..j=r |
| 7900 | 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 | eg79*reg69+.500;..j=(j-(j|0)+.50 |
| 7920 | 30 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 | 0);reg55=j;..reg75=if(v,reg61+lx |
| 7940 | 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a | *j,reg75);..reg76=if(v,reg62+ly* |
| 7960 | 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a | j,reg76);..reg77=if(v,reg63+lz*j |
| 7980 | 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 | ,reg77);..//.New.pos..reg61=if(i |
| 79a0 | 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b | ,px,reg61);reg62=if(i,py,reg62); |
| 79c0 | 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b | reg63=if(i,pz,reg63);....//.Bank |
| 79e0 | 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 | ing..ap=atan2(lz,lx);........... |
| 7a00 | 20 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a | .ca=cos(ap);sa=sin(ap);vv=reg20* |
| 7a20 | 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d | reg90;..jx=sa;jz=-ca;jy=-sin(ap- |
| 7a40 | 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 | reg66)*reg21;j=vv/sqrt(sqr(jx)+s |
| 7a60 | 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d | qr(jy)+sqr(jz));..px=px+j*jx;py= |
| 7a80 | 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c | py+j*jy;pz=pz+j*jz;..reg42=if(v, |
| 7aa0 | 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d | (ap-reg66)*reg21,reg42);..reg66= |
| 7ac0 | 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 | ap;....tx=px;ty=py;tz=pz;gvvvv=r |
| 7ae0 | 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a | eg89;/////////////////////////.. |
| 7b00 | 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d | tx=tx+ox;ty=ty+oy;tz=tz+oz;..px= |
| 7b20 | 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 | if(gvvvv,if(equal(gvvvv,2),tx,re |
| 7b40 | 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 | g27),reg24);..py=if(gvvvv,if(equ |
| 7b60 | 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 | al(gvvvv,2),ty,reg28),reg25);..p |
| 7b80 | 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c | z=if(gvvvv,if(equal(gvvvv,2),tz, |
| 7ba0 | 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 | reg29),reg26);..reg24=reg27;reg2 |
| 7bc0 | 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 | 5=reg28;reg26=reg29;..reg27=tx;r |
| 7be0 | 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a | eg28=ty;reg29=tz;....x1=px*cy+pz |
| 7c00 | 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 | *sy;z1=pz*cy-px*sy;..y2=py*cx+z1 |
| 7c20 | 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 | *sx;z2=z1*cx-py*sx;..x3=x1*cz+y2 |
| 7c40 | 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b | *sz;y3=y2*cz-x1*sz+.15;..red=u1; |
| 7c60 | 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 | u1=if(above(z2,0.05),1/z2,0);..x |
| 7c80 | 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 | =if(u1,x3*u1,x);y=if(u1,y3*u1*re |
| 7ca0 | 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 | g50,y);..cv=if(red*u1,(sin(u1-re |
| 7cc0 | 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 | g16)*.4+1),0);dv=u1*(reg90*(reg8 |
| 7ce0 | 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 | 9+reg91*5)%3)*.3+min(1,max(.02,s |
| 7d00 | 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 | in(reg91*2-reg16*.1)-.3)*4);..re |
| 7d20 | 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 | d=cv*(.1+dv);green=cv*(.12+dv);b |
| 7d40 | 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 | lue=1.2*cv*(.2+dv);..u1=sqrt(u1) |
| 7d60 | 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 | *1.3;//---------------/..red=red |
| 7d80 | 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b | *u1;green=green*u1;blue=blue*u1; |
| 7da0 | 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 | //////....reg91=reg91+unit;..reg |
| 7dc0 | 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a | 90=-reg90;..reg89=(reg89+1)%3;.. |
| 7de0 | 00 43 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a | .C.../*.Length.*/..unit=reg70;.. |
| 7e00 | 6c 65 6e 3d 39 2e 34 32 34 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 | len=9.424;n=len/unit+1;ilen=1/le |
| 7e20 | 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 | n;reg91=reg91-unit;..../*.Piece. |
| 7e40 | 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 | connecting.*/..pmin=reg91;..pmax |
| 7e60 | 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 | =pmin+len;....../*.Camera.*/..ox |
| 7e80 | 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 | =reg30;oy=reg31;oz=reg32;..rx=re |
| 7ea0 | 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 | g40;ry=reg41;rz=reg42;..cx=reg43 |
| 7ec0 | 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a | ;sx=reg44;..cy=reg45;sy=reg46;.. |
| 7ee0 | 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 0d 0a 72 65 67 39 33 3d 6c 65 6e 6d | cz=reg47;sz=reg48;....reg93=lenm |
| 7f00 | 3b 72 65 67 39 34 3d 6e 3b 0d 0a 6c 65 6e 6d 3d 30 3b 0d 0a 70 70 78 3d 2d 33 3b 70 70 7a 3d 31 | ;reg94=n;..lenm=0;..ppx=-3;ppz=1 |
| 7f20 | 3b 70 70 79 3d 30 3b 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 31 35 20 2a 2f 00 02 | ;ppy=0;........./*.Piece.15.*/.. |
| 7f40 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 41 07 00 00 01 04 06 00 00 2f 2a 20 74 | ...............$...A......../*.t |
| 7f60 | 72 61 63 6b 20 2d 20 73 74 72 61 69 67 68 74 20 2a 2f 0d 0a 70 78 3d 2d 39 2b 69 2a 32 3b 70 7a | rack.-.straight.*/..px=-9+i*2;pz |
| 7f80 | 3d 2d 35 3b 0d 0a 70 79 3d 63 6f 73 28 6d 61 78 28 30 2c 6d 69 6e 28 32 2c 28 28 69 2a 2e 35 2b | =-5;..py=cos(max(0,min(2,((i*.5+ |
| 7fa0 | 31 29 2a 32 2d 31 29 29 29 2a 24 70 69 29 2d 31 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a | 1)*2-1)))*$pi)-1;....//.Smooth.. |
| 7fc0 | 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 | px=px+(reg61-px)*reg64;py=py+(re |
| 7fe0 | 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 | g62-py)*reg64;pz=pz+(reg63-pz)*r |
| 8000 | 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c | eg64;..lx=px-reg61;ly=py-reg62;l |
| 8020 | 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 | z=pz-reg63;..//.Camera.hook..v=i |
| 8040 | 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 | f(reg78,0,below(reg79,reg91));.. |
| 8060 | 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 | ......reg78=if(v,1,reg78);..j=re |
| 8080 | 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 30 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 30 | g79*reg69+.500;..j=(j-(j|0)+.500 |
| 80a0 | 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a | );reg55=j;..reg75=if(v,reg61+lx* |
| 80c0 | 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a | j,reg75);..reg76=if(v,reg62+ly*j |
| 80e0 | 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c | ,reg76);..reg77=if(v,reg63+lz*j, |
| 8100 | 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c | reg77);..//.New.pos..reg61=if(i, |
| 8120 | 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 | px,reg61);reg62=if(i,py,reg62);r |
| 8140 | 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 | eg63=if(i,pz,reg63);....//.Banki |
| 8160 | 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 | ng..ap=atan2(lz,lx);............ |
| 8180 | 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 | ca=cos(ap);sa=sin(ap);vv=reg20*r |
| 81a0 | 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 | eg90;..jx=sa;jz=-ca;jy=-sin(ap-r |
| 81c0 | 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 | eg66)*reg21;j=vv/sqrt(sqr(jx)+sq |
| 81e0 | 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 | r(jy)+sqr(jz));..px=px+j*jx;py=p |
| 8200 | 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 | y+j*jy;pz=pz+j*jz;..reg42=if(v,( |
| 8220 | 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 | ap-reg66)*reg21,reg42);..reg66=a |
| 8240 | 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 | p;....tx=px;ty=py;tz=pz;gvvvv=re |
| 8260 | 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 | g89;/////////////////////////..t |
| 8280 | 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 | x=tx+ox;ty=ty+oy;tz=tz+oz;..px=i |
| 82a0 | 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 | f(gvvvv,if(equal(gvvvv,2),tx,reg |
| 82c0 | 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 | 27),reg24);..py=if(gvvvv,if(equa |
| 82e0 | 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a | l(gvvvv,2),ty,reg28),reg25);..pz |
| 8300 | 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 | =if(gvvvv,if(equal(gvvvv,2),tz,r |
| 8320 | 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 | eg29),reg26);..reg24=reg27;reg25 |
| 8340 | 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 | =reg28;reg26=reg29;..reg27=tx;re |
| 8360 | 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a | g28=ty;reg29=tz;....x1=px*cy+pz* |
| 8380 | 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a | sy;z1=pz*cy-px*sy;..y2=py*cx+z1* |
| 83a0 | 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a | sx;z2=z1*cx-py*sx;..x3=x1*cz+y2* |
| 83c0 | 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 | sz;y3=y2*cz-x1*sz+.15;..red=u1;u |
| 83e0 | 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d | 1=if(above(z2,0.05),1/z2,0);..x= |
| 8400 | 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 | if(u1,x3*u1,x);y=if(u1,y3*u1*reg |
| 8420 | 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 | 50,y);..cv=if(red*u1,(sin(u1-reg |
| 8440 | 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 | 16)*.4+1),0);dv=u1*(reg90*(reg89 |
| 8460 | 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 | +reg91*5)%3)*.3+min(1,max(.02,si |
| 8480 | 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 | n(reg91*2-reg16*.1)-.3)*4);..red |
| 84a0 | 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c | =cv*(.1+dv);green=cv*(.12+dv);bl |
| 84c0 | 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a | ue=1.2*cv*(.2+dv);..u1=sqrt(u1)* |
| 84e0 | 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a | 1.3;//---------------/..red=red* |
| 8500 | 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f | u1;green=green*u1;blue=blue*u1;/ |
| 8520 | 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 | /////....reg91=reg91+unit;..reg9 |
| 8540 | 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 | 0=-reg90;..reg89=(reg89+1)%3;... |
| 8560 | 0d 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c | ..../*.Length.*/..unit=reg70;..l |
| 8580 | 65 6e 3d 31 2e 39 39 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b | en=1.99;n=len/unit+1;ilen=1/len; |
| 85a0 | 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f | reg91=reg91-unit;..../*.Piece.co |
| 85c0 | 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 | nnecting.*/..pmin=reg91;..pmax=p |
| 85e0 | 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 | min+len;..../*.Camera.*/..ox=reg |
| 8600 | 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b | 30;oy=reg31;oz=reg32;..rx=reg40; |
| 8620 | 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d | ry=reg41;rz=reg42;..cx=reg43;sx= |
| 8640 | 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 | reg44;..cy=reg45;sy=reg46;..cz=r |
| 8660 | 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 | eg47;sz=reg48;.........../*.Piec |
| 8680 | 65 20 31 36 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 52 07 00 00 | e.16.*/.................$...R... |
| 86a0 | 01 f1 05 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 68 69 63 61 6e 65 20 2a 2f 0d 0a 70 78 3d 2d | ...../*.track.-.chicane.*/..px=- |
| 86c0 | 37 2b 69 2a 34 3b 0d 0a 70 7a 3d 2d 35 2b 32 2a 28 33 2d 32 2a 69 29 2a 73 71 72 28 69 29 3b 0d | 7+i*4;..pz=-5+2*(3-2*i)*sqr(i);. |
| 86e0 | 0a 70 79 3d 2d 30 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 | .py=-0;....//.Smooth..px=px+(reg |
| 8700 | 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 | 61-px)*reg64;py=py+(reg62-py)*re |
| 8720 | 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d | g64;pz=pz+(reg63-pz)*reg64;..lx= |
| 8740 | 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 | px-reg61;ly=py-reg62;lz=pz-reg63 |
| 8760 | 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c | ;..//.Camera.hook..v=if(reg78,0, |
| 8780 | 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 | below(reg79,reg91));........reg7 |
| 87a0 | 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b | 8=if(v,1,reg78);..j=reg79*reg69+ |
| 87c0 | 2e 35 30 32 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 29 3b 72 65 67 35 35 3d 6a 3b | .502;..j=(j-(j|0)+.502);reg55=j; |
| 87e0 | 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d | ..reg75=if(v,reg61+lx*j,reg75);. |
| 8800 | 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a | .reg76=if(v,reg62+ly*j,reg76);.. |
| 8820 | 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f | reg77=if(v,reg63+lz*j,reg77);../ |
| 8840 | 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b | /.New.pos..reg61=if(i,px,reg61); |
| 8860 | 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c | reg62=if(i,py,reg62);reg63=if(i, |
| 8880 | 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 | pz,reg63);....//.Banking..ap=ata |
| 88a0 | 6e 32 28 6c 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 3d 63 6f 73 28 61 70 29 | n2(lz,lx);............ca=cos(ap) |
| 88c0 | 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d | ;sa=sin(ap);vv=reg20*reg90;..jx= |
| 88e0 | 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 | sa;jz=-ca;jy=-sin(ap-reg66)*reg2 |
| 8900 | 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 | 1;j=vv/sqrt(sqr(jx)+sqr(jy)+sqr( |
| 8920 | 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d | jz));..px=px+j*jx;py=py+j*jy;pz= |
| 8940 | 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 29 2a | pz+j*jz;..reg42=if(v,(ap-reg66)* |
| 8960 | 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 | reg21,reg42);..reg66=ap;....tx=p |
| 8980 | 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f | x;ty=py;tz=pz;gvvvv=reg89;////// |
| 89a0 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 | ///////////////////..tx=tx+ox;ty |
| 89c0 | 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 | =ty+oy;tz=tz+oz;..px=if(gvvvv,if |
| 89e0 | 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 | (equal(gvvvv,2),tx,reg27),reg24) |
| 8a00 | 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 | ;..py=if(gvvvv,if(equal(gvvvv,2) |
| 8a20 | 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c | ,ty,reg28),reg25);..pz=if(gvvvv, |
| 8a40 | 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 | if(equal(gvvvv,2),tz,reg29),reg2 |
| 8a60 | 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 | 6);..reg24=reg27;reg25=reg28;reg |
| 8a80 | 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 | 26=reg29;..reg27=tx;reg28=ty;reg |
| 8aa0 | 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 | 29=tz;....x1=px*cy+pz*sy;z1=pz*c |
| 8ac0 | 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 | y-px*sy;..y2=py*cx+z1*sx;z2=z1*c |
| 8ae0 | 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 | x-py*sx;..x3=x1*cz+y2*sz;y3=y2*c |
| 8b00 | 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 | z-x1*sz+.15;..red=u1;u1=if(above |
| 8b20 | 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 | (z2,0.05),1/z2,0);..x=if(u1,x3*u |
| 8b40 | 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 | 1,x);y=if(u1,y3*u1*reg50,y);..cv |
| 8b60 | 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c | =if(red*u1,(sin(u1-reg16)*.4+1), |
| 8b80 | 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 | 0);dv=u1*(reg90*(reg89+reg91*5)% |
| 8ba0 | 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d | 3)*.3+min(1,max(.02,sin(reg91*2- |
| 8bc0 | 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 | reg16*.1)-.3)*4);..red=cv*(.1+dv |
| 8be0 | 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a | );green=cv*(.12+dv);blue=1.2*cv* |
| 8c00 | 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d | (.2+dv);..u1=sqrt(u1)*1.3;//---- |
| 8c20 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 | -----------/..red=red*u1;green=g |
| 8c40 | 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 | reen*u1;blue=blue*u1;//////....r |
| 8c60 | 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d | eg91=reg91+unit;..reg90=-reg90;. |
| 8c80 | 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 31 01 00 00 2f 2a 20 4c 65 6e | .reg89=(reg89+1)%3;...1.../*.Len |
| 8ca0 | 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 2f 2a 20 63 68 69 63 61 6e 65 3a | gth.*/..unit=reg70;../*.chicane: |
| 8cc0 | 20 66 28 6b 29 20 3d 20 31 2e 32 35 34 39 20 2a 2f 0d 0a 6c 65 6e 3d 31 2e 32 35 34 39 2a 34 3b | .f(k).=.1.2549.*/..len=1.2549*4; |
| 8ce0 | 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 | n=len/unit+1;ilen=1/len;reg91=re |
| 8d00 | 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 | g91-unit;..../*.Piece.connecting |
| 8d20 | 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b | .*/..pmin=reg91;..pmax=pmin+len; |
| 8d40 | 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d | ....../*.Camera.*/..ox=reg30;oy= |
| 8d60 | 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 | reg31;oz=reg32;..rx=reg40;ry=reg |
| 8d80 | 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b | 41;rz=reg42;..cx=reg43;sx=reg44; |
| 8da0 | 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 | ..cy=reg45;sy=reg46;..cz=reg47;s |
| 8dc0 | 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 31 37 20 2a | z=reg48;.........../*.Piece.17.* |
| 8de0 | 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 2c 07 00 00 01 f2 05 00 00 2f | /.................$...,......../ |
| 8e00 | 2a 20 74 72 61 63 6b 20 2d 20 73 74 72 61 69 67 68 74 20 2a 2f 0d 0a 70 78 3d 2d 33 2b 69 2a 33 | *.track.-.straight.*/..px=-3+i*3 |
| 8e20 | 3b 70 7a 3d 2d 33 3b 0d 0a 70 79 3d 2d 73 71 72 28 63 6f 73 28 69 2a 24 70 69 29 2d 31 29 2a 2e | ;pz=-3;..py=-sqr(cos(i*$pi)-1)*. |
| 8e40 | 35 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 | 5;....//.Smooth..px=px+(reg61-px |
| 8e60 | 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 | )*reg64;py=py+(reg62-py)*reg64;p |
| 8e80 | 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 | z=pz+(reg63-pz)*reg64;..lx=px-re |
| 8ea0 | 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f | g61;ly=py-reg62;lz=pz-reg63;..// |
| 8ec0 | 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 | .Camera.hook..v=if(reg78,0,below |
| 8ee0 | 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 | (reg79,reg91));........reg78=if( |
| 8f00 | 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 32 3b | v,1,reg78);..j=reg79*reg69+.502; |
| 8f20 | 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 | ..j=(j-(j|0)+.502);reg55=j;..reg |
| 8f40 | 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 | 75=if(v,reg61+lx*j,reg75);..reg7 |
| 8f60 | 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 | 6=if(v,reg62+ly*j,reg76);..reg77 |
| 8f80 | 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 | =if(v,reg63+lz*j,reg77);..//.New |
| 8fa0 | 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 | .pos..reg61=if(i,px,reg61);reg62 |
| 8fc0 | 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 | =if(i,py,reg62);reg63=if(i,pz,re |
| 8fe0 | 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a | g63);....//.Banking..ap=atan2(lz |
| 9000 | 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 | ,lx);............ca=cos(ap);sa=s |
| 9020 | 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a | in(ap);vv=reg20*reg90;..jx=sa;jz |
| 9040 | 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 | =-ca;jy=-sin(ap-reg66)*reg21;j=v |
| 9060 | 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b | v/sqrt(sqr(jx)+sqr(jy)+sqr(jz)); |
| 9080 | 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a | ..px=px+j*jx;py=py+j*jy;pz=pz+j* |
| 90a0 | 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 | jz;..reg42=if(v,(ap-reg66)*reg21 |
| 90c0 | 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d | ,reg42);..reg66=ap;....tx=px;ty= |
| 90e0 | 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | py;tz=pz;gvvvv=reg89;/////////// |
| 9100 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f | //////////////..tx=tx+ox;ty=ty+o |
| 9120 | 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 | y;tz=tz+oz;..px=if(gvvvv,if(equa |
| 9140 | 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 | l(gvvvv,2),tx,reg27),reg24);..py |
| 9160 | 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 | =if(gvvvv,if(equal(gvvvv,2),ty,r |
| 9180 | 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 | eg28),reg25);..pz=if(gvvvv,if(eq |
| 91a0 | 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a | ual(gvvvv,2),tz,reg29),reg26);.. |
| 91c0 | 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 | reg24=reg27;reg25=reg28;reg26=re |
| 91e0 | 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a | g29;..reg27=tx;reg28=ty;reg29=tz |
| 9200 | 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a | ;....x1=px*cy+pz*sy;z1=pz*cy-px* |
| 9220 | 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a | sy;..y2=py*cx+z1*sx;z2=z1*cx-py* |
| 9240 | 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a | sx;..x3=x1*cz+y2*sz;y3=y2*cz-x1* |
| 9260 | 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 | sz+.15;..red=u1;u1=if(above(z2,0 |
| 9280 | 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b | .05),1/z2,0);..x=if(u1,x3*u1,x); |
| 92a0 | 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 | y=if(u1,y3*u1*reg50,y);..cv=if(r |
| 92c0 | 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 | ed*u1,(sin(u1-reg16)*.4+1),0);dv |
| 92e0 | 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 | =u1*(reg90*(reg89+reg91*5)%3)*.3 |
| 9300 | 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 | +min(1,max(.02,sin(reg91*2-reg16 |
| 9320 | 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 | *.1)-.3)*4);..red=cv*(.1+dv);gre |
| 9340 | 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 | en=cv*(.12+dv);blue=1.2*cv*(.2+d |
| 9360 | 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d | v);..u1=sqrt(u1)*1.3;//--------- |
| 9380 | 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a | ------/..red=red*u1;green=green* |
| 93a0 | 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d | u1;blue=blue*u1;//////....reg91= |
| 93c0 | 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 | reg91+unit;..reg90=-reg90;..reg8 |
| 93e0 | 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 0a 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a | 9=(reg89+1)%3;......./*.Length.* |
| 9400 | 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 33 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 | /..unit=reg70;..len=3;n=len/unit |
| 9420 | 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d | +1;ilen=1/len;reg91=reg91-unit;. |
| 9440 | 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d | .../*.Piece.connecting.*/..pmin= |
| 9460 | 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d | reg91;..pmax=pmin+len;..../*.Cam |
| 9480 | 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 | era.*/..ox=reg30;oy=reg31;oz=reg |
| 94a0 | 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b | 32;..rx=reg40;ry=reg41;rz=reg42; |
| 94c0 | 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 | ..cx=reg43;sx=reg44;..cy=reg45;s |
| 94e0 | 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 | y=reg46;..cz=reg47;sz=reg48;.... |
| 9500 | 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 31 38 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff | ......./*.Piece.18.*/........... |
| 9520 | ff 00 01 00 00 00 24 00 00 00 4d 07 00 00 01 0d 06 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 69 | ......$...M......../*.track.-.ci |
| 9540 | 72 63 6c 65 20 2a 2f 0d 0a 75 3d 2d 28 69 2d 2e 35 29 2a 24 70 69 3b 0d 0a 70 78 3d 63 6f 73 28 | rcle.*/..u=-(i-.5)*$pi;..px=cos( |
| 9560 | 75 29 2a 33 3b 70 7a 3d 2d 36 2b 73 69 6e 28 75 29 2a 33 3b 0d 0a 70 79 3d 2d 31 2d 63 6f 73 28 | u)*3;pz=-6+sin(u)*3;..py=-1-cos( |
| 9580 | 6d 69 6e 28 2e 35 2c 69 29 2a 24 70 69 2a 32 29 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a | min(.5,i)*$pi*2);....//.Smooth.. |
| 95a0 | 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 | px=px+(reg61-px)*reg64;py=py+(re |
| 95c0 | 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 | g62-py)*reg64;pz=pz+(reg63-pz)*r |
| 95e0 | 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c | eg64;..lx=px-reg61;ly=py-reg62;l |
| 9600 | 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 | z=pz-reg63;..//.Camera.hook..v=i |
| 9620 | 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 | f(reg78,0,below(reg79,reg91));.. |
| 9640 | 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 | ......reg78=if(v,1,reg78);..j=re |
| 9660 | 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 32 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 | g79*reg69+.502;..j=(j-(j|0)+.502 |
| 9680 | 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a | );reg55=j;..reg75=if(v,reg61+lx* |
| 96a0 | 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a | j,reg75);..reg76=if(v,reg62+ly*j |
| 96c0 | 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c | ,reg76);..reg77=if(v,reg63+lz*j, |
| 96e0 | 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c | reg77);..//.New.pos..reg61=if(i, |
| 9700 | 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 | px,reg61);reg62=if(i,py,reg62);r |
| 9720 | 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 | eg63=if(i,pz,reg63);....//.Banki |
| 9740 | 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 | ng..ap=atan2(lz,lx);............ |
| 9760 | 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 | ca=cos(ap);sa=sin(ap);vv=reg20*r |
| 9780 | 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 | eg90;..jx=sa;jz=-ca;jy=-sin(ap-r |
| 97a0 | 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 | eg66)*reg21;j=vv/sqrt(sqr(jx)+sq |
| 97c0 | 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 | r(jy)+sqr(jz));..px=px+j*jx;py=p |
| 97e0 | 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 | y+j*jy;pz=pz+j*jz;..reg42=if(v,( |
| 9800 | 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 | ap-reg66)*reg21,reg42);..reg66=a |
| 9820 | 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 | p;....tx=px;ty=py;tz=pz;gvvvv=re |
| 9840 | 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 | g89;/////////////////////////..t |
| 9860 | 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 | x=tx+ox;ty=ty+oy;tz=tz+oz;..px=i |
| 9880 | 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 | f(gvvvv,if(equal(gvvvv,2),tx,reg |
| 98a0 | 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 | 27),reg24);..py=if(gvvvv,if(equa |
| 98c0 | 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a | l(gvvvv,2),ty,reg28),reg25);..pz |
| 98e0 | 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 | =if(gvvvv,if(equal(gvvvv,2),tz,r |
| 9900 | 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 | eg29),reg26);..reg24=reg27;reg25 |
| 9920 | 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 | =reg28;reg26=reg29;..reg27=tx;re |
| 9940 | 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a | g28=ty;reg29=tz;....x1=px*cy+pz* |
| 9960 | 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a | sy;z1=pz*cy-px*sy;..y2=py*cx+z1* |
| 9980 | 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a | sx;z2=z1*cx-py*sx;..x3=x1*cz+y2* |
| 99a0 | 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 | sz;y3=y2*cz-x1*sz+.15;..red=u1;u |
| 99c0 | 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d | 1=if(above(z2,0.05),1/z2,0);..x= |
| 99e0 | 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 | if(u1,x3*u1,x);y=if(u1,y3*u1*reg |
| 9a00 | 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 | 50,y);..cv=if(red*u1,(sin(u1-reg |
| 9a20 | 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 | 16)*.4+1),0);dv=u1*(reg90*(reg89 |
| 9a40 | 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 | +reg91*5)%3)*.3+min(1,max(.02,si |
| 9a60 | 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 | n(reg91*2-reg16*.1)-.3)*4);..red |
| 9a80 | 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c | =cv*(.1+dv);green=cv*(.12+dv);bl |
| 9aa0 | 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a | ue=1.2*cv*(.2+dv);..u1=sqrt(u1)* |
| 9ac0 | 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a | 1.3;//---------------/..red=red* |
| 9ae0 | 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f | u1;green=green*u1;blue=blue*u1;/ |
| 9b00 | 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 | /////....reg91=reg91+unit;..reg9 |
| 9b20 | 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 | 0=-reg90;..reg89=(reg89+1)%3;... |
| 9b40 | 10 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c | ..../*.Length.*/..unit=reg70;..l |
| 9b60 | 65 6e 3d 39 2e 34 32 35 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e | en=9.425;n=len/unit+1;ilen=1/len |
| 9b80 | 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 | ;reg91=reg91-unit;..../*.Piece.c |
| 9ba0 | 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d | onnecting.*/..pmin=reg91;..pmax= |
| 9bc0 | 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d | pmin+len;....../*.Camera.*/..ox= |
| 9be0 | 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 | reg30;oy=reg31;oz=reg32;..rx=reg |
| 9c00 | 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b | 40;ry=reg41;rz=reg42;..cx=reg43; |
| 9c20 | 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 | sx=reg44;..cy=reg45;sy=reg46;..c |
| 9c40 | 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 | z=reg47;sz=reg48;.........../*.P |
| 9c60 | 69 65 63 65 20 31 39 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 02 | iece.19.*/.................$.... |
| 9c80 | 08 00 00 01 bf 06 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 72 6f 6c 6c 20 2a 2f 0d 0a 76 76 3d 69 | ......../*.track.-.roll.*/..vv=i |
| 9ca0 | 3b 0d 0a 70 78 3d 2d 69 2a 37 3b 70 7a 3d 2d 39 3b 0d 0a 70 79 3d 63 6f 73 28 76 76 2a 24 70 69 | ;..px=-i*7;pz=-9;..py=cos(vv*$pi |
| 9cc0 | 2a 32 29 2a 2e 31 35 2d 2e 31 35 3b 0d 0a 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d | *2)*.15-.15;......//.Smooth..px= |
| 9ce0 | 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 | px+(reg61-px)*reg64;py=py+(reg62 |
| 9d00 | 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 | -py)*reg64;pz=pz+(reg63-pz)*reg6 |
| 9d20 | 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 | 4;..lx=px-reg61;ly=py-reg62;lz=p |
| 9d40 | 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 | z-reg63;..//.Camera.hook..v=if(r |
| 9d60 | 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 | eg78,0,below(reg79,reg91));..... |
| 9d80 | 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 | ...reg78=if(v,1,reg78);..j=reg79 |
| 9da0 | 2a 72 65 67 36 39 2b 2e 35 30 32 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 29 3b 72 | *reg69+.502;..j=(j-(j|0)+.502);r |
| 9dc0 | 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 | eg55=j;..reg75=if(v,reg61+lx*j,r |
| 9de0 | 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 | eg75);..reg76=if(v,reg62+ly*j,re |
| 9e00 | 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 | g76);..reg77=if(v,reg63+lz*j,reg |
| 9e20 | 37 37 29 3b 0d 0a 69 6b 3d 28 72 65 67 37 39 2d 70 6d 69 6e 29 2a 69 6c 65 6e 2a 31 3b 0d 0a 2f | 77);..ik=(reg79-pmin)*ilen*1;../ |
| 9e40 | 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b | /.New.pos..reg61=if(i,px,reg61); |
| 9e60 | 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c | reg62=if(i,py,reg62);reg63=if(i, |
| 9e80 | 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 76 76 3d 31 2b 64 | pz,reg63);....//.Banking..vv=1+d |
| 9ea0 | 6b 3b 69 3d 69 2a 76 76 2d 64 6b 3b 69 6b 3d 69 6b 2a 76 76 2d 64 6b 3b 0d 0a 76 76 3d 72 65 67 | k;i=i*vv-dk;ik=ik*vv-dk;..vv=reg |
| 9ec0 | 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 30 3b 6a 7a 3d 2d 31 3b 6a 79 3d 74 61 6e 28 28 69 2b | 20*reg90;..jx=0;jz=-1;jy=tan((i+ |
| 9ee0 | 2e 35 29 2a 24 70 69 2a 32 29 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 | .5)*$pi*2);j=vv/sqrt(sqr(jx)+sqr |
| 9f00 | 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 | (jy)+sqr(jz));..px=px+j*jx;py=py |
| 9f20 | 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 69 2a | +j*jy;pz=pz+j*jz;..reg42=if(v,i* |
| 9f40 | 24 70 69 2a 32 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 30 39 3d 62 6f 72 28 72 65 67 30 39 2c 62 | $pi*2,reg42);..reg09=bor(reg09,b |
| 9f60 | 61 6e 64 28 61 62 6f 76 65 28 72 65 67 37 39 2c 70 6d 69 6e 29 2c 62 65 6c 6f 77 28 72 65 67 37 | and(above(reg79,pmin),below(reg7 |
| 9f80 | 39 2c 70 6d 61 78 29 29 29 3b 0d 0a 72 65 67 34 39 3d 76 3b 0d 0a 74 61 3d 63 6f 73 28 69 6b 2a | 9,pmax)));..reg49=v;..ta=cos(ik* |
| 9fa0 | 24 70 69 2a 32 29 2a 2e 31 35 3b 0d 0a 72 65 67 34 30 3d 69 66 28 76 2c 2d 61 74 61 6e 32 28 6c | $pi*2)*.15;..reg40=if(v,-atan2(l |
| 9fc0 | 79 2c 73 71 72 74 28 73 71 72 28 6c 78 29 2b 73 71 72 28 6c 7a 29 29 29 2c 72 65 67 34 30 29 3b | y,sqrt(sqr(lx)+sqr(lz))),reg40); |
| 9fe0 | 0d 0a 74 61 3d 31 2e 35 37 2b 73 69 6e 28 69 6b 2a 24 70 69 2a 32 29 2a 2e 31 35 3b 0d 0a 72 65 | ..ta=1.57+sin(ik*$pi*2)*.15;..re |
| a000 | 67 34 31 3d 69 66 28 76 2c 61 74 61 6e 32 28 2d 6c 78 2c 6c 7a 29 2c 72 65 67 34 31 29 3b 0d 0a | g41=if(v,atan2(-lx,lz),reg41);.. |
| a020 | 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 | reg66=ap;....tx=px;ty=py;tz=pz;g |
| a040 | 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | vvvv=reg89;///////////////////// |
| a060 | 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a | ////..tx=tx+ox;ty=ty+oy;tz=tz+oz |
| a080 | 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 | ;..px=if(gvvvv,if(equal(gvvvv,2) |
| a0a0 | 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c | ,tx,reg27),reg24);..py=if(gvvvv, |
| a0c0 | 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 | if(equal(gvvvv,2),ty,reg28),reg2 |
| a0e0 | 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c | 5);..pz=if(gvvvv,if(equal(gvvvv, |
| a100 | 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 | 2),tz,reg29),reg26);..reg24=reg2 |
| a120 | 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 | 7;reg25=reg28;reg26=reg29;..reg2 |
| a140 | 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 | 7=tx;reg28=ty;reg29=tz;....x1=px |
| a160 | 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 | *cy+pz*sy;z1=pz*cy-px*sy;..y2=py |
| a180 | 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 | *cx+z1*sx;z2=z1*cx-py*sx;..x3=x1 |
| a1a0 | 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 | *cz+y2*sz;y3=y2*cz-x1*sz+.15;..r |
| a1c0 | 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c | ed=u1;u1=if(above(z2,0.05),1/z2, |
| a1e0 | 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 | 0);..x=if(u1,x3*u1,x);y=if(u1,y3 |
| a200 | 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e | *u1*reg50,y);..cv=if(red*u1,(sin |
| a220 | 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 | (u1-reg16)*.4+1),0);dv=u1*(reg90 |
| a240 | 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 | *(reg89+reg91*5)%3)*.3+min(1,max |
| a260 | 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 | (.02,sin(reg91*2-reg16*.1)-.3)*4 |
| a280 | 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 | );..red=cv*(.1+dv);green=cv*(.12 |
| a2a0 | 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 | +dv);blue=1.2*cv*(.2+dv);..u1=sq |
| a2c0 | 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 | rt(u1)*1.3;//---------------/..r |
| a2e0 | 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c | ed=red*u1;green=green*u1;blue=bl |
| a300 | 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 | ue*u1;//////....reg91=reg91+unit |
| a320 | 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 | ;..reg90=-reg90;..reg89=(reg89+1 |
| a340 | 29 25 33 3b 0d 0a 00 0a 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 | )%3;......./*.Length.*/..unit=re |
| a360 | 67 37 30 3b 0d 0a 6c 65 6e 3d 37 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f | g70;..len=7;n=len/unit+1;ilen=1/ |
| a380 | 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 | len;reg91=reg91-unit;..../*.Piec |
| a3a0 | 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d | e.connecting.*/..pmin=reg91;..pm |
| a3c0 | 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 | ax=pmin+len;..../*.Camera.*/..ox |
| a3e0 | 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 | =reg30;oy=reg31;oz=reg32;..rx=re |
| a400 | 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 | g40;ry=reg41;rz=reg42;..cx=reg43 |
| a420 | 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a | ;sx=reg44;..cy=reg45;sy=reg46;.. |
| a440 | 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 18 00 00 00 2f 2a 20 | cz=reg47;sz=reg48;.........../*. |
| a460 | 50 69 65 63 65 20 32 30 20 2a 2f 0d 0a 64 6b 3d 2e 30 35 3b 00 02 00 00 00 01 00 00 00 ff ff ff | Piece.20.*/..dk=.05;............ |
| a480 | 00 01 00 00 00 24 00 00 00 3e 07 00 00 01 fd 05 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 69 72 | .....$...>......../*.track.-.cir |
| a4a0 | 63 6c 65 20 2a 2f 0d 0a 75 3d 2d 28 69 2a 2e 35 2b 2e 35 29 2a 24 70 69 3b 0d 0a 70 78 3d 2d 37 | cle.*/..u=-(i*.5+.5)*$pi;..px=-7 |
| a4c0 | 2b 63 6f 73 28 75 29 2a 32 3b 70 7a 3d 2d 37 2b 73 69 6e 28 75 29 2a 32 3b 0d 0a 70 79 3d 30 3b | +cos(u)*2;pz=-7+sin(u)*2;..py=0; |
| a4e0 | 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a | ....//.Smooth..px=px+(reg61-px)* |
| a500 | 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d | reg64;py=py+(reg62-py)*reg64;pz= |
| a520 | 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 | pz+(reg63-pz)*reg64;..lx=px-reg6 |
| a540 | 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 | 1;ly=py-reg62;lz=pz-reg63;..//.C |
| a560 | 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 | amera.hook..v=if(reg78,0,below(r |
| a580 | 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c | eg79,reg91));........reg78=if(v, |
| a5a0 | 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 32 3b 0d 0a | 1,reg78);..j=reg79*reg69+.502;.. |
| a5c0 | 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 | j=(j-(j|0)+.502);reg55=j;..reg75 |
| a5e0 | 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d | =if(v,reg61+lx*j,reg75);..reg76= |
| a600 | 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 | if(v,reg62+ly*j,reg76);..reg77=i |
| a620 | 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 | f(v,reg63+lz*j,reg77);..//.New.p |
| a640 | 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 | os..reg61=if(i,px,reg61);reg62=i |
| a660 | 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 | f(i,py,reg62);reg63=if(i,pz,reg6 |
| a680 | 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c | 3);....//.Banking..ap=atan2(lz,l |
| a6a0 | 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e | x);............ca=cos(ap);sa=sin |
| a6c0 | 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d | (ap);vv=reg20*reg90;..jx=sa;jz=- |
| a6e0 | 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f | ca;jy=-sin(ap-reg66)*reg21;j=vv/ |
| a700 | 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a | sqrt(sqr(jx)+sqr(jy)+sqr(jz));.. |
| a720 | 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a | px=px+j*jx;py=py+j*jy;pz=pz+j*jz |
| a740 | 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 | ;..reg42=if(v,(ap-reg66)*reg21,r |
| a760 | 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 | eg42);..reg66=ap;....tx=px;ty=py |
| a780 | 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | ;tz=pz;gvvvv=reg89;///////////// |
| a7a0 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b | ////////////..tx=tx+ox;ty=ty+oy; |
| a7c0 | 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 | tz=tz+oz;..px=if(gvvvv,if(equal( |
| a7e0 | 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 | gvvvv,2),tx,reg27),reg24);..py=i |
| a800 | 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 | f(gvvvv,if(equal(gvvvv,2),ty,reg |
| a820 | 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 | 28),reg25);..pz=if(gvvvv,if(equa |
| a840 | 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 | l(gvvvv,2),tz,reg29),reg26);..re |
| a860 | 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 | g24=reg27;reg25=reg28;reg26=reg2 |
| a880 | 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d | 9;..reg27=tx;reg28=ty;reg29=tz;. |
| a8a0 | 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 | ...x1=px*cy+pz*sy;z1=pz*cy-px*sy |
| a8c0 | 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 | ;..y2=py*cx+z1*sx;z2=z1*cx-py*sx |
| a8e0 | 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a | ;..x3=x1*cz+y2*sz;y3=y2*cz-x1*sz |
| a900 | 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 | +.15;..red=u1;u1=if(above(z2,0.0 |
| a920 | 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d | 5),1/z2,0);..x=if(u1,x3*u1,x);y= |
| a940 | 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 | if(u1,y3*u1*reg50,y);..cv=if(red |
| a960 | 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 | *u1,(sin(u1-reg16)*.4+1),0);dv=u |
| a980 | 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d | 1*(reg90*(reg89+reg91*5)%3)*.3+m |
| a9a0 | 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e | in(1,max(.02,sin(reg91*2-reg16*. |
| a9c0 | 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e | 1)-.3)*4);..red=cv*(.1+dv);green |
| a9e0 | 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 | =cv*(.12+dv);blue=1.2*cv*(.2+dv) |
| aa00 | 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ;..u1=sqrt(u1)*1.3;//----------- |
| aa20 | 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 | ----/..red=red*u1;green=green*u1 |
| aa40 | 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 | ;blue=blue*u1;//////....reg91=re |
| aa60 | 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d | g91+unit;..reg90=-reg90;..reg89= |
| aa80 | 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 11 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d | (reg89+1)%3;......./*.Length.*/. |
| aaa0 | 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 33 2e 31 34 31 36 3b 6e 3d 6c 65 6e 2f 75 | .unit=reg70;..len=3.1416;n=len/u |
| aac0 | 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 | nit+1;ilen=1/len;reg91=reg91-uni |
| aae0 | 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d | t;..../*.Piece.connecting.*/..pm |
| ab00 | 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f | in=reg91;..pmax=pmin+len;....../ |
| ab20 | 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f | *.Camera.*/..ox=reg30;oy=reg31;o |
| ab40 | 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 | z=reg32;..rx=reg40;ry=reg41;rz=r |
| ab60 | 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 | eg42;..cx=reg43;sx=reg44;..cy=re |
| ab80 | 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 | g45;sy=reg46;..cz=reg47;sz=reg48 |
| aba0 | 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 32 31 20 2a 2f 00 02 00 00 00 01 | ;.........../*.Piece.21.*/...... |
| abc0 | 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 35 07 00 00 01 fb 05 00 00 2f 2a 20 74 72 61 63 6b | ...........$...5......../*.track |
| abe0 | 20 2d 20 73 74 72 61 69 67 68 74 20 2a 2f 0d 0a 70 78 3d 2d 39 3b 70 7a 3d 2d 37 2b 69 2a 37 3b | .-.straight.*/..px=-9;pz=-7+i*7; |
| ac00 | 0d 0a 70 79 3d 28 2d 31 2b 63 6f 73 28 6d 69 6e 28 69 2a 32 2e 35 2c 31 29 2a 24 70 69 29 29 2a | ..py=(-1+cos(min(i*2.5,1)*$pi))* |
| ac20 | 2e 37 35 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d | .75;....//.Smooth..px=px+(reg61- |
| ac40 | 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 | px)*reg64;py=py+(reg62-py)*reg64 |
| ac60 | 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d | ;pz=pz+(reg63-pz)*reg64;..lx=px- |
| ac80 | 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a | reg61;ly=py-reg62;lz=pz-reg63;.. |
| aca0 | 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c | //.Camera.hook..v=if(reg78,0,bel |
| acc0 | 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 | ow(reg79,reg91));........reg78=i |
| ace0 | 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 | f(v,1,reg78);..j=reg79*reg69+.50 |
| ad00 | 32 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 | 2;..j=(j-(j|0)+.502);reg55=j;..r |
| ad20 | 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 | eg75=if(v,reg61+lx*j,reg75);..re |
| ad40 | 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 | g76=if(v,reg62+ly*j,reg76);..reg |
| ad60 | 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e | 77=if(v,reg63+lz*j,reg77);..//.N |
| ad80 | 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 | ew.pos..reg61=if(i,px,reg61);reg |
| ada0 | 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c | 62=if(i,py,reg62);reg63=if(i,pz, |
| adc0 | 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 | reg63);....//.Banking..ap=atan2( |
| ade0 | 6c 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 | lz,lx);............ca=cos(ap);sa |
| ae00 | 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b | =sin(ap);vv=reg20*reg90;..jx=sa; |
| ae20 | 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a | jz=-ca;jy=-sin(ap-reg66)*reg21;j |
| ae40 | 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 | =vv/sqrt(sqr(jx)+sqr(jy)+sqr(jz) |
| ae60 | 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b | );..px=px+j*jx;py=py+j*jy;pz=pz+ |
| ae80 | 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 | j*jz;..reg42=if(v,(ap-reg66)*reg |
| aea0 | 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 | 21,reg42);..reg66=ap;....tx=px;t |
| aec0 | 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f | y=py;tz=pz;gvvvv=reg89;///////// |
| aee0 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 | ////////////////..tx=tx+ox;ty=ty |
| af00 | 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 | +oy;tz=tz+oz;..px=if(gvvvv,if(eq |
| af20 | 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a | ual(gvvvv,2),tx,reg27),reg24);.. |
| af40 | 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 | py=if(gvvvv,if(equal(gvvvv,2),ty |
| af60 | 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 | ,reg28),reg25);..pz=if(gvvvv,if( |
| af80 | 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b | equal(gvvvv,2),tz,reg29),reg26); |
| afa0 | 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d | ..reg24=reg27;reg25=reg28;reg26= |
| afc0 | 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d | reg29;..reg27=tx;reg28=ty;reg29= |
| afe0 | 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 | tz;....x1=px*cy+pz*sy;z1=pz*cy-p |
| b000 | 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 | x*sy;..y2=py*cx+z1*sx;z2=z1*cx-p |
| b020 | 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 | y*sx;..x3=x1*cz+y2*sz;y3=y2*cz-x |
| b040 | 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 | 1*sz+.15;..red=u1;u1=if(above(z2 |
| b060 | 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 | ,0.05),1/z2,0);..x=if(u1,x3*u1,x |
| b080 | 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 | );y=if(u1,y3*u1*reg50,y);..cv=if |
| b0a0 | 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b | (red*u1,(sin(u1-reg16)*.4+1),0); |
| b0c0 | 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a | dv=u1*(reg90*(reg89+reg91*5)%3)* |
| b0e0 | 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 | .3+min(1,max(.02,sin(reg91*2-reg |
| b100 | 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 | 16*.1)-.3)*4);..red=cv*(.1+dv);g |
| b120 | 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 | reen=cv*(.12+dv);blue=1.2*cv*(.2 |
| b140 | 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d | +dv);..u1=sqrt(u1)*1.3;//------- |
| b160 | 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 | --------/..red=red*u1;green=gree |
| b180 | 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 | n*u1;blue=blue*u1;//////....reg9 |
| b1a0 | 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 | 1=reg91+unit;..reg90=-reg90;..re |
| b1c0 | 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 0a 01 00 00 2f 2a 20 4c 65 6e 67 74 68 | g89=(reg89+1)%3;......./*.Length |
| b1e0 | 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c 65 6e 3d 37 3b 6e 3d 6c 65 6e 2f 75 6e | .*/..unit=reg70;..len=7;n=len/un |
| b200 | 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 | it+1;ilen=1/len;reg91=reg91-unit |
| b220 | 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 | ;..../*.Piece.connecting.*/..pmi |
| b240 | 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 2f 2a 20 43 | n=reg91;..pmax=pmin+len;..../*.C |
| b260 | 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 | amera.*/..ox=reg30;oy=reg31;oz=r |
| b280 | 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 | eg32;..rx=reg40;ry=reg41;rz=reg4 |
| b2a0 | 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 | 2;..cx=reg43;sx=reg44;..cy=reg45 |
| b2c0 | 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a | ;sy=reg46;..cz=reg47;sz=reg48;.. |
| b2e0 | 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 32 32 20 2a 2f 00 02 00 00 00 01 00 00 00 | ........./*.Piece.22.*/......... |
| b300 | ff ff ff 00 01 00 00 00 24 00 00 00 4b 07 00 00 01 0b 06 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 | ........$...K......../*.track.-. |
| b320 | 63 69 72 63 6c 65 20 2a 2f 0d 0a 75 3d 28 69 2a 2e 35 2b 31 29 2a 24 70 69 3b 0d 0a 70 78 3d 2d | circle.*/..u=(i*.5+1)*$pi;..px=- |
| b340 | 36 2b 63 6f 73 28 75 29 2a 33 3b 70 7a 3d 2d 73 69 6e 28 75 29 2a 33 3b 0d 0a 70 79 3d 28 2d 31 | 6+cos(u)*3;pz=-sin(u)*3;..py=(-1 |
| b360 | 2d 63 6f 73 28 69 2a 24 70 69 29 29 2a 2e 37 35 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a | -cos(i*$pi))*.75;....//.Smooth.. |
| b380 | 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 | px=px+(reg61-px)*reg64;py=py+(re |
| b3a0 | 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 | g62-py)*reg64;pz=pz+(reg63-pz)*r |
| b3c0 | 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c | eg64;..lx=px-reg61;ly=py-reg62;l |
| b3e0 | 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 | z=pz-reg63;..//.Camera.hook..v=i |
| b400 | 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 | f(reg78,0,below(reg79,reg91));.. |
| b420 | 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 | ......reg78=if(v,1,reg78);..j=re |
| b440 | 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 32 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 | g79*reg69+.502;..j=(j-(j|0)+.502 |
| b460 | 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a | );reg55=j;..reg75=if(v,reg61+lx* |
| b480 | 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a | j,reg75);..reg76=if(v,reg62+ly*j |
| b4a0 | 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c | ,reg76);..reg77=if(v,reg63+lz*j, |
| b4c0 | 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c | reg77);..//.New.pos..reg61=if(i, |
| b4e0 | 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 | px,reg61);reg62=if(i,py,reg62);r |
| b500 | 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 | eg63=if(i,pz,reg63);....//.Banki |
| b520 | 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 | ng..ap=atan2(lz,lx);............ |
| b540 | 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 | ca=cos(ap);sa=sin(ap);vv=reg20*r |
| b560 | 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 | eg90;..jx=sa;jz=-ca;jy=-sin(ap-r |
| b580 | 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 | eg66)*reg21;j=vv/sqrt(sqr(jx)+sq |
| b5a0 | 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 | r(jy)+sqr(jz));..px=px+j*jx;py=p |
| b5c0 | 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 | y+j*jy;pz=pz+j*jz;..reg42=if(v,( |
| b5e0 | 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 | ap-reg66)*reg21,reg42);..reg66=a |
| b600 | 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 | p;....tx=px;ty=py;tz=pz;gvvvv=re |
| b620 | 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 | g89;/////////////////////////..t |
| b640 | 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 | x=tx+ox;ty=ty+oy;tz=tz+oz;..px=i |
| b660 | 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 | f(gvvvv,if(equal(gvvvv,2),tx,reg |
| b680 | 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 | 27),reg24);..py=if(gvvvv,if(equa |
| b6a0 | 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a | l(gvvvv,2),ty,reg28),reg25);..pz |
| b6c0 | 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 | =if(gvvvv,if(equal(gvvvv,2),tz,r |
| b6e0 | 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 | eg29),reg26);..reg24=reg27;reg25 |
| b700 | 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 | =reg28;reg26=reg29;..reg27=tx;re |
| b720 | 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a | g28=ty;reg29=tz;....x1=px*cy+pz* |
| b740 | 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a | sy;z1=pz*cy-px*sy;..y2=py*cx+z1* |
| b760 | 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a | sx;z2=z1*cx-py*sx;..x3=x1*cz+y2* |
| b780 | 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 | sz;y3=y2*cz-x1*sz+.15;..red=u1;u |
| b7a0 | 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d | 1=if(above(z2,0.05),1/z2,0);..x= |
| b7c0 | 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 | if(u1,x3*u1,x);y=if(u1,y3*u1*reg |
| b7e0 | 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 | 50,y);..cv=if(red*u1,(sin(u1-reg |
| b800 | 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 | 16)*.4+1),0);dv=u1*(reg90*(reg89 |
| b820 | 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 | +reg91*5)%3)*.3+min(1,max(.02,si |
| b840 | 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 | n(reg91*2-reg16*.1)-.3)*4);..red |
| b860 | 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c | =cv*(.1+dv);green=cv*(.12+dv);bl |
| b880 | 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a | ue=1.2*cv*(.2+dv);..u1=sqrt(u1)* |
| b8a0 | 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a | 1.3;//---------------/..red=red* |
| b8c0 | 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f | u1;green=green*u1;blue=blue*u1;/ |
| b8e0 | 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 | /////....reg91=reg91+unit;..reg9 |
| b900 | 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 | 0=-reg90;..reg89=(reg89+1)%3;... |
| b920 | 10 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 6c | ..../*.Length.*/..unit=reg70;..l |
| b940 | 65 6e 3d 34 2e 37 31 32 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e | en=4.712;n=len/unit+1;ilen=1/len |
| b960 | 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 | ;reg91=reg91-unit;..../*.Piece.c |
| b980 | 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d | onnecting.*/..pmin=reg91;..pmax= |
| b9a0 | 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d | pmin+len;....../*.Camera.*/..ox= |
| b9c0 | 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 | reg30;oy=reg31;oz=reg32;..rx=reg |
| b9e0 | 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b | 40;ry=reg41;rz=reg42;..cx=reg43; |
| ba00 | 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 | sx=reg44;..cy=reg45;sy=reg46;..c |
| ba20 | 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 | z=reg47;sz=reg48;.........../*.P |
| ba40 | 69 65 63 65 20 32 33 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 6b | iece.23.*/.................$...k |
| ba60 | 07 00 00 01 0a 06 00 00 2f 2a 20 74 72 61 63 6b 20 2d 20 63 68 69 63 61 6e 65 20 2a 2f 0d 0a 70 | ......../*.track.-.chicane.*/..p |
| ba80 | 78 3d 2d 36 2b 69 2a 36 3b 0d 0a 70 7a 3d 33 2b 32 2a 28 33 2d 32 2a 69 29 2a 73 71 72 28 69 29 | x=-6+i*6;..pz=3+2*(3-2*i)*sqr(i) |
| baa0 | 3b 0d 0a 70 79 3d 28 2d 34 2b 73 71 72 28 31 2b 63 6f 73 28 69 2a 24 70 69 2a 32 29 29 29 2a 2e | ;..py=(-4+sqr(1+cos(i*$pi*2)))*. |
| bac0 | 32 35 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 | 25;....//.Smooth..px=px+(reg61-p |
| bae0 | 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b | x)*reg64;py=py+(reg62-py)*reg64; |
| bb00 | 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 | pz=pz+(reg63-pz)*reg64;..lx=px-r |
| bb20 | 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f | eg61;ly=py-reg62;lz=pz-reg63;../ |
| bb40 | 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f | /.Camera.hook..v=if(reg78,0,belo |
| bb60 | 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 | w(reg79,reg91));........reg78=if |
| bb80 | 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 32 | (v,1,reg78);..j=reg79*reg69+.502 |
| bba0 | 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 | ;..j=(j-(j|0)+.502);reg55=j;..re |
| bbc0 | 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 | g75=if(v,reg61+lx*j,reg75);..reg |
| bbe0 | 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 | 76=if(v,reg62+ly*j,reg76);..reg7 |
| bc00 | 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 | 7=if(v,reg63+lz*j,reg77);..//.Ne |
| bc20 | 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 | w.pos..reg61=if(i,px,reg61);reg6 |
| bc40 | 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 | 2=if(i,py,reg62);reg63=if(i,pz,r |
| bc60 | 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c | eg63);....//.Banking..ap=atan2(l |
| bc80 | 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d | z,lx);............ca=cos(ap);sa= |
| bca0 | 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a | sin(ap);vv=reg20*reg90;..jx=sa;j |
| bcc0 | 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d | z=-ca;jy=-sin(ap-reg66)*reg21;j= |
| bce0 | 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 | vv/sqrt(sqr(jx)+sqr(jy)+sqr(jz)) |
| bd00 | 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a | ;..px=px+j*jx;py=py+j*jy;pz=pz+j |
| bd20 | 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 | *jz;..reg42=if(v,(ap-reg66)*reg2 |
| bd40 | 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 | 1,reg42);..reg66=ap;....tx=px;ty |
| bd60 | 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | =py;tz=pz;gvvvv=reg89;////////// |
| bd80 | 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b | ///////////////..tx=tx+ox;ty=ty+ |
| bda0 | 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 | oy;tz=tz+oz;..px=if(gvvvv,if(equ |
| bdc0 | 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 | al(gvvvv,2),tx,reg27),reg24);..p |
| bde0 | 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c | y=if(gvvvv,if(equal(gvvvv,2),ty, |
| be00 | 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 | reg28),reg25);..pz=if(gvvvv,if(e |
| be20 | 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d | qual(gvvvv,2),tz,reg29),reg26);. |
| be40 | 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 | .reg24=reg27;reg25=reg28;reg26=r |
| be60 | 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 | eg29;..reg27=tx;reg28=ty;reg29=t |
| be80 | 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 | z;....x1=px*cy+pz*sy;z1=pz*cy-px |
| bea0 | 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 | *sy;..y2=py*cx+z1*sx;z2=z1*cx-py |
| bec0 | 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 | *sx;..x3=x1*cz+y2*sz;y3=y2*cz-x1 |
| bee0 | 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c | *sz+.15;..red=u1;u1=if(above(z2, |
| bf00 | 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 | 0.05),1/z2,0);..x=if(u1,x3*u1,x) |
| bf20 | 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 | ;y=if(u1,y3*u1*reg50,y);..cv=if( |
| bf40 | 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 | red*u1,(sin(u1-reg16)*.4+1),0);d |
| bf60 | 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e | v=u1*(reg90*(reg89+reg91*5)%3)*. |
| bf80 | 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 | 3+min(1,max(.02,sin(reg91*2-reg1 |
| bfa0 | 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 | 6*.1)-.3)*4);..red=cv*(.1+dv);gr |
| bfc0 | 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b | een=cv*(.12+dv);blue=1.2*cv*(.2+ |
| bfe0 | 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d | dv);..u1=sqrt(u1)*1.3;//-------- |
| c000 | 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e | -------/..red=red*u1;green=green |
| c020 | 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 | *u1;blue=blue*u1;//////....reg91 |
| c040 | 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 | =reg91+unit;..reg90=-reg90;..reg |
| c060 | 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d 0a 00 31 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 | 89=(reg89+1)%3;...1.../*.Length. |
| c080 | 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d 0a 2f 2a 20 63 68 69 63 61 6e 65 3a 20 66 28 6b | */..unit=reg70;../*.chicane:.f(k |
| c0a0 | 29 20 3d 20 31 2e 33 32 36 35 20 2a 2f 0d 0a 6c 65 6e 3d 31 2e 33 32 36 35 2a 36 3b 6e 3d 6c 65 | ).=.1.3265.*/..len=1.3265*6;n=le |
| c0c0 | 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d | n/unit+1;ilen=1/len;reg91=reg91- |
| c0e0 | 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d | unit;..../*.Piece.connecting.*/. |
| c100 | 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a | .pmin=reg91;..pmax=pmin+len;.... |
| c120 | 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 | ../*.Camera.*/..ox=reg30;oy=reg3 |
| c140 | 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 | 1;oz=reg32;..rx=reg40;ry=reg41;r |
| c160 | 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 | z=reg42;..cx=reg43;sx=reg44;..cy |
| c180 | 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 | =reg45;sy=reg46;..cz=reg47;sz=re |
| c1a0 | 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f 2a 20 50 69 65 63 65 20 32 34 20 2a 2f 00 02 00 | g48;.........../*.Piece.24.*/... |
| c1c0 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 48 07 00 00 01 07 06 00 00 2f 2a 20 74 72 | ..............$...H......../*.tr |
| c1e0 | 61 63 6b 20 2d 20 63 69 72 63 6c 65 20 2a 2f 0d 0a 75 3d 2d 28 69 2d 2e 35 29 2a 24 70 69 3b 0d | ack.-.circle.*/..u=-(i-.5)*$pi;. |
| c200 | 0a 70 78 3d 63 6f 73 28 75 29 2a 35 3b 70 7a 3d 73 69 6e 28 75 29 2a 35 3b 0d 0a 70 79 3d 28 2d | .px=cos(u)*5;pz=sin(u)*5;..py=(- |
| c220 | 31 2b 63 6f 73 28 69 2a 24 70 69 2a 32 29 29 2a 2e 37 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 | 1+cos(i*$pi*2))*.7;....//.Smooth |
| c240 | 0d 0a 70 78 3d 70 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 | ..px=px+(reg61-px)*reg64;py=py+( |
| c260 | 72 65 67 36 32 2d 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 | reg62-py)*reg64;pz=pz+(reg63-pz) |
| c280 | 2a 72 65 67 36 34 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 | *reg64;..lx=px-reg61;ly=py-reg62 |
| c2a0 | 3b 6c 7a 3d 70 7a 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 | ;lz=pz-reg63;..//.Camera.hook..v |
| c2c0 | 3d 69 66 28 72 65 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b | =if(reg78,0,below(reg79,reg91)); |
| c2e0 | 20 20 20 20 20 20 0d 0a 72 65 67 37 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d | ........reg78=if(v,1,reg78);..j= |
| c300 | 72 65 67 37 39 2a 72 65 67 36 39 2b 2e 35 30 32 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 | reg79*reg69+.502;..j=(j-(j|0)+.5 |
| c320 | 30 32 29 3b 72 65 67 35 35 3d 6a 3b 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c | 02);reg55=j;..reg75=if(v,reg61+l |
| c340 | 78 2a 6a 2c 72 65 67 37 35 29 3b 0d 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 | x*j,reg75);..reg76=if(v,reg62+ly |
| c360 | 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a | *j,reg76);..reg77=if(v,reg63+lz* |
| c380 | 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f 2f 20 4e 65 77 20 70 6f 73 0d 0a 72 65 67 36 31 3d 69 66 28 | j,reg77);..//.New.pos..reg61=if( |
| c3a0 | 69 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d 69 66 28 69 2c 70 79 2c 72 65 67 36 32 29 | i,px,reg61);reg62=if(i,py,reg62) |
| c3c0 | 3b 72 65 67 36 33 3d 69 66 28 69 2c 70 7a 2c 72 65 67 36 33 29 3b 0d 0a 0d 0a 2f 2f 20 42 61 6e | ;reg63=if(i,pz,reg63);....//.Ban |
| c3e0 | 6b 69 6e 67 0d 0a 61 70 3d 61 74 61 6e 32 28 6c 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 | king..ap=atan2(lz,lx);.......... |
| c400 | 20 20 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 | ..ca=cos(ap);sa=sin(ap);vv=reg20 |
| c420 | 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 | *reg90;..jx=sa;jz=-ca;jy=-sin(ap |
| c440 | 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b | -reg66)*reg21;j=vv/sqrt(sqr(jx)+ |
| c460 | 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 | sqr(jy)+sqr(jz));..px=px+j*jx;py |
| c480 | 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a 2a 6a 7a 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 | =py+j*jy;pz=pz+j*jz;..reg42=if(v |
| c4a0 | 2c 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 2c 72 65 67 34 32 29 3b 0d 0a 72 65 67 36 36 | ,(ap-reg66)*reg21,reg42);..reg66 |
| c4c0 | 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 76 76 76 3d | =ap;....tx=px;ty=py;tz=pz;gvvvv= |
| c4e0 | 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d | reg89;/////////////////////////. |
| c500 | 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b 0d 0a 70 78 | .tx=tx+ox;ty=ty+oy;tz=tz+oz;..px |
| c520 | 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 78 2c 72 | =if(gvvvv,if(equal(gvvvv,2),tx,r |
| c540 | 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 | eg27),reg24);..py=if(gvvvv,if(eq |
| c560 | 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 29 3b 0d 0a | ual(gvvvv,2),ty,reg28),reg25);.. |
| c580 | 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 7a | pz=if(gvvvv,if(equal(gvvvv,2),tz |
| c5a0 | 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 3b 72 65 67 | ,reg29),reg26);..reg24=reg27;reg |
| c5c0 | 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 3d 74 78 3b | 25=reg28;reg26=reg29;..reg27=tx; |
| c5e0 | 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 | reg28=ty;reg29=tz;....x1=px*cy+p |
| c600 | 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a | z*sy;z1=pz*cy-px*sy;..y2=py*cx+z |
| c620 | 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 | 1*sx;z2=z1*cx-py*sx;..x3=x1*cz+y |
| c640 | 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 64 3d 75 31 | 2*sz;y3=y2*cz-x1*sz+.15;..red=u1 |
| c660 | 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a | ;u1=if(above(z2,0.05),1/z2,0);.. |
| c680 | 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 | x=if(u1,x3*u1,x);y=if(u1,y3*u1*r |
| c6a0 | 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 75 31 2d 72 | eg50,y);..cv=if(red*u1,(sin(u1-r |
| c6c0 | 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a 28 72 65 67 | eg16)*.4+1),0);dv=u1*(reg90*(reg |
| c6e0 | 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 2e 30 32 2c | 89+reg91*5)%3)*.3+min(1,max(.02, |
| c700 | 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 3b 0d 0a 72 | sin(reg91*2-reg16*.1)-.3)*4);..r |
| c720 | 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b 64 76 29 3b | ed=cv*(.1+dv);green=cv*(.12+dv); |
| c740 | 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 74 28 75 31 | blue=1.2*cv*(.2+dv);..u1=sqrt(u1 |
| c760 | 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 64 3d 72 65 | )*1.3;//---------------/..red=re |
| c780 | 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 65 2a 75 31 | d*u1;green=green*u1;blue=blue*u1 |
| c7a0 | 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b 0d 0a 72 65 | ;//////....reg91=reg91+unit;..re |
| c7c0 | 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 25 33 3b 0d | g90=-reg90;..reg89=(reg89+1)%3;. |
| c7e0 | 0a 00 11 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 37 30 3b 0d | ....../*.Length.*/..unit=reg70;. |
| c800 | 0a 6c 65 6e 3d 31 35 2e 37 30 38 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e 3d 31 2f | .len=15.708;n=len/unit+1;ilen=1/ |
| c820 | 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 0d 0a 2f 2a 20 50 69 65 63 | len;reg91=reg91-unit;..../*.Piec |
| c840 | 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d | e.connecting.*/..pmin=reg91;..pm |
| c860 | 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a | ax=pmin+len;....../*.Camera.*/.. |
| c880 | 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d | ox=reg30;oy=reg31;oz=reg32;..rx= |
| c8a0 | 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 | reg40;ry=reg41;rz=reg42;..cx=reg |
| c8c0 | 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b | 43;sx=reg44;..cy=reg45;sy=reg46; |
| c8e0 | 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f | ..cz=reg47;sz=reg48;.........../ |
| c900 | 2a 20 50 69 65 63 65 20 32 35 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 | *.Piece.25.*/.................$. |
| c920 | 00 00 98 08 00 00 01 3b 07 00 00 69 3d 69 2a 69 73 3b 6d 6d 3d 6d 6d 2d 31 3b 0d 0a 2f 2a 20 74 | .......;...i=i*is;mm=mm-1;../*.t |
| c940 | 72 61 63 6b 20 2d 20 63 69 72 63 6c 65 20 2a 2f 0d 0a 75 3d 2d 28 69 2b 2e 35 29 2a 24 70 69 3b | rack.-.circle.*/..u=-(i+.5)*$pi; |
| c960 | 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 33 3b 70 7a 3d 2d 32 2e 35 2b 73 69 6e 28 75 29 2a 32 2e 35 | ..px=cos(u)*3;pz=-2.5+sin(u)*2.5 |
| c980 | 3b 0d 0a 70 79 3d 28 2d 31 2b 63 6f 73 28 69 2a 24 70 69 2a 32 29 29 2a 2e 33 35 3b 6b 3d 28 33 | ;..py=(-1+cos(i*$pi*2))*.35;k=(3 |
| c9a0 | 2d 32 2a 69 29 2a 73 71 72 28 69 29 3b 0d 0a 0d 0a 2f 2f 20 53 6d 6f 6f 74 68 0d 0a 70 78 3d 70 | -2*i)*sqr(i);....//.Smooth..px=p |
| c9c0 | 78 2b 28 72 65 67 36 31 2d 70 78 29 2a 72 65 67 36 34 3b 70 79 3d 70 79 2b 28 72 65 67 36 32 2d | x+(reg61-px)*reg64;py=py+(reg62- |
| c9e0 | 70 79 29 2a 72 65 67 36 34 3b 70 7a 3d 70 7a 2b 28 72 65 67 36 33 2d 70 7a 29 2a 72 65 67 36 34 | py)*reg64;pz=pz+(reg63-pz)*reg64 |
| ca00 | 3b 0d 0a 6c 78 3d 70 78 2d 72 65 67 36 31 3b 6c 79 3d 70 79 2d 72 65 67 36 32 3b 6c 7a 3d 70 7a | ;..lx=px-reg61;ly=py-reg62;lz=pz |
| ca20 | 2d 72 65 67 36 33 3b 0d 0a 2f 2f 20 43 61 6d 65 72 61 20 68 6f 6f 6b 0d 0a 76 3d 69 66 28 72 65 | -reg63;..//.Camera.hook..v=if(re |
| ca40 | 67 37 38 2c 30 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 72 65 67 39 31 29 29 3b 0d 0a 72 65 67 37 | g78,0,below(reg79,reg91));..reg7 |
| ca60 | 38 3d 69 66 28 76 2c 31 2c 72 65 67 37 38 29 3b 0d 0a 6a 3d 72 65 67 37 39 2a 72 65 67 36 39 2b | 8=if(v,1,reg78);..j=reg79*reg69+ |
| ca80 | 2e 35 30 32 3b 0d 0a 6a 3d 28 6a 2d 28 6a 7c 30 29 2b 2e 35 30 32 29 3b 72 65 67 35 35 3d 6a 3b | .502;..j=(j-(j|0)+.502);reg55=j; |
| caa0 | 0d 0a 72 65 67 37 35 3d 69 66 28 76 2c 72 65 67 36 31 2b 6c 78 2a 6a 2c 72 65 67 37 35 29 3b 0d | ..reg75=if(v,reg61+lx*j,reg75);. |
| cac0 | 0a 72 65 67 37 36 3d 69 66 28 76 2c 72 65 67 36 32 2b 6c 79 2a 6a 2c 72 65 67 37 36 29 3b 0d 0a | .reg76=if(v,reg62+ly*j,reg76);.. |
| cae0 | 72 65 67 37 37 3d 69 66 28 76 2c 72 65 67 36 33 2b 6c 7a 2a 6a 2c 72 65 67 37 37 29 3b 0d 0a 2f | reg77=if(v,reg63+lz*j,reg77);../ |
| cb00 | 2f 20 4e 65 77 20 70 6f 73 0d 0a 66 66 3d 62 61 6e 64 28 69 2c 61 62 6f 76 65 28 6d 6d 2c 30 29 | /.New.pos..ff=band(i,above(mm,0) |
| cb20 | 29 3b 0d 0a 72 65 67 36 31 3d 69 66 28 66 66 2c 70 78 2c 72 65 67 36 31 29 3b 72 65 67 36 32 3d | );..reg61=if(ff,px,reg61);reg62= |
| cb40 | 69 66 28 66 66 2c 70 79 2c 72 65 67 36 32 29 3b 72 65 67 36 33 3d 69 66 28 66 66 2c 70 7a 2c 72 | if(ff,py,reg62);reg63=if(ff,pz,r |
| cb60 | 65 67 36 33 29 3b 0d 0a 2f 2f 20 42 61 6e 6b 69 6e 67 0d 0a 0d 0a 61 70 3d 61 74 61 6e 32 28 6c | eg63);..//.Banking....ap=atan2(l |
| cb80 | 7a 2c 6c 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 61 3d 63 6f 73 28 61 70 29 3b 73 61 3d | z,lx);............ca=cos(ap);sa= |
| cba0 | 73 69 6e 28 61 70 29 3b 76 76 3d 72 65 67 32 30 2a 72 65 67 39 30 3b 0d 0a 6a 78 3d 73 61 3b 6a | sin(ap);vv=reg20*reg90;..jx=sa;j |
| cbc0 | 7a 3d 2d 63 61 3b 6a 79 3d 2d 73 69 6e 28 61 70 2d 72 65 67 36 36 29 2a 72 65 67 32 31 3b 6a 3d | z=-ca;jy=-sin(ap-reg66)*reg21;j= |
| cbe0 | 76 76 2f 73 71 72 74 28 73 71 72 28 6a 78 29 2b 73 71 72 28 6a 79 29 2b 73 71 72 28 6a 7a 29 29 | vv/sqrt(sqr(jx)+sqr(jy)+sqr(jz)) |
| cc00 | 3b 0d 0a 70 78 3d 70 78 2b 6a 2a 6a 78 3b 70 79 3d 70 79 2b 6a 2a 6a 79 3b 70 7a 3d 70 7a 2b 6a | ;..px=px+j*jx;py=py+j*jy;pz=pz+j |
| cc20 | 2a 6a 7a 3b 0d 0a 72 65 67 30 39 3d 72 65 67 30 39 3b 2f 2f 62 6f 72 28 72 65 67 30 39 2c 62 61 | *jz;..reg09=reg09;//bor(reg09,ba |
| cc40 | 6e 64 28 61 62 6f 76 65 28 72 65 67 37 39 2c 2e 32 35 2a 28 70 6d 69 6e 2b 33 2a 70 6d 61 78 29 | nd(above(reg79,.25*(pmin+3*pmax) |
| cc60 | 29 2c 62 65 6c 6f 77 28 72 65 67 37 39 2c 70 6d 61 78 29 29 29 3b 0d 0a 68 68 3d 28 61 70 2d 72 | ),below(reg79,pmax)));..hh=(ap-r |
| cc80 | 65 67 36 36 29 3b 68 68 3d 69 66 28 61 62 6f 76 65 28 61 62 73 28 68 68 29 2c 24 70 69 29 2c 68 | eg66);hh=if(above(abs(hh),$pi),h |
| cca0 | 68 2d 73 69 67 6e 28 68 68 29 2a 24 70 69 2a 32 2c 68 68 29 3b 68 68 3d 68 68 2a 72 65 67 32 31 | h-sign(hh)*$pi*2,hh);hh=hh*reg21 |
| ccc0 | 3b 68 68 3d 68 68 2a 28 31 2d 69 29 3b 0d 0a 72 65 67 34 30 3d 69 66 28 76 2c 72 65 67 34 30 2b | ;hh=hh*(1-i);..reg40=if(v,reg40+ |
| cce0 | 73 69 6e 28 2d 72 65 67 34 30 29 2a 2e 30 35 2c 72 65 67 34 30 29 3b 0d 0a 72 65 67 34 31 3d 69 | sin(-reg40)*.05,reg40);..reg41=i |
| cd00 | 66 28 76 2c 2d 61 74 61 6e 32 28 2d 6c 78 2c 6c 7a 29 2b 33 2e 31 34 31 35 2b 2e 37 2a 69 2c 72 | f(v,-atan2(-lx,lz)+3.1415+.7*i,r |
| cd20 | 65 67 34 31 29 3b 0d 0a 72 65 67 34 32 3d 69 66 28 76 2c 68 68 2c 72 65 67 34 32 29 3b 0d 0a 72 | eg41);..reg42=if(v,hh,reg42);..r |
| cd40 | 65 67 36 36 3d 61 70 3b 0d 0a 0d 0a 74 78 3d 70 78 3b 74 79 3d 70 79 3b 74 7a 3d 70 7a 3b 67 76 | eg66=ap;....tx=px;ty=py;tz=pz;gv |
| cd60 | 76 76 76 3d 72 65 67 38 39 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | vvv=reg89;////////////////////// |
| cd80 | 2f 2f 2f 0d 0a 74 78 3d 74 78 2b 6f 78 3b 74 79 3d 74 79 2b 6f 79 3b 74 7a 3d 74 7a 2b 6f 7a 3b | ///..tx=tx+ox;ty=ty+oy;tz=tz+oz; |
| cda0 | 0d 0a 70 78 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c | ..px=if(gvvvv,if(equal(gvvvv,2), |
| cdc0 | 74 78 2c 72 65 67 32 37 29 2c 72 65 67 32 34 29 3b 0d 0a 70 79 3d 69 66 28 67 76 76 76 76 2c 69 | tx,reg27),reg24);..py=if(gvvvv,i |
| cde0 | 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 29 2c 74 79 2c 72 65 67 32 38 29 2c 72 65 67 32 35 | f(equal(gvvvv,2),ty,reg28),reg25 |
| ce00 | 29 3b 0d 0a 70 7a 3d 69 66 28 67 76 76 76 76 2c 69 66 28 65 71 75 61 6c 28 67 76 76 76 76 2c 32 | );..pz=if(gvvvv,if(equal(gvvvv,2 |
| ce20 | 29 2c 74 7a 2c 72 65 67 32 39 29 2c 72 65 67 32 36 29 3b 0d 0a 72 65 67 32 34 3d 72 65 67 32 37 | ),tz,reg29),reg26);..reg24=reg27 |
| ce40 | 3b 72 65 67 32 35 3d 72 65 67 32 38 3b 72 65 67 32 36 3d 72 65 67 32 39 3b 0d 0a 72 65 67 32 37 | ;reg25=reg28;reg26=reg29;..reg27 |
| ce60 | 3d 74 78 3b 72 65 67 32 38 3d 74 79 3b 72 65 67 32 39 3d 74 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a | =tx;reg28=ty;reg29=tz;....x1=px* |
| ce80 | 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a | cy+pz*sy;z1=pz*cy-px*sy;..y2=py* |
| cea0 | 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a | cx+z1*sx;z2=z1*cx-py*sx;..x3=x1* |
| cec0 | 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 31 35 3b 0d 0a 72 65 | cz+y2*sz;y3=y2*cz-x1*sz+.15;..re |
| cee0 | 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 | d=u1;u1=if(above(z2,0.05),1/z2,0 |
| cf00 | 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a | );..x=if(u1,x3*u1,x);y=if(u1,y3* |
| cf20 | 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 63 76 3d 69 66 28 72 65 64 2a 75 31 2c 28 73 69 6e 28 | u1*reg50,y);..cv=if(red*u1,(sin( |
| cf40 | 75 31 2d 72 65 67 31 36 29 2a 2e 34 2b 31 29 2c 30 29 3b 64 76 3d 75 31 2a 28 72 65 67 39 30 2a | u1-reg16)*.4+1),0);dv=u1*(reg90* |
| cf60 | 28 72 65 67 38 39 2b 72 65 67 39 31 2a 35 29 25 33 29 2a 2e 33 2b 6d 69 6e 28 31 2c 6d 61 78 28 | (reg89+reg91*5)%3)*.3+min(1,max( |
| cf80 | 2e 30 32 2c 73 69 6e 28 72 65 67 39 31 2a 32 2d 72 65 67 31 36 2a 2e 31 29 2d 2e 33 29 2a 34 29 | .02,sin(reg91*2-reg16*.1)-.3)*4) |
| cfa0 | 3b 0d 0a 72 65 64 3d 63 76 2a 28 2e 31 2b 64 76 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 31 32 2b | ;..red=cv*(.1+dv);green=cv*(.12+ |
| cfc0 | 64 76 29 3b 62 6c 75 65 3d 31 2e 32 2a 63 76 2a 28 2e 32 2b 64 76 29 3b 0d 0a 75 31 3d 73 71 72 | dv);blue=1.2*cv*(.2+dv);..u1=sqr |
| cfe0 | 74 28 75 31 29 2a 31 2e 33 3b 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 72 65 | t(u1)*1.3;//---------------/..re |
| d000 | 64 3d 72 65 64 2a 75 31 3b 67 72 65 65 6e 3d 67 72 65 65 6e 2a 75 31 3b 62 6c 75 65 3d 62 6c 75 | d=red*u1;green=green*u1;blue=blu |
| d020 | 65 2a 75 31 3b 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 72 65 67 39 31 3d 72 65 67 39 31 2b 75 6e 69 74 3b | e*u1;//////....reg91=reg91+unit; |
| d040 | 0d 0a 72 65 67 39 30 3d 2d 72 65 67 39 30 3b 0d 0a 72 65 67 38 39 3d 28 72 65 67 38 39 2b 31 29 | ..reg90=-reg90;..reg89=(reg89+1) |
| d060 | 25 33 3b 0d 0a 00 2d 01 00 00 2f 2a 20 4c 65 6e 67 74 68 20 2a 2f 0d 0a 75 6e 69 74 3d 72 65 67 | %3;...-.../*.Length.*/..unit=reg |
| d080 | 37 30 3b 0d 0a 6c 65 6e 3d 38 2e 34 38 32 3b 6e 3d 6c 65 6e 2f 75 6e 69 74 2b 31 3b 69 6c 65 6e | 70;..len=8.482;n=len/unit+1;ilen |
| d0a0 | 3d 31 2f 6c 65 6e 3b 72 65 67 39 31 3d 72 65 67 39 31 2d 75 6e 69 74 3b 0d 0a 69 73 3d 28 6c 65 | =1/len;reg91=reg91-unit;..is=(le |
| d0c0 | 6e 2b 75 6e 69 74 2a 32 29 2f 6c 65 6e 3b 0d 0a 6d 6d 3d 6e 2d 30 3b 0d 0a 2f 2a 20 50 69 65 63 | n+unit*2)/len;..mm=n-0;../*.Piec |
| d0e0 | 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 2a 2f 0d 0a 70 6d 69 6e 3d 72 65 67 39 31 3b 0d 0a 70 6d | e.connecting.*/..pmin=reg91;..pm |
| d100 | 61 78 3d 70 6d 69 6e 2b 6c 65 6e 3b 0d 0a 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a | ax=pmin+len;....../*.Camera.*/.. |
| d120 | 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d | ox=reg30;oy=reg31;oz=reg32;..rx= |
| d140 | 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 | reg40;ry=reg41;rz=reg42;..cx=reg |
| d160 | 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b | 43;sx=reg44;..cy=reg45;sy=reg46; |
| d180 | 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 0f 00 00 00 2f | ..cz=reg47;sz=reg48;.........../ |
| d1a0 | 2a 20 50 69 65 63 65 20 32 36 20 2a 2f 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 28 00 | *.Piece.26.*/.................(. |
| d1c0 | 00 00 04 00 00 00 01 00 0a 80 24 00 00 00 cb 02 00 00 01 d0 01 00 00 68 78 3d 66 78 2a 69 67 78 | ..........$............hx=fx*igx |
| d1e0 | 3b 68 79 3d 66 79 2a 69 67 79 2a 32 2d 31 3b 0d 0a 70 78 3d 68 79 2b 2e 35 3b 75 3d 68 78 2a 36 | ;hy=fy*igy*2-1;..px=hy+.5;u=hx*6 |
| d200 | 2e 32 38 3b 70 79 3d 28 63 6f 73 28 75 29 2d 31 29 2a 2e 35 2b 2e 31 35 3b 70 7a 3d 73 69 6e 28 | .28;py=(cos(u)-1)*.5+.15;pz=sin( |
| d220 | 75 29 2a 2e 35 2d 73 71 72 28 31 2d 69 29 2a 2e 33 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 | u)*.5-sqr(1-i)*.3;....px=px+ox;p |
| d240 | 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 2b 70 7a 2a 73 | y=py+oy;pz=pz+oz;..x1=px*cy+pz*s |
| d260 | 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 | y;z1=pz*cy-px*sy;..y2=py*cx+z1*s |
| d280 | 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 | x;z2=z1*cx-py*sx;..x3=x1*cz+y2*s |
| d2a0 | 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 | z;y3=y2*cz-x1*sz;..red=u1;u1=if( |
| d2c0 | 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 | above(z2,0.05),1/z2,0);..x=if(u1 |
| d2e0 | 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 | ,x3*u1,x);y=if(u1,y3*u1*reg50,y) |
| d300 | 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 31 30 3b 0d 0a 0d 0a 63 76 3d 69 66 28 62 | ;..linesize=reg96*10;....cv=if(b |
| d320 | 61 6e 64 28 72 65 64 2c 66 78 2a 75 31 29 2c 2e 31 35 2c 30 29 3b 66 3d 73 69 6e 28 68 78 2a 24 | and(red,fx*u1),.15,0);f=sin(hx*$ |
| d340 | 70 69 2a 2e 35 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 31 2e 32 35 2b 66 2b 67 2a 2e 37 35 29 3b 67 | pi*.5);..red=cv*(1.25+f+g*.75);g |
| d360 | 72 65 65 6e 3d 63 76 2a 28 2e 30 38 35 2b 67 29 3b 62 6c 75 65 3d 63 76 2a 28 2e 30 35 2b 67 29 | reen=cv*(.085+g);blue=cv*(.05+g) |
| d380 | 3b 0d 0a 0d 0a 66 78 3d 28 66 78 2b 31 29 25 67 78 3b 0d 0a 66 79 3d 69 66 28 66 78 2c 66 79 2c | ;....fx=(fx+1)%gx;..fy=if(fx,fy, |
| d3a0 | 66 79 2b 31 29 3b 00 93 00 00 00 66 78 3d 30 3b 66 79 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 | fy+1);.....fx=0;fy=0;..../*.Came |
| d3c0 | 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 | ra.*/..ox=reg30;oy=reg31;oz=reg3 |
| d3e0 | 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d | 2;..rx=reg40;ry=reg41;rz=reg42;. |
| d400 | 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 | .cx=reg43;sx=reg44;..cy=reg45;sy |
| d420 | 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 | =reg46;..cz=reg47;sz=reg48;..... |
| d440 | 00 00 47 00 00 00 2f 2a 20 54 75 6e 6e 65 6c 20 61 74 20 73 74 61 72 74 20 2a 2f 0d 0a 67 78 3d | ..G.../*.Tunnel.at.start.*/..gx= |
| d460 | 37 3b 67 79 3d 31 35 3b 69 67 78 3d 31 2f 28 67 78 2d 31 29 3b 69 67 79 3d 31 2f 28 67 79 2d 31 | 7;gy=15;igx=1/(gx-1);igy=1/(gy-1 |
| d480 | 29 3b 0d 0a 6e 3d 67 78 2a 67 79 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 | );..n=gx*gy;.................$.. |
| d4a0 | 00 2d 03 00 00 01 08 02 00 00 68 78 3d 66 78 2a 69 67 78 3b 68 79 3d 66 79 2a 69 67 79 2a 32 2d | .-........hx=fx*igx;hy=fy*igy*2- |
| d4c0 | 31 3b 0d 0a 70 79 3d 68 79 2a 33 2d 32 3b 75 3d 69 66 28 66 79 25 32 2c 68 78 2a 33 2e 31 34 2c | 1;..py=hy*3-2;u=if(fy%2,hx*3.14, |
| d4e0 | 28 31 2d 68 78 29 2a 33 2e 31 34 29 2d 31 2e 35 37 3b 70 7a 3d 28 63 6f 73 28 75 29 2d 31 29 2a | (1-hx)*3.14)-1.57;pz=(cos(u)-1)* |
| d500 | 32 2b 39 3b 70 78 3d 73 69 6e 28 75 29 2a 32 2d 38 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 | 2+9;px=sin(u)*2-8;....px=px+ox;p |
| d520 | 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 2b 70 7a 2a 73 | y=py+oy;pz=pz+oz;..x1=px*cy+pz*s |
| d540 | 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 | y;z1=pz*cy-px*sy;..y2=py*cx+z1*s |
| d560 | 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 | x;z2=z1*cx-py*sx;..x3=x1*cz+y2*s |
| d580 | 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 | z;y3=y2*cz-x1*sz;..red=u1;u1=if( |
| d5a0 | 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 | above(z2,0.05),1/z2,0);..x=if(u1 |
| d5c0 | 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 | ,x3*u1,x);y=if(u1,y3*u1*reg50,y) |
| d5e0 | 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 31 30 3b 0d 0a 0d 0a 63 76 3d 69 66 28 62 | ;..linesize=reg96*10;....cv=if(b |
| d600 | 61 6e 64 28 72 65 64 2c 66 78 2a 75 31 29 2c 2e 31 35 2c 30 29 3b 66 3d 73 69 6e 28 68 78 2a 24 | and(red,fx*u1),.15,0);f=sin(hx*$ |
| d620 | 70 69 2a 2e 35 29 3b 0d 0a 67 3d 6d 61 78 28 31 2e 35 2d 61 62 73 28 31 2d 69 2d 74 63 29 2a 39 | pi*.5);..g=max(1.5-abs(1-i-tc)*9 |
| d640 | 2c 30 29 2a 33 2b 66 78 25 32 2a 28 68 79 2a 32 2b 32 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 31 2e | ,0)*3+fx%2*(hy*2+2);..red=cv*(1. |
| d660 | 32 35 2b 66 2b 67 2a 2e 37 35 29 3b 67 72 65 65 6e 3d 63 76 2a 2e 32 3b 62 6c 75 65 3d 63 76 2a | 25+f+g*.75);green=cv*.2;blue=cv* |
| d680 | 28 2e 30 35 2b 67 2a 2e 32 35 29 3b 0d 0a 0d 0a 66 78 3d 28 66 78 2b 31 29 25 67 78 3b 0d 0a 66 | (.05+g*.25);....fx=(fx+1)%gx;..f |
| d6a0 | 79 3d 69 66 28 66 78 2c 66 79 2c 66 79 2b 31 29 3b 00 9e 00 00 00 66 78 3d 30 3b 66 79 3d 30 3b | y=if(fx,fy,fy+1);.....fx=0;fy=0; |
| d6c0 | 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 | ..../*.Camera.*/..ox=reg30;oy=re |
| d6e0 | 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 | g31;oz=reg32;..rx=reg40;ry=reg41 |
| d700 | 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a | ;rz=reg42;..cx=reg43;sx=reg44;.. |
| d720 | 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d | cy=reg45;sy=reg46;..cz=reg47;sz= |
| d740 | 72 65 67 34 38 3b 0d 0a 0d 0a 74 63 3d 74 63 2b 2e 31 3b 00 1b 00 00 00 74 63 3d 69 66 28 61 62 | reg48;....tc=tc+.1;.....tc=if(ab |
| d760 | 6f 76 65 28 74 63 2c 31 2e 35 29 2c 30 2c 74 63 29 3b 00 4b 00 00 00 2f 2a 20 48 61 6c 66 20 63 | ove(tc,1.5),0,tc);.K.../*.Half.c |
| d780 | 79 6c 69 6e 64 65 72 20 73 6d 61 6c 6c 20 2a 2f 0d 0a 67 78 3d 38 3b 67 79 3d 31 32 3b 69 67 78 | ylinder.small.*/..gx=8;gy=12;igx |
| d7a0 | 3d 31 2f 28 67 78 2d 31 29 3b 69 67 79 3d 31 2f 28 67 79 2d 31 29 3b 0d 0a 6e 3d 67 78 2a 67 79 | =1/(gx-1);igy=1/(gy-1);..n=gx*gy |
| d7c0 | 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 80 03 00 00 01 4c 02 00 00 68 | ;.................$........L...h |
| d7e0 | 78 3d 66 78 2a 69 67 78 3b 68 79 3d 66 79 2a 69 67 79 2a 32 2d 31 3b 0d 0a 70 79 3d 68 79 2a 31 | x=fx*igx;hy=fy*igy*2-1;..py=hy*1 |
| d800 | 2e 35 2d 31 2e 33 35 3b 75 3d 69 66 28 66 79 25 32 2c 68 78 2a 33 2e 31 34 2c 28 31 2d 68 78 29 | .5-1.35;u=if(fy%2,hx*3.14,(1-hx) |
| d820 | 2a 33 2e 31 34 29 3b 70 7a 3d 63 6f 73 28 75 29 2a 35 2b 33 3b 70 78 3d 73 69 6e 28 75 29 2a 35 | *3.14);pz=cos(u)*5+3;px=sin(u)*5 |
| d840 | 2b 35 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 | +5;....px=px+ox;py=py+oy;pz=pz+o |
| d860 | 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 | z;..x1=px*cy+pz*sy;z1=pz*cy-px*s |
| d880 | 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 | y;..y2=py*cx+z1*sx;z2=z1*cx-py*s |
| d8a0 | 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 | x;..x3=x1*cz+y2*sz;y3=y2*cz-x1*s |
| d8c0 | 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c | z;..red=u1;u1=if(above(z2,0.05), |
| d8e0 | 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 | 1/z2,0);..x=if(u1,x3*u1,x);y=if( |
| d900 | 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 | u1,y3*u1*reg50,y);..linesize=reg |
| d920 | 39 36 2a 31 30 3b 0d 0a 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 66 78 2a 75 31 29 2c | 96*10;....cv=if(band(red,fx*u1), |
| d940 | 2e 31 35 2c 30 29 3b 66 3d 73 69 6e 28 68 78 2a 24 70 69 2a 2e 35 29 3b 0d 0a 67 3d 6d 61 78 28 | .15,0);f=sin(hx*$pi*.5);..g=max( |
| d960 | 31 2e 35 2d 61 62 73 28 31 2d 69 2d 74 63 29 2a 39 2c 30 29 3b 67 67 3d 61 62 6f 76 65 28 67 65 | 1.5-abs(1-i-tc)*9,0);gg=above(ge |
| d980 | 74 73 70 65 63 28 28 75 2d 33 2e 31 34 2a 28 66 79 25 32 29 2a 69 67 78 29 2a 2e 32 2b 2e 30 33 | tspec((u-3.14*(fy%2)*igx)*.2+.03 |
| d9a0 | 2c 30 2e 30 30 35 2c 30 29 2a 33 2d 31 2c 2d 68 79 29 2a 33 3b 0d 0a 72 65 64 3d 63 76 2a 28 31 | ,0.005,0)*3-1,-hy)*3;..red=cv*(1 |
| d9c0 | 2e 32 35 2b 66 2b 67 2a 2e 37 35 2b 67 67 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 30 39 35 2b 67 | .25+f+g*.75+gg);green=cv*(.095+g |
| d9e0 | 2a 2e 35 2b 67 67 2a 2e 39 29 3b 62 6c 75 65 3d 63 76 2a 28 2e 30 35 2b 67 2a 2e 32 35 2b 67 67 | *.5+gg*.9);blue=cv*(.05+g*.25+gg |
| da00 | 2a 2e 33 29 3b 0d 0a 0d 0a 66 78 3d 28 66 78 2b 31 29 25 67 78 3b 0d 0a 66 79 3d 69 66 28 66 78 | *.3);....fx=(fx+1)%gx;..fy=if(fx |
| da20 | 2c 66 79 2c 66 79 2b 31 29 3b 00 a5 00 00 00 66 78 3d 30 3b 66 79 3d 30 3b 0d 0a 0d 0a 2f 2a 20 | ,fy,fy+1);.....fx=0;fy=0;..../*. |
| da40 | 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d | Camera.*/..ox=reg30;oy=reg31;oz= |
| da60 | 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 | reg32;..rx=reg40;ry=reg41;rz=reg |
| da80 | 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 | 42;..cx=reg43;sx=reg44;..cy=reg4 |
| daa0 | 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d | 5;sy=reg46;..cz=reg47;sz=reg48;. |
| dac0 | 0a 0d 0a 74 63 3d 74 63 2b 2e 31 3b 74 3d 74 2b 2e 31 3b 00 1b 00 00 00 74 63 3d 69 66 28 61 62 | ...tc=tc+.1;t=t+.1;.....tc=if(ab |
| dae0 | 6f 76 65 28 74 63 2c 31 2e 35 29 2c 30 2c 74 63 29 3b 00 53 00 00 00 2f 2a 20 48 61 6c 66 20 63 | ove(tc,1.5),0,tc);.S.../*.Half.c |
| db00 | 79 6c 69 6e 64 65 72 20 6c 61 72 67 65 20 2b 20 73 70 65 63 20 2a 2f 0d 0a 67 78 3d 31 32 3b 67 | ylinder.large.+.spec.*/..gx=12;g |
| db20 | 79 3d 31 32 3b 69 67 78 3d 31 2f 28 67 78 2d 31 29 3b 69 67 79 3d 31 2f 28 67 79 2d 31 29 3b 0d | y=12;igx=1/(gx-1);igy=1/(gy-1);. |
| db40 | 0a 6e 3d 67 78 2a 67 79 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 0a 03 | .n=gx*gy;.................$..... |
| db60 | 00 00 01 ea 01 00 00 68 78 3d 66 78 2a 69 67 78 3b 68 79 3d 66 79 2a 69 67 79 2a 32 2d 31 3b 0d | .......hx=fx*igx;hy=fy*igy*2-1;. |
| db80 | 0a 70 79 3d 68 79 2a 31 2e 35 2d 31 2e 33 35 3b 75 3d 68 78 2a 36 2e 32 38 3b 70 7a 3d 63 6f 73 | .py=hy*1.5-1.35;u=hx*6.28;pz=cos |
| dba0 | 28 75 29 2a 2e 37 2b 33 3b 70 78 3d 73 69 6e 28 75 29 2a 2e 37 2b 36 3b 0d 0a 0d 0a 70 78 3d 70 | (u)*.7+3;px=sin(u)*.7+6;....px=p |
| dbc0 | 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 63 | x+ox;py=py+oy;pz=pz+oz;..x1=px*c |
| dbe0 | 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 | y+pz*sy;z1=pz*cy-px*sy;..y2=py*c |
| dc00 | 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 | x+z1*sx;z2=z1*cx-py*sx;..x3=x1*c |
| dc20 | 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b | z+y2*sz;y3=y2*cz-x1*sz;..red=u1; |
| dc40 | 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 | u1=if(above(z2,0.05),1/z2,0);..x |
| dc60 | 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 | =if(u1,x3*u1,x);y=if(u1,y3*u1*re |
| dc80 | 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 31 30 3b 0d 0a 0d 0a 63 | g50,y);..linesize=reg96*10;....c |
| dca0 | 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 66 78 2a 75 31 29 2c 2e 31 35 2c 30 29 3b 66 3d 73 69 | v=if(band(red,fx*u1),.15,0);f=si |
| dcc0 | 6e 28 68 78 2a 24 70 69 2a 2e 35 29 3b 0d 0a 67 3d 6d 61 78 28 31 2e 35 2d 61 62 73 28 31 2d 69 | n(hx*$pi*.5);..g=max(1.5-abs(1-i |
| dce0 | 2d 74 63 29 2a 39 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 2a 28 31 2e 32 35 2b 66 2b 67 2a 2e 37 35 | -tc)*9,0);..red=cv*(1.25+f+g*.75 |
| dd00 | 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 30 38 35 2b 67 2a 2e 38 29 3b 62 6c 75 65 3d 63 76 2a 28 | );green=cv*(.085+g*.8);blue=cv*( |
| dd20 | 2e 30 35 2b 67 2a 2e 32 35 29 3b 0d 0a 0d 0a 66 78 3d 28 66 78 2b 31 29 25 67 78 3b 0d 0a 66 79 | .05+g*.25);....fx=(fx+1)%gx;..fy |
| dd40 | 3d 69 66 28 66 78 2c 66 79 2c 66 79 2b 31 29 3b 00 9e 00 00 00 66 78 3d 30 3b 66 79 3d 30 3b 0d | =if(fx,fy,fy+1);.....fx=0;fy=0;. |
| dd60 | 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 | .../*.Camera.*/..ox=reg30;oy=reg |
| dd80 | 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b | 31;oz=reg32;..rx=reg40;ry=reg41; |
| dda0 | 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 | rz=reg42;..cx=reg43;sx=reg44;..c |
| ddc0 | 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 | y=reg45;sy=reg46;..cz=reg47;sz=r |
| dde0 | 65 67 34 38 3b 0d 0a 0d 0a 74 63 3d 74 63 2b 2e 31 3b 00 1b 00 00 00 74 63 3d 69 66 28 61 62 6f | eg48;....tc=tc+.1;.....tc=if(abo |
| de00 | 76 65 28 74 63 2c 31 2e 35 29 2c 30 2c 74 63 29 3b 00 46 00 00 00 2f 2a 20 54 6f 77 65 72 20 61 | ve(tc,1.5),0,tc);.F.../*.Tower.a |
| de20 | 74 20 73 74 61 67 65 20 2a 2f 0d 0a 67 78 3d 37 3b 67 79 3d 31 32 3b 69 67 78 3d 31 2f 28 67 78 | t.stage.*/..gx=7;gy=12;igx=1/(gx |
| de40 | 2d 31 29 3b 69 67 79 3d 31 2f 28 67 79 2d 31 29 3b 0d 0a 6e 3d 67 78 2a 67 79 3b 00 02 00 00 00 | -1);igy=1/(gy-1);..n=gx*gy;..... |
| de60 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 0b 03 00 00 01 ea 01 00 00 68 78 3d 66 78 2a 69 | ............$............hx=fx*i |
| de80 | 67 78 3b 68 79 3d 66 79 2a 69 67 79 2a 32 2d 31 3b 0d 0a 70 79 3d 68 79 2a 31 2e 38 35 2d 31 3b | gx;hy=fy*igy*2-1;..py=hy*1.85-1; |
| dea0 | 75 3d 68 78 2a 36 2e 32 38 3b 70 7a 3d 63 6f 73 28 75 29 2a 2e 37 2b 32 2e 32 3b 70 78 3d 73 69 | u=hx*6.28;pz=cos(u)*.7+2.2;px=si |
| dec0 | 6e 28 75 29 2a 2e 37 2d 32 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b | n(u)*.7-2;....px=px+ox;py=py+oy; |
| dee0 | 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a | pz=pz+oz;..x1=px*cy+pz*sy;z1=pz* |
| df00 | 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a | cy-px*sy;..y2=py*cx+z1*sx;z2=z1* |
| df20 | 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a | cx-py*sx;..x3=x1*cz+y2*sz;y3=y2* |
| df40 | 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 | cz-x1*sz;..red=u1;u1=if(above(z2 |
| df60 | 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 | ,0.05),1/z2,0);..x=if(u1,x3*u1,x |
| df80 | 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 | );y=if(u1,y3*u1*reg50,y);..lines |
| dfa0 | 69 7a 65 3d 72 65 67 39 36 2a 31 30 3b 0d 0a 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c | ize=reg96*10;....cv=if(band(red, |
| dfc0 | 66 78 2a 75 31 29 2c 2e 31 35 2c 30 29 3b 66 3d 73 69 6e 28 68 78 2a 24 70 69 2a 2e 35 29 3b 0d | fx*u1),.15,0);f=sin(hx*$pi*.5);. |
| dfe0 | 0a 67 3d 6d 61 78 28 31 2e 35 2d 61 62 73 28 31 2d 69 2d 74 63 29 2a 39 2c 30 29 3b 0d 0a 72 65 | .g=max(1.5-abs(1-i-tc)*9,0);..re |
| e000 | 64 3d 63 76 2a 28 31 2e 32 35 2b 66 2b 67 2a 2e 37 35 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 30 | d=cv*(1.25+f+g*.75);green=cv*(.0 |
| e020 | 38 35 2b 67 2a 2e 38 29 3b 62 6c 75 65 3d 63 76 2a 28 2e 30 35 2b 67 2a 2e 32 35 29 3b 0d 0a 0d | 85+g*.8);blue=cv*(.05+g*.25);... |
| e040 | 0a 66 78 3d 28 66 78 2b 31 29 25 67 78 3b 0d 0a 66 79 3d 69 66 28 66 78 2c 66 79 2c 66 79 2b 31 | .fx=(fx+1)%gx;..fy=if(fx,fy,fy+1 |
| e060 | 29 3b 00 9e 00 00 00 66 78 3d 30 3b 66 79 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a | );.....fx=0;fy=0;..../*.Camera.* |
| e080 | 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a | /..ox=reg30;oy=reg31;oz=reg32;.. |
| e0a0 | 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d | rx=reg40;ry=reg41;rz=reg42;..cx= |
| e0c0 | 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 | reg43;sx=reg44;..cy=reg45;sy=reg |
| e0e0 | 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 0d 0a 74 63 3d 74 63 | 46;..cz=reg47;sz=reg48;....tc=tc |
| e100 | 2b 2e 31 3b 00 1b 00 00 00 74 63 3d 69 66 28 61 62 6f 76 65 28 74 63 2c 31 2e 35 29 2c 30 2c 74 | +.1;.....tc=if(above(tc,1.5),0,t |
| e120 | 63 29 3b 00 47 00 00 00 2f 2a 20 54 6f 77 65 72 20 69 6e 20 63 65 6e 74 65 72 20 2a 2f 0d 0a 67 | c);.G.../*.Tower.in.center.*/..g |
| e140 | 78 3d 37 3b 67 79 3d 31 36 3b 69 67 78 3d 31 2f 28 67 78 2d 31 29 3b 69 67 79 3d 31 2f 28 67 79 | x=7;gy=16;igx=1/(gx-1);igy=1/(gy |
| e160 | 2d 31 29 3b 0d 0a 6e 3d 67 78 2a 67 79 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 | -1);..n=gx*gy;.................$ |
| e180 | 00 00 00 c0 02 00 00 01 c2 01 00 00 68 78 3d 66 78 2a 69 67 78 3b 68 79 3d 66 79 2a 69 67 79 3b | ............hx=fx*igx;hy=fy*igy; |
| e1a0 | 0d 0a 70 78 3d 2d 68 79 2a 34 2d 32 3b 75 3d 68 78 2a 36 2e 32 38 3b 70 79 3d 28 63 6f 73 28 75 | ..px=-hy*4-2;u=hx*6.28;py=(cos(u |
| e1c0 | 29 2d 31 29 2b 2e 37 35 3b 70 7a 3d 73 69 6e 28 75 29 2d 39 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f | )-1)+.75;pz=sin(u)-9;....px=px+o |
| e1e0 | 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 2b 70 | x;py=py+oy;pz=pz+oz;..x1=px*cy+p |
| e200 | 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a | z*sy;z1=pz*cy-px*sy;..y2=py*cx+z |
| e220 | 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 | 1*sx;z2=z1*cx-py*sx;..x3=x1*cz+y |
| e240 | 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d | 2*sz;y3=y2*cz-x1*sz;..red=u1;u1= |
| e260 | 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 | if(above(z2,0.05),1/z2,0);..x=if |
| e280 | 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 | (u1,x3*u1,x);y=if(u1,y3*u1*reg50 |
| e2a0 | 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 31 30 3b 0d 0a 0d 0a 63 76 3d 69 | ,y);..linesize=reg96*10;....cv=i |
| e2c0 | 66 28 62 61 6e 64 28 72 65 64 2c 66 78 2a 75 31 29 2c 2e 31 35 2c 30 29 3b 66 3d 73 69 6e 28 68 | f(band(red,fx*u1),.15,0);f=sin(h |
| e2e0 | 78 2a 24 70 69 2a 2e 35 29 3b 67 3d 30 3b 0d 0a 72 65 64 3d 63 76 2a 28 31 2e 32 35 2b 66 2b 67 | x*$pi*.5);g=0;..red=cv*(1.25+f+g |
| e300 | 2a 2e 37 35 29 3b 67 72 65 65 6e 3d 63 76 2a 28 2e 30 38 35 2b 67 29 3b 62 6c 75 65 3d 63 76 2a | *.75);green=cv*(.085+g);blue=cv* |
| e320 | 28 2e 30 35 2b 67 29 3b 0d 0a 0d 0a 66 78 3d 28 66 78 2b 31 29 25 67 78 3b 0d 0a 66 79 3d 69 66 | (.05+g);....fx=(fx+1)%gx;..fy=if |
| e340 | 28 66 78 2c 66 79 2c 66 79 2b 31 29 3b 00 93 00 00 00 66 78 3d 30 3b 66 79 3d 30 3b 0d 0a 0d 0a | (fx,fy,fy+1);.....fx=0;fy=0;.... |
| e360 | 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b | /*.Camera.*/..ox=reg30;oy=reg31; |
| e380 | 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d | oz=reg32;..rx=reg40;ry=reg41;rz= |
| e3a0 | 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 | reg42;..cx=reg43;sx=reg44;..cy=r |
| e3c0 | 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 | eg45;sy=reg46;..cz=reg47;sz=reg4 |
| e3e0 | 38 3b 0d 0a 00 00 00 00 00 4a 00 00 00 2f 2a 20 54 75 6e 6e 65 6c 20 61 72 6f 75 6e 64 20 72 6f | 8;.......J.../*.Tunnel.around.ro |
| e400 | 6c 6c 20 2a 2f 0d 0a 67 78 3d 37 3b 67 79 3d 31 30 3b 69 67 78 3d 31 2f 28 67 78 2d 31 29 3b 69 | ll.*/..gx=7;gy=10;igx=1/(gx-1);i |
| e420 | 67 79 3d 31 2f 28 67 79 2d 31 29 3b 0d 0a 6e 3d 67 78 2a 67 79 3b 00 02 00 00 00 01 00 00 00 ff | gy=1/(gy-1);..n=gx*gy;.......... |
| e440 | ff ff 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 03 80 24 00 00 00 f2 02 00 00 01 25 02 00 00 | .......(...........$........%... |
| e460 | 74 78 3d 2d 65 71 75 61 6c 28 70 2c 30 29 2b 65 71 75 61 6c 28 70 2c 31 29 2b 65 71 75 61 6c 28 | tx=-equal(p,0)+equal(p,1)+equal( |
| e480 | 70 2c 33 29 2a 2e 35 3b 0d 0a 74 79 3d 2d 65 71 75 61 6c 28 70 2c 30 29 2d 65 71 75 61 6c 28 70 | p,3)*.5;..ty=-equal(p,0)-equal(p |
| e4a0 | 2c 31 29 2d 65 71 75 61 6c 28 70 2c 32 29 2a 2e 33 35 2d 65 71 75 61 6c 28 70 2c 34 29 2b 65 71 | ,1)-equal(p,2)*.35-equal(p,4)+eq |
| e4c0 | 75 61 6c 28 70 2c 35 29 3b 0d 0a 70 78 3d 2d 74 78 2a 2e 31 37 2b 31 2e 33 3b 70 79 3d 2d 39 2b | ual(p,5);..px=-tx*.17+1.3;py=-9+ |
| e4e0 | 74 79 2a 2e 32 2b 73 69 6e 28 74 29 2a 2e 35 3b 3b 70 7a 3d 33 2e 37 2b 74 78 2a 2e 31 37 3b 0d | ty*.2+sin(t)*.5;;pz=3.7+tx*.17;. |
| e500 | 0a 70 3d 28 70 2b 31 29 25 37 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 | .p=(p+1)%7;....px=px+ox;py=py+oy |
| e520 | 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a | ;pz=pz+oz;..x1=px*cy+pz*sy;z1=pz |
| e540 | 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 | *cy-px*sy;..y2=py*cx+z1*sx;z2=z1 |
| e560 | 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 | *cx-py*sx;..x3=x1*cz+y2*sz;y3=y2 |
| e580 | 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a | *cz-x1*sz;..red=u1;u1=if(above(z |
| e5a0 | 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c | 2,0.05),1/z2,0);..x=if(u1,x3*u1, |
| e5c0 | 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 | x);y=if(u1,y3*u1*reg50,y);..line |
| e5e0 | 73 69 7a 65 3d 72 65 67 39 36 2a 75 31 2a 31 33 3b 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 | size=reg96*u1*13;..cv=if(band(re |
| e600 | 64 2c 75 31 29 2c 62 6e 6f 74 28 62 6f 72 28 65 71 75 61 6c 28 70 2c 33 29 2c 65 71 75 61 6c 28 | d,u1),bnot(bor(equal(p,3),equal( |
| e620 | 70 2c 35 29 29 29 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 2a 2e 39 35 3b 67 72 65 65 6e 3d 63 76 2a | p,5))),0);..red=cv*.95;green=cv* |
| e640 | 2e 30 35 2b 73 69 6e 28 69 2a 24 70 69 29 2a 2e 31 3b 62 6c 75 65 3d 63 76 2a 2e 31 3b 0d 0a 0d | .05+sin(i*$pi)*.1;blue=cv*.1;... |
| e660 | 0a 66 78 3d 28 66 78 2b 31 29 25 67 78 3b 0d 0a 66 79 3d 69 66 28 66 78 2c 66 79 2c 66 79 2b 31 | .fx=(fx+1)%gx;..fy=if(fx,fy,fy+1 |
| e680 | 29 3b 0d 0a 00 95 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f | );.......p=0;..../*.Camera.*/..o |
| e6a0 | 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 | x=reg30;oy=reg31;oz=reg32;..rx=r |
| e6c0 | 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 | eg40;ry=reg41;rz=reg42;..cx=reg4 |
| e6e0 | 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d | 3;sx=reg44;..cy=reg45;sy=reg46;. |
| e700 | 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 74 3d 74 2b 2e 31 34 3b 00 00 00 | .cz=reg47;sz=reg48;..t=t+.14;... |
| e720 | 00 00 17 00 00 00 2f 2a 20 44 6f 77 6e 20 4b 61 6e 6a 69 20 2a 2f 0d 0a 6e 3d 36 3b 00 02 00 00 | ....../*.Down.Kanji.*/..n=6;.... |
| e740 | 00 01 00 00 00 ff ff ff 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 05 80 24 00 00 00 d1 02 00 | .............(...........$...... |
| e760 | 00 01 09 02 00 00 74 78 3d 28 65 71 75 61 6c 28 70 2c 30 29 2b 65 71 75 61 6c 28 70 2c 31 29 2b | ......tx=(equal(p,0)+equal(p,1)+ |
| e780 | 32 2a 65 71 75 61 6c 28 70 2c 32 29 2d 32 2a 65 71 75 61 6c 28 70 2c 34 29 2d 65 71 75 61 6c 28 | 2*equal(p,2)-2*equal(p,4)-equal( |
| e7a0 | 70 2c 35 29 2d 65 71 75 61 6c 28 70 2c 36 29 29 2a 2e 33 3b 0d 0a 74 79 3d 28 2d 65 71 75 61 6c | p,5)-equal(p,6))*.3;..ty=(-equal |
| e7c0 | 28 70 2c 30 29 2b 65 71 75 61 6c 28 70 2c 33 29 2d 65 71 75 61 6c 28 70 2c 36 29 29 2a 2e 37 2b | (p,0)+equal(p,3)-equal(p,6))*.7+ |
| e7e0 | 73 69 6e 28 74 29 2a 2e 35 3b 0d 0a 70 78 3d 74 78 2b 31 2e 33 3b 70 79 3d 2d 39 2b 74 79 3b 70 | sin(t)*.5;..px=tx+1.3;py=-9+ty;p |
| e800 | 7a 3d 33 2e 37 2d 74 78 3b 0d 0a 70 3d 28 70 2b 31 29 25 37 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f | z=3.7-tx;..p=(p+1)%7;....px=px+o |
| e820 | 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 2b 70 | x;py=py+oy;pz=pz+oz;..x1=px*cy+p |
| e840 | 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a | z*sy;z1=pz*cy-px*sy;..y2=py*cx+z |
| e860 | 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 | 1*sx;z2=z1*cx-py*sx;..x3=x1*cz+y |
| e880 | 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d | 2*sz;y3=y2*cz-x1*sz;..red=u1;u1= |
| e8a0 | 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 | if(above(z2,0.05),1/z2,0);..x=if |
| e8c0 | 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 | (u1,x3*u1,x);y=if(u1,y3*u1*reg50 |
| e8e0 | 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 75 31 2a 31 30 3b 0d 0a 63 76 3d | ,y);..linesize=reg96*u1*10;..cv= |
| e900 | 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 2a 2e 39 | if(band(red,u1),1,0);..red=cv*.9 |
| e920 | 35 3b 67 72 65 65 6e 3d 63 76 2a 2e 30 37 35 2b 73 69 6e 28 69 2a 24 70 69 29 2a 2e 31 3b 62 6c | 5;green=cv*.075+sin(i*$pi)*.1;bl |
| e940 | 75 65 3d 63 76 2a 2e 31 3b 0d 0a 0d 0a 66 78 3d 28 66 78 2b 31 29 25 67 78 3b 0d 0a 66 79 3d 69 | ue=cv*.1;....fx=(fx+1)%gx;..fy=i |
| e960 | 66 28 66 78 2c 66 79 2c 66 79 2b 31 29 3b 00 95 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 | f(fx,fy,fy+1);.....p=0;..../*.Ca |
| e980 | 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 | mera.*/..ox=reg30;oy=reg31;oz=re |
| e9a0 | 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 | g32;..rx=reg40;ry=reg41;rz=reg42 |
| e9c0 | 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b | ;..cx=reg43;sx=reg44;..cy=reg45; |
| e9e0 | 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 74 | sy=reg46;..cz=reg47;sz=reg48;..t |
| ea00 | 3d 74 2b 2e 31 34 3b 00 00 00 00 00 12 00 00 00 2f 2a 20 44 6f 77 6e 21 20 2a 2f 0d 0a 6e 3d 38 | =t+.14;........./*.Down!.*/..n=8 |
| ea20 | 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 cf 02 00 00 01 e8 01 00 00 74 | ;.................$............t |
| ea40 | 78 3d 28 2d 65 71 75 61 6c 28 70 2c 30 29 2b 2e 32 2a 65 71 75 61 6c 28 70 2c 31 29 2b 65 71 75 | x=(-equal(p,0)+.2*equal(p,1)+equ |
| ea60 | 61 6c 28 70 2c 32 29 2b 2e 32 2a 65 71 75 61 6c 28 70 2c 33 29 2d 65 71 75 61 6c 28 70 2c 34 29 | al(p,2)+.2*equal(p,3)-equal(p,4) |
| ea80 | 2d 2e 32 2a 65 71 75 61 6c 28 70 2c 35 29 29 2a 2e 35 3b 0d 0a 74 79 3d 28 2d 65 71 75 61 6c 28 | -.2*equal(p,5))*.5;..ty=(-equal( |
| eaa0 | 70 2c 30 29 2d 65 71 75 61 6c 28 70 2c 31 29 2b 65 71 75 61 6c 28 70 2c 33 29 2b 65 71 75 61 6c | p,0)-equal(p,1)+equal(p,3)+equal |
| eac0 | 28 70 2c 34 29 29 2a 2e 35 3b 0d 0a 70 78 3d 2d 31 32 2e 35 3b 70 79 3d 74 79 2d 34 3b 70 7a 3d | (p,4))*.5;..px=-12.5;py=ty-4;pz= |
| eae0 | 74 78 2d 32 2b 74 63 2a 32 3b 0d 0a 70 3d 28 70 2b 31 29 25 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b | tx-2+tc*2;..p=(p+1)%6;....px=px+ |
| eb00 | 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 63 79 2b | ox;py=py+oy;pz=pz+oz;..x1=px*cy+ |
| eb20 | 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b | pz*sy;z1=pz*cy-px*sy;..y2=py*cx+ |
| eb40 | 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b | z1*sx;z2=z1*cx-py*sx;..x3=x1*cz+ |
| eb60 | 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 | y2*sz;y3=y2*cz-x1*sz;..red=u1;u1 |
| eb80 | 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 | =if(above(z2,0.05),1/z2,0);..x=i |
| eba0 | 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 | f(u1,x3*u1,x);y=if(u1,y3*u1*reg5 |
| ebc0 | 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 75 31 2a 32 32 3b 0d 0a 63 76 | 0,y);..linesize=reg96*u1*22;..cv |
| ebe0 | 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 3b 67 | =if(band(red,u1),1,0);..red=cv;g |
| ec00 | 72 65 65 6e 3d 63 76 2a 2e 30 35 2b 73 69 6e 28 69 2a 24 70 69 29 2a 2e 30 35 3b 62 6c 75 65 3d | reen=cv*.05+sin(i*$pi)*.05;blue= |
| ec20 | 30 3b 0d 0a 0d 0a 00 b3 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d | 0;.........p=0;..../*.Camera.*/. |
| ec40 | 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 | .ox=reg30;oy=reg31;oz=reg32;..rx |
| ec60 | 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 | =reg40;ry=reg41;rz=reg42;..cx=re |
| ec80 | 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 | g43;sx=reg44;..cy=reg45;sy=reg46 |
| eca0 | 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 74 63 3d 74 63 2b 2e 30 35 | ;..cz=reg47;sz=reg48;..tc=tc+.05 |
| ecc0 | 3b 74 63 3d 69 66 28 62 65 6c 6f 77 28 74 63 2c 2e 39 35 29 2c 74 63 2c 30 29 3b 0d 0a 00 00 00 | ;tc=if(below(tc,.95),tc,0);..... |
| ece0 | 00 00 13 00 00 00 2f 2a 20 52 69 67 68 74 21 20 2a 2f 0d 0a 6e 3d 37 3b 00 02 00 00 00 01 00 00 | ....../*.Right!.*/..n=7;........ |
| ed00 | 00 ff ff ff 00 01 00 00 00 24 00 00 00 d1 02 00 00 01 ea 01 00 00 74 78 3d 28 2d 65 71 75 61 6c | .........$............tx=(-equal |
| ed20 | 28 70 2c 30 29 2b 2e 32 2a 65 71 75 61 6c 28 70 2c 31 29 2b 65 71 75 61 6c 28 70 2c 32 29 2b 2e | (p,0)+.2*equal(p,1)+equal(p,2)+. |
| ed40 | 32 2a 65 71 75 61 6c 28 70 2c 33 29 2d 65 71 75 61 6c 28 70 2c 34 29 2d 2e 32 2a 65 71 75 61 6c | 2*equal(p,3)-equal(p,4)-.2*equal |
| ed60 | 28 70 2c 35 29 29 2a 2e 35 3b 0d 0a 74 79 3d 28 2d 65 71 75 61 6c 28 70 2c 30 29 2d 65 71 75 61 | (p,5))*.5;..ty=(-equal(p,0)-equa |
| ed80 | 6c 28 70 2c 31 29 2b 65 71 75 61 6c 28 70 2c 33 29 2b 65 71 75 61 6c 28 70 2c 34 29 29 2a 2e 35 | l(p,1)+equal(p,3)+equal(p,4))*.5 |
| eda0 | 3b 0d 0a 70 78 3d 2d 31 32 2e 35 3b 70 79 3d 74 79 2d 34 3b 70 7a 3d 74 78 2d 32 2b 74 63 2a 32 | ;..px=-12.5;py=ty-4;pz=tx-2+tc*2 |
| edc0 | 2b 32 3b 0d 0a 70 3d 28 70 2b 31 29 25 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 | +2;..p=(p+1)%6;....px=px+ox;py=p |
| ede0 | 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a | y+oy;pz=pz+oz;..x1=px*cy+pz*sy;z |
| ee00 | 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a | 1=pz*cy-px*sy;..y2=py*cx+z1*sx;z |
| ee20 | 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 | 2=z1*cx-py*sx;..x3=x1*cz+y2*sz;y |
| ee40 | 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f | 3=y2*cz-x1*sz;..red=u1;u1=if(abo |
| ee60 | 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 | ve(z2,0.05),1/z2,0);..x=if(u1,x3 |
| ee80 | 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a | *u1,x);y=if(u1,y3*u1*reg50,y);.. |
| eea0 | 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 75 31 2a 32 32 3b 0d 0a 63 76 3d 69 66 28 62 61 6e | linesize=reg96*u1*22;..cv=if(ban |
| eec0 | 64 28 72 65 64 2c 75 31 29 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 65 65 6e 3d 63 76 | d(red,u1),1,0);..red=cv;green=cv |
| eee0 | 2a 2e 30 35 2b 73 69 6e 28 69 2a 24 70 69 29 2a 2e 30 35 3b 62 6c 75 65 3d 30 3b 0d 0a 0d 0a 00 | *.05+sin(i*$pi)*.05;blue=0;..... |
| ef00 | b3 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 | ....p=0;..../*.Camera.*/..ox=reg |
| ef20 | 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b | 30;oy=reg31;oz=reg32;..rx=reg40; |
| ef40 | 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d | ry=reg41;rz=reg42;..cx=reg43;sx= |
| ef60 | 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 | reg44;..cy=reg45;sy=reg46;..cz=r |
| ef80 | 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 74 63 3d 74 63 2b 2e 30 35 3b 74 63 3d 69 66 28 | eg47;sz=reg48;..tc=tc+.05;tc=if( |
| efa0 | 62 65 6c 6f 77 28 74 63 2c 2e 39 35 29 2c 74 63 2c 30 29 3b 0d 0a 00 00 00 00 00 13 00 00 00 2f | below(tc,.95),tc,0);.........../ |
| efc0 | 2a 20 52 69 67 68 74 21 20 2a 2f 0d 0a 6e 3d 37 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | *.Right!.*/..n=7;............... |
| efe0 | 00 00 24 00 00 00 d1 02 00 00 01 ea 01 00 00 74 78 3d 28 2d 65 71 75 61 6c 28 70 2c 30 29 2b 2e | ..$............tx=(-equal(p,0)+. |
| f000 | 32 2a 65 71 75 61 6c 28 70 2c 31 29 2b 65 71 75 61 6c 28 70 2c 32 29 2b 2e 32 2a 65 71 75 61 6c | 2*equal(p,1)+equal(p,2)+.2*equal |
| f020 | 28 70 2c 33 29 2d 65 71 75 61 6c 28 70 2c 34 29 2d 2e 32 2a 65 71 75 61 6c 28 70 2c 35 29 29 2a | (p,3)-equal(p,4)-.2*equal(p,5))* |
| f040 | 2e 35 3b 0d 0a 74 79 3d 28 2d 65 71 75 61 6c 28 70 2c 30 29 2d 65 71 75 61 6c 28 70 2c 31 29 2b | .5;..ty=(-equal(p,0)-equal(p,1)+ |
| f060 | 65 71 75 61 6c 28 70 2c 33 29 2b 65 71 75 61 6c 28 70 2c 34 29 29 2a 2e 35 3b 0d 0a 70 78 3d 2d | equal(p,3)+equal(p,4))*.5;..px=- |
| f080 | 31 32 2e 35 3b 70 79 3d 74 79 2d 34 3b 70 7a 3d 74 78 2d 32 2b 74 63 2a 32 2d 32 3b 0d 0a 70 3d | 12.5;py=ty-4;pz=tx-2+tc*2-2;..p= |
| f0a0 | 28 70 2b 31 29 25 36 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 | (p+1)%6;....px=px+ox;py=py+oy;pz |
| f0c0 | 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 | =pz+oz;..x1=px*cy+pz*sy;z1=pz*cy |
| f0e0 | 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 | -px*sy;..y2=py*cx+z1*sx;z2=z1*cx |
| f100 | 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a | -py*sx;..x3=x1*cz+y2*sz;y3=y2*cz |
| f120 | 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 | -x1*sz;..red=u1;u1=if(above(z2,0 |
| f140 | 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b | .05),1/z2,0);..x=if(u1,x3*u1,x); |
| f160 | 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a | y=if(u1,y3*u1*reg50,y);..linesiz |
| f180 | 65 3d 72 65 67 39 36 2a 75 31 2a 32 32 3b 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 | e=reg96*u1*22;..cv=if(band(red,u |
| f1a0 | 31 29 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 65 65 6e 3d 63 76 2a 2e 30 35 2b 73 69 | 1),1,0);..red=cv;green=cv*.05+si |
| f1c0 | 6e 28 69 2a 24 70 69 29 2a 2e 30 35 3b 62 6c 75 65 3d 30 3b 0d 0a 0d 0a 00 b3 00 00 00 70 3d 30 | n(i*$pi)*.05;blue=0;.........p=0 |
| f1e0 | 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 | ;..../*.Camera.*/..ox=reg30;oy=r |
| f200 | 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 | eg31;oz=reg32;..rx=reg40;ry=reg4 |
| f220 | 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d | 1;rz=reg42;..cx=reg43;sx=reg44;. |
| f240 | 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a | .cy=reg45;sy=reg46;..cz=reg47;sz |
| f260 | 3d 72 65 67 34 38 3b 0d 0a 74 63 3d 74 63 2b 2e 30 35 3b 74 63 3d 69 66 28 62 65 6c 6f 77 28 74 | =reg48;..tc=tc+.05;tc=if(below(t |
| f280 | 63 2c 2e 39 35 29 2c 74 63 2c 30 29 3b 0d 0a 00 00 00 00 00 13 00 00 00 2f 2a 20 52 69 67 68 74 | c,.95),tc,0);.........../*.Right |
| f2a0 | 21 20 2a 2f 0d 0a 6e 3d 37 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4f | !.*/..n=7;.................$...O |
| f2c0 | 02 00 00 01 63 01 00 00 70 78 3d 2d 31 32 2e 35 3b 70 79 3d 2d 35 3b 70 7a 3d 74 78 2d 35 2b 69 | ....c...px=-12.5;py=-5;pz=tx-5+i |
| f2e0 | 2a 39 3b 0d 0a 70 3d 28 70 2b 31 29 25 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 | *9;..p=(p+1)%6;....px=px+ox;py=p |
| f300 | 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a | y+oy;pz=pz+oz;..x1=px*cy+pz*sy;z |
| f320 | 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a | 1=pz*cy-px*sy;..y2=py*cx+z1*sx;z |
| f340 | 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 | 2=z1*cx-py*sx;..x3=x1*cz+y2*sz;y |
| f360 | 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f | 3=y2*cz-x1*sz;..red=u1;u1=if(abo |
| f380 | 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 | ve(z2,0.05),1/z2,0);..x=if(u1,x3 |
| f3a0 | 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a | *u1,x);y=if(u1,y3*u1*reg50,y);.. |
| f3c0 | 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 75 31 2a 32 30 3b 0d 0a 63 76 3d 69 66 28 62 61 6e | linesize=reg96*u1*20;..cv=if(ban |
| f3e0 | 64 28 72 65 64 2c 75 31 29 2c 73 69 6e 28 69 2a 24 70 69 29 2a 32 2c 30 29 3b 0d 0a 72 65 64 3d | d(red,u1),sin(i*$pi)*2,0);..red= |
| f400 | 63 76 3b 67 72 65 65 6e 3d 63 76 2a 2e 30 35 2b 73 69 6e 28 69 2a 24 70 69 29 2a 2e 30 35 3b 62 | cv;green=cv*.05+sin(i*$pi)*.05;b |
| f420 | 6c 75 65 3d 30 3b 0d 0a 0d 0a 00 b3 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 | lue=0;.........p=0;..../*.Camera |
| f440 | 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b | .*/..ox=reg30;oy=reg31;oz=reg32; |
| f460 | 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 | ..rx=reg40;ry=reg41;rz=reg42;..c |
| f480 | 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 | x=reg43;sx=reg44;..cy=reg45;sy=r |
| f4a0 | 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 74 63 3d 74 63 | eg46;..cz=reg47;sz=reg48;..tc=tc |
| f4c0 | 2b 2e 30 35 3b 74 63 3d 69 66 28 62 65 6c 6f 77 28 74 63 2c 2e 39 35 29 2c 74 63 2c 30 29 3b 0d | +.05;tc=if(below(tc,.95),tc,0);. |
| f4e0 | 0a 00 00 00 00 00 18 00 00 00 2f 2a 20 52 69 67 68 74 20 4c 69 6e 65 20 2a 2f 0d 0a 6e 3d 31 30 | ........../*.Right.Line.*/..n=10 |
| f500 | 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4f 02 00 00 01 63 01 00 00 70 | ;.................$...O....c...p |
| f520 | 78 3d 2d 31 32 2e 35 3b 70 79 3d 2d 33 3b 70 7a 3d 74 78 2d 35 2b 69 2a 39 3b 0d 0a 70 3d 28 70 | x=-12.5;py=-3;pz=tx-5+i*9;..p=(p |
| f540 | 2b 31 29 25 36 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 | +1)%6;....px=px+ox;py=py+oy;pz=p |
| f560 | 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 | z+oz;..x1=px*cy+pz*sy;z1=pz*cy-p |
| f580 | 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 | x*sy;..y2=py*cx+z1*sx;z2=z1*cx-p |
| f5a0 | 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 | y*sx;..x3=x1*cz+y2*sz;y3=y2*cz-x |
| f5c0 | 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 | 1*sz;..red=u1;u1=if(above(z2,0.0 |
| f5e0 | 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d | 5),1/z2,0);..x=if(u1,x3*u1,x);y= |
| f600 | 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d | if(u1,y3*u1*reg50,y);..linesize= |
| f620 | 72 65 67 39 36 2a 75 31 2a 32 30 3b 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 29 | reg96*u1*20;..cv=if(band(red,u1) |
| f640 | 2c 73 69 6e 28 69 2a 24 70 69 29 2a 32 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 65 65 6e 3d | ,sin(i*$pi)*2,0);..red=cv;green= |
| f660 | 63 76 2a 2e 30 35 2b 73 69 6e 28 69 2a 24 70 69 29 2a 2e 30 35 3b 62 6c 75 65 3d 30 3b 0d 0a 0d | cv*.05+sin(i*$pi)*.05;blue=0;... |
| f680 | 0a 00 b3 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 | ......p=0;..../*.Camera.*/..ox=r |
| f6a0 | 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 | eg30;oy=reg31;oz=reg32;..rx=reg4 |
| f6c0 | 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 | 0;ry=reg41;rz=reg42;..cx=reg43;s |
| f6e0 | 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a | x=reg44;..cy=reg45;sy=reg46;..cz |
| f700 | 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 74 63 3d 74 63 2b 2e 30 35 3b 74 63 3d 69 | =reg47;sz=reg48;..tc=tc+.05;tc=i |
| f720 | 66 28 62 65 6c 6f 77 28 74 63 2c 2e 39 35 29 2c 74 63 2c 30 29 3b 0d 0a 00 00 00 00 00 18 00 00 | f(below(tc,.95),tc,0);.......... |
| f740 | 00 2f 2a 20 52 69 67 68 74 20 4c 69 6e 65 20 2a 2f 0d 0a 6e 3d 31 30 3b 00 02 00 00 00 01 00 00 | ./*.Right.Line.*/..n=10;........ |
| f760 | 00 ff ff ff 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 04 80 24 00 00 00 d1 05 00 00 01 cf 04 | .........(...........$.......... |
| f780 | 00 00 74 78 3d 2d 65 71 75 61 6c 28 70 2c 30 29 2b 65 71 75 61 6c 28 70 2c 31 29 2b 65 71 75 61 | ..tx=-equal(p,0)+equal(p,1)+equa |
| f7a0 | 6c 28 70 2c 32 29 2a 2e 32 2d 65 71 75 61 6c 28 70 2c 34 29 2a 2e 35 0d 0a 2b 28 65 71 75 61 6c | l(p,2)*.2-equal(p,4)*.5..+(equal |
| f7c0 | 28 70 2c 35 29 2b 65 71 75 61 6c 28 70 2c 36 29 2b 65 71 75 61 6c 28 70 2c 31 32 29 29 2a 32 2e | (p,5)+equal(p,6)+equal(p,12))*2. |
| f7e0 | 34 2b 28 65 71 75 61 6c 28 70 2c 37 29 2b 65 71 75 61 6c 28 70 2c 38 29 29 2a 31 2e 34 2b 65 71 | 4+(equal(p,7)+equal(p,8))*1.4+eq |
| f800 | 75 61 6c 28 70 2c 39 29 2a 32 2b 65 71 75 61 6c 28 70 2c 31 30 29 2a 33 2e 32 2b 65 71 75 61 6c | ual(p,9)*2+equal(p,10)*3.2+equal |
| f820 | 28 70 2c 31 31 29 2a 33 2e 34 0d 0a 2b 65 71 75 61 6c 28 70 2c 31 33 29 2a 33 2e 34 2b 65 71 75 | (p,11)*3.4..+equal(p,13)*3.4+equ |
| f840 | 61 6c 28 70 2c 31 34 29 2a 33 2e 37 2b 65 71 75 61 6c 28 70 2c 31 35 29 2a 33 2e 37 2b 65 71 75 | al(p,14)*3.7+equal(p,15)*3.7+equ |
| f860 | 61 6c 28 70 2c 31 36 29 2a 34 0d 0a 2b 65 71 75 61 6c 28 70 2c 31 37 29 2a 34 2e 32 2b 65 71 75 | al(p,16)*4..+equal(p,17)*4.2+equ |
| f880 | 61 6c 28 70 2c 31 38 29 2a 36 2e 32 2b 65 71 75 61 6c 28 70 2c 31 39 29 2a 35 2e 34 2b 65 71 75 | al(p,18)*6.2+equal(p,19)*5.4+equ |
| f8a0 | 61 6c 28 70 2c 32 30 29 2a 34 2e 32 2b 65 71 75 61 6c 28 70 2c 32 31 29 2a 35 2e 33 2b 65 71 75 | al(p,20)*4.2+equal(p,21)*5.3+equ |
| f8c0 | 61 6c 28 70 2c 32 32 29 2a 36 2e 33 0d 0a 3b 0d 0a 74 79 3d 2d 62 65 6c 6f 77 28 70 2c 32 29 2d | al(p,22)*6.3..;..ty=-below(p,2)- |
| f8e0 | 65 71 75 61 6c 28 70 2c 33 29 2a 2e 35 2b 65 71 75 61 6c 28 70 2c 34 29 0d 0a 2d 65 71 75 61 6c | equal(p,3)*.5+equal(p,4)..-equal |
| f900 | 28 70 2c 35 29 2a 31 2e 34 2d 28 65 71 75 61 6c 28 70 2c 36 29 2b 65 71 75 61 6c 28 70 2c 37 29 | (p,5)*1.4-(equal(p,6)+equal(p,7) |
| f920 | 2b 65 71 75 61 6c 28 70 2c 31 31 29 2b 65 71 75 61 6c 28 70 2c 31 32 29 29 2a 2e 38 2b 65 71 75 | +equal(p,11)+equal(p,12))*.8+equ |
| f940 | 61 6c 28 70 2c 39 29 2b 65 71 75 61 6c 28 70 2c 31 30 29 2a 2e 32 2d 65 71 75 61 6c 28 70 2c 38 | al(p,9)+equal(p,10)*.2-equal(p,8 |
| f960 | 29 2a 2e 32 0d 0a 2d 65 71 75 61 6c 28 70 2c 31 33 29 2a 31 2e 35 2d 65 71 75 61 6c 28 70 2c 31 | )*.2..-equal(p,13)*1.5-equal(p,1 |
| f980 | 34 29 2a 2e 39 2d 65 71 75 61 6c 28 70 2c 31 35 29 2a 31 2e 36 2d 65 71 75 61 6c 28 70 2c 31 36 | 4)*.9-equal(p,15)*1.6-equal(p,16 |
| f9a0 | 29 2a 31 0d 0a 2d 65 71 75 61 6c 28 70 2c 31 37 29 2d 65 71 75 61 6c 28 70 2c 31 38 29 2b 65 71 | )*1..-equal(p,17)-equal(p,18)+eq |
| f9c0 | 75 61 6c 28 70 2c 32 30 29 2b 65 71 75 61 6c 28 70 2c 32 31 29 2a 2e 32 2b 65 71 75 61 6c 28 70 | ual(p,20)+equal(p,21)*.2+equal(p |
| f9e0 | 2c 32 32 29 0d 0a 3b 0d 0a 78 31 3d 28 74 78 2d 32 2e 36 35 29 2a 2e 34 3b 7a 31 3d 30 3b 0d 0a | ,22)..;..x1=(tx-2.65)*.4;z1=0;.. |
| fa00 | 74 78 3d 78 31 2a 63 74 2d 7a 31 2a 73 74 3b 74 7a 3d 78 31 2a 73 74 2b 7a 31 2a 63 74 3b 0d 0a | tx=x1*ct-z1*st;tz=x1*st+z1*ct;.. |
| fa20 | 70 78 3d 2d 38 2d 74 78 3b 70 79 3d 74 79 2a 2e 34 2d 34 2e 35 3b 70 7a 3d 37 2d 74 7a 3b 0d 0a | px=-8-tx;py=ty*.4-4.5;pz=7-tz;.. |
| fa40 | 70 3d 28 70 2b 31 29 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 | p=(p+1);....px=px+ox;py=py+oy;pz |
| fa60 | 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 | =pz+oz;..x1=px*cy+pz*sy;z1=pz*cy |
| fa80 | 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 | -px*sy;..y2=py*cx+z1*sx;z2=z1*cx |
| faa0 | 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a | -py*sx;..x3=x1*cz+y2*sz;y3=y2*cz |
| fac0 | 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 | -x1*sz;..red=u1;u1=if(above(z2,0 |
| fae0 | 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b | .05),1/z2,0);..x=if(u1,x3*u1,x); |
| fb00 | 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a | y=if(u1,y3*u1*reg50,y);..linesiz |
| fb20 | 65 3d 72 65 67 39 36 2a 75 31 2a 32 35 3b 0d 0a 64 76 3d 62 65 6c 6f 77 28 70 2c 36 29 2a 65 71 | e=reg96*u1*25;..dv=below(p,6)*eq |
| fb40 | 75 61 6c 28 74 63 2c 30 29 2b 62 61 6e 64 28 61 62 6f 76 65 28 70 2c 35 29 2c 62 65 6c 6f 77 28 | ual(tc,0)+band(above(p,5),below( |
| fb60 | 70 2c 31 39 29 29 2a 65 71 75 61 6c 28 74 63 2c 31 29 2b 61 62 6f 76 65 28 70 2c 31 38 29 2a 65 | p,19))*equal(tc,1)+above(p,18)*e |
| fb80 | 71 75 61 6c 28 74 63 2c 32 29 3b 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c | qual(tc,2);..cv=if(band(red,u1), |
| fba0 | 0d 0a 28 64 76 2b 31 29 2a 62 6e 6f 74 28 65 71 75 61 6c 28 70 2c 34 29 2b 65 71 75 61 6c 28 70 | ..(dv+1)*bnot(equal(p,4)+equal(p |
| fbc0 | 2c 36 29 2b 65 71 75 61 6c 28 70 2c 31 30 29 2b 65 71 75 61 6c 28 70 2c 31 34 29 2b 65 71 75 61 | ,6)+equal(p,10)+equal(p,14)+equa |
| fbe0 | 6c 28 70 2c 31 36 29 2b 65 71 75 61 6c 28 70 2c 31 38 29 2b 65 71 75 61 6c 28 70 2c 32 32 29 29 | l(p,16)+equal(p,18)+equal(p,22)) |
| fc00 | 0d 0a 2c 30 29 3b 0d 0a 0d 0a 62 6c 75 65 3d 63 76 2a 28 2e 30 32 2b 63 6f 73 28 69 2a 24 70 69 | ..,0);....blue=cv*(.02+cos(i*$pi |
| fc20 | 29 2a 2e 31 29 3b 67 72 65 65 6e 3d 63 76 2a 2e 31 30 3b 72 65 64 3d 63 76 2a 28 2e 37 32 2b 73 | )*.1);green=cv*.10;red=cv*(.72+s |
| fc40 | 69 6e 28 69 2a 24 70 69 29 2a 2e 32 29 3b 0d 0a 00 ba 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 | in(i*$pi)*.2);.......p=0;..../*. |
| fc60 | 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d | Camera.*/..ox=reg30;oy=reg31;oz= |
| fc80 | 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 | reg32;..rx=reg40;ry=reg41;rz=reg |
| fca0 | 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 | 42;..cx=reg43;sx=reg44;..cy=reg4 |
| fcc0 | 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d | 5;sy=reg46;..cz=reg47;sz=reg48;. |
| fce0 | 0a 74 3d 74 2b 2e 32 34 3b 0d 0a 0d 0a 74 74 3d 74 74 2b 2e 31 3b 0d 0a 63 74 3d 63 6f 73 28 74 | .t=t+.24;....tt=tt+.1;..ct=cos(t |
| fd00 | 74 29 3b 73 74 3d 73 69 6e 28 74 74 29 3b 00 0d 00 00 00 74 63 3d 28 74 63 2b 31 29 25 33 3b 00 | t);st=sin(tt);.....tc=(tc+1)%3;. |
| fd20 | 1a 00 00 00 2f 2a 20 4b 61 74 61 6b 61 6e 61 20 41 56 53 20 2a 2f 0d 0a 6e 3d 32 33 3b 00 02 00 | ..../*.Katakana.AVS.*/..n=23;... |
| fd40 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 05 80 24 00 00 00 7f 06 | ..............(...........$..... |
| fd60 | 00 00 01 a3 05 00 00 74 78 3d 65 71 75 61 6c 28 70 2c 30 29 2b 65 71 75 61 6c 28 70 2c 31 29 2d | .......tx=equal(p,0)+equal(p,1)- |
| fd80 | 65 71 75 61 6c 28 70 2c 32 29 2d 65 71 75 61 6c 28 70 2c 33 29 2b 65 71 75 61 6c 28 70 2c 34 29 | equal(p,2)-equal(p,3)+equal(p,4) |
| fda0 | 0d 0a 2b 65 71 75 61 6c 28 70 2c 35 29 2a 31 2e 36 2b 65 71 75 61 6c 28 70 2c 36 29 2a 33 2e 32 | ..+equal(p,5)*1.6+equal(p,6)*3.2 |
| fdc0 | 2b 65 71 75 61 6c 28 70 2c 37 29 2a 31 2e 34 2b 65 71 75 61 6c 28 70 2c 38 29 2a 33 2e 34 2b 65 | +equal(p,7)*1.4+equal(p,8)*3.4+e |
| fde0 | 71 75 61 6c 28 70 2c 39 29 2a 32 2e 37 2b 65 71 75 61 6c 28 70 2c 31 30 29 2a 31 2e 38 0d 0a 2b | qual(p,9)*2.7+equal(p,10)*1.8..+ |
| fe00 | 28 65 71 75 61 6c 28 70 2c 31 31 29 2b 65 71 75 61 6c 28 70 2c 31 34 29 29 2a 33 2e 36 2b 28 65 | (equal(p,11)+equal(p,14))*3.6+(e |
| fe20 | 71 75 61 6c 28 70 2c 31 32 29 2b 65 71 75 61 6c 28 70 2c 31 33 29 29 2a 35 2e 36 0d 0a 2b 65 71 | qual(p,12)+equal(p,13))*5.6..+eq |
| fe40 | 75 61 6c 28 70 2c 31 35 29 2a 36 2e 32 2b 65 71 75 61 6c 28 70 2c 31 36 29 2a 38 2e 32 2b 65 71 | ual(p,15)*6.2+equal(p,16)*8.2+eq |
| fe60 | 75 61 6c 28 70 2c 31 37 29 2a 37 2e 34 2b 65 71 75 61 6c 28 70 2c 31 38 29 2a 36 2e 32 2b 65 71 | ual(p,17)*7.4+equal(p,18)*6.2+eq |
| fe80 | 75 61 6c 28 70 2c 31 39 29 2a 37 2e 32 2b 65 71 75 61 6c 28 70 2c 32 30 29 2a 38 2e 32 0d 0a 2b | ual(p,19)*7.2+equal(p,20)*8.2..+ |
| fea0 | 65 71 75 61 6c 28 70 2c 32 31 29 2a 38 2e 37 2b 65 71 75 61 6c 28 70 2c 32 32 29 2a 39 2e 32 2b | equal(p,21)*8.7+equal(p,22)*9.2+ |
| fec0 | 65 71 75 61 6c 28 70 2c 32 33 29 2a 31 30 2e 36 2b 65 71 75 61 6c 28 70 2c 32 34 29 2a 39 2e 38 | equal(p,23)*10.6+equal(p,24)*9.8 |
| fee0 | 2b 65 71 75 61 6c 28 70 2c 32 35 29 2a 38 2e 37 2b 65 71 75 61 6c 28 70 2c 32 36 29 2a 31 30 2e | +equal(p,25)*8.7+equal(p,26)*10. |
| ff00 | 30 2b 65 71 75 61 6c 28 70 2c 32 37 29 2a 39 2e 35 2b 65 71 75 61 6c 28 70 2c 32 38 29 2a 31 30 | 0+equal(p,27)*9.5+equal(p,28)*10 |
| ff20 | 2e 33 0d 0a 3b 0d 0a 74 79 3d 2d 65 71 75 61 6c 28 70 2c 30 29 2b 65 71 75 61 6c 28 70 2c 31 29 | .3..;..ty=-equal(p,0)+equal(p,1) |
| ff40 | 2b 65 71 75 61 6c 28 70 2c 32 29 2d 65 71 75 61 6c 28 70 2c 33 29 2d 65 71 75 61 6c 28 70 2c 34 | +equal(p,2)-equal(p,3)-equal(p,4 |
| ff60 | 29 0d 0a 2d 28 65 71 75 61 6c 28 70 2c 35 29 2b 65 71 75 61 6c 28 70 2c 36 29 29 2a 2e 39 2d 28 | )..-(equal(p,5)+equal(p,6))*.9-( |
| ff80 | 65 71 75 61 6c 28 70 2c 37 29 2b 65 71 75 61 6c 28 70 2c 38 29 29 2a 2e 34 2b 65 71 75 61 6c 28 | equal(p,7)+equal(p,8))*.4+equal( |
| ffa0 | 70 2c 39 29 2a 2e 35 2b 65 71 75 61 6c 28 70 2c 31 30 29 0d 0a 2d 65 71 75 61 6c 28 70 2c 31 31 | p,9)*.5+equal(p,10)..-equal(p,11 |
| ffc0 | 29 2d 65 71 75 61 6c 28 70 2c 31 32 29 2b 65 71 75 61 6c 28 70 2c 31 33 29 2b 65 71 75 61 6c 28 | )-equal(p,12)+equal(p,13)+equal( |
| ffe0 | 70 2c 31 34 29 0d 0a 2d 65 71 75 61 6c 28 70 2c 31 35 29 2d 65 71 75 61 6c 28 70 2c 31 36 29 2b | p,14)..-equal(p,15)-equal(p,16)+ |
| 10000 | 65 71 75 61 6c 28 70 2c 31 38 29 2b 65 71 75 61 6c 28 70 2c 31 39 29 2a 2e 32 2b 65 71 75 61 6c | equal(p,18)+equal(p,19)*.2+equal |
| 10020 | 28 70 2c 32 30 29 0d 0a 2d 65 71 75 61 6c 28 70 2c 32 32 29 2d 65 71 75 61 6c 28 70 2c 32 33 29 | (p,20)..-equal(p,22)-equal(p,23) |
| 10040 | 2b 65 71 75 61 6c 28 70 2c 32 34 29 2a 2e 35 2b 65 71 75 61 6c 28 70 2c 32 35 29 2b 65 71 75 61 | +equal(p,24)*.5+equal(p,25)+equa |
| 10060 | 6c 28 70 2c 32 36 29 2a 2e 33 2d 65 71 75 61 6c 28 70 2c 32 37 29 2a 2e 33 2b 65 71 75 61 6c 28 | l(p,26)*.3-equal(p,27)*.3+equal( |
| 10080 | 70 2c 32 38 29 2a 2e 34 0d 0a 3b 0d 0a 0d 0a 70 78 3d 31 31 3b 70 79 3d 74 79 2d 37 3b 70 7a 3d | p,28)*.4..;....px=11;py=ty-7;pz= |
| 100a0 | 2d 74 78 2b 37 3b 0d 0a 70 3d 28 70 2b 31 29 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d | -tx+7;..p=(p+1);....px=px+ox;py= |
| 100c0 | 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 2b 70 7a 2a 73 79 3b | py+oy;pz=pz+oz;..x1=px*cy+pz*sy; |
| 100e0 | 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b | z1=pz*cy-px*sy;..y2=py*cx+z1*sx; |
| 10100 | 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b | z2=z1*cx-py*sx;..x3=x1*cz+y2*sz; |
| 10120 | 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 | y3=y2*cz-x1*sz;..red=u1;u1=if(ab |
| 10140 | 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 | ove(z2,0.05),1/z2,0);..x=if(u1,x |
| 10160 | 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d | 3*u1,x);y=if(u1,y3*u1*reg50,y);. |
| 10180 | 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 75 31 2a 34 30 3b 0d 0a 64 76 3d 62 65 6c 6f 77 | .linesize=reg96*u1*40;..dv=below |
| 101a0 | 28 70 2c 36 29 2a 65 71 75 61 6c 28 74 63 2c 30 29 2b 62 61 6e 64 28 61 62 6f 76 65 28 70 2c 35 | (p,6)*equal(tc,0)+band(above(p,5 |
| 101c0 | 29 2c 62 65 6c 6f 77 28 70 2c 31 32 29 29 2a 65 71 75 61 6c 28 74 63 2c 31 29 2b 62 61 6e 64 28 | ),below(p,12))*equal(tc,1)+band( |
| 101e0 | 61 62 6f 76 65 28 70 2c 31 31 29 2c 62 65 6c 6f 77 28 70 2c 31 36 29 29 2a 65 71 75 61 6c 28 74 | above(p,11),below(p,16))*equal(t |
| 10200 | 63 2c 32 29 2b 62 61 6e 64 28 61 62 6f 76 65 28 70 2c 31 35 29 2c 62 65 6c 6f 77 28 70 2c 32 32 | c,2)+band(above(p,15),below(p,22 |
| 10220 | 29 29 2a 65 71 75 61 6c 28 74 63 2c 33 29 2b 61 62 6f 76 65 28 70 2c 32 31 29 2a 65 71 75 61 6c | ))*equal(tc,3)+above(p,21)*equal |
| 10240 | 28 74 63 2c 34 29 3b 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c 0d 0a 62 6e | (tc,4);..cv=if(band(red,u1),..bn |
| 10260 | 6f 74 28 65 71 75 61 6c 28 70 2c 36 29 2b 65 71 75 61 6c 28 70 2c 38 29 2b 65 71 75 61 6c 28 70 | ot(equal(p,6)+equal(p,8)+equal(p |
| 10280 | 2c 31 32 29 2b 65 71 75 61 6c 28 70 2c 31 36 29 2b 65 71 75 61 6c 28 70 2c 32 30 29 2b 65 71 75 | ,12)+equal(p,16)+equal(p,20)+equ |
| 102a0 | 61 6c 28 70 2c 32 32 29 2b 65 71 75 61 6c 28 70 2c 32 37 29 2b 65 71 75 61 6c 28 70 2c 32 38 29 | al(p,22)+equal(p,27)+equal(p,28) |
| 102c0 | 29 0d 0a 2c 30 29 3b 0d 0a 0d 0a 62 6c 75 65 3d 63 76 2a 28 2e 30 35 29 3b 67 72 65 65 6e 3d 63 | )..,0);....blue=cv*(.05);green=c |
| 102e0 | 76 2a 28 2e 30 35 2b 64 76 2a 2e 35 29 3b 72 65 64 3d 63 76 2a 28 31 2b 73 69 6e 28 69 2a 24 70 | v*(.05+dv*.5);red=cv*(1+sin(i*$p |
| 10300 | 69 29 2a 2e 32 29 3b 0d 0a 00 95 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 | i)*.2);.......p=0;..../*.Camera. |
| 10320 | 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d | */..ox=reg30;oy=reg31;oz=reg32;. |
| 10340 | 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 | .rx=reg40;ry=reg41;rz=reg42;..cx |
| 10360 | 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 | =reg43;sx=reg44;..cy=reg45;sy=re |
| 10380 | 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 74 3d 74 2b 2e 32 | g46;..cz=reg47;sz=reg48;..t=t+.2 |
| 103a0 | 34 3b 00 0d 00 00 00 74 63 3d 28 74 63 2b 31 29 25 35 3b 00 19 00 00 00 2f 2a 20 4b 61 74 61 6b | 4;.....tc=(tc+1)%5;...../*.Katak |
| 103c0 | 61 6e 61 20 52 43 20 2a 2f 0d 0a 6e 3d 32 39 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | ana.RC.*/..n=29;................ |
| 103e0 | 00 24 00 00 00 a9 06 00 00 01 be 05 00 00 74 78 3d 28 65 71 75 61 6c 28 70 2c 31 35 29 2d 65 71 | .$............tx=(equal(p,15)-eq |
| 10400 | 75 61 6c 28 70 2c 30 29 29 2a 2e 31 2b 28 65 71 75 61 6c 28 70 2c 31 36 29 2d 65 71 75 61 6c 28 | ual(p,0))*.1+(equal(p,16)-equal( |
| 10420 | 70 2c 31 29 29 2a 31 2e 31 0d 0a 2d 28 65 71 75 61 6c 28 70 2c 32 29 2b 65 71 75 61 6c 28 70 2c | p,1))*1.1..-(equal(p,2)+equal(p, |
| 10440 | 33 29 2b 65 71 75 61 6c 28 70 2c 34 29 2b 65 71 75 61 6c 28 70 2c 36 29 2d 28 65 71 75 61 6c 28 | 3)+equal(p,4)+equal(p,6)-(equal( |
| 10460 | 70 2c 32 38 29 2b 65 71 75 61 6c 28 70 2c 32 39 29 29 29 2a 2e 36 2b 28 65 71 75 61 6c 28 70 2c | p,28)+equal(p,29)))*.6+(equal(p, |
| 10480 | 32 30 29 2d 65 71 75 61 6c 28 70 2c 35 29 29 2a 31 2e 31 2b 28 65 71 75 61 6c 28 70 2c 32 32 29 | 20)-equal(p,5))*1.1+(equal(p,22) |
| 104a0 | 2d 65 71 75 61 6c 28 70 2c 37 29 29 2a 2e 31 0d 0a 2d 28 65 71 75 61 6c 28 70 2c 38 29 2b 65 71 | -equal(p,7))*.1..-(equal(p,8)+eq |
| 104c0 | 75 61 6c 28 70 2c 31 31 29 2b 65 71 75 61 6c 28 70 2c 31 32 29 2b 65 71 75 61 6c 28 70 2c 31 33 | ual(p,11)+equal(p,12)+equal(p,13 |
| 104e0 | 29 2d 28 65 71 75 61 6c 28 70 2c 32 33 29 2b 65 71 75 61 6c 28 70 2c 32 36 29 2b 65 71 75 61 6c | )-(equal(p,23)+equal(p,26)+equal |
| 10500 | 28 70 2c 32 37 29 29 29 2a 2e 39 2d 28 65 71 75 61 6c 28 70 2c 39 29 2b 65 71 75 61 6c 28 70 2c | (p,27)))*.9-(equal(p,9)+equal(p, |
| 10520 | 31 30 29 2b 65 71 75 61 6c 28 70 2c 31 34 29 2d 28 65 71 75 61 6c 28 70 2c 32 34 29 2b 65 71 75 | 10)+equal(p,14)-(equal(p,24)+equ |
| 10540 | 61 6c 28 70 2c 32 35 29 29 29 2a 2e 33 0d 0a 2b 28 65 71 75 61 6c 28 70 2c 31 37 29 2b 65 71 75 | al(p,25)))*.3..+(equal(p,17)+equ |
| 10560 | 61 6c 28 70 2c 31 38 29 29 2a 2e 36 2b 65 71 75 61 6c 28 70 2c 31 39 29 2a 2e 38 2b 65 71 75 61 | al(p,18))*.6+equal(p,19)*.8+equa |
| 10580 | 6c 28 70 2c 32 31 29 2a 2e 34 0d 0a 2b 65 71 75 61 6c 28 70 2c 33 30 29 2a 2e 35 0d 0a 3b 0d 0a | l(p,21)*.4..+equal(p,30)*.5..;.. |
| 105a0 | 74 79 3d 28 65 71 75 61 6c 28 70 2c 31 35 29 2b 65 71 75 61 6c 28 70 2c 31 36 29 2b 65 71 75 61 | ty=(equal(p,15)+equal(p,16)+equa |
| 105c0 | 6c 28 70 2c 30 29 2b 65 71 75 61 6c 28 70 2c 31 29 29 2a 2d 2e 38 0d 0a 2d 65 71 75 61 6c 28 70 | l(p,0)+equal(p,1))*-.8..-equal(p |
| 105e0 | 2c 32 29 2b 65 71 75 61 6c 28 70 2c 33 29 2a 2e 36 2d 28 65 71 75 61 6c 28 70 2c 34 29 2b 65 71 | ,2)+equal(p,3)*.6-(equal(p,4)+eq |
| 10600 | 75 61 6c 28 70 2c 36 29 29 2a 2e 31 2b 65 71 75 61 6c 28 70 2c 35 29 2a 2e 34 2b 65 71 75 61 6c | ual(p,6))*.1+equal(p,5)*.4+equal |
| 10620 | 28 70 2c 37 29 2a 2e 34 0d 0a 2d 28 65 71 75 61 6c 28 70 2c 38 29 2b 65 71 75 61 6c 28 70 2c 39 | (p,7)*.4..-(equal(p,8)+equal(p,9 |
| 10640 | 29 2b 65 71 75 61 6c 28 70 2c 31 32 29 29 2a 2e 36 32 2d 28 65 71 75 61 6c 28 70 2c 31 33 29 2b | )+equal(p,12))*.62-(equal(p,13)+ |
| 10660 | 65 71 75 61 6c 28 70 2c 31 34 29 29 2a 2e 33 38 2d 28 65 71 75 61 6c 28 70 2c 31 30 29 2b 65 71 | equal(p,14))*.38-(equal(p,10)+eq |
| 10680 | 75 61 6c 28 70 2c 31 31 29 29 2a 2e 31 36 0d 0a 2d 65 71 75 61 6c 28 70 2c 31 37 29 2d 65 71 75 | ual(p,11))*.16..-equal(p,17)-equ |
| 106a0 | 61 6c 28 70 2c 31 38 29 2a 2e 37 34 2b 28 65 71 75 61 6c 28 70 2c 31 39 29 2b 65 71 75 61 6c 28 | al(p,18)*.74+(equal(p,19)+equal( |
| 106c0 | 70 2c 32 31 29 29 2a 2e 31 2b 65 71 75 61 6c 28 70 2c 32 30 29 2a 2e 34 2b 65 71 75 61 6c 28 70 | p,21))*.1+equal(p,20)*.4+equal(p |
| 106e0 | 2c 32 32 29 2a 2e 34 0d 0a 2d 28 65 71 75 61 6c 28 70 2c 32 33 29 2b 65 71 75 61 6c 28 70 2c 32 | ,22)*.4..-(equal(p,23)+equal(p,2 |
| 10700 | 34 29 2b 65 71 75 61 6c 28 70 2c 32 37 29 29 2a 2e 36 32 2d 28 65 71 75 61 6c 28 70 2c 32 35 29 | 4)+equal(p,27))*.62-(equal(p,25) |
| 10720 | 2b 65 71 75 61 6c 28 70 2c 32 36 29 29 2a 2e 31 36 0d 0a 2d 65 71 75 61 6c 28 70 2c 32 38 29 2a | +equal(p,26))*.16..-equal(p,28)* |
| 10740 | 2e 32 2b 65 71 75 61 6c 28 70 2c 32 39 29 2a 2e 35 2b 65 71 75 61 6c 28 70 2c 33 30 29 2a 2e 34 | .2+equal(p,29)*.5+equal(p,30)*.4 |
| 10760 | 3b 0d 0a 3b 0d 0a 70 78 3d 2d 35 2d 74 78 2a 33 3b 70 79 3d 74 79 2a 33 2d 35 3b 70 7a 3d 2d 31 | ;..;..px=-5-tx*3;py=ty*3-5;pz=-1 |
| 10780 | 35 3b 0d 0a 70 3d 28 70 2b 31 29 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f | 5;..p=(p+1);....px=px+ox;py=py+o |
| 107a0 | 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 | y;pz=pz+oz;..x1=px*cy+pz*sy;z1=p |
| 107c0 | 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a | z*cy-px*sy;..y2=py*cx+z1*sx;z2=z |
| 107e0 | 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 | 1*cx-py*sx;..x3=x1*cz+y2*sz;y3=y |
| 10800 | 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 | 2*cz-x1*sz;..red=u1;u1=if(above( |
| 10820 | 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 | z2,0.05),1/z2,0);..x=if(u1,x3*u1 |
| 10840 | 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e | ,x);y=if(u1,y3*u1*reg50,y);..lin |
| 10860 | 65 73 69 7a 65 3d 72 65 67 39 36 2a 75 31 2a 36 35 3b 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 | esize=reg96*u1*65;..cv=if(band(r |
| 10880 | 65 64 2c 75 31 29 2c 0d 0a 28 6b 6b 2a 2e 36 35 2b 2e 33 35 29 2a 62 6e 6f 74 28 0d 0a 65 71 75 | ed,u1),..(kk*.65+.35)*bnot(..equ |
| 108a0 | 61 6c 28 70 2c 33 29 2b 65 71 75 61 6c 28 70 2c 35 29 2b 65 71 75 61 6c 28 70 2c 37 29 2b 65 71 | al(p,3)+equal(p,5)+equal(p,7)+eq |
| 108c0 | 75 61 6c 28 70 2c 39 29 0d 0a 2b 65 71 75 61 6c 28 70 2c 31 36 29 2b 65 71 75 61 6c 28 70 2c 31 | ual(p,9)..+equal(p,16)+equal(p,1 |
| 108e0 | 38 29 2b 65 71 75 61 6c 28 70 2c 32 30 29 2b 65 71 75 61 6c 28 70 2c 32 39 29 0d 0a 2b 65 71 75 | 8)+equal(p,20)+equal(p,29)..+equ |
| 10900 | 61 6c 28 70 2c 32 32 29 2b 65 71 75 61 6c 28 70 2c 32 34 29 0d 0a 29 0d 0a 2c 30 29 3b 0d 0a 0d | al(p,22)+equal(p,24)..)..,0);... |
| 10920 | 0a 72 65 64 3d 63 76 2a 28 2e 36 2b 63 6f 73 28 69 2a 24 70 69 29 2a 2e 30 35 29 3b 67 72 65 65 | .red=cv*(.6+cos(i*$pi)*.05);gree |
| 10940 | 6e 3d 63 76 2a 2e 36 3b 62 6c 75 65 3d 63 76 2a 28 2e 38 35 2b 73 69 6e 28 69 2a 24 70 69 29 2a | n=cv*.6;blue=cv*(.85+sin(i*$pi)* |
| 10960 | 2e 30 31 29 3b 0d 0a 0d 0a 73 64 31 3d 28 73 64 31 2a 31 34 34 2b 31 32 29 25 31 30 30 30 3b 0d | .01);....sd1=(sd1*144+12)%1000;. |
| 10980 | 0a 73 64 32 3d 28 73 64 32 2a 34 31 37 2b 34 37 29 25 31 30 30 30 3b 0d 0a 2f 2f 78 3d 74 78 2a | .sd2=(sd2*417+47)%1000;..//x=tx* |
| 109a0 | 2e 35 3b 79 3d 74 79 2a 2e 35 3b 00 a6 00 00 00 70 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 | .5;y=ty*.5;.....p=0;..../*.Camer |
| 109c0 | 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 | a.*/..ox=reg30;oy=reg31;oz=reg32 |
| 109e0 | 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a | ;..rx=reg40;ry=reg41;rz=reg42;.. |
| 10a00 | 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d | cx=reg43;sx=reg44;..cy=reg45;sy= |
| 10a20 | 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 0d 0a 0d 0a | reg46;..cz=reg47;sz=reg48;...... |
| 10a40 | 73 64 31 3d 35 32 33 3b 73 64 32 3d 36 36 33 3b 6b 6b 3d 74 3b 00 0b 00 00 00 74 3d 62 6e 6f 74 | sd1=523;sd2=663;kk=t;.....t=bnot |
| 10a60 | 28 74 29 3b 00 19 00 00 00 2f 2a 20 4b 61 6e 6a 69 20 54 6f 6b 79 6f 20 2a 2f 0d 0a 6e 3d 33 31 | (t);...../*.Kanji.Tokyo.*/..n=31 |
| 10a80 | 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 20 03 00 00 01 1e 02 00 00 69 | ;.................$............i |
| 10aa0 | 3d 28 69 2b 2e 31 32 35 29 2a 24 70 69 2a 32 3b 0d 0a 68 78 3d 63 6f 73 28 69 29 2a 31 2e 34 35 | =(i+.125)*$pi*2;..hx=cos(i)*1.45 |
| 10ac0 | 3b 68 79 3d 73 69 6e 28 69 29 2a 31 2e 34 35 3b 0d 0a 70 78 3d 68 78 2a 32 3b 70 79 3d 68 79 2a | ;hy=sin(i)*1.45;..px=hx*2;py=hy* |
| 10ae0 | 33 2d 31 3b 70 7a 3d 2d 31 31 2d 70 78 3b 70 78 3d 70 78 2d 31 34 3b 0d 0a 0d 0a 67 78 3d 69 66 | 3-1;pz=-11-px;px=px-14;....gx=if |
| 10b00 | 28 62 65 6c 6f 77 28 67 78 2c 67 31 2d 31 29 2c 67 78 2b 31 2c 30 29 3b 0d 0a 67 79 3d 69 66 28 | (below(gx,g1-1),gx+1,0);..gy=if( |
| 10b20 | 67 78 2c 67 79 2c 67 79 2b 31 29 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f | gx,gy,gy+1);....px=px+ox;py=py+o |
| 10b40 | 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 | y;pz=pz+oz;..x1=px*cy+pz*sy;z1=p |
| 10b60 | 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a | z*cy-px*sy;..y2=py*cx+z1*sx;z2=z |
| 10b80 | 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 | 1*cx-py*sx;..x3=x1*cz+y2*sz;y3=y |
| 10ba0 | 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 | 2*cz-x1*sz;..red=u1;u1=if(above( |
| 10bc0 | 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 | z2,0.05),1/z2,0);..x=if(u1,x3*u1 |
| 10be0 | 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e | ,x);y=if(u1,y3*u1*reg50,y);..lin |
| 10c00 | 65 73 69 7a 65 3d 72 65 67 39 36 2a 75 31 2a 34 35 3b 0d 0a 63 76 3d 62 61 6e 64 28 62 61 6e 64 | esize=reg96*u1*45;..cv=band(band |
| 10c20 | 28 72 65 64 2c 75 31 29 2c 67 78 2d 31 29 2a 2e 34 3b 0d 0a 0d 0a 72 65 64 3d 63 76 2a 28 31 2b | (red,u1),gx-1)*.4;....red=cv*(1+ |
| 10c40 | 63 6f 73 28 69 2a 24 70 69 2a 32 2b 63 76 2a 35 29 2a 2e 32 29 3b 67 72 65 65 6e 3d 63 76 2a 28 | cos(i*$pi*2+cv*5)*.2);green=cv*( |
| 10c60 | 73 69 6e 28 69 2a 24 70 69 2a 32 2b 63 76 2a 37 29 2a 2e 31 2b 2e 31 35 29 3b 62 6c 75 65 3d 63 | sin(i*$pi*2+cv*7)*.1+.15);blue=c |
| 10c80 | 76 2a 28 2e 30 35 29 3b 0d 0a 0d 0a 73 64 31 3d 28 73 64 31 2a 31 34 34 2b 31 32 29 25 31 30 30 | v*(.05);....sd1=(sd1*144+12)%100 |
| 10ca0 | 30 3b 0d 0a 73 64 32 3d 28 73 64 32 2a 34 31 37 2b 34 37 29 25 31 30 30 30 3b 0d 0a 00 ae 00 00 | 0;..sd2=(sd2*417+47)%1000;...... |
| 10cc0 | 00 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 | ...../*.Camera.*/..ox=reg30;oy=r |
| 10ce0 | 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 | eg31;oz=reg32;..rx=reg40;ry=reg4 |
| 10d00 | 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d | 1;rz=reg42;..cx=reg43;sx=reg44;. |
| 10d20 | 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a | .cy=reg45;sy=reg46;..cz=reg47;sz |
| 10d40 | 3d 72 65 67 34 38 3b 0d 0a 0d 0a 0d 0a 73 64 31 3d 35 32 33 3b 73 64 32 3d 36 36 33 3b 6b 6b 3d | =reg48;......sd1=523;sd2=663;kk= |
| 10d60 | 74 3b 0d 0a 74 6b 3d 74 6b 2b 2e 30 37 3b 00 0f 00 00 00 74 3d 62 6e 6f 74 28 74 29 3b 0d 0a 0d | t;..tk=tk+.07;.....t=bnot(t);... |
| 10d80 | 0a 00 24 00 00 00 2f 2a 20 57 69 72 65 20 77 61 6c 6c 20 74 68 69 6e 67 79 20 62 6f 72 64 65 72 | ..$.../*.Wire.wall.thingy.border |
| 10da0 | 20 2a 2f 0d 0a 6e 3d 35 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 7c 04 | .*/..n=5;.................$...|. |
| 10dc0 | 00 00 01 30 03 00 00 68 78 3d 67 78 2a 69 67 31 2a 32 2d 31 3b 68 79 3d 67 79 2a 69 67 32 2a 32 | ...0...hx=gx*ig1*2-1;hy=gy*ig2*2 |
| 10de0 | 2d 31 3b 0d 0a 70 78 3d 68 78 2a 32 3b 70 79 3d 68 79 2a 33 2d 31 3b 70 7a 3d 2d 31 31 2d 70 78 | -1;..px=hx*2;py=hy*3-1;pz=-11-px |
| 10e00 | 3b 70 78 3d 70 78 2d 31 34 3b 0d 0a 0d 0a 67 78 3d 69 66 28 62 65 6c 6f 77 28 67 78 2c 67 31 2d | ;px=px-14;....gx=if(below(gx,g1- |
| 10e20 | 31 29 2c 67 78 2b 31 2c 30 29 3b 0d 0a 67 79 3d 69 66 28 67 78 2c 67 79 2c 67 79 2b 31 29 3b 0d | 1),gx+1,0);..gy=if(gx,gy,gy+1);. |
| 10e40 | 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;.. |
| 10e60 | 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a | x1=px*cy+pz*sy;z1=pz*cy-px*sy;.. |
| 10e80 | 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a | y2=py*cx+z1*sx;z2=z1*cx-py*sx;.. |
| 10ea0 | 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a | x3=x1*cz+y2*sz;y3=y2*cz-x1*sz;.. |
| 10ec0 | 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 | red=u1;u1=if(above(z2,0.05),1/z2 |
| 10ee0 | 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 | ,0);..x=if(u1,x3*u1,x);y=if(u1,y |
| 10f00 | 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 39 36 2a 75 | 3*u1*reg50,y);..linesize=reg96*u |
| 10f20 | 31 2a 35 35 3b 0d 0a 63 76 3d 62 61 6e 64 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c 67 78 2d 31 | 1*55;..cv=band(band(red,u1),gx-1 |
| 10f40 | 29 3b 0d 0a 68 78 3d 68 78 2d 2e 31 3b 68 79 3d 68 79 2d 2e 31 3b 0d 0a 63 76 3d 2e 34 35 2a 63 | );..hx=hx-.1;hy=hy-.1;..cv=.45*c |
| 10f60 | 76 2a 69 66 28 65 71 75 61 6c 28 6d 64 2c 30 29 2c 28 61 62 73 28 67 65 74 6f 73 63 28 73 69 6e | v*if(equal(md,0),(abs(getosc(sin |
| 10f80 | 28 67 78 2a 34 2e 37 34 2b 67 79 2a 38 2e 31 29 2a 2e 35 2b 2e 35 2c 30 2c 30 29 29 2a 33 2b 2e | (gx*4.74+gy*8.1)*.5+.5,0,0))*3+. |
| 10fa0 | 31 29 2c 69 66 28 65 71 75 61 6c 28 6d 64 2c 31 29 2c 32 2a 73 69 6e 28 63 6f 73 28 61 74 61 6e | 1),if(equal(md,1),2*sin(cos(atan |
| 10fc0 | 32 28 68 79 2c 68 78 29 2a 33 2b 74 6b 2a 35 29 2b 73 71 72 74 28 73 71 72 28 68 78 29 2b 73 71 | 2(hy,hx)*3+tk*5)+sqrt(sqr(hx)+sq |
| 10fe0 | 72 28 68 79 29 29 2a 33 2b 31 29 2a 2e 35 2b 2e 35 2c 69 66 28 65 71 75 61 6c 28 6d 64 2c 32 29 | r(hy))*3+1)*.5+.5,if(equal(md,2) |
| 11000 | 2c 32 2a 73 69 6e 28 28 61 62 73 28 68 78 29 2b 68 79 2a 2e 38 2d 74 6b 29 2a 33 29 2c 69 66 28 | ,2*sin((abs(hx)+hy*.8-tk)*3),if( |
| 11020 | 65 71 75 61 6c 28 6d 64 2c 33 29 2c 6d 61 78 28 63 6f 73 28 68 78 2a 35 2b 74 6b 2a 35 29 2c 63 | equal(md,3),max(cos(hx*5+tk*5),c |
| 11040 | 6f 73 28 68 79 2a 35 29 29 2c 6d 61 78 28 63 6f 73 28 68 79 2a 35 2b 74 6b 2a 35 29 2c 63 6f 73 | os(hy*5)),max(cos(hy*5+tk*5),cos |
| 11060 | 28 68 78 2a 35 29 29 29 29 29 29 3b 0d 0a 0d 0a 72 65 64 3d 63 76 2a 28 31 2b 63 6f 73 28 69 2a | (hx*5))))));....red=cv*(1+cos(i* |
| 11080 | 24 70 69 2a 32 2b 63 76 2a 35 29 2a 2e 32 29 3b 67 72 65 65 6e 3d 63 76 2a 28 73 69 6e 28 69 2a | $pi*2+cv*5)*.2);green=cv*(sin(i* |
| 110a0 | 24 70 69 2a 32 2b 63 76 2a 37 29 2a 2e 33 2b 2e 31 35 29 3b 62 6c 75 65 3d 63 76 2a 28 2e 30 35 | $pi*2+cv*7)*.3+.15);blue=cv*(.05 |
| 110c0 | 29 3b 0d 0a 0d 0a 73 64 31 3d 28 73 64 31 2a 31 34 34 2b 31 32 29 25 31 30 30 30 3b 0d 0a 73 64 | );....sd1=(sd1*144+12)%1000;..sd |
| 110e0 | 32 3d 28 73 64 32 2a 34 31 37 2b 34 37 29 25 31 30 30 30 3b 0d 0a 00 b8 00 00 00 67 78 3d 30 3b | 2=(sd2*417+47)%1000;.......gx=0; |
| 11100 | 67 79 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b | gy=0;..../*.Camera.*/..ox=reg30; |
| 11120 | 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d | oy=reg31;oz=reg32;..rx=reg40;ry= |
| 11140 | 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 | reg41;rz=reg42;..cx=reg43;sx=reg |
| 11160 | 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 | 44;..cy=reg45;sy=reg46;..cz=reg4 |
| 11180 | 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 0d 0a 0d 0a 73 64 31 3d 35 32 33 3b 73 64 32 3d 36 36 33 | 7;sz=reg48;......sd1=523;sd2=663 |
| 111a0 | 3b 6b 6b 3d 74 3b 0d 0a 74 6b 3d 74 6b 2b 2e 30 37 3b 00 2a 00 00 00 74 3d 62 6e 6f 74 28 74 29 | ;kk=t;..tk=tk+.07;.*...t=bnot(t) |
| 111c0 | 3b 0d 0a 6d 64 3d 69 66 28 72 61 6e 64 28 34 29 2c 6d 64 2c 28 6d 64 2b 31 29 25 35 29 3b 0d 0a | ;..md=if(rand(4),md,(md+1)%5);.. |
| 111e0 | 00 49 00 00 00 2f 2a 20 57 69 72 65 20 77 61 6c 6c 20 74 68 69 6e 67 79 20 31 20 2a 2f 0d 0a 67 | .I.../*.Wire.wall.thingy.1.*/..g |
| 11200 | 31 3d 31 31 3b 67 32 3d 31 31 3b 6e 3d 67 31 2a 67 32 3b 69 67 31 3d 31 2f 28 67 31 2d 31 29 3b | 1=11;g2=11;n=g1*g2;ig1=1/(g1-1); |
| 11220 | 69 67 32 3d 31 2f 28 67 31 2d 31 29 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 | ig2=1/(g1-1);.................$. |
| 11240 | 00 00 85 04 00 00 01 39 03 00 00 68 79 3d 67 78 2a 69 67 31 2a 32 2d 31 3b 68 78 3d 67 79 2a 69 | .......9...hy=gx*ig1*2-1;hx=gy*i |
| 11260 | 67 32 2a 32 2d 31 3b 0d 0a 70 78 3d 68 78 2a 32 3b 70 79 3d 68 79 2a 33 2d 31 3b 70 7a 3d 2d 31 | g2*2-1;..px=hx*2;py=hy*3-1;pz=-1 |
| 11280 | 31 2d 70 78 3b 70 78 3d 70 78 2d 31 34 3b 0d 0a 0d 0a 67 78 3d 69 66 28 62 65 6c 6f 77 28 67 78 | 1-px;px=px-14;....gx=if(below(gx |
| 112a0 | 2c 67 31 2d 31 29 2c 67 78 2b 31 2c 30 29 3b 0d 0a 67 79 3d 69 66 28 67 78 2c 67 79 2c 67 79 2b | ,g1-1),gx+1,0);..gy=if(gx,gy,gy+ |
| 112c0 | 31 29 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 | 1);....px=px+ox;py=py+oy;pz=pz+o |
| 112e0 | 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 | z;..x1=px*cy+pz*sy;z1=pz*cy-px*s |
| 11300 | 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 | y;..y2=py*cx+z1*sx;z2=z1*cx-py*s |
| 11320 | 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 | x;..x3=x1*cz+y2*sz;y3=y2*cz-x1*s |
| 11340 | 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c | z;..red=u1;u1=if(above(z2,0.05), |
| 11360 | 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 | 1/z2,0);..x=if(u1,x3*u1,x);y=if( |
| 11380 | 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 72 65 67 | u1,y3*u1*reg50,y);..linesize=reg |
| 113a0 | 39 36 2a 75 31 2a 35 35 3b 0d 0a 63 76 3d 62 61 6e 64 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c | 96*u1*55;..cv=band(band(red,u1), |
| 113c0 | 67 78 2d 31 29 3b 0d 0a 68 78 3d 68 78 2d 2e 31 3b 68 79 3d 68 79 2d 2e 31 3b 0d 0a 63 76 3d 2e | gx-1);..hx=hx-.1;hy=hy-.1;..cv=. |
| 113e0 | 34 35 2a 63 76 2a 28 2e 31 2b 69 66 28 65 71 75 61 6c 28 6d 64 2c 30 29 2c 28 61 62 73 28 67 65 | 45*cv*(.1+if(equal(md,0),(abs(ge |
| 11400 | 74 6f 73 63 28 73 69 6e 28 67 78 2a 34 2e 37 34 2b 67 79 2a 38 2e 31 29 2a 2e 35 2b 2e 35 2c 30 | tosc(sin(gx*4.74+gy*8.1)*.5+.5,0 |
| 11420 | 2c 30 29 29 2a 33 2b 2e 31 29 2c 69 66 28 65 71 75 61 6c 28 6d 64 2c 31 29 2c 31 2e 35 2a 73 69 | ,0))*3+.1),if(equal(md,1),1.5*si |
| 11440 | 6e 28 63 6f 73 28 61 74 61 6e 32 28 68 79 2c 68 78 29 2a 33 2b 74 6b 2a 35 29 2b 73 71 72 74 28 | n(cos(atan2(hy,hx)*3+tk*5)+sqrt( |
| 11460 | 73 71 72 28 68 78 29 2b 73 71 72 28 68 79 29 29 2a 33 2b 31 29 2a 2e 35 2b 2e 35 2c 69 66 28 65 | sqr(hx)+sqr(hy))*3+1)*.5+.5,if(e |
| 11480 | 71 75 61 6c 28 6d 64 2c 32 29 2c 31 2e 35 2a 73 69 6e 28 28 61 62 73 28 68 78 29 2b 68 79 2a 2e | qual(md,2),1.5*sin((abs(hx)+hy*. |
| 114a0 | 38 2d 74 6b 29 2a 33 29 2c 69 66 28 65 71 75 61 6c 28 6d 64 2c 33 29 2c 6d 61 78 28 63 6f 73 28 | 8-tk)*3),if(equal(md,3),max(cos( |
| 114c0 | 68 78 2a 35 2b 74 6b 2a 35 29 2c 63 6f 73 28 68 79 2a 35 29 29 2c 6d 61 78 28 63 6f 73 28 68 79 | hx*5+tk*5),cos(hy*5)),max(cos(hy |
| 114e0 | 2a 35 2b 74 6b 2a 35 29 2c 63 6f 73 28 68 78 2a 35 29 29 29 29 29 29 29 3b 0d 0a 0d 0a 72 65 64 | *5+tk*5),cos(hx*5)))))));....red |
| 11500 | 3d 63 76 2a 28 31 2b 63 6f 73 28 69 2a 24 70 69 2a 32 2b 63 76 2a 35 29 2a 2e 32 29 3b 67 72 65 | =cv*(1+cos(i*$pi*2+cv*5)*.2);gre |
| 11520 | 65 6e 3d 63 76 2a 28 73 69 6e 28 69 2a 24 70 69 2a 32 2b 63 76 2a 37 29 2a 2e 33 2b 2e 31 35 29 | en=cv*(sin(i*$pi*2+cv*7)*.3+.15) |
| 11540 | 3b 62 6c 75 65 3d 63 76 2a 28 2e 30 35 29 3b 0d 0a 0d 0a 73 64 31 3d 28 73 64 31 2a 31 34 34 2b | ;blue=cv*(.05);....sd1=(sd1*144+ |
| 11560 | 31 32 29 25 31 30 30 30 3b 0d 0a 73 64 32 3d 28 73 64 32 2a 34 31 37 2b 34 37 29 25 31 30 30 30 | 12)%1000;..sd2=(sd2*417+47)%1000 |
| 11580 | 3b 0d 0a 00 b8 00 00 00 67 78 3d 30 3b 67 79 3d 30 3b 0d 0a 0d 0a 2f 2a 20 43 61 6d 65 72 61 20 | ;.......gx=0;gy=0;..../*.Camera. |
| 115a0 | 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d | */..ox=reg30;oy=reg31;oz=reg32;. |
| 115c0 | 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 | .rx=reg40;ry=reg41;rz=reg42;..cx |
| 115e0 | 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 | =reg43;sx=reg44;..cy=reg45;sy=re |
| 11600 | 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 0d 0a 0d 0a 73 64 | g46;..cz=reg47;sz=reg48;......sd |
| 11620 | 31 3d 35 32 33 3b 73 64 32 3d 36 36 33 3b 6b 6b 3d 74 3b 0d 0a 74 6b 3d 74 6b 2b 2e 30 37 3b 00 | 1=523;sd2=663;kk=t;..tk=tk+.07;. |
| 11640 | 2a 00 00 00 74 3d 62 6e 6f 74 28 74 29 3b 0d 0a 6d 64 3d 69 66 28 72 61 6e 64 28 34 29 2c 6d 64 | *...t=bnot(t);..md=if(rand(4),md |
| 11660 | 2c 28 6d 64 2b 31 29 25 35 29 3b 0d 0a 00 49 00 00 00 2f 2a 20 57 69 72 65 20 77 61 6c 6c 20 74 | ,(md+1)%5);...I.../*.Wire.wall.t |
| 11680 | 68 69 6e 67 79 20 32 20 2a 2f 0d 0a 67 31 3d 31 31 3b 67 32 3d 31 31 3b 6e 3d 67 31 2a 67 32 3b | hingy.2.*/..g1=11;g2=11;n=g1*g2; |
| 116a0 | 69 67 31 3d 31 2f 28 67 31 2d 31 29 3b 69 67 32 3d 31 2f 28 67 31 2d 31 29 3b 00 02 00 00 00 01 | ig1=1/(g1-1);ig2=1/(g1-1);...... |
| 116c0 | 00 00 00 ff ff ff 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 02 80 24 00 00 00 17 02 00 00 01 | ...........(...........$........ |
| 116e0 | 49 01 00 00 75 3d 69 2a 24 70 69 2a 32 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 32 2d 38 3b 70 79 | I...u=i*$pi*2;..px=cos(u)*2-8;py |
| 11700 | 3d 31 2e 32 35 3b 70 7a 3d 37 2b 73 69 6e 28 75 29 2a 32 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 | =1.25;pz=7+sin(u)*2;....px=px+ox |
| 11720 | 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 2b 70 7a | ;py=py+oy;pz=pz+oz;..x1=px*cy+pz |
| 11740 | 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 | *sy;z1=pz*cy-px*sy;..y2=py*cx+z1 |
| 11760 | 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 | *sx;z2=z1*cx-py*sx;..x3=x1*cz+y2 |
| 11780 | 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 | *sz;y3=y2*cz-x1*sz;..red=u1;u1=i |
| 117a0 | 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 | f(above(z2,0.05),1/z2,0);..x=if( |
| 117c0 | 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c | u1,x3*u1,x);y=if(u1,y3*u1*reg50, |
| 117e0 | 79 29 3b 0d 0a 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c 72 61 6e 64 28 35 | y);....cv=if(band(red,u1),rand(5 |
| 11800 | 30 29 2a 2e 30 31 2b 2e 35 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 65 65 6e 3d 63 76 2a 2e | 0)*.01+.5,0);..red=cv;green=cv*. |
| 11820 | 30 35 3b 62 6c 75 65 3d 30 3b 0d 0a 00 85 00 00 00 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f | 05;blue=0;......./*.Camera.*/..o |
| 11840 | 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 | x=reg30;oy=reg31;oz=reg32;..rx=r |
| 11860 | 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 | eg40;ry=reg41;rz=reg42;..cx=reg4 |
| 11880 | 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d | 3;sx=reg44;..cy=reg45;sy=reg46;. |
| 118a0 | 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 28 00 00 00 2f 2a | .cz=reg47;sz=reg48;.......(.../* |
| 118c0 | 20 4c 61 73 65 72 20 53 68 6f 77 20 54 68 69 6e 67 79 20 2a 2f 0d 0a 6e 3d 33 30 0d 0a 6e 3d 67 | .Laser.Show.Thingy.*/..n=30..n=g |
| 118e0 | 78 2a 67 79 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 15 02 00 00 01 47 | x*gy;.................$........G |
| 11900 | 01 00 00 75 3d 69 2a 24 70 69 2a 32 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 32 2b 34 3b 70 79 3d | ...u=i*$pi*2;..px=cos(u)*2+4;py= |
| 11920 | 73 69 6e 28 75 29 2a 32 2d 32 3b 70 7a 3d 31 32 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 | sin(u)*2-2;pz=12;....px=px+ox;py |
| 11940 | 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 2b 70 7a 2a 73 79 | =py+oy;pz=pz+oz;..x1=px*cy+pz*sy |
| 11960 | 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 | ;z1=pz*cy-px*sy;..y2=py*cx+z1*sx |
| 11980 | 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a | ;z2=z1*cx-py*sx;..x3=x1*cz+y2*sz |
| 119a0 | 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 | ;y3=y2*cz-x1*sz;..red=u1;u1=if(a |
| 119c0 | 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c | bove(z2,0.05),1/z2,0);..x=if(u1, |
| 119e0 | 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b | x3*u1,x);y=if(u1,y3*u1*reg50,y); |
| 11a00 | 0d 0a 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c 72 61 6e 64 28 35 30 29 2a | ....cv=if(band(red,u1),rand(50)* |
| 11a20 | 2e 30 31 2b 2e 35 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 65 65 6e 3d 63 76 2a 2e 30 35 3b | .01+.5,0);..red=cv;green=cv*.05; |
| 11a40 | 62 6c 75 65 3d 30 3b 0d 0a 00 85 00 00 00 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 | blue=0;......./*.Camera.*/..ox=r |
| 11a60 | 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 | eg30;oy=reg31;oz=reg32;..rx=reg4 |
| 11a80 | 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 | 0;ry=reg41;rz=reg42;..cx=reg43;s |
| 11aa0 | 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a | x=reg44;..cy=reg45;sy=reg46;..cz |
| 11ac0 | 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 00 00 00 00 00 28 00 00 00 2f 2a 20 4c 61 | =reg47;sz=reg48;.......(.../*.La |
| 11ae0 | 73 65 72 20 53 68 6f 77 20 54 68 69 6e 67 79 20 2a 2f 0d 0a 6e 3d 33 30 0d 0a 6e 3d 67 78 2a 67 | ser.Show.Thingy.*/..n=30..n=gx*g |
| 11b00 | 79 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 21 00 00 00 1c 00 00 00 01 00 00 00 00 | y;.................!............ |
| 11b20 | 00 00 00 01 00 00 00 00 00 00 00 f4 01 00 00 01 00 00 00 00 00 00 00 24 00 00 00 76 03 00 00 01 | .......................$...v.... |
| 11b40 | 75 01 00 00 69 3d 69 2a 32 3b 0d 0a 75 3d 69 2a 24 70 69 2a 32 2b 70 3b 76 3d 69 2a 24 70 69 2a | u...i=i*2;..u=i*$pi*2+p;v=i*$pi* |
| 11b60 | 32 2a 6d 63 32 2d 70 2b 74 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2b 63 6f 73 28 76 29 2a 2e 35 2d | 2*mc2-p+t;..px=cos(u)+cos(v)*.5- |
| 11b80 | 38 3b 70 7a 3d 73 69 6e 28 75 29 2b 73 69 6e 28 76 29 2a 2e 35 2b 37 3b 70 79 3d 31 2e 32 35 3b | 8;pz=sin(u)+sin(v)*.5+7;py=1.25; |
| 11ba0 | 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 0d | ....px=px+ox;py=py+oy;pz=pz+oz;. |
| 11bc0 | 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d | .x1=px*cy+pz*sy;z1=pz*cy-px*sy;. |
| 11be0 | 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d | .y2=py*cx+z1*sx;z2=z1*cx-py*sx;. |
| 11c00 | 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d | .x3=x1*cz+y2*sz;y3=y2*cz-x1*sz;. |
| 11c20 | 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a | .red=u1;u1=if(above(z2,0.05),1/z |
| 11c40 | 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c | 2,0);..x=if(u1,x3*u1,x);y=if(u1, |
| 11c60 | 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 | y3*u1*reg50,y);....cv=if(band(re |
| 11c80 | 64 2c 75 31 29 2c 72 61 6e 64 28 35 30 29 2a 2e 30 31 2b 2e 35 2c 30 29 3b 0d 0a 72 65 64 3d 63 | d,u1),rand(50)*.01+.5,0);..red=c |
| 11ca0 | 76 3b 67 72 65 65 6e 3d 63 76 2a 2e 30 35 3b 62 6c 75 65 3d 30 3b 0d 0a 00 bf 00 00 00 2f 2a 20 | v;green=cv*.05;blue=0;......./*. |
| 11cc0 | 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d | Camera.*/..ox=reg30;oy=reg31;oz= |
| 11ce0 | 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 | reg32;..rx=reg40;ry=reg41;rz=reg |
| 11d00 | 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 | 42;..cx=reg43;sx=reg44;..cy=reg4 |
| 11d20 | 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d | 5;sy=reg46;..cz=reg47;sz=reg48;. |
| 11d40 | 0a 0d 0a 74 63 3d 74 63 2b 2e 31 3b 70 3d 70 2b 2e 36 3b 74 3d 74 2b 2e 31 2a 64 72 3b 0d 0a 6d | ...tc=tc+.1;p=p+.6;t=t+.1*dr;..m |
| 11d60 | 63 32 3d 6d 63 32 2a 2e 37 2b 6d 64 32 2a 2e 33 3b 0d 0a 72 65 67 36 37 3d 74 3b 00 96 00 00 00 | c2=mc2*.7+md2*.3;..reg67=t;..... |
| 11d80 | 74 63 3d 69 66 28 61 62 6f 76 65 28 74 63 2c 31 2e 35 29 2c 30 2c 74 63 29 3b 64 72 3d 72 61 6e | tc=if(above(tc,1.5),0,tc);dr=ran |
| 11da0 | 64 28 31 30 30 29 25 32 2a 32 2d 31 3b 0d 0a 6d 64 32 3d 28 72 61 6e 64 28 33 29 2b 31 29 2a 28 | d(100)%2*2-1;..md2=(rand(3)+1)*( |
| 11dc0 | 28 72 61 6e 64 28 31 30 30 29 25 32 29 2a 32 2d 31 29 2d 31 3b 0d 0a 6d 64 32 3d 69 66 28 62 65 | (rand(100)%2)*2-1)-1;..md2=if(be |
| 11de0 | 6c 6f 77 28 30 2c 6d 64 32 29 2c 6d 64 32 2a 32 2c 6d 64 32 29 3b 0d 0a 72 65 67 38 35 3d 6d 64 | low(0,md2),md2*2,md2);..reg85=md |
| 11e00 | 31 3b 72 65 67 38 36 3d 6d 64 32 3b 72 65 67 38 37 3d 64 72 3b 00 8b 00 00 00 2f 2a 20 4c 61 73 | 1;reg86=md2;reg87=dr;...../*.Las |
| 11e20 | 65 72 20 53 68 6f 77 20 54 68 69 6e 67 79 20 2a 2f 0d 0a 6e 3d 34 30 0d 0a 6e 3d 67 78 2a 67 79 | er.Show.Thingy.*/..n=40..n=gx*gy |
| 11e40 | 3b 0d 0a 6d 64 31 3d 28 72 61 6e 64 28 33 29 2b 32 29 2a 28 72 61 6e 64 28 31 30 30 29 25 32 2d | ;..md1=(rand(3)+2)*(rand(100)%2- |
| 11e60 | 31 29 3b 0d 0a 6d 64 32 3d 28 72 61 6e 64 28 33 29 2b 32 29 2a 28 72 61 6e 64 28 31 30 30 29 25 | 1);..md2=(rand(3)+2)*(rand(100)% |
| 11e80 | 32 2d 31 29 3b 0d 0a 72 65 67 38 35 3d 6d 64 31 3b 72 65 67 38 36 3d 6d 64 32 3b 72 65 67 38 37 | 2-1);..reg85=md1;reg86=md2;reg87 |
| 11ea0 | 3d 64 72 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 75 03 00 00 01 73 01 | =dr;.................$...u....s. |
| 11ec0 | 00 00 69 3d 69 2a 32 3b 0d 0a 75 3d 69 2a 24 70 69 2a 32 2b 70 3b 76 3d 69 2a 24 70 69 2a 32 2a | ..i=i*2;..u=i*$pi*2+p;v=i*$pi*2* |
| 11ee0 | 6d 63 32 2d 70 2b 74 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2b 63 6f 73 28 76 29 2a 2e 35 2b 34 3b | mc2-p+t;..px=cos(u)+cos(v)*.5+4; |
| 11f00 | 70 79 3d 73 69 6e 28 75 29 2b 73 69 6e 28 76 29 2a 2e 35 2d 32 3b 70 7a 3d 31 32 3b 0d 0a 0d 0a | py=sin(u)+sin(v)*.5-2;pz=12;.... |
| 11f20 | 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 3d | px=px+ox;py=py+oy;pz=pz+oz;..x1= |
| 11f40 | 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d | px*cy+pz*sy;z1=pz*cy-px*sy;..y2= |
| 11f60 | 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d | py*cx+z1*sx;z2=z1*cx-py*sx;..x3= |
| 11f80 | 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 | x1*cz+y2*sz;y3=y2*cz-x1*sz;..red |
| 11fa0 | 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 | =u1;u1=if(above(z2,0.05),1/z2,0) |
| 11fc0 | 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 | ;..x=if(u1,x3*u1,x);y=if(u1,y3*u |
| 11fe0 | 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 0d 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 | 1*reg50,y);....cv=if(band(red,u1 |
| 12000 | 29 2c 72 61 6e 64 28 35 30 29 2a 2e 30 31 2b 2e 35 2c 30 29 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 | ),rand(50)*.01+.5,0);..red=cv;gr |
| 12020 | 65 65 6e 3d 63 76 2a 2e 30 35 3b 62 6c 75 65 3d 30 3b 0d 0a 00 bf 00 00 00 2f 2a 20 43 61 6d 65 | een=cv*.05;blue=0;......./*.Came |
| 12040 | 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 | ra.*/..ox=reg30;oy=reg31;oz=reg3 |
| 12060 | 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d | 2;..rx=reg40;ry=reg41;rz=reg42;. |
| 12080 | 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 | .cx=reg43;sx=reg44;..cy=reg45;sy |
| 120a0 | 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 0d 0a 74 | =reg46;..cz=reg47;sz=reg48;....t |
| 120c0 | 63 3d 74 63 2b 2e 31 3b 70 3d 70 2b 2e 36 3b 74 3d 74 2b 2e 31 2a 64 72 3b 0d 0a 6d 63 32 3d 6d | c=tc+.1;p=p+.6;t=t+.1*dr;..mc2=m |
| 120e0 | 63 32 2a 2e 37 2b 6d 64 32 2a 2e 33 3b 0d 0a 72 65 67 36 38 3d 74 3b 00 96 00 00 00 74 63 3d 69 | c2*.7+md2*.3;..reg68=t;.....tc=i |
| 12100 | 66 28 61 62 6f 76 65 28 74 63 2c 31 2e 35 29 2c 30 2c 74 63 29 3b 64 72 3d 72 61 6e 64 28 31 30 | f(above(tc,1.5),0,tc);dr=rand(10 |
| 12120 | 30 29 25 32 2a 32 2d 31 3b 0d 0a 6d 64 32 3d 28 72 61 6e 64 28 33 29 2b 31 29 2a 28 28 72 61 6e | 0)%2*2-1;..md2=(rand(3)+1)*((ran |
| 12140 | 64 28 31 30 30 29 25 32 29 2a 32 2d 31 29 2d 31 3b 0d 0a 6d 64 32 3d 69 66 28 62 65 6c 6f 77 28 | d(100)%2)*2-1)-1;..md2=if(below( |
| 12160 | 30 2c 6d 64 32 29 2c 6d 64 32 2a 32 2c 6d 64 32 29 3b 0d 0a 72 65 67 38 32 3d 6d 64 31 3b 72 65 | 0,md2),md2*2,md2);..reg82=md1;re |
| 12180 | 67 38 33 3d 6d 64 32 3b 72 65 67 38 34 3d 64 72 3b 00 8c 00 00 00 2f 2a 20 4c 61 73 65 72 20 53 | g83=md2;reg84=dr;...../*.Laser.S |
| 121a0 | 68 6f 77 20 54 68 69 6e 67 79 20 32 2a 2f 0d 0a 6e 3d 34 30 0d 0a 6e 3d 67 78 2a 67 79 3b 0d 0a | how.Thingy.2*/..n=40..n=gx*gy;.. |
| 121c0 | 6d 64 31 3d 28 72 61 6e 64 28 33 29 2b 32 29 2a 28 72 61 6e 64 28 31 30 30 29 25 32 2d 31 29 3b | md1=(rand(3)+2)*(rand(100)%2-1); |
| 121e0 | 0d 0a 6d 64 32 3d 28 72 61 6e 64 28 33 29 2b 32 29 2a 28 72 61 6e 64 28 31 30 30 29 25 32 2d 31 | ..md2=(rand(3)+2)*(rand(100)%2-1 |
| 12200 | 29 3b 0d 0a 72 65 67 38 32 3d 6d 64 31 3b 72 65 67 38 33 3d 6d 64 32 3b 72 65 67 38 34 3d 64 72 | );..reg82=md1;reg83=md2;reg84=dr |
| 12220 | 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 04 80 24 00 | ;.................(...........$. |
| 12240 | 00 00 e5 02 00 00 01 a9 01 00 00 69 3d 69 2a 32 3b 0d 0a 75 3d 69 2a 24 70 69 2a 32 2b 70 3b 76 | ...........i=i*2;..u=i*$pi*2+p;v |
| 12260 | 3d 69 2a 24 70 69 2a 32 2a 6d 63 32 2d 70 2b 74 3b 0d 0a 70 78 3d 69 66 28 69 70 2c 30 2c 63 6f | =i*$pi*2*mc2-p+t;..px=if(ip,0,co |
| 12280 | 73 28 75 29 2b 63 6f 73 28 76 29 2a 2e 35 29 2d 38 3b 70 79 3d 69 66 28 69 70 2c 2d 32 2e 37 35 | s(u)+cos(v)*.5)-8;py=if(ip,-2.75 |
| 122a0 | 2c 31 2e 32 35 29 3b 70 7a 3d 69 66 28 69 70 2c 30 2c 73 69 6e 28 75 29 2b 73 69 6e 28 76 29 2a | ,1.25);pz=if(ip,0,sin(u)+sin(v)* |
| 122c0 | 2e 35 29 2b 37 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 | .5)+7;....px=px+ox;py=py+oy;pz=p |
| 122e0 | 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 | z+oz;..x1=px*cy+pz*sy;z1=pz*cy-p |
| 12300 | 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 | x*sy;..y2=py*cx+z1*sx;z2=z1*cx-p |
| 12320 | 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 | y*sx;..x3=x1*cz+y2*sz;y3=y2*cz-x |
| 12340 | 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 | 1*sz;..red=u1;u1=if(above(z2,0.0 |
| 12360 | 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a 75 31 2c 78 29 3b 79 3d | 5),1/z2,0);..x=if(u1,x3*u1,x);y= |
| 12380 | 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 0d 0a 63 76 3d 69 66 28 62 | if(u1,y3*u1*reg50,y);....cv=if(b |
| 123a0 | 61 6e 64 28 72 65 64 2c 75 31 29 2c 72 61 6e 64 28 35 30 29 2a 2e 30 31 2b 2e 35 2c 30 29 2a 2e | and(red,u1),rand(50)*.01+.5,0)*. |
| 123c0 | 30 34 35 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 65 65 6e 3d 63 76 2a 2e 32 3b 62 6c 75 65 3d 63 76 | 045;..red=cv;green=cv*.2;blue=cv |
| 123e0 | 2a 2e 30 35 3b 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 00 ce 00 00 00 2f 2a 20 43 61 6d 65 72 | *.05;..ip=bnot(ip);...../*.Camer |
| 12400 | 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b 6f 7a 3d 72 65 67 33 32 | a.*/..ox=reg30;oy=reg31;oz=reg32 |
| 12420 | 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d 72 65 67 34 32 3b 0d 0a | ;..rx=reg40;ry=reg41;rz=reg42;.. |
| 12440 | 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 65 67 34 35 3b 73 79 3d | cx=reg43;sx=reg44;..cy=reg45;sy= |
| 12460 | 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 38 3b 0d 0a 69 70 3d 30 | reg46;..cz=reg47;sz=reg48;..ip=0 |
| 12480 | 3b 0d 0a 70 3d 70 2b 2e 36 3b 74 3d 72 65 67 36 37 3b 0d 0a 6d 64 31 3d 72 65 67 38 35 3b 6d 64 | ;..p=p+.6;t=reg67;..md1=reg85;md |
| 124a0 | 32 3d 72 65 67 38 36 3b 64 72 3d 72 65 67 38 37 3b 0d 0a 6d 63 32 3d 6d 63 32 2a 2e 37 2b 6d 64 | 2=reg86;dr=reg87;..mc2=mc2*.7+md |
| 124c0 | 32 2a 2e 33 3b 00 00 00 00 00 4d 00 00 00 2f 2a 20 4c 61 73 65 72 20 53 68 6f 77 20 54 68 69 6e | 2*.3;.....M.../*.Laser.Show.Thin |
| 124e0 | 67 79 20 42 65 61 6d 73 20 2a 2f 0d 0a 6e 3d 32 30 0d 0a 6e 3d 67 78 2a 67 79 3b 0d 0a 6d 64 31 | gy.Beams.*/..n=20..n=gx*gy;..md1 |
| 12500 | 3d 72 65 67 38 35 3b 6d 64 32 3d 72 65 67 38 36 3b 64 72 3d 72 65 67 38 37 3b 00 02 00 00 00 01 | =reg85;md2=reg86;dr=reg87;...... |
| 12520 | 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 e1 02 00 00 01 a4 01 00 00 69 3d 69 2a 32 3b 0d 0a | ...........$............i=i*2;.. |
| 12540 | 75 3d 69 2a 24 70 69 2a 32 2b 70 3b 76 3d 69 2a 24 70 69 2a 32 2a 6d 63 32 2d 70 2b 74 3b 0d 0a | u=i*$pi*2+p;v=i*$pi*2*mc2-p+t;.. |
| 12560 | 70 78 3d 69 66 28 69 70 2c 30 2c 63 6f 73 28 75 29 2b 63 6f 73 28 76 29 2a 2e 35 29 2b 34 3b 70 | px=if(ip,0,cos(u)+cos(v)*.5)+4;p |
| 12580 | 79 3d 69 66 28 69 70 2c 30 2c 73 69 6e 28 75 29 2b 73 69 6e 28 76 29 2a 2e 35 29 2d 32 3b 70 7a | y=if(ip,0,sin(u)+sin(v)*.5)-2;pz |
| 125a0 | 3d 69 66 28 69 70 2c 31 38 2c 31 32 29 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 | =if(ip,18,12);....px=px+ox;py=py |
| 125c0 | 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 | +oy;pz=pz+oz;..x1=px*cy+pz*sy;z1 |
| 125e0 | 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 | =pz*cy-px*sy;..y2=py*cx+z1*sx;z2 |
| 12600 | 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2b 79 32 2a 73 7a 3b 79 33 | =z1*cx-py*sx;..x3=x1*cz+y2*sz;y3 |
| 12620 | 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 3b 0d 0a 72 65 64 3d 75 31 3b 75 31 3d 69 66 28 61 62 6f 76 | =y2*cz-x1*sz;..red=u1;u1=if(abov |
| 12640 | 65 28 7a 32 2c 30 2e 30 35 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 75 31 2c 78 33 2a | e(z2,0.05),1/z2,0);..x=if(u1,x3* |
| 12660 | 75 31 2c 78 29 3b 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2a 72 65 67 35 30 2c 79 29 3b 0d 0a 0d | u1,x);y=if(u1,y3*u1*reg50,y);... |
| 12680 | 0a 63 76 3d 69 66 28 62 61 6e 64 28 72 65 64 2c 75 31 29 2c 72 61 6e 64 28 35 30 29 2a 2e 30 31 | .cv=if(band(red,u1),rand(50)*.01 |
| 126a0 | 2b 2e 35 2c 30 29 2a 2e 30 35 35 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 65 65 6e 3d 63 76 2a 2e 32 | +.5,0)*.055;..red=cv;green=cv*.2 |
| 126c0 | 3b 62 6c 75 65 3d 63 76 2a 2e 30 35 3b 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 00 ce 00 00 00 | ;blue=cv*.05;..ip=bnot(ip);..... |
| 126e0 | 2f 2a 20 43 61 6d 65 72 61 20 2a 2f 0d 0a 6f 78 3d 72 65 67 33 30 3b 6f 79 3d 72 65 67 33 31 3b | /*.Camera.*/..ox=reg30;oy=reg31; |
| 12700 | 6f 7a 3d 72 65 67 33 32 3b 0d 0a 72 78 3d 72 65 67 34 30 3b 72 79 3d 72 65 67 34 31 3b 72 7a 3d | oz=reg32;..rx=reg40;ry=reg41;rz= |
| 12720 | 72 65 67 34 32 3b 0d 0a 63 78 3d 72 65 67 34 33 3b 73 78 3d 72 65 67 34 34 3b 0d 0a 63 79 3d 72 | reg42;..cx=reg43;sx=reg44;..cy=r |
| 12740 | 65 67 34 35 3b 73 79 3d 72 65 67 34 36 3b 0d 0a 63 7a 3d 72 65 67 34 37 3b 73 7a 3d 72 65 67 34 | eg45;sy=reg46;..cz=reg47;sz=reg4 |
| 12760 | 38 3b 0d 0a 69 70 3d 30 3b 0d 0a 6d 64 31 3d 72 65 67 38 32 3b 6d 64 32 3d 72 65 67 38 33 3b 64 | 8;..ip=0;..md1=reg82;md2=reg83;d |
| 12780 | 72 3d 72 65 67 38 34 3b 0d 0a 70 3d 70 2b 2e 36 3b 74 3d 72 65 67 36 38 3b 0d 0a 6d 63 32 3d 6d | r=reg84;..p=p+.6;t=reg68;..mc2=m |
| 127a0 | 63 32 2a 2e 37 2b 6d 64 32 2a 2e 33 3b 00 00 00 00 00 4e 00 00 00 2f 2a 20 4c 61 73 65 72 20 53 | c2*.7+md2*.3;.....N.../*.Laser.S |
| 127c0 | 68 6f 77 20 54 68 69 6e 67 79 20 42 65 61 6d 73 20 32 2a 2f 0d 0a 6e 3d 32 30 0d 0a 6e 3d 67 78 | how.Thingy.Beams.2*/..n=20..n=gx |
| 127e0 | 2a 67 79 3b 0d 0a 6d 64 31 3d 72 65 67 38 32 3b 6d 64 32 3d 72 65 67 38 33 3b 64 72 3d 72 65 67 | *gy;..md1=reg82;md2=reg83;dr=reg |
| 12800 | 38 34 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 54 01 00 00 01 e1 00 00 | 84;.................$...T....... |
| 12820 | 00 2f 2a 20 65 75 6c 65 72 20 69 6e 74 65 67 72 61 74 6f 72 20 2a 2f 0d 0a 73 75 6d 31 3d 73 75 | ./*.euler.integrator.*/..sum1=su |
| 12840 | 6d 31 2b 64 78 2a 73 71 72 74 28 31 2b 6b 2a 73 71 72 28 36 2a 69 2a 28 31 2d 69 29 29 29 3b 0d | m1+dx*sqrt(1+k*sqr(6*i*(1-i)));. |
| 12860 | 0a 0d 0a 2f 2a 20 73 69 6d 70 73 6f 6e 20 69 6e 74 65 67 72 61 74 6f 72 20 2a 2f 0d 0a 66 31 3d | .../*.simpson.integrator.*/..f1= |
| 12880 | 73 71 72 74 28 31 2b 6b 2a 73 71 72 28 36 2a 69 2a 28 31 2d 69 29 29 29 3b 0d 0a 69 3d 69 2b 64 | sqrt(1+k*sqr(6*i*(1-i)));..i=i+d |
| 128a0 | 78 3b 66 32 3d 73 71 72 74 28 31 2b 6b 2a 73 71 72 28 36 2a 69 2a 28 31 2d 69 29 29 29 3b 0d 0a | x;f2=sqrt(1+k*sqr(6*i*(1-i)));.. |
| 128c0 | 69 3d 69 2b 64 78 3b 66 33 3d 73 71 72 74 28 31 2b 6b 2a 73 71 72 28 36 2a 69 2a 28 31 2d 69 29 | i=i+dx;f3=sqrt(1+k*sqr(6*i*(1-i) |
| 128e0 | 29 29 3b 0d 0a 73 75 6d 32 3d 73 75 6d 32 2b 64 78 2a 28 66 31 2b 34 2a 66 32 2b 66 33 29 2f 36 | ));..sum2=sum2+dx*(f1+4*f2+f3)/6 |
| 12900 | 3b 00 36 00 00 00 72 65 67 30 30 3d 73 75 6d 31 3b 72 65 67 30 31 3d 73 75 6d 32 3b 0d 0a 73 75 | ;.6...reg00=sum1;reg01=sum2;..su |
| 12920 | 6d 31 3d 30 3b 73 75 6d 32 3d 30 3b 0d 0a 64 78 3d 31 2f 6e 3b 6b 3d 32 2f 33 3b 00 00 00 00 00 | m1=0;sum2=0;..dx=1/n;k=2/3;..... |
| 12940 | 1c 00 00 00 6e 3d 30 3b 2f 2a 6d 69 78 63 75 72 76 65 20 69 6e 74 65 67 72 61 74 6f 72 2a 2f 00 | ....n=0;/*mixcurve.integrator*/. |
| 12960 | 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 15 00 00 00 1f 01 00 00 1b 01 00 00 4d 69 78 20 | ............................Mix. |
| 12980 | 63 75 72 76 65 20 6c 65 6e 67 74 68 73 20 66 6f 72 20 76 61 72 69 6f 75 73 20 76 61 6c 75 65 73 | curve.lengths.for.various.values |
| 129a0 | 20 6f 66 20 6b 0d 0a 3d 20 69 6e 74 28 73 71 72 74 28 31 2b 6b 2a 73 71 72 28 64 69 66 66 28 33 | .of.k..=.int(sqrt(1+k*sqr(diff(3 |
| 129c0 | 2a 78 5e 32 2d 32 2a 78 5e 33 2c 78 29 29 29 2c 78 3d 30 2e 2e 31 29 3b 0d 0a 0d 0a 6b 20 3d 20 | *x^2-2*x^3,x))),x=0..1);....k.=. |
| 129e0 | 2e 32 35 3a 20 31 2e 31 33 36 39 0d 0a 6b 20 3d 20 2e 35 3a 20 20 20 31 2e 32 35 34 39 0d 0a 6b | .25:.1.1369..k.=..5:...1.2549..k |
| 12a00 | 20 3d 20 2e 36 2e 2e 3a 20 31 2e 33 32 36 35 0d 0a 6b 20 3d 20 2e 37 35 3a 20 31 2e 33 36 30 36 | .=..6..:.1.3265..k.=..75:.1.3606 |
| 12a20 | 0d 0a 6b 20 3d 20 31 3a 20 20 20 20 31 2e 34 35 37 32 0d 0a 6b 20 3d 20 31 2e 35 3a 20 31 2e 36 | ..k.=.1:....1.4572..k.=.1.5:.1.6 |
| 12a40 | 33 31 30 0d 0a 6b 20 3d 20 32 3a 20 20 20 20 31 2e 37 38 35 39 0d 0a 0d 0a 0d 0a 43 61 6c 63 75 | 310..k.=.2:....1.7859......Calcu |
| 12a60 | 6c 61 74 65 64 20 75 73 69 6e 67 20 41 56 53 20 61 73 20 61 20 6e 75 6d 65 72 69 63 61 6c 20 69 | lated.using.AVS.as.a.numerical.i |
| 12a80 | 6e 74 65 67 72 61 74 6f 72 20 28 6e 3d 31 30 30 30 30 29 20 3a 29 00 | ntegrator.(n=10000).:). |