aboutsummaryrefslogtreecommitdiff
path: root/Src/resources/data/avs/Community Picks/UnConeD - Tokyo Bullet.avs
blob: 620df403bb5f121d406497d9e996cae801cd2f5e (plain) (blame)
ofshex dumpascii
0000 4e 75 6c 6c 73 6f 66 74 20 41 56 53 20 50 72 65 73 65 74 20 30 2e 32 1a 01 15 00 00 00 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).:).