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