ofs | hex dump | ascii |
---|
0000 | 4e 75 6c 6c 73 6f 66 74 20 41 56 53 20 50 72 65 73 65 74 20 30 2e 32 1a 01 15 00 00 00 6b 02 00 | Nullsoft.AVS.Preset.0.2......k.. |
0020 | 00 67 02 00 00 20 20 5f 5f 20 20 5f 20 20 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .g.....__.._.._................. |
0040 | 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 0d 0a 2f 20 | .___________________________../. |
0060 | 20 2f 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 20 20 5f 5f 5f 5f 20 20 20 2f 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 20 20 | ................................ |
00a0 | 20 20 20 20 20 20 20 5f 5f 5f 2f 0d 0a 5c 20 20 5c 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 2f 5f | .......___/..\..\..|..|.|..|../_ |
00c0 | 5f 5f 2f 20 20 2f 20 20 20 20 20 20 54 4f 54 41 4c 20 49 4d 4d 45 52 49 53 49 4f 4e 20 20 20 20 | __/../......TOTAL.IMMERISION.... |
00e0 | 20 2f 5f 5f 20 20 20 20 0d 0a 2f 5f 2f 20 20 20 5c 5f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 | ./__....../_/...\_/............. |
0100 | 2f 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 2f 0d 0a 53 68 | /__________________________/..Sh |
0120 | 6f 63 6b 20 56 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ock.Value....................... |
0140 | 20 20 20 20 20 20 32 30 30 34 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 2e | ......2004...................20. |
0160 | 20 41 72 63 68 69 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f | .Architectural.Design.._________ |
0180 | 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 0d 0a 0d 0a 20 | ___________________________..... |
01a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 42 4c 45 20 4f 46 20 43 4f 4e 54 45 4e 54 53 | ...............TABLE.OF.CONTENTS |
01c0 | 0d 0a 0d 0a 43 6f 6d 6d 65 6e 74 20 23 2e 2e 2e 0d 0a 2d 2d 2d 2d 20 31 2e 20 54 61 62 6c 65 20 | ....Comment.#.....----.1..Table. |
01e0 | 6f 66 20 43 6f 6e 74 65 6e 74 73 0d 0a 2d 2d 2d 2d 20 32 2e 20 49 6e 74 72 6f 0d 0a 2d 2d 2d 2d | of.Contents..----.2..Intro..---- |
0200 | 20 33 2e 20 54 75 74 6f 72 69 61 6c 0d 0a 2d 2d 2d 2d 20 34 2e 20 4b 65 79 20 52 65 66 65 72 65 | .3..Tutorial..----.4..Key.Refere |
0220 | 6e 63 65 20 50 61 67 65 0d 0a 2d 2d 2d 2d 20 35 2e 20 41 64 76 61 6e 63 65 64 20 54 69 70 73 0d | nce.Page..----.5..Advanced.Tips. |
0240 | 0a 2d 2d 2d 2d 20 36 2e 20 43 6f 6d 6d 65 6e 74 73 0d 0a 2d 2d 2d 2d 20 37 2e 20 43 6f 64 65 20 | .----.6..Comments..----.7..Code. |
0260 | 45 78 70 6c 61 69 6e 61 74 69 6f 6e 20 5c 20 4d 6f 64 20 47 75 69 64 65 0d 0a 2d 2d 2d 2d 20 38 | Explaination.\.Mod.Guide..----.8 |
0280 | 2e 20 43 68 61 6e 67 65 6c 6f 67 00 15 00 00 00 42 04 00 00 3e 04 00 00 20 20 5f 5f 20 20 5f 20 | ..Changelog.....B...>.....__.._. |
02a0 | 20 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | ._..................____________ |
02c0 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 2f 20 20 2f 20 20 7c 20 20 7c 20 7c 20 20 7c | _______________../../..|..|.|..| |
02e0 | 20 20 20 20 5f 5f 5f 5f 20 20 20 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....____.../.................... |
0300 | 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 5f 5f 5f 2f 0d 0a | ..........................___/.. |
0320 | 5c 20 20 5c 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 2f 5f 5f 5f 2f 20 20 2f 20 20 20 20 20 20 54 | \..\..|..|.|..|../___/../......T |
0340 | 4f 54 41 4c 20 49 4d 4d 45 52 49 53 49 4f 4e 20 20 20 20 20 2f 5f 5f 20 20 20 20 0d 0a 2f 5f 2f | OTAL.IMMERISION...../__....../_/ |
0360 | 20 20 20 5c 5f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | ...\_/............./____________ |
0380 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 2f 0d 0a 53 68 6f 63 6b 20 56 61 6c 75 65 20 20 20 20 | ______________/..Shock.Value.... |
03a0 | 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 32 30 30 34 0d 0a 0d | .........................2004... |
03c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 2e 20 41 72 63 68 69 74 65 63 74 75 72 61 | ................20..Architectura |
03e0 | 6c 20 44 65 73 69 67 6e 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | l.Design..______________________ |
0400 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ______________.................. |
0420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 52 4f 0d 0a 0d 0a 57 65 6c 63 6f 6d 65 20 74 | ..............INTRO....Welcome.t |
0440 | 6f 20 41 72 63 68 69 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 2e 20 49 27 6c 6c 20 73 74 61 | o.Architectural.Design..I'll.sta |
0460 | 72 74 20 62 79 20 67 69 76 69 6e 67 20 61 20 71 75 69 63 6b 20 46 41 51 2e 0d 0a 0d 0a 31 2e 20 | rt.by.giving.a.quick.FAQ.....1.. |
0480 | 57 68 65 72 65 20 69 73 20 74 68 65 20 6d 75 73 69 63 20 76 69 73 75 61 6c 69 7a 61 74 69 6f 6e | Where.is.the.music.visualization |
04a0 | 3f 0d 0a 2d 2d 2d 2d 54 68 69 73 20 69 73 20 6a 75 73 74 20 74 68 65 20 69 6e 74 72 6f 64 75 63 | ?..----This.is.just.the.introduc |
04c0 | 74 6f 72 79 20 73 63 72 65 65 6e 20 74 6f 20 74 68 69 73 20 70 72 65 73 65 74 2e 0d 0a 0d 0a 32 | tory.screen.to.this.preset.....2 |
04e0 | 2e 20 57 68 79 20 68 61 76 65 20 61 6e 20 69 6e 74 72 6f 20 74 6f 20 61 20 70 72 65 73 65 74 3f | ..Why.have.an.intro.to.a.preset? |
0500 | 0d 0a 2d 2d 2d 2d 42 65 63 61 75 73 65 20 74 68 69 73 20 69 73 6e 27 74 20 72 65 61 6c 6c 79 20 | ..----Because.this.isn't.really. |
0520 | 61 6e 20 6f 72 64 69 6e 61 72 79 20 70 72 65 73 65 74 2e 20 54 68 65 20 66 6f 63 75 73 20 6f 66 | an.ordinary.preset..The.focus.of |
0540 | 20 74 68 69 73 20 70 72 65 73 65 74 20 69 73 20 74 6f 20 61 6c 6c 6f 77 20 74 68 65 20 75 73 65 | .this.preset.is.to.allow.the.use |
0560 | 72 20 74 6f 20 63 72 65 61 74 65 20 62 75 69 6c 64 69 6e 67 73 20 61 6e 64 20 76 69 73 75 61 6c | r.to.create.buildings.and.visual |
0580 | 69 7a 65 20 74 68 65 6d 20 69 6e 20 33 44 2e 0d 0a 0d 0a 33 2e 20 53 6f 20 6e 6f 20 6d 75 73 69 | ize.them.in.3D.....3..So.no.musi |
05a0 | 63 20 76 69 73 75 61 6c 69 7a 61 74 69 6f 6e 3f 0d 0a 2d 2d 2d 2d 49 6e 63 6f 72 72 65 63 74 2e | c.visualization?..----Incorrect. |
05c0 | 20 41 66 74 65 72 20 63 72 65 61 74 69 6e 67 20 79 6f 75 72 20 62 75 69 6c 64 69 6e 67 28 73 29 | .After.creating.your.building(s) |
05e0 | 2c 20 79 6f 75 20 63 61 6e 20 73 77 69 74 63 68 20 74 6f 20 61 20 64 65 6d 6f 20 76 69 65 77 20 | ,.you.can.switch.to.a.demo.view. |
0600 | 77 68 65 72 65 20 74 68 65 20 63 61 6d 65 72 61 20 6d 6f 76 65 73 20 74 6f 20 74 68 65 20 6d 75 | where.the.camera.moves.to.the.mu |
0620 | 73 69 63 2c 20 65 74 63 2e 0d 0a 0d 0a 34 2e 20 48 6f 77 20 64 6f 20 49 20 62 65 67 69 6e 3f 0d | sic,.etc.....4..How.do.I.begin?. |
0640 | 0a 2d 2d 2d 2d 46 69 72 73 74 20 6f 66 66 2c 20 74 68 65 20 63 6f 6e 74 72 6f 6c 73 20 61 72 65 | .----First.off,.the.controls.are |
0660 | 20 67 6f 69 6e 67 20 74 6f 20 74 61 6b 65 20 73 6f 6d 65 20 67 65 74 74 69 6e 67 20 75 73 65 64 | .going.to.take.some.getting.used |
0680 | 20 74 6f 2c 20 73 6f 20 62 65 20 70 72 65 70 61 72 65 64 2e 20 41 6e 79 77 61 79 2c 20 66 6f 72 | .to,.so.be.prepared..Anyway,.for |
06a0 | 20 61 20 62 65 67 69 6e 6e 65 72 27 73 20 74 75 74 6f 72 69 61 6c 2c 20 72 65 66 65 72 20 74 6f | .a.beginner's.tutorial,.refer.to |
06c0 | 20 74 68 65 20 6e 65 78 74 20 63 6f 6d 6d 65 6e 74 2e 20 0d 0a 00 15 00 00 00 20 11 00 00 1c 11 | .the.next.comment............... |
06e0 | 00 00 20 20 5f 5f 20 20 5f 20 20 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5f 5f | ....__.._.._..................__ |
0700 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 2f 20 20 2f 20 | _________________________../../. |
0720 | 20 7c 20 20 7c 20 7c 20 20 7c 20 20 20 20 5f 5f 5f 5f 20 20 20 2f 20 20 20 20 20 20 20 20 20 20 | .|..|.|..|....____.../.......... |
0740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
0760 | 20 20 20 20 5f 5f 5f 2f 0d 0a 5c 20 20 5c 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 2f 5f 5f 5f 2f | ....___/..\..\..|..|.|..|../___/ |
0780 | 20 20 2f 20 20 20 20 20 20 54 4f 54 41 4c 20 49 4d 4d 45 52 49 53 49 4f 4e 20 20 20 20 20 2f 5f | ../......TOTAL.IMMERISION...../_ |
07a0 | 5f 20 20 20 20 0d 0a 2f 5f 2f 20 20 20 5c 5f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 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 5f 2f 0d 0a 53 68 6f 63 6b | ________________________/..Shock |
07e0 | 20 56 61 6c 75 65 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 | .Value.......................... |
0800 | 20 20 20 32 30 30 34 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 2e 20 41 72 | ...2004...................20..Ar |
0820 | 63 68 69 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | chitectural.Design..____________ |
0840 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 20 20 20 20 | ________________________........ |
0860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 55 54 4f 52 49 41 4c 0d 0a 0d | .....................TUTORIAL... |
0880 | 0a 54 68 65 20 66 69 72 73 74 20 74 68 69 6e 67 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 64 6f 20 | .The.first.thing.you.want.to.do. |
08a0 | 69 73 20 6d 61 6b 65 20 73 75 72 65 20 74 68 65 20 41 56 53 20 77 69 6e 64 6f 77 20 69 73 20 69 | is.make.sure.the.AVS.window.is.i |
08c0 | 6e 20 66 6f 63 75 73 2c 20 6e 6f 74 20 74 68 69 73 20 63 6f 6d 6d 65 6e 74 2e 20 43 6c 69 63 6b | n.focus,.not.this.comment..Click |
08e0 | 20 61 6e 79 77 68 65 72 65 20 69 6e 73 69 64 65 20 74 68 65 20 70 72 65 73 65 74 20 74 6f 20 6d | .anywhere.inside.the.preset.to.m |
0900 | 61 6b 65 20 73 75 72 65 20 69 74 20 69 73 2e 20 59 6f 75 20 6d 75 73 74 20 63 6f 6e 74 69 6e 75 | ake.sure.it.is..You.must.continu |
0920 | 65 20 74 6f 20 72 65 66 6f 63 75 73 20 74 68 65 20 41 56 53 20 77 69 6e 64 6f 77 20 65 76 65 72 | e.to.refocus.the.AVS.window.ever |
0940 | 79 74 69 6d 65 20 79 6f 75 20 63 6c 69 63 6b 20 73 6f 6d 65 77 68 65 72 65 20 69 6e 20 65 64 69 | ytime.you.click.somewhere.in.edi |
0960 | 74 6f 72 2e 0d 0a 0d 0a 4f 4b 2c 20 72 65 61 64 79 20 74 6f 20 6d 61 6b 65 20 79 6f 75 72 20 66 | tor.....OK,.ready.to.make.your.f |
0980 | 69 72 73 74 20 62 75 69 6c 64 69 6e 67 3f 20 4c 65 74 27 73 20 67 65 74 20 74 6f 20 77 6f 72 6b | irst.building?.Let's.get.to.work |
09a0 | 2e 0d 0a 0d 0a 54 6f 20 73 74 61 72 74 2c 20 70 72 65 73 73 20 50 41 47 45 20 55 50 20 6f 6e 65 | .....To.start,.press.PAGE.UP.one |
09c0 | 20 74 69 6d 65 20 74 6f 20 73 77 69 74 63 68 20 74 6f 20 74 68 65 20 54 4f 50 2d 44 4f 57 4e 20 | .time.to.switch.to.the.TOP-DOWN. |
09e0 | 44 45 53 49 47 4e 45 52 20 56 49 45 57 2e 0d 0a 2d 2d 2d 2d 54 68 69 73 20 76 69 65 77 20 69 73 | DESIGNER.VIEW...----This.view.is |
0a00 | 20 77 68 65 72 65 20 79 6f 75 20 61 63 74 75 61 6c 6c 79 20 67 6f 20 61 62 6f 75 74 20 6d 61 6b | .where.you.actually.go.about.mak |
0a20 | 69 6e 67 20 79 6f 75 72 20 62 75 69 6c 64 69 6e 67 73 2e 0d 0a 0d 0a 44 72 61 77 20 77 61 6c 6c | ing.your.buildings.....Draw.wall |
0a40 | 73 20 62 79 20 4c 45 46 54 2d 43 4c 49 43 4b 49 4e 47 20 61 6e 64 20 6d 6f 76 69 6e 67 20 74 68 | s.by.LEFT-CLICKING.and.moving.th |
0a60 | 65 20 6d 6f 75 73 65 2e 0d 0a 2d 2d 2d 2d 54 72 79 20 74 6f 20 6d 61 6b 65 20 61 20 6e 69 63 65 | e.mouse...----Try.to.make.a.nice |
0a80 | 2c 20 6d 65 64 69 75 6d 20 73 69 7a 65 64 20 72 65 63 74 61 6e 67 6c 65 20 69 6e 20 74 68 65 20 | ,.medium.sized.rectangle.in.the. |
0aa0 | 6d 69 64 64 6c 65 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 66 6c 6f 6f 72 20 6f 66 20 74 68 | middle.for.the.first.floor.of.th |
0ac0 | 69 73 20 62 75 69 6c 64 69 6e 67 2e 0d 0a 0d 0a 49 66 20 79 6f 75 20 6d 61 64 65 20 61 20 6d 69 | is.building.....If.you.made.a.mi |
0ae0 | 73 74 61 6b 65 2c 20 70 72 65 73 73 20 44 45 4c 45 54 45 20 74 6f 20 72 65 6d 6f 76 65 20 70 72 | stake,.press.DELETE.to.remove.pr |
0b00 | 65 76 69 6f 75 73 6c 79 20 63 72 65 61 74 65 64 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 6f | eviously.created.wall.segments.o |
0b20 | 6e 65 2d 62 79 2d 6f 6e 65 2e 0d 0a 2d 2d 2d 2d 4f 52 2c 20 68 6f 6c 64 20 64 6f 77 6e 20 42 41 | ne-by-one...----OR,.hold.down.BA |
0b40 | 43 4b 53 50 41 43 45 20 74 6f 20 64 65 6c 65 74 65 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 | CKSPACE.to.delete.wall.segments. |
0b60 | 71 75 69 63 6b 6c 79 2e 0d 0a 2d 2d 2d 2d 50 72 65 73 73 69 6e 67 20 44 45 4c 45 54 45 20 61 6e | quickly...----Pressing.DELETE.an |
0b80 | 64 20 42 41 43 4b 53 50 41 43 45 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 20 77 69 6c | d.BACKSPACE.at.the.same.time.wil |
0ba0 | 6c 20 64 65 6c 65 74 65 20 74 68 65 20 77 68 6f 6c 65 20 66 6c 6f 6f 72 2e 0d 0a 0d 0a 54 68 65 | l.delete.the.whole.floor.....The |
0bc0 | 20 66 69 72 73 74 20 66 6c 6f 6f 72 20 69 73 20 64 6f 6e 65 20 66 6f 72 20 6e 6f 77 2e 20 4e 6f | .first.floor.is.done.for.now..No |
0be0 | 77 20 6c 65 74 27 73 20 6d 6f 76 65 20 6f 6e 20 74 6f 20 74 68 65 20 73 65 63 6f 6e 64 2e 0d 0a | w.let's.move.on.to.the.second... |
0c00 | 2d 2d 2d 2d 50 72 65 73 73 20 61 6e 64 20 72 65 6c 65 61 73 65 20 53 48 49 46 54 20 74 6f 20 6d | ----Press.and.release.SHIFT.to.m |
0c20 | 6f 76 65 20 6f 6e 65 20 66 6c 6f 6f 72 20 75 70 2e 20 4e 6f 74 69 63 65 20 74 68 61 74 20 74 68 | ove.one.floor.up..Notice.that.th |
0c40 | 65 20 66 6c 6f 6f 72 20 69 6e 64 69 63 61 74 6f 72 20 61 74 20 74 68 65 20 62 6f 74 74 6f 6d 20 | e.floor.indicator.at.the.bottom. |
0c60 | 63 68 61 6e 67 65 73 20 66 72 6f 6d 20 27 46 6c 6f 6f 72 20 31 27 20 74 6f 20 27 46 6c 6f 6f 72 | changes.from.'Floor.1'.to.'Floor |
0c80 | 20 32 27 2e 20 41 6c 74 68 6f 75 67 68 20 79 6f 75 20 61 72 65 20 6f 6e 20 74 68 65 20 73 65 63 | .2'..Although.you.are.on.the.sec |
0ca0 | 6f 6e 64 20 66 6c 6f 6f 72 20 6e 6f 77 2c 20 79 6f 75 20 63 61 6e 20 73 74 69 6c 6c 20 73 65 65 | ond.floor.now,.you.can.still.see |
0cc0 | 20 74 68 65 20 66 6c 6f 6f 72 20 70 6c 61 6e 20 6f 66 20 74 68 65 20 66 6c 6f 6f 72 20 64 69 72 | .the.floor.plan.of.the.floor.dir |
0ce0 | 65 63 74 6c 79 20 62 65 6c 6f 77 20 79 6f 75 2e 20 49 74 20 69 73 20 64 69 73 70 6c 61 79 65 64 | ectly.below.you..It.is.displayed |
0d00 | 20 69 6e 20 44 41 52 4b 20 52 45 44 2e 20 54 68 65 20 63 75 72 72 65 6e 74 20 66 6c 6f 6f 72 20 | .in.DARK.RED..The.current.floor. |
0d20 | 70 6c 61 6e 20 69 73 20 69 6e 20 42 52 49 47 48 54 20 52 45 44 2e 20 54 68 65 20 66 6c 6f 6f 72 | plan.is.in.BRIGHT.RED..The.floor |
0d40 | 20 62 65 6c 6f 77 20 79 6f 75 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 44 41 52 4b 20 | .below.you.is.displayed.in.DARK. |
0d60 | 52 45 44 20 73 6f 20 79 6f 75 20 63 61 6e 20 72 65 66 65 72 20 74 6f 20 69 74 20 74 6f 20 70 6c | RED.so.you.can.refer.to.it.to.pl |
0d80 | 61 6e 20 74 68 65 20 66 6c 6f 6f 72 20 61 62 6f 76 65 2e 20 48 6f 77 65 76 65 72 2c 20 79 6f 75 | an.the.floor.above..However,.you |
0da0 | 20 63 61 6e 27 74 20 65 64 69 74 20 75 6e 6c 65 73 73 20 79 6f 75 20 70 72 65 73 73 20 43 4f 4e | .can't.edit.unless.you.press.CON |
0dc0 | 54 52 4f 4c 20 74 6f 20 6d 6f 76 65 20 62 61 63 6b 20 64 6f 77 6e 20 61 20 66 6c 6f 6f 72 2e 0d | TROL.to.move.back.down.a.floor.. |
0de0 | 0a 0d 0a 4f 4b 2c 20 77 65 20 61 72 65 20 6f 6e 20 46 6c 6f 6f 72 20 32 2e 20 4d 61 6b 65 20 74 | ...OK,.we.are.on.Floor.2..Make.t |
0e00 | 68 69 73 20 66 6c 6f 6f 72 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 66 69 72 73 74 20 | his.floor.the.same.as.the.first. |
0e20 | 62 79 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 44 41 52 4b 20 52 45 44 20 6f 75 74 6c 69 6e | by.following.the.DARK.RED.outlin |
0e40 | 65 20 6f 66 20 74 68 65 20 66 6c 6f 6f 72 20 62 65 6c 6f 77 2e 0d 0a 2d 2d 2d 2d 48 6f 77 65 76 | e.of.the.floor.below...----Howev |
0e60 | 65 72 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 64 72 61 67 67 69 6e 67 20 74 68 65 20 6d 6f 75 73 | er,.instead.of.dragging.the.mous |
0e80 | 65 2c 20 77 65 20 77 69 6c 6c 20 75 73 65 20 74 68 65 20 48 4f 4d 45 20 6b 65 79 20 66 6f 72 20 | e,.we.will.use.the.HOME.key.for. |
0ea0 | 6d 6f 72 65 20 70 72 65 63 69 73 65 20 63 6f 6e 74 72 6f 6c 2e 20 46 69 72 73 74 2c 20 61 73 73 | more.precise.control..First,.ass |
0ec0 | 75 6d 69 6e 67 20 79 6f 75 72 20 66 69 72 73 74 20 66 6c 6f 6f 72 20 69 73 20 61 20 70 65 72 66 | uming.your.first.floor.is.a.perf |
0ee0 | 65 63 74 20 72 65 63 74 61 6e 67 6c 65 2c 20 63 6c 69 63 6b 20 6f 6e 20 6f 6e 65 20 6f 66 20 74 | ect.rectangle,.click.on.one.of.t |
0f00 | 68 65 20 63 6f 72 6e 65 72 73 20 6f 66 20 74 68 65 20 62 75 69 6c 64 69 6e 67 2e 20 54 68 65 20 | he.corners.of.the.building..The. |
0f20 | 6f 72 61 6e 67 65 20 62 75 69 6c 64 69 6e 67 20 70 6f 69 6e 74 20 73 68 6f 75 6c 64 20 6d 6f 76 | orange.building.point.should.mov |
0f40 | 65 20 74 68 65 72 65 2e 20 4e 6f 77 20 68 6f 6c 64 20 64 6f 77 6e 20 74 68 65 20 48 4f 4d 45 20 | e.there..Now.hold.down.the.HOME. |
0f60 | 6b 65 79 20 61 6e 64 20 6d 6f 76 65 20 74 68 65 20 6d 6f 75 73 65 20 74 6f 20 74 68 65 20 63 6f | key.and.move.the.mouse.to.the.co |
0f80 | 72 6e 65 72 20 64 69 72 65 63 74 6c 79 20 61 62 6f 76 65 20 6f 72 20 62 65 6c 6f 77 20 74 68 65 | rner.directly.above.or.below.the |
0fa0 | 20 66 69 72 73 74 20 6f 6e 65 2e 20 52 65 6c 65 61 73 65 20 48 4f 4d 45 2e 20 54 68 65 20 77 61 | .first.one..Release.HOME..The.wa |
0fc0 | 6c 6c 20 73 65 67 6d 65 6e 74 73 20 61 72 65 20 62 75 69 6c 74 20 61 75 74 6f 6d 61 74 69 63 61 | ll.segments.are.built.automatica |
0fe0 | 6c 6c 79 2e 20 4e 6f 77 20 64 6f 20 74 68 65 20 73 61 6d 65 20 66 6f 72 20 74 68 65 20 6f 74 68 | lly..Now.do.the.same.for.the.oth |
1000 | 65 72 20 74 77 6f 2c 20 73 6f 20 79 6f 75 20 66 6f 72 6d 20 61 20 72 65 63 74 61 6e 67 6c 65 20 | er.two,.so.you.form.a.rectangle. |
1020 | 64 69 72 65 63 74 6c 79 20 61 62 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 66 6c 6f 6f 72 2e 20 | directly.above.the.first.floor.. |
1040 | 59 6f 75 20 63 61 6e 20 75 73 65 20 74 68 65 20 48 4f 4d 45 20 6b 65 79 20 6c 69 6b 65 20 74 68 | You.can.use.the.HOME.key.like.th |
1060 | 69 73 20 74 6f 20 6d 61 6b 65 20 64 69 61 67 6f 6e 61 6c 20 77 61 6c 6c 73 20 6d 6f 72 65 20 65 | is.to.make.diagonal.walls.more.e |
1080 | 61 73 69 6c 79 20 61 6e 64 20 62 75 69 6c 64 20 6c 6f 6e 67 2c 20 73 74 72 61 69 67 68 74 20 77 | asily.and.build.long,.straight.w |
10a0 | 61 6c 6c 73 20 6d 75 63 68 20 6d 6f 72 65 20 71 75 69 63 6b 6c 79 20 61 6e 64 20 77 69 74 68 20 | alls.much.more.quickly.and.with. |
10c0 | 6d 6f 72 65 20 70 72 65 63 69 73 69 6f 6e 2e 0d 0a 0d 0a 4e 6f 77 20 6d 6f 76 65 20 74 6f 20 74 | more.precision.....Now.move.to.t |
10e0 | 68 65 20 74 68 69 72 64 20 66 6c 6f 6f 72 20 28 70 72 65 73 73 20 53 48 49 46 54 20 61 67 61 69 | he.third.floor.(press.SHIFT.agai |
1100 | 6e 29 2e 0d 0a 2d 2d 2d 2d 50 72 65 73 73 20 54 41 42 20 74 6f 20 63 6f 70 79 20 74 68 65 20 66 | n)...----Press.TAB.to.copy.the.f |
1120 | 6c 6f 6f 72 20 70 6c 61 6e 20 66 72 6f 6d 20 74 68 65 20 66 6c 6f 6f 72 20 64 69 72 65 63 74 6c | loor.plan.from.the.floor.directl |
1140 | 79 20 62 65 6c 6f 77 20 74 68 69 73 20 6f 6e 65 20 28 74 68 65 20 73 65 63 6f 6e 64 20 66 6c 6f | y.below.this.one.(the.second.flo |
1160 | 6f 72 29 2e 20 4e 6f 77 20 74 68 69 73 20 66 6c 6f 6f 72 20 69 73 20 74 68 65 20 73 61 6d 65 20 | or)..Now.this.floor.is.the.same. |
1180 | 61 73 20 74 68 65 20 6f 6e 65 20 62 65 6c 6f 77 2e 0d 0a 0d 0a 4e 6f 77 20 79 6f 75 20 68 61 76 | as.the.one.below.....Now.you.hav |
11a0 | 65 20 73 65 65 6e 20 74 68 72 65 65 20 6d 65 74 68 6f 64 73 20 75 73 65 64 20 74 6f 20 63 72 65 | e.seen.three.methods.used.to.cre |
11c0 | 61 74 65 20 66 6c 6f 6f 72 20 70 6c 61 6e 73 20 28 64 72 61 67 67 69 6e 67 20 77 69 74 68 20 74 | ate.floor.plans.(dragging.with.t |
11e0 | 68 65 20 6d 6f 75 73 65 2c 20 6d 61 6b 69 6e 67 20 73 65 67 6d 65 6e 74 73 20 75 73 69 6e 67 20 | he.mouse,.making.segments.using. |
1200 | 48 4f 4d 45 2c 20 61 6e 64 20 63 6f 70 79 69 6e 67 20 74 68 65 20 66 6c 6f 6f 72 20 62 65 6c 6f | HOME,.and.copying.the.floor.belo |
1220 | 77 20 77 69 74 68 20 54 41 42 29 2e 20 49 66 20 79 6f 75 20 77 61 6e 74 2c 20 79 6f 75 20 63 61 | w.with.TAB)..If.you.want,.you.ca |
1240 | 6e 20 67 6f 20 62 61 63 6b 20 74 6f 20 65 61 63 68 20 66 6c 6f 6f 72 20 61 6e 64 20 61 64 64 20 | n.go.back.to.each.floor.and.add. |
1260 | 68 61 6c 6c 77 61 79 73 2c 20 6f 72 20 61 64 64 20 6e 65 77 20 66 6c 6f 6f 72 73 20 28 75 70 20 | hallways,.or.add.new.floors.(up. |
1280 | 74 6f 20 45 49 47 48 54 20 74 6f 74 61 6c 29 2e 0d 0a 2d 2d 2d 2d 42 75 74 20 79 6f 75 20 70 72 | to.EIGHT.total)...----But.you.pr |
12a0 | 6f 62 61 62 6c 79 20 77 61 6e 74 20 74 6f 20 73 65 65 20 74 68 69 73 20 62 75 69 6c 64 69 6e 67 | obably.want.to.see.this.building |
12c0 | 20 69 6e 20 33 44 20 66 69 72 73 74 2e 20 49 66 20 73 6f 2c 20 67 6f 20 74 6f 20 74 68 65 20 6e | .in.3D.first..If.so,.go.to.the.n |
12e0 | 65 78 74 20 73 74 65 70 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 0d 0a 0d 0a 53 77 69 74 63 68 20 | ext.step.immediately.....Switch. |
1300 | 74 6f 20 74 68 65 20 33 44 20 56 49 45 57 20 62 79 20 70 72 65 73 73 69 6e 67 20 50 41 47 45 20 | to.the.3D.VIEW.by.pressing.PAGE. |
1320 | 55 50 2e 0d 0a 2d 2d 2d 2d 48 65 72 65 20 79 6f 75 20 63 61 6e 20 73 65 65 20 79 6f 75 72 20 62 | UP...----Here.you.can.see.your.b |
1340 | 75 69 6c 64 69 6e 67 20 69 6e 20 33 44 2e 20 4c 45 46 54 20 43 4c 49 43 4b 20 61 6e 64 20 64 72 | uilding.in.3D..LEFT.CLICK.and.dr |
1360 | 61 67 20 74 68 65 20 6d 6f 75 73 65 20 74 6f 20 52 4f 54 41 54 45 20 74 68 65 20 76 69 65 77 2e | ag.the.mouse.to.ROTATE.the.view. |
1380 | 20 53 48 49 46 54 20 61 6e 64 20 43 4f 4e 54 52 4f 4c 20 63 68 61 6e 67 65 20 74 68 65 20 41 4c | .SHIFT.and.CONTROL.change.the.AL |
13a0 | 54 49 54 55 44 45 20 6f 66 20 74 68 65 20 76 69 65 77 2e 20 42 75 74 20 77 68 61 74 20 77 6f 75 | TITUDE.of.the.view..But.what.wou |
13c0 | 6c 64 20 69 74 20 61 63 74 75 61 6c 6c 79 20 6c 6f 6f 6b 20 6c 69 6b 65 20 74 6f 20 77 61 6c 6b | ld.it.actually.look.like.to.walk |
13e0 | 20 74 68 65 20 68 61 6c 6c 73 20 6f 66 20 74 68 69 73 20 62 75 69 6c 64 69 6e 67 3f 20 2e 2e 2e | .the.halls.of.this.building?.... |
1400 | 0d 0a 0d 0a 53 77 69 74 63 68 20 74 6f 20 74 68 65 20 46 49 52 53 54 20 50 45 52 53 4f 4e 20 56 | ....Switch.to.the.FIRST.PERSON.V |
1420 | 49 45 57 20 28 70 72 65 73 73 20 50 41 47 45 20 55 50 20 61 67 61 69 6e 29 2e 0d 0a 2d 2d 2d 2d | IEW.(press.PAGE.UP.again)...---- |
1440 | 59 6f 75 20 61 72 65 20 70 72 6f 62 61 62 6c 79 20 6f 6e 20 74 68 65 20 74 68 69 72 64 20 66 6c | You.are.probably.on.the.third.fl |
1460 | 6f 6f 72 20 6e 6f 77 2e 20 4c 45 46 54 20 43 4c 49 43 4b 20 61 6e 64 20 64 72 61 67 20 74 68 65 | oor.now..LEFT.CLICK.and.drag.the |
1480 | 20 6d 6f 75 73 65 20 74 6f 20 6d 6f 76 65 20 61 72 6f 75 6e 64 2e 20 59 6f 75 20 73 68 6f 75 6c | .mouse.to.move.around..You.shoul |
14a0 | 64 20 67 65 74 20 74 68 65 20 68 61 6e 67 20 6f 66 20 69 74 20 70 72 65 74 74 79 20 71 75 69 63 | d.get.the.hang.of.it.pretty.quic |
14c0 | 6b 6c 79 2e 20 50 72 65 73 73 20 53 48 49 46 54 20 6f 72 20 43 4f 4e 54 52 4f 4c 20 77 68 69 6c | kly..Press.SHIFT.or.CONTROL.whil |
14e0 | 65 20 4e 4f 54 20 6d 6f 76 69 6e 67 20 74 6f 20 63 68 61 6e 67 65 20 66 6c 6f 6f 72 73 2e 0d 0a | e.NOT.moving.to.change.floors... |
1500 | 0d 0a 4e 6f 77 20 6c 65 74 27 73 20 73 65 65 20 74 68 69 73 20 69 6e 20 6d 6f 74 69 6f 6e 2e 20 | ..Now.let's.see.this.in.motion.. |
1520 | 50 72 65 73 73 20 50 41 47 45 20 55 50 20 74 6f 20 73 77 69 74 63 68 20 74 6f 20 41 55 54 4f 4d | Press.PAGE.UP.to.switch.to.AUTOM |
1540 | 41 54 45 44 20 44 45 4d 4f 2e 20 0d 0a 2d 2d 2d 2d 43 6f 6f 6c 2c 20 68 75 68 3f 20 4a 75 73 74 | ATED.DEMO....----Cool,.huh?.Just |
1560 | 20 6d 61 6b 65 20 73 75 72 65 20 61 20 73 6f 6e 67 20 69 73 20 70 6c 61 79 69 6e 67 2c 20 6f 74 | .make.sure.a.song.is.playing,.ot |
1580 | 68 65 72 77 69 73 65 20 74 68 65 20 70 72 65 73 65 74 20 77 69 6c 6c 20 64 65 66 61 75 6c 74 20 | herwise.the.preset.will.default. |
15a0 | 74 6f 20 61 20 62 6f 72 69 6e 67 20 72 6f 74 61 74 69 6f 6e 61 6c 20 76 69 65 77 2e 0d 0a 0d 0a | to.a.boring.rotational.view..... |
15c0 | 57 65 6c 6c 2c 20 74 68 61 74 27 73 20 69 74 20 66 6f 72 20 74 68 65 20 74 75 74 6f 72 69 61 6c | Well,.that's.it.for.the.tutorial |
15e0 | 2e 20 4e 6f 77 20 75 73 65 20 50 41 47 45 20 44 4f 57 4e 20 74 6f 20 67 65 74 20 62 61 63 6b 20 | ..Now.use.PAGE.DOWN.to.get.back. |
1600 | 74 6f 20 74 68 65 20 54 4f 50 2d 44 4f 57 4e 20 44 45 53 49 47 4e 45 52 2c 20 70 72 65 73 73 20 | to.the.TOP-DOWN.DESIGNER,.press. |
1620 | 42 41 43 4b 53 50 41 43 45 20 61 6e 64 20 44 45 4c 45 54 45 20 74 6f 20 64 65 6c 65 74 65 20 65 | BACKSPACE.and.DELETE.to.delete.e |
1640 | 61 63 68 20 66 6c 6f 6f 72 2c 20 61 6e 64 20 6d 61 6b 65 20 61 20 6e 65 77 20 62 75 69 6c 64 69 | ach.floor,.and.make.a.new.buildi |
1660 | 6e 67 21 20 52 65 6d 65 6d 62 65 72 2c 20 79 6f 75 27 76 65 20 67 6f 74 20 45 49 47 48 54 20 66 | ng!.Remember,.you've.got.EIGHT.f |
1680 | 6c 6f 6f 72 73 20 74 6f 20 62 75 69 6c 64 20 6f 6e 20 61 6e 64 20 75 6e 6c 69 6d 69 74 65 64 20 | loors.to.build.on.and.unlimited. |
16a0 | 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 74 6f 20 70 6c 61 63 65 2e 20 41 6c 73 6f 2c 20 74 68 | wall.segments.to.place..Also,.th |
16c0 | 65 72 65 20 61 72 65 20 6d 61 6e 79 20 6b 65 79 20 66 75 6e 74 69 6f 6e 73 20 74 68 61 74 20 77 | ere.are.many.key.funtions.that.w |
16e0 | 65 72 65 20 6e 6f 74 20 63 6f 76 65 72 65 64 20 69 6e 20 74 68 65 20 74 75 74 6f 72 69 61 6c 2e | ere.not.covered.in.the.tutorial. |
1700 | 20 55 73 65 20 74 68 65 20 6b 65 79 20 72 65 66 65 72 65 6e 63 65 20 63 6f 6d 6d 65 6e 74 20 6f | .Use.the.key.reference.comment.o |
1720 | 72 20 70 72 65 73 73 20 74 68 65 20 5b 48 5d 20 4b 45 59 20 74 6f 20 6c 65 61 72 6e 20 61 62 6f | r.press.the.[H].KEY.to.learn.abo |
1740 | 75 74 20 74 68 65 6d 2e 20 0d 0a 0d 0a 42 65 20 63 72 65 61 74 69 76 65 21 20 44 6f 6e 27 74 20 | ut.them......Be.creative!.Don't. |
1760 | 66 6f 72 67 65 74 3a 0d 0a 2d 43 6f 75 72 74 79 61 72 64 73 0d 0a 2d 45 6c 65 76 61 74 65 64 20 | forget:..-Courtyards..-Elevated. |
1780 | 77 61 6c 6b 77 61 79 73 0d 0a 2d 54 6f 77 65 72 73 0d 0a 2d 48 61 6c 6c 77 61 79 73 20 61 6e 64 | walkways..-Towers..-Hallways.and |
17a0 | 20 72 6f 6f 6d 73 0d 0a 2d 46 65 6e 63 65 73 0d 0a 2d 4c 61 72 67 65 20 73 63 61 6c 65 20 73 63 | .rooms..-Fences..-Large.scale.sc |
17c0 | 75 6c 70 74 75 72 65 73 0d 0a 2d 41 62 73 74 72 61 63 74 20 61 72 74 20 63 72 65 61 74 69 6f 6e | ulptures..-Abstract.art.creation |
17e0 | 73 0d 0a 2d 65 74 63 2e 0d 0a 0d 0a 48 61 70 70 79 20 62 75 69 6c 64 69 6e 67 21 0d 0a 00 15 00 | s..-etc.....Happy.building!..... |
1800 | 00 00 b4 08 00 00 b0 08 00 00 20 20 5f 5f 20 20 5f 20 20 5f 20 20 20 20 20 20 20 20 20 20 20 20 | ............__.._.._............ |
1820 | 20 20 20 20 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 | ......__________________________ |
1840 | 5f 0d 0a 2f 20 20 2f 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 20 20 5f 5f 5f 5f 20 20 20 2f 20 20 | _../../..|..|.|..|....____.../.. |
1860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
1880 | 20 20 20 20 20 20 20 20 20 20 20 20 5f 5f 5f 2f 0d 0a 5c 20 20 5c 20 20 7c 20 20 7c 20 7c 20 20 | ............___/..\..\..|..|.|.. |
18a0 | 7c 20 20 2f 5f 5f 5f 2f 20 20 2f 20 20 20 20 20 20 54 4f 54 41 4c 20 49 4d 4d 45 52 49 53 49 4f | |../___/../......TOTAL.IMMERISIO |
18c0 | 4e 20 20 20 20 20 2f 5f 5f 20 20 20 20 0d 0a 2f 5f 2f 20 20 20 5c 5f 2f 20 20 20 20 20 20 20 20 | N...../__....../_/...\_/........ |
18e0 | 20 20 20 20 20 2f 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 | ...../__________________________ |
1900 | 2f 0d 0a 53 68 6f 63 6b 20 56 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | /..Shock.Value.................. |
1920 | 20 20 20 20 20 20 20 20 20 20 20 32 30 30 34 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........2004................. |
1940 | 20 20 32 30 2e 20 41 72 63 68 69 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 0d 0a 5f 5f 5f 5f | ..20..Architectural.Design..____ |
1960 | 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 | ________________________________ |
1980 | 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 45 59 20 52 45 46 | .........................KEY.REF |
19a0 | 45 52 45 4e 43 45 0d 0a 0d 0a 41 54 20 41 4e 59 20 54 49 4d 45 0d 0a 2d 2d 2d 2d 50 41 47 45 20 | ERENCE....AT.ANY.TIME..----PAGE. |
19c0 | 55 50 20 2d 20 53 77 69 74 63 68 20 74 6f 20 74 68 65 20 6e 65 78 74 20 73 63 72 65 65 6e 2e 0d | UP.-.Switch.to.the.next.screen.. |
19e0 | 0a 2d 2d 2d 2d 50 41 47 45 20 44 4f 57 4e 20 2d 20 53 77 69 74 63 68 20 74 6f 20 74 68 65 20 70 | .----PAGE.DOWN.-.Switch.to.the.p |
1a00 | 72 65 76 69 6f 75 73 20 73 63 72 65 65 6e 2e 0d 0a 2d 2d 2d 2d 53 63 72 65 65 6e 73 3a 20 0d 0a | revious.screen...----Screens:... |
1a20 | 20 20 20 20 20 20 20 20 31 2e 20 49 6e 74 72 6f 0d 0a 20 20 20 20 20 20 20 20 32 2e 20 54 6f 70 | ........1..Intro..........2..Top |
1a40 | 2d 44 6f 77 6e 20 44 65 73 69 67 6e 65 72 0d 0a 20 20 20 20 20 20 20 20 33 2e 20 33 44 20 56 69 | -Down.Designer..........3..3D.Vi |
1a60 | 65 77 0d 0a 20 20 20 20 20 20 20 20 34 2e 20 46 69 72 73 74 20 50 65 72 73 6f 6e 20 56 69 65 77 | ew..........4..First.Person.View |
1a80 | 0d 0a 20 20 20 20 20 20 20 20 35 2e 20 41 75 74 6f 6d 61 74 65 64 20 44 65 6d 6f 0d 0a 2d 2d 2d | ..........5..Automated.Demo..--- |
1aa0 | 2d 5b 48 5d 20 4b 45 59 20 2d 20 53 68 6f 77 20 6b 65 79 20 68 65 6c 70 2e 0d 0a 0d 0a 54 4f 50 | -[H].KEY.-.Show.key.help.....TOP |
1ac0 | 2d 44 4f 57 4e 20 44 45 53 49 47 4e 45 52 0d 0a 2d 2d 2d 2d 43 4c 49 43 4b 20 61 6e 64 20 44 52 | -DOWN.DESIGNER..----CLICK.and.DR |
1ae0 | 41 47 20 2d 20 42 75 69 6c 64 20 73 74 72 69 6e 67 73 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 | AG.-.Build.strings.of.wall.segme |
1b00 | 6e 74 73 2e 0d 0a 2d 2d 2d 2d 48 4f 4d 45 20 2d 20 42 75 69 6c 64 20 61 20 73 74 72 61 69 67 68 | nts...----HOME.-.Build.a.straigh |
1b20 | 74 20 6c 69 6e 65 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 61 74 20 61 6e 79 20 61 | t.line.of.wall.segments.at.any.a |
1b40 | 6e 67 6c 65 2e 0d 0a 2d 2d 2d 2d 54 41 42 20 2d 20 43 6f 70 79 20 74 68 65 20 66 6c 6f 6f 72 20 | ngle...----TAB.-.Copy.the.floor. |
1b60 | 70 6c 61 6e 20 66 72 6f 6d 20 74 68 65 20 66 6c 6f 6f 72 20 64 69 72 65 63 74 6c 79 20 62 65 6c | plan.from.the.floor.directly.bel |
1b80 | 6f 77 2e 0d 0a 2d 2d 2d 2d 44 45 4c 45 54 45 20 2d 20 44 65 6c 65 74 65 20 77 61 6c 6c 20 73 65 | ow...----DELETE.-.Delete.wall.se |
1ba0 | 67 6d 65 6e 74 73 20 6f 6e 65 2d 62 79 2d 6f 6e 65 2e 0d 0a 2d 2d 2d 2d 42 41 43 4b 53 50 41 43 | gments.one-by-one...----BACKSPAC |
1bc0 | 45 20 2d 20 51 75 69 63 6b 6c 79 20 64 65 6c 65 74 65 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 | E.-.Quickly.delete.wall.segments |
1be0 | 2e 0d 0a 2d 2d 2d 2d 44 45 4c 45 54 45 20 61 6e 64 20 42 41 43 4b 53 50 41 43 45 20 2d 20 44 65 | ...----DELETE.and.BACKSPACE.-.De |
1c00 | 6c 65 74 65 20 65 6e 74 69 72 65 20 66 6c 6f 6f 72 2e 0d 0a 2d 2d 2d 2d 41 4c 54 20 2d 20 50 6c | lete.entire.floor...----ALT.-.Pl |
1c20 | 61 63 65 20 43 41 4d 45 52 41 20 54 41 52 47 45 54 20 28 66 6f 72 20 75 73 65 20 69 6e 20 41 75 | ace.CAMERA.TARGET.(for.use.in.Au |
1c40 | 74 6f 6d 61 74 65 64 20 56 69 65 77 29 2e 0d 0a 2d 2d 2d 2d 53 48 49 46 54 20 2d 20 4d 6f 76 65 | tomated.View)...----SHIFT.-.Move |
1c60 | 20 75 70 20 6f 6e 65 20 66 6c 6f 6f 72 2e 0d 0a 2d 2d 2d 2d 43 4f 4e 54 52 4f 4c 20 2d 20 4d 6f | .up.one.floor...----CONTROL.-.Mo |
1c80 | 76 65 20 64 6f 77 6e 20 6f 6e 65 20 66 6c 6f 6f 72 2e 0d 0a 2d 2d 2d 2d 45 4e 44 20 2d 20 54 6f | ve.down.one.floor...----END.-.To |
1ca0 | 67 67 6c 65 20 64 6f 75 62 6c 65 20 70 72 65 63 69 73 69 6f 6e 20 6d 6f 64 65 2e 0d 0a 2d 2d 2d | ggle.double.precision.mode...--- |
1cc0 | 2d 5b 2b 5d 20 4b 45 59 20 2d 20 5a 6f 6f 6d 20 69 6e 2e 0d 0a 2d 2d 2d 2d 5b 2d 5d 20 4b 45 59 | -[+].KEY.-.Zoom.in...----[-].KEY |
1ce0 | 20 2d 20 5a 6f 6f 6d 20 6f 75 74 2e 0d 0a 2d 2d 2d 2d 5b 5c 5d 20 4b 45 59 20 2d 20 54 6f 67 67 | .-.Zoom.out...----[\].KEY.-.Togg |
1d00 | 6c 65 20 63 61 6d 65 72 61 20 6c 6f 63 6b 2e 0d 0a 0d 0a 33 44 20 56 49 45 57 0d 0a 2d 2d 2d 2d | le.camera.lock.....3D.VIEW..---- |
1d20 | 43 4c 49 43 4b 20 61 6e 64 20 44 52 41 47 20 2d 20 4d 6f 76 65 20 63 61 6d 65 72 61 20 61 72 6f | CLICK.and.DRAG.-.Move.camera.aro |
1d40 | 75 6e 64 20 69 74 73 20 74 61 72 67 65 74 2e 0d 0a 2d 2d 2d 2d 53 48 49 46 54 2f 43 4f 4e 54 52 | und.its.target...----SHIFT/CONTR |
1d60 | 4f 4c 20 2d 20 4d 6f 76 65 20 63 61 6d 65 72 61 20 68 69 67 68 65 72 2f 6c 6f 77 65 72 2e 0d 0a | OL.-.Move.camera.higher/lower... |
1d80 | 2d 2d 2d 2d 41 4c 54 20 61 6e 64 20 43 4c 49 43 4b 20 2d 20 4d 6f 76 65 20 74 65 6d 70 6f 72 61 | ----ALT.and.CLICK.-.Move.tempora |
1da0 | 72 79 20 63 61 6d 65 72 61 20 63 65 6e 74 65 72 2e 0d 0a 2d 2d 2d 2d 42 41 43 4b 53 50 41 43 45 | ry.camera.center...----BACKSPACE |
1dc0 | 20 2d 20 52 65 73 65 74 20 74 68 65 20 63 61 6d 65 72 61 20 61 6e 64 20 69 74 73 20 74 61 72 67 | .-.Reset.the.camera.and.its.targ |
1de0 | 65 74 20 74 6f 20 64 65 66 61 75 6c 74 20 70 6f 73 69 74 69 6f 6e 2e 0d 0a 2d 2d 2d 2d 48 4f 4d | et.to.default.position...----HOM |
1e00 | 45 20 2d 20 54 6f 67 67 6c 65 20 67 72 69 64 2e 0d 0a 2d 2d 2d 2d 5b 46 5d 20 4b 45 59 20 2d 20 | E.-.Toggle.grid...----[F].KEY.-. |
1e20 | 54 6f 67 67 6c 65 20 66 6f 63 61 6c 20 62 6c 75 72 2e 0d 0a 0d 0a 46 49 52 53 54 20 50 45 52 53 | Toggle.focal.blur.....FIRST.PERS |
1e40 | 4f 4e 20 56 49 45 57 0d 0a 2d 2d 2d 2d 43 4c 49 43 4b 20 61 6e 64 20 44 52 41 47 20 28 59 20 41 | ON.VIEW..----CLICK.and.DRAG.(Y.A |
1e60 | 58 49 53 29 20 2d 20 4d 6f 76 65 20 66 6f 72 65 77 61 72 64 20 61 6e 64 20 62 61 63 6b 77 61 72 | XIS).-.Move.foreward.and.backwar |
1e80 | 64 2e 0d 0a 2d 2d 2d 2d 43 4c 49 43 4b 20 61 6e 64 20 44 52 41 47 20 28 58 20 41 58 49 53 29 20 | d...----CLICK.and.DRAG.(X.AXIS). |
1ea0 | 2d 20 54 75 72 6e 20 72 69 67 68 74 20 61 6e 64 20 6c 65 66 74 2e 0d 0a 2d 2d 2d 2d 53 48 49 46 | -.Turn.right.and.left...----SHIF |
1ec0 | 54 2f 43 4f 4e 54 52 4f 4c 20 28 6e 6f 20 43 4c 49 43 4b 29 20 2d 20 4d 6f 76 65 20 6f 6e 65 20 | T/CONTROL.(no.CLICK).-.Move.one. |
1ee0 | 66 6c 6f 6f 72 20 75 70 2f 64 6f 77 6e 2e 0d 0a 2d 2d 2d 2d 53 48 49 46 54 2f 43 4f 4e 54 52 4f | floor.up/down...----SHIFT/CONTRO |
1f00 | 4c 20 28 77 68 69 6c 65 20 43 4c 49 43 4b 49 4e 47 29 20 2d 20 4c 6f 6f 6b 20 75 70 2f 64 6f 77 | L.(while.CLICKING).-.Look.up/dow |
1f20 | 6e 2e 0d 0a 2d 2d 2d 2d 41 4c 54 20 2d 20 43 6c 61 6d 70 20 70 6f 73 69 74 69 6f 6e 2e 0d 0a 2d | n...----ALT.-.Clamp.position...- |
1f40 | 2d 2d 2d 48 4f 4d 45 20 2d 20 54 6f 67 67 6c 65 20 67 72 69 64 2e 0d 0a 2d 2d 2d 2d 5b 46 5d 20 | ---HOME.-.Toggle.grid...----[F]. |
1f60 | 4b 45 59 20 2d 20 54 6f 67 67 6c 65 20 66 6f 63 61 6c 20 62 6c 75 72 2e 0d 0a 0d 0a 41 55 54 4f | KEY.-.Toggle.focal.blur.....AUTO |
1f80 | 4d 41 54 45 44 20 44 45 4d 4f 0d 0a 2d 2d 2d 2d 43 4c 49 43 4b 20 61 6e 64 20 44 52 41 47 20 2d | MATED.DEMO..----CLICK.and.DRAG.- |
1fa0 | 20 54 65 6d 70 6f 72 61 72 69 6c 79 20 6c 6f 6f 6b 20 61 72 6f 75 6e 64 2e 0d 0a 2d 2d 2d 2d 48 | .Temporarily.look.around...----H |
1fc0 | 4f 4d 45 20 2d 20 54 6f 67 67 6c 65 20 67 72 69 64 2e 0d 0a 2d 2d 2d 2d 53 48 49 46 54 20 2d 20 | OME.-.Toggle.grid...----SHIFT.-. |
1fe0 | 49 6e 63 72 65 61 73 65 20 62 65 61 74 20 73 6d 6f 6f 74 68 69 6e 67 2e 0d 0a 2d 2d 2d 2d 43 4f | Increase.beat.smoothing...----CO |
2000 | 4e 54 52 4f 4c 20 2d 20 44 65 63 72 65 61 73 65 20 62 65 61 74 20 73 6d 6f 6f 74 68 69 6e 67 2e | NTROL.-.Decrease.beat.smoothing. |
2020 | 0d 0a 2d 2d 2d 2d 41 4c 54 20 2d 20 54 6f 67 67 6c 65 20 22 58 2d 52 61 79 22 20 62 61 6e 64 73 | ..----ALT.-.Toggle."X-Ray".bands |
2040 | 20 65 66 66 65 63 74 2e 0d 0a 2d 2d 2d 2d 45 4e 44 20 2d 20 49 6e 63 72 65 61 73 65 20 67 68 6f | .effect...----END.-.Increase.gho |
2060 | 73 74 69 6e 67 20 65 66 66 65 63 74 2e 0d 0a 2d 2d 2d 2d 44 45 4c 45 54 45 20 2d 20 44 65 63 72 | sting.effect...----DELETE.-.Decr |
2080 | 65 61 73 65 20 67 68 6f 73 74 69 6e 67 20 65 66 66 65 63 74 2e 0d 0a 2d 2d 2d 2d 5b 46 5d 20 4b | ease.ghosting.effect...----[F].K |
20a0 | 45 59 20 2d 20 54 6f 67 67 6c 65 20 66 6f 63 61 6c 20 62 6c 75 72 2e 0d 0a 00 15 00 00 00 75 07 | EY.-.Toggle.focal.blur........u. |
20c0 | 00 00 71 07 00 00 20 20 5f 5f 20 20 5f 20 20 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..q.....__.._.._................ |
20e0 | 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 0d 0a 2f | ..___________________________../ |
2100 | 20 20 2f 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 20 20 5f 5f 5f 5f 20 20 20 2f 20 20 20 20 20 20 | ../..|..|.|..|....____.../...... |
2120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
2140 | 20 20 20 20 20 20 20 20 5f 5f 5f 2f 0d 0a 5c 20 20 5c 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 2f | ........___/..\..\..|..|.|..|../ |
2160 | 5f 5f 5f 2f 20 20 2f 20 20 20 20 20 20 54 4f 54 41 4c 20 49 4d 4d 45 52 49 53 49 4f 4e 20 20 20 | ___/../......TOTAL.IMMERISION... |
2180 | 20 20 2f 5f 5f 20 20 20 20 0d 0a 2f 5f 2f 20 20 20 5c 5f 2f 20 20 20 20 20 20 20 20 20 20 20 20 | ../__....../_/...\_/............ |
21a0 | 20 2f 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 2f 0d 0a 53 | ./__________________________/..S |
21c0 | 68 6f 63 6b 20 56 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hock.Value...................... |
21e0 | 20 20 20 20 20 20 20 32 30 30 34 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 | .......2004...................20 |
2200 | 2e 20 41 72 63 68 69 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f | ..Architectural.Design..________ |
2220 | 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 0d 0a 0d 0a | ____________________________.... |
2240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 44 56 41 4e 43 45 44 20 54 49 | .....................ADVANCED.TI |
2260 | 50 53 0d 0a 0d 0a 2d 2d 2d 2d 50 72 65 73 73 20 5b 48 5d 20 61 74 20 61 6e 79 20 74 69 6d 65 20 | PS....----Press.[H].at.any.time. |
2280 | 66 6f 72 20 61 6e 20 69 6e 2d 70 72 65 73 65 74 20 6b 65 79 20 72 65 66 65 72 65 6e 63 65 20 70 | for.an.in-preset.key.reference.p |
22a0 | 61 67 65 2e 0d 0a 0d 0a 2d 2d 2d 2d 49 6e 20 74 68 65 20 44 65 73 69 67 6e 65 72 2c 20 69 66 20 | age.....----In.the.Designer,.if. |
22c0 | 79 6f 75 20 6d 61 6b 65 20 62 75 69 6c 64 69 6e 67 73 20 6f 66 66 20 63 65 6e 74 65 72 2c 20 79 | you.make.buildings.off.center,.y |
22e0 | 6f 75 20 6d 69 67 68 74 20 77 61 6e 74 20 74 6f 20 63 68 61 6e 67 65 20 74 68 65 20 43 41 4d 45 | ou.might.want.to.change.the.CAME |
2300 | 52 41 20 54 41 52 47 45 54 20 74 6f 20 72 65 66 6c 65 63 74 20 74 68 69 73 20 62 79 20 75 73 69 | RA.TARGET.to.reflect.this.by.usi |
2320 | 6e 67 20 41 4c 54 2e 20 49 6e 20 41 75 74 6f 6d 61 74 65 64 20 56 69 65 77 2c 20 74 68 65 20 63 | ng.ALT..In.Automated.View,.the.c |
2340 | 61 6d 65 72 61 20 77 69 6c 6c 20 74 65 6e 64 20 74 6f 20 70 6f 69 6e 74 20 74 6f 77 61 72 64 20 | amera.will.tend.to.point.toward. |
2360 | 74 68 69 73 20 70 6f 69 6e 74 2c 20 73 6f 20 70 6c 6f 70 20 69 74 20 61 63 63 6f 72 64 69 6e 67 | this.point,.so.plop.it.according |
2380 | 6c 79 2e 0d 0a 0d 0a 2d 2d 2d 2d 55 73 65 20 45 4e 44 20 69 6e 20 74 68 65 20 44 65 73 69 67 6e | ly.....----Use.END.in.the.Design |
23a0 | 65 72 20 74 6f 20 74 6f 67 67 6c 65 20 64 6f 75 62 6c 65 20 70 72 65 63 69 73 69 6f 6e 2e 20 57 | er.to.toggle.double.precision..W |
23c0 | 69 74 68 20 69 74 20 6f 6e 2c 20 79 6f 75 20 77 69 6c 6c 20 61 62 6c 65 20 74 6f 20 70 6c 61 63 | ith.it.on,.you.will.able.to.plac |
23e0 | 65 20 77 61 6c 6c 73 20 61 74 20 31 2f 34 20 6f 66 20 61 20 73 71 75 61 72 65 20 69 6e 74 65 72 | e.walls.at.1/4.of.a.square.inter |
2400 | 76 61 6c 73 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 64 65 66 61 75 6c 74 20 31 2f 32 | vals,.instead.of.the.default.1/2 |
2420 | 2e 20 59 6f 75 20 63 61 6e 20 73 65 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 65 63 69 73 | ..You.can.see.the.current.precis |
2440 | 69 6f 6e 20 6d 6f 64 65 20 69 6e 20 74 68 65 20 75 70 70 65 72 2d 72 69 67 68 74 2d 68 61 6e 64 | ion.mode.in.the.upper-right-hand |
2460 | 20 63 6f 72 6e 65 72 20 6f 66 20 74 68 65 20 73 63 72 65 65 6e 2e 0d 0a 0d 0a 2d 2d 2d 2d 46 6f | .corner.of.the.screen.....----Fo |
2480 | 72 20 61 20 73 70 65 65 64 20 62 6f 6f 73 74 20 69 6e 20 61 6c 6c 20 74 68 72 65 65 20 64 69 6d | r.a.speed.boost.in.all.three.dim |
24a0 | 65 6e 73 69 6f 6e 61 6c 20 76 69 65 77 73 2c 20 70 72 65 73 73 20 48 4f 4d 45 20 74 6f 20 64 69 | ensional.views,.press.HOME.to.di |
24c0 | 73 61 62 6c 65 20 74 68 65 20 67 72 6f 75 6e 64 20 67 72 69 64 2e 0d 0a 0d 0a 2d 2d 2d 2d 49 6e | sable.the.ground.grid.....----In |
24e0 | 20 61 6c 6c 20 74 68 72 65 65 20 64 69 6d 65 6e 73 69 6f 6e 61 6c 20 76 69 65 77 73 2c 20 70 72 | .all.three.dimensional.views,.pr |
2500 | 65 73 73 20 74 68 65 20 5b 46 5d 20 4b 45 59 20 74 6f 20 74 6f 67 67 6c 65 20 66 6f 63 61 6c 20 | ess.the.[F].KEY.to.toggle.focal. |
2520 | 62 6c 75 72 2e 20 49 74 20 77 69 6c 6c 20 64 65 63 72 65 61 73 65 20 74 68 65 20 66 72 61 6d 65 | blur..It.will.decrease.the.frame |
2540 | 72 61 74 65 20 64 72 61 6d 61 74 69 63 61 6c 6c 79 2c 20 62 75 74 20 69 74 20 69 73 20 61 6e 20 | rate.dramatically,.but.it.is.an. |
2560 | 61 77 65 73 6f 6d 65 20 65 66 66 65 63 74 20 74 68 61 74 20 69 73 20 77 6f 72 74 68 20 74 72 79 | awesome.effect.that.is.worth.try |
2580 | 69 6e 67 20 6f 75 74 2e 0d 0a 0d 0a 2d 2d 2d 2d 54 6f 20 6d 61 6b 65 20 65 6c 65 76 61 74 65 64 | ing.out.....----To.make.elevated |
25a0 | 20 77 61 6c 6b 77 61 79 73 20 61 6e 64 20 62 72 69 64 67 65 73 20 6c 6f 6f 6b 20 72 65 61 6c 69 | .walkways.and.bridges.look.reali |
25c0 | 73 74 69 63 2c 20 62 65 20 73 75 72 65 20 74 6f 20 61 64 64 20 73 75 70 70 6f 72 74 73 2e 20 55 | stic,.be.sure.to.add.supports..U |
25e0 | 73 65 20 74 68 65 20 64 61 72 6b 20 72 65 64 20 6f 75 74 6c 69 6e 65 20 6f 66 20 74 68 65 20 66 | se.the.dark.red.outline.of.the.f |
2600 | 6c 6f 6f 72 20 62 65 6c 6f 77 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 65 79 20 6c 69 6e | loor.below.to.make.sure.they.lin |
2620 | 65 20 75 70 2e 0d 0a 0d 0a 2d 2d 2d 2d 48 61 6c 6c 77 61 79 73 20 61 6e 64 20 72 6f 6f 6d 73 20 | e.up.....----Hallways.and.rooms. |
2640 | 61 72 65 20 69 6e 74 65 72 65 73 74 69 6e 67 20 74 6f 20 65 78 70 6c 6f 72 65 20 69 6e 20 46 69 | are.interesting.to.explore.in.Fi |
2660 | 72 73 74 20 50 65 72 73 6f 6e 20 56 69 65 77 2c 20 62 75 74 20 74 6f 6f 20 6d 61 6e 79 20 77 69 | rst.Person.View,.but.too.many.wi |
2680 | 6c 6c 20 6d 61 6b 65 20 74 68 65 20 6f 74 68 65 72 20 74 77 6f 20 76 69 65 77 73 20 6c 6f 6f 6b | ll.make.the.other.two.views.look |
26a0 | 20 63 6c 75 74 74 65 72 65 64 2e 20 54 72 79 20 74 6f 20 73 74 72 69 6b 65 20 61 20 62 61 6c 61 | .cluttered..Try.to.strike.a.bala |
26c0 | 6e 63 65 20 62 65 74 77 65 65 6e 20 63 6f 6d 70 6c 65 78 69 74 79 20 61 6e 64 20 73 69 6d 70 6c | nce.between.complexity.and.simpl |
26e0 | 69 63 69 74 79 2e 0d 0a 0d 0a 2d 2d 2d 2d 55 73 69 6e 67 20 48 4f 4d 45 20 69 6e 20 64 65 73 69 | icity.....----Using.HOME.in.desi |
2700 | 67 6e 20 76 69 65 77 20 74 6f 20 6d 61 6b 65 20 64 69 61 67 6f 6e 61 6c 20 65 64 67 65 73 20 6f | gn.view.to.make.diagonal.edges.o |
2720 | 6e 20 62 75 69 6c 64 69 6e 67 73 20 6c 6f 6f 6b 73 20 76 65 72 79 20 6e 69 63 65 2e 0d 0a 0d 0a | n.buildings.looks.very.nice..... |
2740 | 2d 2d 2d 2d 48 61 6c 6c 77 61 79 73 20 73 68 6f 75 6c 64 20 62 65 20 61 74 20 6c 65 61 73 74 20 | ----Hallways.should.be.at.least. |
2760 | 33 2f 34 20 6f 66 20 61 20 73 71 75 61 72 65 20 77 69 64 65 20 74 6f 20 6c 6f 6f 6b 20 72 65 61 | 3/4.of.a.square.wide.to.look.rea |
2780 | 6c 69 73 74 69 63 2e 0d 0a 0d 0a 2d 2d 2d 2d 42 75 69 6c 64 69 6e 67 73 20 64 6f 6e 27 74 20 68 | listic.....----Buildings.don't.h |
27a0 | 61 76 65 20 74 6f 20 62 65 20 62 69 67 20 6f 72 20 63 6f 6d 70 6c 65 78 20 74 6f 20 6c 6f 6f 6b | ave.to.be.big.or.complex.to.look |
27c0 | 20 67 6f 6f 64 21 20 53 69 6d 70 6c 65 2c 20 73 6d 61 6c 6c 65 72 20 62 75 69 6c 64 69 6e 67 73 | .good!.Simple,.smaller.buildings |
27e0 | 20 6f 66 74 65 6e 20 6c 6f 6f 6b 20 62 65 74 74 65 72 20 69 6e 20 41 75 74 6f 6d 61 74 65 64 20 | .often.look.better.in.Automated. |
2800 | 56 69 65 77 20 74 68 61 6e 20 6d 6f 72 65 20 63 6f 6d 70 6c 69 63 74 65 64 20 6f 6e 65 73 2c 20 | View.than.more.complicted.ones,. |
2820 | 61 6e 64 20 74 68 65 79 20 72 75 6e 20 66 61 73 74 65 72 2e 0d 0a 00 15 00 00 00 a0 16 00 00 9c | and.they.run.faster............. |
2840 | 16 00 00 20 20 5f 5f 20 20 5f 20 20 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5f | .....__.._.._.................._ |
2860 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 2f 20 20 2f | __________________________../../ |
2880 | 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 20 20 5f 5f 5f 5f 20 20 20 2f 20 20 20 20 20 20 20 20 20 | ..|..|.|..|....____.../......... |
28a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
28c0 | 20 20 20 20 20 5f 5f 5f 2f 0d 0a 5c 20 20 5c 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 2f 5f 5f 5f | .....___/..\..\..|..|.|..|../___ |
28e0 | 2f 20 20 2f 20 20 20 20 20 20 54 4f 54 41 4c 20 49 4d 4d 45 52 49 53 49 4f 4e 20 20 20 20 20 2f | /../......TOTAL.IMMERISION...../ |
2900 | 5f 5f 20 20 20 20 0d 0a 2f 5f 2f 20 20 20 5c 5f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 5f | __....../_/...\_/............./_ |
2920 | 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 2f 0d 0a 53 68 6f 63 | _________________________/..Shoc |
2940 | 6b 20 56 61 6c 75 65 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 | k.Value......................... |
2960 | 20 20 20 20 32 30 30 34 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 2e 20 41 | ....2004...................20..A |
2980 | 72 63 68 69 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | rchitectural.Design..___________ |
29a0 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 20 20 20 | _________________________....... |
29c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4d 4d 45 4e 54 53 0d 0a 0d | .....................COMMENTS... |
29e0 | 0a 57 6f 77 2c 20 49 20 63 61 6e 27 74 20 62 65 6c 69 65 76 65 20 74 68 69 73 20 74 68 69 6e 67 | .Wow,.I.can't.believe.this.thing |
2a00 | 20 65 76 65 6e 20 77 6f 72 6b 73 2e 20 49 20 61 6c 77 61 79 73 20 68 61 64 20 73 6f 6d 65 74 68 | .even.works..I.always.had.someth |
2a20 | 69 6e 67 20 6c 69 6b 65 20 74 68 69 73 20 69 6e 20 6d 69 6e 64 20 77 68 65 6e 20 49 20 63 72 65 | ing.like.this.in.mind.when.I.cre |
2a40 | 61 74 65 64 20 6d 79 20 6f 6c 64 65 72 20 70 72 65 73 65 74 20 22 42 6c 75 65 70 72 69 6e 74 22 | ated.my.older.preset."Blueprint" |
2a60 | 2c 20 62 75 74 20 74 68 69 73 20 65 76 65 6e 20 65 78 63 65 64 65 64 20 74 68 6f 73 65 20 69 64 | ,.but.this.even.exceded.those.id |
2a80 | 65 61 73 2e 20 49 74 20 64 65 66 69 6e 69 74 65 6c 79 20 74 6f 6f 6b 20 61 20 6c 6f 6e 67 20 74 | eas..It.definitely.took.a.long.t |
2aa0 | 69 6d 65 20 74 6f 20 6d 61 6b 65 2c 20 62 75 74 20 49 20 63 61 6e 27 74 20 73 61 79 20 49 20 72 | ime.to.make,.but.I.can't.say.I.r |
2ac0 | 61 6e 20 69 6e 74 6f 20 61 6e 79 20 73 65 72 69 6f 75 73 20 70 72 6f 62 6c 65 6d 73 2e 20 41 74 | an.into.any.serious.problems..At |
2ae0 | 20 66 69 72 73 74 2c 20 49 20 64 69 64 6e 27 74 20 74 68 69 6e 6b 20 74 68 69 73 20 77 6f 75 6c | .first,.I.didn't.think.this.woul |
2b00 | 64 20 72 65 61 6c 6c 79 20 62 65 20 70 6f 73 73 69 62 6c 65 2c 20 62 75 74 20 49 20 67 75 65 73 | d.really.be.possible,.but.I.gues |
2b20 | 73 20 49 20 70 72 6f 76 65 64 20 6d 79 73 65 6c 66 20 77 72 6f 6e 67 2e 20 54 68 69 73 20 72 65 | s.I.proved.myself.wrong..This.re |
2b40 | 61 6c 6c 79 20 63 61 6d 65 20 6f 75 74 20 62 65 74 74 65 72 20 74 68 61 6e 20 49 20 65 78 70 65 | ally.came.out.better.than.I.expe |
2b60 | 63 74 65 64 2e 20 57 65 6c 6c 2c 20 49 20 68 61 76 65 20 61 20 6c 6f 74 20 74 6f 20 73 61 79 20 | cted..Well,.I.have.a.lot.to.say. |
2b80 | 61 62 6f 75 74 20 74 68 69 73 2c 20 73 6f 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 63 61 74 65 | about.this,.so.refer.to.the.cate |
2ba0 | 67 6f 72 69 65 73 20 62 65 6c 6f 77 20 66 6f 72 20 6d 79 20 74 68 6f 75 67 68 74 73 20 6f 6e 20 | gories.below.for.my.thoughts.on. |
2bc0 | 65 61 63 68 2e 0d 0a 0d 0a 54 68 65 20 49 64 65 61 2e 2e 2e 0d 0a 2d 2d 2d 2d 57 65 6c 6c 2c 20 | each.....The.Idea.....----Well,. |
2be0 | 61 73 20 61 20 73 74 61 74 65 64 2c 20 74 68 69 73 20 69 73 20 72 65 61 6c 6c 79 20 61 6e 20 65 | as.a.stated,.this.is.really.an.e |
2c00 | 76 6f 6c 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 65 73 65 74 20 22 42 6c 75 65 70 72 69 6e | volution.of.the.preset."Blueprin |
2c20 | 74 22 2e 20 49 20 6b 6e 65 77 20 74 68 61 74 20 49 20 77 61 6e 74 65 64 20 61 20 73 69 6d 69 6c | t"..I.knew.that.I.wanted.a.simil |
2c40 | 61 72 20 6c 6f 6f 6b 20 61 73 20 74 68 61 74 20 70 72 65 73 65 74 2c 20 74 68 65 20 77 68 69 74 | ar.look.as.that.preset,.the.whit |
2c60 | 65 20 6f 6e 20 62 6c 75 65 2c 20 61 6e 64 20 49 20 6b 6e 65 77 20 49 20 77 61 6e 74 65 64 20 61 | e.on.blue,.and.I.knew.I.wanted.a |
2c80 | 20 75 73 65 72 2d 63 6f 6e 74 72 6f 6c 6c 65 64 20 65 78 70 65 72 69 65 6e 63 65 2e 20 54 68 65 | .user-controlled.experience..The |
2ca0 | 20 72 65 73 74 20 6f 66 20 74 68 69 73 20 70 72 65 73 65 74 20 63 61 6d 65 20 74 6f 20 6d 65 20 | .rest.of.this.preset.came.to.me. |
2cc0 | 61 73 20 49 20 77 61 73 20 62 75 69 6c 64 69 6e 67 20 69 74 2e 0d 0a 0d 0a 54 68 65 20 4c 6f 6f | as.I.was.building.it.....The.Loo |
2ce0 | 6b 2e 2e 2e 0d 0a 2d 2d 2d 2d 47 65 74 74 69 6e 67 20 74 68 61 74 20 62 75 69 6c 64 69 6e 67 20 | k.....----Getting.that.building. |
2d00 | 62 6c 75 65 70 72 69 6e 74 20 6c 6f 6f 6b 20 77 61 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 67 6f | blueprint.look.was.one.of.the.go |
2d20 | 61 6c 73 20 49 20 68 61 64 2c 20 61 6e 64 20 49 20 74 68 69 6e 6b 20 49 20 61 63 63 6f 6d 70 6c | als.I.had,.and.I.think.I.accompl |
2d40 | 69 73 68 65 64 20 69 74 2e 20 49 20 6b 6e 65 77 20 49 20 6e 65 65 64 65 64 20 61 20 6e 69 63 65 | ished.it..I.knew.I.needed.a.nice |
2d60 | 20 67 72 69 64 20 74 6f 20 62 75 69 6c 64 20 6f 6e 2e 20 49 20 75 73 65 64 20 61 20 44 4d 20 61 | .grid.to.build.on..I.used.a.DM.a |
2d80 | 6e 64 20 61 20 73 74 61 74 69 63 20 74 65 78 74 75 72 65 20 74 6f 20 6d 61 6b 65 20 69 74 2e 20 | nd.a.static.texture.to.make.it.. |
2da0 | 54 68 65 20 62 75 69 6c 64 69 6e 67 20 69 73 20 6d 61 64 65 20 6f 66 20 73 63 6f 70 65 73 2e 20 | The.building.is.made.of.scopes.. |
2dc0 | 46 6f 72 20 65 61 63 68 20 66 6c 6f 6f 72 2c 20 74 68 72 65 65 20 73 63 6f 70 65 73 20 61 72 65 | For.each.floor,.three.scopes.are |
2de0 | 20 75 73 65 64 20 28 66 6f 72 20 61 20 74 6f 74 61 6c 20 6f 66 20 32 34 29 2e 20 4f 6e 65 20 64 | .used.(for.a.total.of.24)..One.d |
2e00 | 72 61 77 73 20 74 68 65 20 62 6f 74 74 6f 6d 20 77 61 6c 6c 20 63 6f 6e 6e 65 63 74 6f 72 73 2c | raws.the.bottom.wall.connectors, |
2e20 | 20 6f 6e 65 20 64 72 61 77 73 20 74 68 65 20 74 6f 70 20 63 6f 6e 6e 65 63 74 6f 72 73 2c 20 61 | .one.draws.the.top.connectors,.a |
2e40 | 6e 64 20 6f 6e 65 20 64 72 61 77 73 20 74 68 65 20 76 65 72 74 69 63 61 6c 20 63 6f 6e 6e 65 63 | nd.one.draws.the.vertical.connec |
2e60 | 74 69 6f 6e 73 2e 20 54 68 65 20 22 73 6f 75 6e 64 20 72 69 6e 67 22 20 61 72 6f 75 6e 64 20 74 | tions..The."sound.ring".around.t |
2e80 | 68 65 20 62 75 69 6c 64 69 6e 67 20 61 72 65 61 20 70 72 6f 76 69 64 65 73 20 74 68 65 20 70 65 | he.building.area.provides.the.pe |
2ea0 | 72 66 65 63 74 20 61 6d 6f 75 6e 74 20 6f 66 20 6d 75 73 69 63 20 76 69 73 75 61 6c 69 7a 61 74 | rfect.amount.of.music.visualizat |
2ec0 | 69 6f 6e 2c 20 49 20 74 68 69 6e 6b 2e 20 49 74 27 73 20 74 68 65 72 65 2c 20 62 75 74 20 69 74 | ion,.I.think..It's.there,.but.it |
2ee0 | 27 73 20 6e 6f 74 20 6a 61 72 72 69 6e 67 20 69 6e 74 6f 20 79 6f 75 72 20 76 69 65 77 2e 0d 0a | 's.not.jarring.into.your.view... |
2f00 | 0d 0a 54 68 65 20 46 65 61 74 75 72 65 73 2e 2e 2e 0d 0a 2d 2d 2d 41 73 20 49 20 77 61 73 20 62 | ..The.Features.....---As.I.was.b |
2f20 | 75 69 6c 64 69 6e 67 2c 20 49 20 6b 65 70 74 20 61 64 64 69 6e 67 20 6f 6e 20 61 64 64 69 74 69 | uilding,.I.kept.adding.on.additi |
2f40 | 6f 6e 61 6c 20 66 65 61 74 75 72 65 73 2e 20 54 6f 20 73 74 61 72 74 2c 20 49 20 6b 6e 65 77 20 | onal.features..To.start,.I.knew. |
2f60 | 74 68 61 74 20 49 20 6e 65 65 64 65 64 3a 0d 0a 20 20 20 20 41 6e 20 65 61 73 79 20 74 6f 20 75 | that.I.needed:......An.easy.to.u |
2f80 | 73 65 20 64 65 73 69 67 6e 65 72 20 77 69 74 68 20 6d 75 6c 74 69 70 6c 65 20 66 6c 6f 6f 72 73 | se.designer.with.multiple.floors |
2fa0 | 20 28 49 20 73 74 61 72 74 65 64 20 77 69 74 68 20 66 6f 75 72 29 2e 0d 0a 20 20 20 20 41 20 33 | .(I.started.with.four).......A.3 |
2fc0 | 44 2c 20 6d 6f 75 73 65 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 76 69 65 77 20 28 77 68 69 63 68 20 | D,.mouse.controlled.view.(which. |
2fe0 | 77 61 73 20 74 68 65 20 66 69 72 73 74 20 74 68 69 6e 67 20 49 20 6d 61 64 65 29 2e 0d 0a 20 20 | was.the.first.thing.I.made)..... |
3000 | 20 20 41 20 76 69 65 77 65 72 20 74 68 61 74 20 6d 6f 76 65 64 20 6f 6e 20 62 65 61 74 2e 0d 0a | ..A.viewer.that.moved.on.beat... |
3020 | 49 20 65 76 65 6e 74 75 61 6c 6c 79 20 61 64 64 65 64 3a 0d 0a 20 20 20 20 41 20 66 69 72 73 74 | I.eventually.added:......A.first |
3040 | 20 70 65 72 73 6f 6e 20 76 69 65 77 2e 0d 0a 20 20 20 20 41 6e 20 69 6e 74 72 6f 2e 0d 0a 20 20 | .person.view.......An.intro..... |
3060 | 20 20 46 6f 75 72 20 61 64 64 69 74 69 6f 6e 61 6c 20 66 6c 6f 6f 72 73 20 74 6f 20 62 75 69 6c | ..Four.additional.floors.to.buil |
3080 | 64 20 6f 6e 20 28 66 6f 72 20 61 20 74 6f 74 61 6c 20 6f 66 20 65 69 67 68 74 29 2e 0d 0a 20 20 | d.on.(for.a.total.of.eight)..... |
30a0 | 20 20 41 20 76 65 72 79 20 63 6f 6d 70 6c 65 78 20 64 65 73 69 67 6e 65 72 20 77 69 74 68 20 6d | ..A.very.complex.designer.with.m |
30c0 | 61 6e 79 20 75 6e 70 6c 61 6e 6e 65 64 20 62 75 74 20 75 73 65 66 75 6c 20 66 65 61 74 75 72 65 | any.unplanned.but.useful.feature |
30e0 | 73 2e 0d 0a 20 20 20 20 46 75 6c 6c 73 63 72 65 65 6e 20 73 75 70 70 6f 72 74 20 75 73 69 6e 67 | s.......Fullscreen.support.using |
3100 | 20 72 69 67 68 74 20 63 6c 69 63 6b 2e 0d 0a 20 20 20 20 53 69 6d 75 6c 61 74 65 64 20 66 6f 63 | .right.click.......Simulated.foc |
3120 | 61 6c 20 62 6c 75 72 20 75 73 69 6e 67 20 61 20 5a 20 62 75 66 66 65 72 2e 0d 0a 20 20 20 20 41 | al.blur.using.a.Z.buffer.......A |
3140 | 20 54 4f 4e 20 6f 66 20 6d 69 6e 6f 72 20 66 65 61 74 75 72 65 73 20 74 68 72 6f 75 67 68 6f 75 | .TON.of.minor.features.throughou |
3160 | 74 20 74 68 65 20 70 72 65 73 65 74 2e 0d 0a 49 20 6b 65 70 74 20 77 6f 72 6b 69 6e 67 20 74 6f | t.the.preset...I.kept.working.to |
3180 | 20 6d 61 6b 65 20 69 74 20 62 65 74 74 65 72 20 61 6e 64 20 65 61 73 69 65 72 2e 20 53 6f 6d 65 | .make.it.better.and.easier..Some |
31a0 | 20 70 65 6f 70 6c 65 20 6d 69 67 68 74 20 66 69 6e 64 20 74 68 69 73 20 74 6f 6f 20 63 6f 6d 70 | .people.might.find.this.too.comp |
31c0 | 6c 69 63 61 74 65 64 2c 20 62 75 74 20 6d 79 20 70 68 69 6c 6f 73 6f 70 68 79 20 77 61 73 20 74 | licated,.but.my.philosophy.was.t |
31e0 | 6f 20 6d 61 6b 65 20 69 74 20 64 6f 20 65 76 65 72 79 74 68 69 6e 67 20 74 68 61 74 20 49 20 77 | o.make.it.do.everything.that.I.w |
3200 | 61 6e 74 65 64 20 69 74 20 74 6f 20 64 6f 20 61 73 20 65 61 73 69 6c 79 20 61 73 20 70 6f 73 73 | anted.it.to.do.as.easily.as.poss |
3220 | 69 62 6c 65 20 66 6f 72 20 4d 45 2e 20 48 6f 70 65 66 75 6c 6c 79 20 65 76 65 72 79 6f 6e 65 20 | ible.for.ME..Hopefully.everyone. |
3240 | 63 61 6e 20 67 65 74 20 74 68 65 20 68 61 6e 67 20 6f 66 20 69 74 20 77 69 74 68 6f 75 74 20 74 | can.get.the.hang.of.it.without.t |
3260 | 6f 6f 20 6d 75 63 68 20 74 72 6f 75 62 6c 65 2e 20 49 27 76 65 20 74 72 69 65 64 20 74 6f 20 6d | oo.much.trouble..I've.tried.to.m |
3280 | 61 6b 65 20 74 68 65 20 68 65 6c 70 20 63 6f 6d 6d 65 6e 74 73 20 61 73 20 75 6e 64 65 72 73 74 | ake.the.help.comments.as.underst |
32a0 | 61 6e 64 61 62 6c 65 20 61 73 20 70 6f 73 73 69 62 6c 65 2e 0d 0a 0d 0a 54 68 65 20 43 6f 64 65 | andable.as.possible.....The.Code |
32c0 | 2e 2e 2e 0d 0a 2d 2d 2d 2d 53 65 65 20 6e 65 78 74 20 63 6f 6d 6d 65 6e 74 2e 0d 0a 0d 0a 54 68 | .....----See.next.comment.....Th |
32e0 | 65 20 50 72 6f 62 6c 65 6d 73 2e 2e 2e 0d 0a 2d 2d 2d 2d 4c 69 6b 65 20 49 20 73 61 69 64 2c 20 | e.Problems.....----Like.I.said,. |
3300 | 74 68 65 72 65 20 77 65 72 65 20 6e 6f 20 6d 61 6a 6f 72 20 70 72 6f 62 6c 65 6d 73 2c 20 62 75 | there.were.no.major.problems,.bu |
3320 | 74 20 70 6c 65 6e 74 79 20 6f 66 20 6d 69 6e 6f 72 20 6f 6e 65 73 2e 20 47 65 74 74 69 6e 67 20 | t.plenty.of.minor.ones..Getting. |
3340 | 74 68 65 20 73 63 6f 70 65 73 20 61 6e 64 20 67 6d 65 67 61 62 75 66 20 74 6f 20 77 6f 72 6b 20 | the.scopes.and.gmegabuf.to.work. |
3360 | 74 6f 67 65 74 68 65 72 20 74 6f 6f 6b 20 73 6f 6d 65 20 74 69 6d 65 2c 20 61 73 20 77 65 6c 6c | together.took.some.time,.as.well |
3380 | 20 61 73 20 74 72 69 61 6c 20 61 6e 64 20 65 72 72 6f 72 2e 20 54 68 65 20 48 4f 4d 45 20 62 75 | .as.trial.and.error..The.HOME.bu |
33a0 | 74 74 6f 6e 20 66 6f 72 20 6d 61 6b 69 6e 67 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 77 61 | tton.for.making.wall.segments.wa |
33c0 | 73 20 74 72 69 63 6b 79 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 2e 20 49 74 20 6b 65 70 74 20 63 | s.tricky.to.implement..It.kept.c |
33e0 | 6f 6e 66 6c 69 63 74 69 6e 67 20 77 69 74 68 20 74 68 65 20 6d 6f 75 73 65 20 64 72 61 67 20 6d | onflicting.with.the.mouse.drag.m |
3400 | 6f 76 65 6d 65 6e 74 2e 20 41 6c 73 6f 2c 20 75 73 69 6e 67 20 48 4f 4d 45 20 66 6f 72 20 6c 6f | ovement..Also,.using.HOME.for.lo |
3420 | 6e 67 20 73 65 67 6d 65 6e 74 73 20 6f 72 69 67 69 6e 61 6c 6c 79 20 63 61 75 73 65 64 20 76 69 | ng.segments.originally.caused.vi |
3440 | 73 75 61 6c 20 63 6c 69 70 70 69 6e 67 20 70 72 6f 62 6c 65 6d 73 20 77 68 65 6e 20 76 69 65 77 | sual.clipping.problems.when.view |
3460 | 69 6e 67 20 74 68 65 20 62 75 69 6c 64 69 6e 67 20 61 74 20 63 65 72 74 61 69 6e 20 61 6e 67 6c | ing.the.building.at.certain.angl |
3480 | 65 73 2c 20 62 75 74 20 49 20 66 69 78 65 64 20 74 68 61 74 20 62 79 20 73 70 6c 69 74 74 69 6e | es,.but.I.fixed.that.by.splittin |
34a0 | 67 20 77 61 6c 6c 73 20 62 75 69 6c 74 20 75 73 69 6e 67 20 48 4f 4d 45 20 69 6e 74 6f 20 6d 75 | g.walls.built.using.HOME.into.mu |
34c0 | 6c 74 69 70 6c 65 20 73 6d 61 6c 6c 65 72 20 73 65 67 6d 65 6e 74 73 20 69 6e 73 74 65 61 64 20 | ltiple.smaller.segments.instead. |
34e0 | 6f 66 20 6f 6e 65 20 6c 6f 6e 67 20 6f 6e 65 2e 20 47 65 74 74 69 6e 67 20 74 68 65 20 76 65 72 | of.one.long.one..Getting.the.ver |
3500 | 74 69 63 61 6c 20 63 6f 6e 6e 65 63 74 6f 72 73 20 74 6f 20 77 6f 72 6b 20 63 6f 72 72 65 63 74 | tical.connectors.to.work.correct |
3520 | 6c 79 20 77 61 73 20 74 72 69 63 6b 79 2c 20 61 6e 64 20 69 74 20 73 74 69 6c 6c 20 64 6f 65 73 | ly.was.tricky,.and.it.still.does |
3540 | 6e 27 74 20 77 6f 72 6b 20 70 65 72 66 65 63 74 6c 79 20 69 6e 20 61 6c 6c 20 73 69 74 75 61 74 | n't.work.perfectly.in.all.situat |
3560 | 69 6f 6e 73 2e 20 54 68 65 72 65 20 77 65 72 65 20 70 6c 65 6e 74 79 20 6f 66 20 6f 74 68 65 72 | ions..There.were.plenty.of.other |
3580 | 20 70 72 6f 62 6c 65 6d 73 2c 20 62 75 74 20 74 68 65 79 20 72 65 61 6c 6c 79 20 77 65 72 65 20 | .problems,.but.they.really.were. |
35a0 | 74 6f 6f 20 6e 75 6d 65 72 6f 75 73 20 74 6f 20 72 65 6d 65 6d 62 65 72 2e 0d 0a 0d 0a 54 68 65 | too.numerous.to.remember.....The |
35c0 | 20 52 65 73 75 6c 74 2e 2e 2e 0d 0a 2d 2d 2d 2d 57 65 6c 6c 2c 20 49 20 74 68 69 6e 6b 20 49 20 | .Result.....----Well,.I.think.I. |
35e0 | 68 61 76 65 20 65 6e 64 65 64 20 75 70 20 77 69 74 68 20 74 68 65 20 6d 6f 73 74 20 74 65 63 68 | have.ended.up.with.the.most.tech |
3600 | 6e 69 63 61 6c 6c 79 20 61 64 76 61 6e 63 65 64 20 70 72 65 73 65 74 20 49 20 68 61 76 65 20 65 | nically.advanced.preset.I.have.e |
3620 | 76 65 72 20 6d 61 64 65 2e 20 41 6e 64 20 74 68 65 20 62 65 61 75 74 79 20 6f 66 20 69 74 20 69 | ver.made..And.the.beauty.of.it.i |
3640 | 73 20 74 68 61 74 20 69 74 20 69 73 6e 27 74 20 72 65 61 6c 6c 79 20 74 68 61 74 20 61 64 76 61 | s.that.it.isn't.really.that.adva |
3660 | 6e 63 65 64 20 61 74 20 61 6c 6c 2c 20 73 69 6e 63 65 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20 | nced.at.all,.since.there.are.no. |
3680 | 72 65 76 6f 6c 75 74 69 6f 6e 61 72 79 20 66 65 61 74 75 72 65 73 20 68 65 72 65 2d 2d 6a 75 73 | revolutionary.features.here--jus |
36a0 | 74 20 74 6f 6e 73 20 6f 66 20 73 6d 61 6c 6c 20 6f 6e 65 73 20 74 68 61 74 20 72 65 61 6c 6c 79 | t.tons.of.small.ones.that.really |
36c0 | 20 63 61 6d 65 20 74 6f 67 65 74 68 65 72 20 6e 69 63 65 6c 79 2e 20 49 20 74 68 69 6e 6b 20 74 | .came.together.nicely..I.think.t |
36e0 | 68 65 20 72 65 61 6c 20 72 65 76 6f 6c 75 74 69 6f 6e 20 68 65 72 65 20 69 73 6e 27 74 20 69 6e | he.real.revolution.here.isn't.in |
3700 | 20 74 68 65 20 6d 61 74 68 20 6f 72 20 74 68 65 20 74 65 63 68 6e 69 63 61 6c 20 61 73 70 65 63 | .the.math.or.the.technical.aspec |
3720 | 74 73 2c 20 69 74 27 73 20 69 6e 20 74 68 65 20 69 6e 74 65 72 61 63 74 69 76 69 74 79 2e 20 41 | ts,.it's.in.the.interactivity..A |
3740 | 66 74 65 72 20 61 6c 6c 2c 20 74 68 69 73 20 69 73 20 62 61 73 69 63 6c 79 20 22 42 6c 75 65 70 | fter.all,.this.is.basicly."Bluep |
3760 | 72 69 6e 74 22 20 28 66 72 6f 6d 20 22 45 6e 65 72 67 79 22 2c 20 6d 79 20 66 69 72 73 74 20 70 | rint".(from."Energy",.my.first.p |
3780 | 61 63 6b 29 2c 20 65 78 63 65 70 74 20 77 69 74 68 20 74 68 65 20 75 73 65 72 20 63 72 65 61 74 | ack),.except.with.the.user.creat |
37a0 | 69 6e 67 20 74 68 65 20 62 75 69 6c 64 69 6e 67 73 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 61 20 | ing.the.buildings,.instead.of.a. |
37c0 | 72 61 6e 64 6f 6d 20 73 65 65 64 20 66 75 6e 63 74 69 6f 6e 20 28 77 65 6c 6c 2c 20 74 68 65 20 | random.seed.function.(well,.the. |
37e0 | 67 72 61 70 68 69 63 73 20 61 72 65 20 61 20 6c 69 74 74 6c 65 20 70 72 65 74 74 69 65 72 20 74 | graphics.are.a.little.prettier.t |
3800 | 6f 6f 20 3a 29 20 29 2e 0d 0a 0d 0a 54 68 65 20 46 69 6c 65 73 69 7a 65 2e 2e 2e 0d 0a 2d 2d 2d | oo.:).).....The.Filesize.....--- |
3820 | 2d 54 68 69 73 20 70 72 65 73 65 74 20 69 73 20 6d 61 73 73 69 76 65 20 69 6e 20 74 65 72 6d 73 | -This.preset.is.massive.in.terms |
3840 | 20 6f 66 20 66 69 6c 65 73 69 7a 65 20 28 6f 76 65 72 20 33 35 30 6b 62 29 2e 20 54 68 65 20 74 | .of.filesize.(over.350kb)..The.t |
3860 | 72 75 74 68 20 69 73 2c 20 69 66 20 49 20 73 74 61 72 74 65 64 20 6f 76 65 72 20 61 6e 64 20 72 | ruth.is,.if.I.started.over.and.r |
3880 | 65 64 69 64 20 69 74 20 49 20 63 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 6d 61 6b 65 20 69 74 | edid.it.I.could.probably.make.it |
38a0 | 20 6d 75 63 68 20 73 6d 61 6c 6c 65 72 2e 20 49 20 73 68 6f 75 6c 64 6e 27 74 20 68 61 76 65 20 | .much.smaller..I.shouldn't.have. |
38c0 | 75 73 65 64 20 73 65 70 61 72 61 74 65 20 73 63 6f 70 65 73 20 61 6e 64 20 44 4d 73 20 66 6f 72 | used.separate.scopes.and.DMs.for |
38e0 | 20 65 61 63 68 20 76 69 65 77 2c 20 62 75 74 20 69 6e 73 74 65 61 64 20 63 6f 64 65 64 20 65 61 | .each.view,.but.instead.coded.ea |
3900 | 63 68 20 76 69 65 77 20 69 6e 74 6f 20 65 61 63 68 20 73 63 6f 70 65 20 61 6e 64 20 44 4d 2e 20 | ch.view.into.each.scope.and.DM.. |
3920 | 54 68 61 74 20 77 6f 75 6c 64 20 68 61 76 65 20 6d 61 64 65 20 74 68 65 20 70 72 65 73 65 74 20 | That.would.have.made.the.preset. |
3940 | 66 69 6c 65 73 69 7a 65 20 73 6d 61 6c 6c 65 72 2c 20 62 75 74 20 6f 6e 20 74 68 65 20 6f 74 68 | filesize.smaller,.but.on.the.oth |
3960 | 65 72 20 68 61 6e 64 20 69 74 20 77 6f 75 6c 64 20 68 61 76 65 20 62 65 65 6e 20 68 61 72 64 65 | er.hand.it.would.have.been.harde |
3980 | 72 20 74 6f 20 65 64 69 74 20 6f 72 20 61 64 64 20 6e 65 77 20 66 65 61 74 75 72 65 73 20 61 6e | r.to.edit.or.add.new.features.an |
39a0 | 64 20 77 6f 75 6c 64 20 68 61 76 65 20 61 6c 6d 6f 73 74 20 63 65 72 74 61 69 6e 6c 79 20 62 65 | d.would.have.almost.certainly.be |
39c0 | 65 6e 20 6d 75 63 68 20 6d 6f 72 65 20 62 75 67 67 79 20 74 68 61 6e 20 74 68 65 20 77 61 79 20 | en.much.more.buggy.than.the.way. |
39e0 | 69 74 20 69 73 20 6e 6f 77 2e 20 49 20 67 75 65 73 73 20 69 6e 20 72 65 74 72 6f 73 70 65 63 74 | it.is.now..I.guess.in.retrospect |
3a00 | 2c 20 49 27 6d 20 6e 6f 74 20 73 75 72 65 20 77 68 69 63 68 20 6d 65 74 68 6f 64 20 77 6f 75 6c | ,.I'm.not.sure.which.method.woul |
3a20 | 64 20 68 61 76 65 20 62 65 65 6e 20 62 65 74 74 65 72 2e 0d 0a 0d 0a 54 68 65 20 46 75 74 75 72 | d.have.been.better.....The.Futur |
3a40 | 65 2e 2e 2e 0d 0a 2d 2d 2d 2d 53 6f 6d 65 74 69 6d 65 2c 20 49 27 64 20 6c 69 6b 65 20 74 6f 20 | e.....----Sometime,.I'd.like.to. |
3a60 | 6d 61 6b 65 20 61 20 6e 65 77 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 69 73 2e 20 53 6f 6d 65 | make.a.new.version.of.this..Some |
3a80 | 20 70 6f 73 73 69 62 6c 65 20 66 65 61 74 75 72 65 73 3a 20 0d 0a 20 20 2d 74 65 72 72 61 69 6e | .possible.features:.....-terrain |
3aa0 | 20 63 72 65 61 74 69 6f 6e 0d 0a 20 20 2d 70 6c 6f 70 70 61 62 6c 65 20 6f 62 6a 65 63 74 73 0d | .creation....-ploppable.objects. |
3ac0 | 0a 20 20 2d 75 6e 6c 69 6d 69 74 65 64 20 66 6c 6f 6f 72 73 0d 0a 20 20 2d 77 69 6e 64 6f 77 73 | ...-unlimited.floors....-windows |
3ae0 | 0d 0a 20 20 2d 64 6f 6f 72 73 0d 0a 20 20 2d 63 75 72 76 65 64 2f 73 6d 6f 6f 74 68 20 77 61 6c | ....-doors....-curved/smooth.wal |
3b00 | 6c 73 0d 0a 20 20 2d 61 64 64 69 74 69 6f 6e 20 6f 66 20 73 6f 6c 69 64 20 77 61 6c 6c 20 72 65 | ls....-addition.of.solid.wall.re |
3b20 | 6e 64 65 72 65 72 20 28 66 6f 72 20 6d 61 6b 69 6e 67 20 63 6f 6f 6c 20 73 63 72 65 65 6e 73 68 | nderer.(for.making.cool.screensh |
3b40 | 6f 74 73 29 0d 0a 20 20 2d 63 61 6d 65 72 61 20 72 65 63 6f 72 64 65 72 20 66 6f 72 20 75 73 65 | ots)....-camera.recorder.for.use |
3b60 | 72 20 63 72 65 61 74 65 64 20 64 65 6d 6f 73 0d 0a 20 20 2d 64 65 6d 6f 6c 69 74 69 6f 6e 20 6d | r.created.demos....-demolition.m |
3b80 | 6f 64 65 0d 0a 20 20 2d 62 75 69 6c 64 69 6e 67 20 73 61 76 69 6e 67 20 28 69 66 20 41 56 53 20 | ode....-building.saving.(if.AVS. |
3ba0 | 65 76 65 72 20 73 75 70 70 6f 72 74 73 20 73 61 76 69 6e 67 20 67 6d 65 67 61 62 75 66 20 64 61 | ever.supports.saving.gmegabuf.da |
3bc0 | 74 61 20 74 68 69 73 20 20 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20 73 69 6d 70 6c 65 | ta.this.........should.be.simple |
3be0 | 2c 20 49 27 64 20 65 76 65 6e 20 6d 61 6b 65 20 61 20 71 75 69 63 6b 20 75 70 64 61 74 65 20 6f | ,.I'd.even.make.a.quick.update.o |
3c00 | 66 20 74 68 69 73 20 69 66 20 61 20 20 20 20 20 20 20 20 20 73 61 76 69 6e 67 20 66 65 61 74 75 | f.this.if.a.........saving.featu |
3c20 | 72 65 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 65 66 6f 72 65 20 49 20 6d 61 6b 65 20 | re.is.implemented.before.I.make. |
3c40 | 74 68 65 20 66 75 6c 6c 20 66 6c 65 64 67 65 64 20 20 20 20 20 20 20 20 20 73 65 71 75 61 6c 29 | the.full.fledged.........sequal) |
3c60 | 0d 0a 20 20 2d 65 74 63 2e 20 0d 0a 49 27 6d 20 62 65 67 69 6e 6e 69 6e 67 20 74 6f 20 74 68 69 | ....-etc....I'm.beginning.to.thi |
3c80 | 6e 6b 20 74 68 61 74 20 61 6c 6d 6f 73 74 20 61 6e 79 74 68 69 6e 67 20 69 73 20 70 6f 73 73 69 | nk.that.almost.anything.is.possi |
3ca0 | 62 6c 65 20 69 6e 20 41 56 53 20 69 66 20 79 6f 75 20 6a 75 73 74 20 70 6c 61 6e 20 69 74 20 6f | ble.in.AVS.if.you.just.plan.it.o |
3cc0 | 75 74 20 61 6e 64 20 74 61 6b 65 20 74 68 65 20 74 69 6d 65 20 74 6f 20 64 6f 20 69 74 2e 20 54 | ut.and.take.the.time.to.do.it..T |
3ce0 | 68 65 20 61 62 6f 76 65 20 61 72 65 20 6f 6e 6c 79 20 69 64 65 61 73 2c 20 74 68 6f 75 67 68 2c | he.above.are.only.ideas,.though, |
3d00 | 20 61 6e 64 20 49 27 6d 20 6e 6f 74 20 65 76 65 6e 20 73 75 72 65 20 74 68 61 74 20 74 68 65 72 | .and.I'm.not.even.sure.that.ther |
3d20 | 65 20 77 69 6c 6c 20 62 65 20 61 20 73 65 71 75 61 6c 20 74 6f 20 74 68 69 73 20 70 72 65 73 65 | e.will.be.a.sequal.to.this.prese |
3d40 | 74 2e 20 49 6e 20 66 61 63 74 2c 20 74 68 65 72 65 20 70 72 6f 62 61 62 6c 79 20 77 6f 6e 27 74 | t..In.fact,.there.probably.won't |
3d60 | 20 62 65 20 6f 6e 65 20 62 65 63 61 75 73 65 20 74 68 69 73 20 6f 6e 65 20 77 61 73 20 73 75 63 | .be.one.because.this.one.was.suc |
3d80 | 68 20 61 20 62 65 61 73 74 20 74 6f 20 6d 61 6b 65 2e 0d 0a 0d 0a 0d 0a 57 65 6c 6c 2c 20 74 68 | h.a.beast.to.make.......Well,.th |
3da0 | 61 6e 6b 73 20 66 6f 72 20 72 65 61 64 69 6e 67 20 6d 79 20 63 6f 6d 6d 65 6e 74 73 2e 20 20 49 | anks.for.reading.my.comments...I |
3dc0 | 27 76 65 20 74 72 69 65 64 20 74 6f 20 77 72 69 74 65 20 61 20 6c 6f 74 20 73 6f 20 74 68 61 74 | 've.tried.to.write.a.lot.so.that |
3de0 | 20 41 56 53 65 72 73 20 77 69 6c 6c 20 75 6e 64 65 72 73 74 61 6e 64 20 68 6f 77 20 74 68 69 73 | .AVSers.will.understand.how.this |
3e00 | 20 74 68 69 6e 67 20 77 6f 72 6b 73 20 61 6e 64 20 63 61 6e 20 65 76 65 6e 74 75 61 6c 6c 79 20 | .thing.works.and.can.eventually. |
3e20 | 6d 61 6b 65 20 62 69 67 67 65 72 2c 20 62 65 74 74 65 72 2c 20 61 6e 64 20 6d 6f 72 65 20 63 6f | make.bigger,.better,.and.more.co |
3e40 | 6d 70 6c 69 63 61 74 65 64 20 70 72 65 73 65 74 73 21 20 20 41 73 20 61 20 72 65 77 61 72 64 2c | mplicated.presets!..As.a.reward, |
3e60 | 20 74 72 79 20 70 72 65 73 73 69 6e 67 20 74 68 65 20 5b 3d 5d 20 6b 65 79 20 69 6e 20 41 75 74 | .try.pressing.the.[=].key.in.Aut |
3e80 | 6f 6d 61 74 65 64 20 44 65 6d 6f 2e 20 49 20 68 6f 70 65 20 79 6f 75 20 65 6e 6a 6f 79 20 74 68 | omated.Demo..I.hope.you.enjoy.th |
3ea0 | 69 73 20 70 72 65 73 65 74 20 61 73 20 6d 75 63 68 20 61 73 20 49 20 65 6e 6a 6f 79 65 64 20 6d | is.preset.as.much.as.I.enjoyed.m |
3ec0 | 61 6b 69 6e 67 20 69 74 21 0d 0a 0d 0a 2d 2d 2d 2d 53 68 6f 63 6b 20 56 61 6c 75 65 0d 0a 00 15 | aking.it!....----Shock.Value.... |
3ee0 | 00 00 00 ec 15 00 00 e8 15 00 00 20 20 5f 5f 20 20 5f 20 20 5f 20 20 20 20 20 20 20 20 20 20 20 | .............__.._.._........... |
3f00 | 20 20 20 20 20 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 | ......._________________________ |
3f20 | 5f 5f 0d 0a 2f 20 20 2f 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 20 20 5f 5f 5f 5f 20 20 20 2f 20 | __../../..|..|.|..|....____.../. |
3f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
3f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5f 5f 5f 2f 0d 0a 5c 20 20 5c 20 20 7c 20 20 7c 20 7c 20 | .............___/..\..\..|..|.|. |
3f80 | 20 7c 20 20 2f 5f 5f 5f 2f 20 20 2f 20 20 20 20 20 20 54 4f 54 41 4c 20 49 4d 4d 45 52 49 53 49 | .|../___/../......TOTAL.IMMERISI |
3fa0 | 4f 4e 20 20 20 20 20 2f 5f 5f 20 20 20 20 0d 0a 2f 5f 2f 20 20 20 5c 5f 2f 20 20 20 20 20 20 20 | ON...../__....../_/...\_/....... |
3fc0 | 20 20 20 20 20 20 2f 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 | ....../_________________________ |
3fe0 | 5f 2f 0d 0a 53 68 6f 63 6b 20 56 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | _/..Shock.Value................. |
4000 | 20 20 20 20 20 20 20 20 20 20 20 20 32 30 30 34 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ............2004................ |
4020 | 20 20 20 32 30 2e 20 41 72 63 68 69 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 0d 0a 5f 5f 5f | ...20..Architectural.Design..___ |
4040 | 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 | ________________________________ |
4060 | 5f 0d 0a 0d 0a 20 20 20 20 20 20 43 4f 44 45 20 45 58 50 4c 41 49 4e 41 54 49 4f 4e 20 5c 20 4d | _..........CODE.EXPLAINATION.\.M |
4080 | 4f 44 20 47 55 49 44 45 0d 0a 0d 0a 49 6e 20 74 68 69 73 20 73 65 63 74 69 6f 6e 2c 20 49 27 6d | OD.GUIDE....In.this.section,.I'm |
40a0 | 20 67 6f 69 6e 67 20 74 6f 20 74 72 79 20 74 6f 20 65 78 70 6c 61 69 6e 20 68 6f 77 20 74 68 65 | .going.to.try.to.explain.how.the |
40c0 | 20 63 6f 64 65 20 69 6e 20 74 68 69 73 20 74 68 69 6e 67 20 77 6f 72 6b 73 20 69 6e 20 64 65 74 | .code.in.this.thing.works.in.det |
40e0 | 61 69 6c 2e 20 49 27 6d 20 67 65 61 72 69 6e 67 20 74 68 69 73 20 74 6f 77 61 72 64 20 61 6e 20 | ail..I'm.gearing.this.toward.an. |
4100 | 41 56 53 65 72 20 77 68 6f 20 70 6c 61 6e 73 20 74 6f 20 6d 6f 64 69 66 79 20 74 68 65 20 63 6f | AVSer.who.plans.to.modify.the.co |
4120 | 64 65 20 74 6f 20 6d 6f 64 69 66 79 20 6f 72 20 65 6e 68 61 6e 63 65 20 74 68 69 73 20 70 72 65 | de.to.modify.or.enhance.this.pre |
4140 | 73 65 74 2e 20 20 49 20 75 73 65 64 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 28 72 | set...I.used.global.variables.(r |
4160 | 65 67 58 58 29 20 74 6f 20 73 74 6f 72 65 20 67 65 6e 65 72 61 6c 20 76 61 72 69 61 62 6c 65 73 | egXX).to.store.general.variables |
4180 | 20 74 68 61 74 20 68 61 64 20 74 6f 20 62 65 20 73 68 61 72 65 64 20 61 63 63 72 6f 73 73 20 6d | .that.had.to.be.shared.accross.m |
41a0 | 75 6c 74 69 70 6c 65 20 65 76 61 6c 6c 69 62 20 69 6e 73 74 61 6e 63 65 73 2e 20 20 49 20 75 73 | ultiple.evallib.instances...I.us |
41c0 | 65 64 20 67 6d 65 67 61 62 75 66 28 29 20 66 6f 72 20 73 61 76 69 6e 67 20 69 6e 66 6f 72 6d 61 | ed.gmegabuf().for.saving.informa |
41e0 | 74 69 6f 6e 20 61 62 6f 75 74 20 61 6c 6c 20 74 68 65 20 69 6e 64 69 76 69 64 75 61 6c 20 77 61 | tion.about.all.the.individual.wa |
4200 | 6c 6c 20 73 65 67 6d 65 6e 74 73 2e 20 20 53 65 65 20 62 65 6c 6f 77 20 66 6f 72 20 6d 6f 72 65 | ll.segments...See.below.for.more |
4220 | 20 69 6e 66 6f 2e 0d 0a 0d 0a 0d 0a 2d 2d 2d 2d 47 6c 6f 62 61 6c 20 56 61 72 69 61 62 6c 65 20 | .info.......----Global.Variable. |
4240 | 52 65 66 65 72 65 6e 63 65 0d 0a 0d 0a 49 27 6c 6c 20 74 72 79 20 74 6f 20 69 6e 63 6c 75 64 65 | Reference....I'll.try.to.include |
4260 | 20 61 73 20 6d 61 6e 79 20 61 73 20 49 20 63 61 6e 20 72 65 6d 65 6d 62 65 72 5c 66 69 6e 64 20 | .as.many.as.I.can.remember\find. |
4280 | 28 74 68 69 73 20 77 61 73 20 77 72 69 74 74 65 6e 20 61 73 20 49 20 77 61 73 20 70 75 74 74 69 | (this.was.written.as.I.was.putti |
42a0 | 6e 67 20 66 69 6e 69 73 68 69 6e 67 20 74 6f 75 63 68 65 73 20 6f 6e 20 74 68 69 73 20 70 72 65 | ng.finishing.touches.on.this.pre |
42c0 | 73 65 74 29 2e 20 4f 6e 65 73 20 74 68 61 74 20 68 61 76 65 20 6e 6f 20 64 65 73 63 72 69 70 74 | set)..Ones.that.have.no.descript |
42e0 | 69 6f 6e 20 61 72 65 20 4e 4f 54 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 62 65 20 75 6e 75 | ion.are.NOT.guaranteed.to.be.unu |
4300 | 73 65 64 2e 20 41 6c 73 6f 2c 20 49 20 73 65 74 20 75 70 20 74 68 69 73 20 70 72 65 73 65 74 20 | sed..Also,.I.set.up.this.preset. |
4320 | 77 69 74 68 20 63 6f 64 65 20 74 68 61 74 20 63 6c 65 61 72 73 20 61 6c 6c 20 67 6c 6f 62 61 6c | with.code.that.clears.all.global |
4340 | 20 76 61 72 69 61 62 6c 65 73 20 77 68 65 6e 20 69 74 20 69 73 20 6c 6f 61 64 65 64 20 28 69 74 | .variables.when.it.is.loaded.(it |
4360 | 20 69 73 20 69 6e 20 74 68 65 20 69 6e 69 74 20 62 6f 78 20 6f 66 20 74 68 65 20 76 65 72 79 20 | .is.in.the.init.box.of.the.very. |
4380 | 66 69 72 73 74 20 73 75 70 65 72 73 63 6f 70 65 29 2e 0d 0a 0d 0a 41 62 62 72 65 76 69 61 74 69 | first.superscope).....Abbreviati |
43a0 | 6f 6e 73 20 75 73 65 64 20 69 6e 20 74 68 69 73 20 72 65 66 65 72 65 6e 63 65 2e 2e 2e 0d 0a 2d | ons.used.in.this.reference.....- |
43c0 | 2d 2d 2d 74 64 64 20 2d 20 54 6f 70 20 44 6f 77 6e 20 44 65 73 69 67 6e 65 72 0d 0a 2d 2d 2d 2d | ---tdd.-.Top.Down.Designer..---- |
43e0 | 33 64 76 20 2d 20 33 44 20 56 69 65 77 0d 0a 2d 2d 2d 2d 31 70 76 20 2d 20 31 73 74 20 50 65 72 | 3dv.-.3D.View..----1pv.-.1st.Per |
4400 | 73 6f 6e 20 56 69 65 77 0d 0a 2d 2d 2d 2d 61 75 74 6f 64 20 2d 20 41 75 74 6f 6d 61 74 65 64 20 | son.View..----autod.-.Automated. |
4420 | 44 65 6d 6f 0d 0a 2d 2d 2d 2d 76 61 72 20 2d 20 76 61 72 69 61 62 6c 65 0d 0a 2d 2d 2d 2d 63 61 | Demo..----var.-.variable..----ca |
4440 | 6d 20 2d 20 63 61 6d 65 72 61 0d 0a 2d 2d 2d 2d 70 6f 73 20 2d 20 70 6f 73 69 74 69 6f 6e 0d 0a | m.-.camera..----pos.-.position.. |
4460 | 2d 2d 2d 2d 72 6f 74 20 2d 20 72 6f 74 61 74 69 6f 6e 0d 0a 2d 2d 2d 2d 23 20 2d 20 6e 75 6d 62 | ----rot.-.rotation..----#.-.numb |
4480 | 65 72 0d 0a 0d 0a 2a 20 44 65 6e 6f 74 65 73 20 61 20 72 65 61 64 2d 6f 6e 6c 79 20 76 61 72 69 | er....*.Denotes.a.read-only.vari |
44a0 | 61 62 6c 65 2e 20 59 6f 75 20 6d 75 73 74 20 66 69 6e 64 20 74 68 65 20 73 65 63 74 69 6f 6e 20 | able..You.must.find.the.section. |
44c0 | 6f 66 20 74 68 65 20 63 6f 64 65 20 74 68 61 74 20 69 73 20 77 72 69 74 69 6e 67 20 74 6f 20 74 | of.the.code.that.is.writing.to.t |
44e0 | 68 65 20 76 61 72 69 61 62 6c 65 20 74 6f 20 63 68 61 6e 67 65 20 69 74 2e 0d 0a 0d 0a 72 65 67 | he.variable.to.change.it.....reg |
4500 | 30 30 2a 20 2d 20 78 20 70 6f 73 20 6f 66 20 63 61 6d 0d 0a 72 65 67 30 31 2a 20 2d 20 79 20 70 | 00*.-.x.pos.of.cam..reg01*.-.y.p |
4520 | 6f 73 20 6f 66 20 63 61 6d 0d 0a 72 65 67 30 32 2a 20 2d 20 7a 20 70 6f 73 20 6f 66 20 63 61 6d | os.of.cam..reg02*.-.z.pos.of.cam |
4540 | 0d 0a 72 65 67 30 33 2a 20 2d 20 78 20 72 6f 74 20 6f 66 20 63 61 6d 0d 0a 72 65 67 30 34 2a 20 | ..reg03*.-.x.rot.of.cam..reg04*. |
4560 | 2d 20 79 20 72 6f 74 20 6f 66 20 63 61 6d 0d 0a 72 65 67 30 35 2a 20 2d 20 7a 20 72 6f 74 20 6f | -.y.rot.of.cam..reg05*.-.z.rot.o |
4580 | 66 20 63 61 6d 0d 0a 72 65 67 30 36 0d 0a 72 65 67 30 37 0d 0a 72 65 67 30 38 2a 20 2d 20 69 6e | f.cam..reg06..reg07..reg08*.-.in |
45a0 | 20 74 64 64 2c 20 78 20 70 6f 73 20 6f 66 20 69 6e 73 65 72 74 69 6f 6e 20 70 6f 69 6e 74 0d 0a | .tdd,.x.pos.of.insertion.point.. |
45c0 | 72 65 67 30 39 2a 20 2d 20 69 6e 20 74 64 64 2c 20 79 20 70 6f 73 20 6f 66 20 69 6e 73 65 72 74 | reg09*.-.in.tdd,.y.pos.of.insert |
45e0 | 69 6f 6e 20 70 6f 69 6e 74 0d 0a 72 65 67 31 30 0d 0a 72 65 67 31 31 2a 20 2d 20 23 20 6f 66 20 | ion.point..reg10..reg11*.-.#.of. |
4600 | 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 66 6f 63 75 73 65 64 20 66 6c 6f 6f 72 0d 0a | wall.segments.in.focused.floor.. |
4620 | 72 65 67 31 32 0d 0a 72 65 67 31 33 0d 0a 72 65 67 31 34 20 2d 20 6d 6f 64 65 20 28 69 6e 74 72 | reg12..reg13..reg14.-.mode.(intr |
4640 | 6f 3d 30 2c 20 74 64 64 3d 31 2c 20 33 64 76 3d 32 2c 20 31 70 76 3d 33 2c 20 61 75 74 6f 64 3d | o=0,.tdd=1,.3dv=2,.1pv=3,.autod= |
4660 | 34 29 0d 0a 72 65 67 31 35 2a 20 2d 20 31 20 69 66 20 74 68 65 72 65 20 77 61 73 20 61 20 63 68 | 4)..reg15*.-.1.if.there.was.a.ch |
4680 | 61 6e 67 65 20 69 6e 20 6d 6f 64 65 20 23 20 73 69 6e 63 65 20 6c 61 73 74 20 66 72 61 6d 65 2c | ange.in.mode.#.since.last.frame, |
46a0 | 20 65 6c 73 65 20 30 0d 0a 72 65 67 31 36 0d 0a 72 65 67 31 37 0d 0a 72 65 67 31 38 0d 0a 72 65 | .else.0..reg16..reg17..reg18..re |
46c0 | 67 31 39 20 2d 20 64 6f 75 62 6c 65 20 70 72 65 63 69 73 69 6f 6e 20 28 31 20 69 66 20 6f 6e 2c | g19.-.double.precision.(1.if.on, |
46e0 | 20 30 20 69 66 20 6f 66 66 29 2c 20 75 73 65 64 20 69 6e 20 74 64 64 0d 0a 72 65 67 32 30 0d 0a | .0.if.off),.used.in.tdd..reg20.. |
4700 | 72 65 67 32 31 0d 0a 72 65 67 32 32 0d 0a 72 65 67 32 33 0d 0a 72 65 67 32 34 0d 0a 72 65 67 32 | reg21..reg22..reg23..reg24..reg2 |
4720 | 35 20 2d 20 67 68 6f 73 74 69 6e 67 20 6c 65 76 65 6c 20 28 66 6f 72 20 61 75 74 6f 76 2c 20 30 | 5.-.ghosting.level.(for.autov,.0 |
4740 | 2e 30 20 2e 2e 2e 20 31 2e 30 29 0d 0a 72 65 67 32 36 0d 0a 72 65 67 32 37 0d 0a 72 65 67 32 38 | .0.....1.0)..reg26..reg27..reg28 |
4760 | 2a 20 2d 20 78 20 70 6f 73 20 6f 66 20 74 68 65 20 6c 61 73 74 20 77 61 6c 6c 20 73 65 67 6d 65 | *.-.x.pos.of.the.last.wall.segme |
4780 | 6e 74 0d 0a 72 65 67 32 39 2a 20 2d 20 79 20 70 6f 73 20 6f 66 20 74 68 65 20 6c 61 73 74 20 77 | nt..reg29*.-.y.pos.of.the.last.w |
47a0 | 61 6c 6c 20 73 65 67 6d 65 6e 74 0d 0a 72 65 67 33 30 0d 0a 72 65 67 33 31 0d 0a 72 65 67 33 32 | all.segment..reg30..reg31..reg32 |
47c0 | 0d 0a 72 65 67 33 33 2a 20 2d 20 63 75 72 72 65 6e 74 20 66 72 61 6d 65 72 61 74 65 20 28 6e 6f | ..reg33*.-.current.framerate.(no |
47e0 | 74 20 73 75 72 65 20 77 68 79 20 69 20 68 61 76 65 20 74 77 6f 2c 20 62 75 74 20 69 0d 0a 72 65 | t.sure.why.i.have.two,.but.i..re |
4800 | 67 33 34 2a 20 2d 20 63 75 72 72 65 6e 74 20 66 72 61 6d 65 72 61 74 65 20 28 62 65 74 74 65 72 | g34*.-.current.framerate.(better |
4820 | 20 6e 6f 74 20 6d 65 73 73 20 77 69 74 68 20 74 68 65 6d 20 3a 29 20 29 0d 0a 72 65 67 33 35 0d | .not.mess.with.them.:).)..reg35. |
4840 | 0a 72 65 67 33 36 0d 0a 72 65 67 33 37 20 2d 20 69 6e 20 61 75 74 6f 64 2c 20 77 68 65 74 68 65 | .reg36..reg37.-.in.autod,.whethe |
4860 | 72 20 78 6f 72 20 62 61 6e 64 73 20 61 72 65 20 6f 6e 0d 0a 72 65 67 33 38 0d 0a 72 65 67 33 39 | r.xor.bands.are.on..reg38..reg39 |
4880 | 0d 0a 72 65 67 34 30 0d 0a 72 65 67 34 31 2a 20 2d 20 74 69 6d 65 20 76 61 72 20 66 6f 72 20 77 | ..reg40..reg41*.-.time.var.for.w |
48a0 | 68 65 74 68 65 72 20 74 6f 20 73 68 6f 77 20 74 69 74 6c 65 20 74 65 78 74 20 69 6e 20 61 75 74 | hether.to.show.title.text.in.aut |
48c0 | 6f 76 0d 0a 72 65 67 34 32 2a 20 2d 20 31 20 69 66 20 6a 75 73 74 20 73 77 69 74 63 68 69 6e 67 | ov..reg42*.-.1.if.just.switching |
48e0 | 20 69 6e 20 74 6f 20 61 75 74 6f 64 2c 20 65 6c 73 65 20 30 0d 0a 72 65 67 34 33 0d 0a 72 65 67 | .in.to.autod,.else.0..reg43..reg |
4900 | 34 34 0d 0a 72 65 67 34 35 0d 0a 72 65 67 34 36 0d 0a 72 65 67 34 37 0d 0a 72 65 67 34 38 0d 0a | 44..reg45..reg46..reg47..reg48.. |
4920 | 72 65 67 34 39 0d 0a 72 65 67 35 30 0d 0a 72 65 67 35 31 0d 0a 72 65 67 35 32 0d 0a 72 65 67 35 | reg49..reg50..reg51..reg52..reg5 |
4940 | 33 0d 0a 72 65 67 35 34 0d 0a 72 65 67 35 35 0d 0a 72 65 67 35 36 0d 0a 72 65 67 35 37 0d 0a 72 | 3..reg54..reg55..reg56..reg57..r |
4960 | 65 67 35 38 0d 0a 72 65 67 35 39 20 2d 20 77 68 65 74 68 65 72 20 66 6f 63 61 6c 20 62 6c 75 72 | eg58..reg59.-.whether.focal.blur |
4980 | 20 69 73 20 6f 6e 0d 0a 72 65 67 36 30 0d 0a 72 65 67 36 31 0d 0a 72 65 67 36 32 0d 0a 72 65 67 | .is.on..reg60..reg61..reg62..reg |
49a0 | 36 33 0d 0a 72 65 67 36 34 0d 0a 72 65 67 36 35 0d 0a 72 65 67 36 36 0d 0a 72 65 67 36 37 0d 0a | 63..reg64..reg65..reg66..reg67.. |
49c0 | 72 65 67 36 38 0d 0a 72 65 67 36 39 0d 0a 72 65 67 37 30 0d 0a 72 65 67 37 31 20 2d 20 66 6f 63 | reg68..reg69..reg70..reg71.-.foc |
49e0 | 75 73 65 64 20 66 6c 6f 6f 72 20 28 69 6e 20 74 64 64 20 61 6e 64 20 31 70 76 29 0d 0a 72 65 67 | used.floor.(in.tdd.and.1pv)..reg |
4a00 | 37 32 2a 20 2d 20 69 6e 20 74 64 64 2c 20 31 20 69 66 20 69 66 20 6d 6f 75 73 65 20 69 73 20 63 | 72*.-.in.tdd,.1.if.if.mouse.is.c |
4a20 | 6c 69 63 6b 69 6e 67 2b 64 72 61 67 67 69 6e 67 2c 20 65 6c 73 65 20 30 0d 0a 72 65 67 37 33 0d | licking+dragging,.else.0..reg73. |
4a40 | 0a 72 65 67 37 34 0d 0a 72 65 67 37 35 0d 0a 72 65 67 37 36 20 2d 20 78 20 70 6f 73 20 6f 66 20 | .reg74..reg75..reg76.-.x.pos.of. |
4a60 | 63 61 6d 20 74 61 72 67 65 74 20 28 66 6f 72 20 61 75 74 6f 64 29 0d 0a 72 65 67 37 37 20 2d 20 | cam.target.(for.autod)..reg77.-. |
4a80 | 79 20 70 6f 73 20 6f 66 20 63 61 6d 20 74 61 72 67 65 74 20 28 66 6f 72 20 61 75 74 6f 64 29 0d | y.pos.of.cam.target.(for.autod). |
4aa0 | 0a 72 65 67 37 38 0d 0a 72 65 67 37 39 2a 20 2d 20 6e 65 74 20 77 6f 72 74 68 20 76 61 72 20 28 | .reg78..reg79*.-.net.worth.var.( |
4ac0 | 73 65 65 20 65 6e 64 20 6f 66 20 36 74 68 20 63 6f 6d 6d 65 6e 74 29 0d 0a 72 65 67 38 30 0d 0a | see.end.of.6th.comment)..reg80.. |
4ae0 | 72 65 67 38 31 20 2d 20 23 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 31 73 | reg81.-.#.of.wall.segments.in.1s |
4b00 | 74 20 66 6c 6f 6f 72 0d 0a 72 65 67 38 32 20 2d 20 23 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 | t.floor..reg82.-.#.of.wall.segme |
4b20 | 6e 74 73 20 69 6e 20 32 6e 64 20 66 6c 6f 6f 72 0d 0a 72 65 67 38 33 20 2d 20 23 20 6f 66 20 77 | nts.in.2nd.floor..reg83.-.#.of.w |
4b40 | 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 33 72 64 20 66 6c 6f 6f 72 0d 0a 72 65 67 38 34 | all.segments.in.3rd.floor..reg84 |
4b60 | 20 2d 20 23 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 34 74 68 20 66 6c 6f | .-.#.of.wall.segments.in.4th.flo |
4b80 | 6f 72 0d 0a 72 65 67 38 35 20 2d 20 23 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 69 | or..reg85.-.#.of.wall.segments.i |
4ba0 | 6e 20 35 74 68 20 66 6c 6f 6f 72 0d 0a 72 65 67 38 36 20 2d 20 23 20 6f 66 20 77 61 6c 6c 20 73 | n.5th.floor..reg86.-.#.of.wall.s |
4bc0 | 65 67 6d 65 6e 74 73 20 69 6e 20 36 74 68 20 66 6c 6f 6f 72 0d 0a 72 65 67 38 37 20 2d 20 23 20 | egments.in.6th.floor..reg87.-.#. |
4be0 | 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 37 74 68 20 66 6c 6f 6f 72 0d 0a 72 | of.wall.segments.in.7th.floor..r |
4c00 | 65 67 38 38 20 2d 20 23 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 38 74 68 | eg88.-.#.of.wall.segments.in.8th |
4c20 | 20 66 6c 6f 6f 72 0d 0a 72 65 67 38 39 0d 0a 72 65 67 39 30 0d 0a 72 65 67 39 31 0d 0a 72 65 67 | .floor..reg89..reg90..reg91..reg |
4c40 | 39 32 0d 0a 72 65 67 39 33 0d 0a 72 65 67 39 34 20 2d 20 74 64 64 20 6c 6f 63 6b 20 76 61 72 20 | 92..reg93..reg94.-.tdd.lock.var. |
4c60 | 28 31 20 69 66 20 63 61 6d 20 69 73 20 6c 6f 63 6b 65 64 2c 20 30 20 69 66 20 6e 6f 74 29 0d 0a | (1.if.cam.is.locked,.0.if.not).. |
4c80 | 72 65 67 39 35 20 2d 20 62 65 61 74 20 73 6d 6f 6f 74 68 69 6e 67 20 28 66 6f 72 20 61 75 74 6f | reg95.-.beat.smoothing.(for.auto |
4ca0 | 64 2c 20 30 2e 30 20 2e 2e 2e 20 31 2e 30 29 0d 0a 72 65 67 39 36 0d 0a 72 65 67 39 37 0d 0a 72 | d,.0.0.....1.0)..reg96..reg97..r |
4cc0 | 65 67 39 38 0d 0a 72 65 67 39 39 0d 0a 0d 0a 0d 0a 2d 2d 2d 2d 41 63 63 65 73 73 69 6e 67 20 42 | eg98..reg99......----Accessing.B |
4ce0 | 75 69 6c 64 69 6e 67 20 44 61 74 61 0d 0a 0d 0a 54 68 72 65 65 20 76 61 72 69 61 62 6c 65 73 20 | uilding.Data....Three.variables. |
4d00 | 66 6f 72 20 65 61 63 68 20 69 6e 64 69 76 69 64 75 61 6c 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 | for.each.individual.wall.segment |
4d20 | 20 61 72 65 20 73 61 76 65 64 20 69 6e 20 67 6d 65 67 61 62 75 66 2e 20 20 54 68 65 73 65 20 61 | .are.saved.in.gmegabuf...These.a |
4d40 | 72 65 20 78 20 70 6f 73 69 74 69 6f 6e 2c 20 79 20 70 6f 73 69 74 69 6f 6e 2c 20 61 6e 64 20 76 | re.x.position,.y.position,.and.v |
4d60 | 69 73 69 62 69 6c 69 74 79 2e 20 20 54 68 65 79 20 61 72 65 20 67 72 6f 75 70 65 64 20 77 69 74 | isibility...They.are.grouped.wit |
4d80 | 68 69 6e 20 67 6d 65 67 61 62 75 66 20 62 79 20 74 68 65 69 72 20 66 6c 6f 6f 72 20 6e 75 6d 62 | hin.gmegabuf.by.their.floor.numb |
4da0 | 65 72 20 61 6e 64 20 74 68 65 69 72 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 22 73 74 | er.and.their.position.in.the."st |
4dc0 | 72 69 6e 67 22 20 6f 66 20 77 61 6c 6c 73 20 74 68 61 74 20 6d 61 6b 65 20 75 70 20 65 61 63 68 | ring".of.walls.that.make.up.each |
4de0 | 20 66 6c 6f 6f 72 2e 20 20 55 73 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 65 74 68 6f | .floor...Use.the.following.metho |
4e00 | 64 20 74 6f 20 61 63 63 65 73 73 20 74 68 65 6d 2e 2e 2e 0d 0a 0d 0a 67 6d 65 67 61 62 75 66 28 | d.to.access.them.......gmegabuf( |
4e20 | 31 30 30 2a 77 61 6c 6c 6e 75 6d 2b 66 6c 6f 6f 72 2a 36 2b 76 61 72 29 0d 0a 0d 0a 2e 2e 2e 20 | 100*wallnum+floor*6+var)........ |
4e40 | 77 68 65 72 65 20 66 6c 6f 6f 72 20 69 73 20 74 68 65 20 66 6c 6f 6f 72 20 74 68 61 74 20 74 68 | where.floor.is.the.floor.that.th |
4e60 | 65 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 20 69 73 20 6f 6e 20 28 31 2d 38 29 2c 20 77 61 6c 6c | e.wall.segment.is.on.(1-8),.wall |
4e80 | 6e 75 6d 20 69 73 20 74 68 65 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 20 28 31 20 2d 20 5b | num.is.the.segment.number.(1.-.[ |
4ea0 | 6e 75 6d 62 65 72 20 6f 66 20 77 61 6c 6c 73 20 69 6e 20 74 68 65 20 66 6c 6f 6f 72 5d 20 29 2c | number.of.walls.in.the.floor].), |
4ec0 | 20 61 6e 64 20 76 61 72 20 69 73 20 77 68 69 63 68 20 76 61 72 69 61 62 6c 65 20 79 6f 75 20 61 | .and.var.is.which.variable.you.a |
4ee0 | 72 65 20 61 63 63 65 73 73 69 6e 67 20 28 31 20 69 73 20 78 20 70 6f 73 2c 20 32 20 69 73 20 7a | re.accessing.(1.is.x.pos,.2.is.z |
4f00 | 20 70 6f 73 2c 20 33 20 69 73 20 76 69 73 69 62 69 6c 69 74 79 29 2e 20 20 46 6f 72 20 65 78 61 | .pos,.3.is.visibility)...For.exa |
4f20 | 6d 70 6c 65 2c 20 69 6e 20 2e 2e 2e 0d 0a 0d 0a 77 61 6c 6c 6e 75 6d 3d 32 31 3b 0d 0a 66 6c 6f | mple,.in........wallnum=21;..flo |
4f40 | 6f 72 3d 33 3b 0d 0a 76 61 72 3d 32 3b 0d 0a 6d 79 56 61 72 3d 67 6d 65 67 61 62 75 66 28 31 30 | or=3;..var=2;..myVar=gmegabuf(10 |
4f60 | 30 2a 77 61 6c 6c 6e 75 6d 2b 66 6c 6f 6f 72 2a 36 2b 76 61 72 29 3b 0d 0a 0d 0a 2e 2e 2e 6d 79 | 0*wallnum+floor*6+var);.......my |
4f80 | 56 61 72 20 65 71 75 61 6c 73 20 74 68 65 20 7a 20 70 6f 73 20 6f 66 20 74 68 65 20 32 31 73 74 | Var.equals.the.z.pos.of.the.21st |
4fa0 | 20 75 73 65 72 20 63 72 65 61 74 65 64 20 77 61 6c 6c 20 6f 66 20 74 68 65 20 33 72 64 20 66 6c | .user.created.wall.of.the.3rd.fl |
4fc0 | 6f 6f 72 20 61 6e 64 20 69 6e 2e 2e 2e 0d 0a 0d 0a 77 61 6c 6c 6e 75 6d 3d 31 34 3b 0d 0a 66 6c | oor.and.in.......wallnum=14;..fl |
4fe0 | 6f 6f 72 3d 31 3b 0d 0a 76 61 72 3d 33 3b 0d 0a 6d 79 56 61 72 3d 67 6d 65 67 61 62 75 66 28 31 | oor=1;..var=3;..myVar=gmegabuf(1 |
5000 | 30 30 2a 77 61 6c 6c 6e 75 6d 2b 66 6c 6f 6f 72 2a 36 2b 76 61 72 29 3b 0d 0a 0d 0a 2e 2e 2e 6d | 00*wallnum+floor*6+var);.......m |
5020 | 79 56 61 72 20 77 6f 75 6c 64 20 65 71 75 61 6c 20 31 20 69 66 20 74 68 65 20 31 34 74 68 20 75 | yVar.would.equal.1.if.the.14th.u |
5040 | 73 65 72 20 63 72 65 61 74 65 64 20 77 61 6c 6c 20 6f 66 20 74 68 65 20 32 73 74 20 66 6c 6f 6f | ser.created.wall.of.the.2st.floo |
5060 | 72 20 69 73 20 61 20 76 69 73 69 62 6c 65 20 77 61 6c 6c 2c 20 6f 72 20 30 20 69 66 20 69 74 20 | r.is.a.visible.wall,.or.0.if.it. |
5080 | 69 73 20 61 20 73 6f 72 74 20 6f 66 20 22 67 68 6f 73 74 22 20 77 61 6c 6c 20 74 68 61 74 20 69 | is.a.sort.of."ghost".wall.that.i |
50a0 | 73 20 75 73 65 64 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 77 6f 20 73 65 70 61 72 61 74 65 64 20 | s.used.to.connect.two.separated. |
50c0 | 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 61 6e 64 20 74 68 75 73 20 73 68 6f 75 6c 64 20 6e 6f | wall.segments.and.thus.should.no |
50e0 | 74 20 62 65 20 76 69 73 69 62 6c 65 20 77 68 65 6e 20 64 72 61 77 69 6e 67 20 74 68 65 20 62 75 | t.be.visible.when.drawing.the.bu |
5100 | 69 6c 64 69 6e 67 20 74 6f 20 73 63 72 65 65 6e 2e 0d 0a 0d 0a 46 6f 72 20 6d 6f 64 64 69 6e 67 | ilding.to.screen.....For.modding |
5120 | 20 70 75 72 70 6f 73 65 73 2c 20 74 68 65 72 65 20 61 72 65 20 74 68 72 65 65 20 61 64 64 69 74 | .purposes,.there.are.three.addit |
5140 | 69 6f 6e 61 6c 20 76 61 72 69 61 62 6c 65 73 20 74 68 61 74 20 79 6f 75 20 63 61 6e 20 61 73 73 | ional.variables.that.you.can.ass |
5160 | 69 67 6e 20 76 61 6c 75 65 73 20 74 6f 20 66 6f 72 20 65 61 63 68 20 77 61 6c 6c 20 73 65 67 6d | ign.values.to.for.each.wall.segm |
5180 | 65 6e 74 20 74 68 61 74 20 61 72 65 20 63 75 72 72 65 6e 74 6c 79 20 75 6e 75 73 65 64 20 62 79 | ent.that.are.currently.unused.by |
51a0 | 20 6d 65 2e 20 20 4a 75 73 74 20 6d 61 6b 65 20 76 61 72 3d 34 2c 20 35 2c 20 6f 72 20 36 20 75 | .me...Just.make.var=4,.5,.or.6.u |
51c0 | 73 69 6e 67 20 74 68 65 20 61 62 6f 76 65 20 6d 65 74 68 6f 64 2e 20 20 59 6f 75 20 6d 61 79 20 | sing.the.above.method...You.may. |
51e0 | 62 65 20 61 62 6c 65 20 74 6f 20 6d 61 6b 65 20 74 68 69 73 20 70 72 65 73 65 74 20 73 75 70 70 | be.able.to.make.this.preset.supp |
5200 | 6f 72 74 20 6d 6f 72 65 20 74 68 61 6e 20 65 69 67 68 74 20 66 6c 6f 6f 72 73 2c 20 62 75 74 20 | ort.more.than.eight.floors,.but. |
5220 | 74 68 69 73 20 77 69 6c 6c 20 72 65 71 75 69 72 65 20 73 6f 6d 65 20 73 69 67 6e 69 66 69 63 61 | this.will.require.some.significa |
5240 | 6e 74 20 6d 6f 64 69 66 79 69 6e 67 20 6f 66 20 63 6f 64 65 20 64 75 65 20 74 6f 20 74 68 65 20 | nt.modifying.of.code.due.to.the. |
5260 | 77 61 79 20 49 20 68 61 76 65 20 74 68 69 73 20 73 65 74 20 75 70 2e 0d 0a 0d 0a 0d 0a 2d 2d 2d | way.I.have.this.set.up.......--- |
5280 | 2d 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 0d 0a 0d 0a 49 6e 20 65 61 63 68 20 73 75 70 65 | -Local.Variables....In.each.supe |
52a0 | 72 73 63 6f 70 65 2c 20 74 68 65 20 66 69 72 73 74 20 6c 69 6e 65 20 69 6e 20 74 68 65 20 66 72 | rscope,.the.first.line.in.the.fr |
52c0 | 61 6d 65 20 62 6f 78 20 63 6f 6e 74 61 69 6e 73 20 61 73 73 69 67 6e 6d 65 6e 74 73 20 66 6f 72 | ame.box.contains.assignments.for |
52e0 | 20 61 20 62 75 6e 63 68 20 6f 66 20 75 73 65 66 75 6c 20 76 61 72 69 61 62 6c 65 73 2e 20 20 54 | .a.bunch.of.useful.variables...T |
5300 | 68 65 20 6e 61 6d 65 73 20 73 68 6f 75 6c 64 20 72 65 6c 61 74 65 20 74 6f 20 79 6f 75 20 77 68 | he.names.should.relate.to.you.wh |
5320 | 61 74 20 69 73 20 69 6e 20 74 68 65 6d 2e 20 20 4a 75 73 74 20 6b 65 65 70 20 69 6e 20 6d 69 6e | at.is.in.them...Just.keep.in.min |
5340 | 64 20 74 68 61 74 20 64 69 66 66 65 72 65 6e 74 20 76 61 72 69 61 62 6c 65 73 20 6d 61 79 20 62 | d.that.different.variables.may.b |
5360 | 65 20 73 65 74 20 69 6e 20 64 69 66 66 65 72 65 6e 74 20 73 63 6f 70 65 73 3b 20 74 68 69 73 20 | e.set.in.different.scopes;.this. |
5380 | 6c 69 6e 65 20 69 73 20 6e 6f 74 20 61 6c 77 61 79 73 20 74 68 65 20 73 61 6d 65 2e 0d 0a 0d 0a | line.is.not.always.the.same..... |
53a0 | 0d 0a 2d 2d 2d 2d 46 75 72 74 68 65 72 20 45 78 70 6c 61 69 6e 61 74 69 6f 6e 20 6f 66 20 43 6f | ..----Further.Explaination.of.Co |
53c0 | 64 65 2c 20 4d 65 74 68 6f 64 73 20 55 73 65 64 2c 20 65 74 63 2e 0d 0a 0d 0a 46 6f 72 20 6d 6f | de,.Methods.Used,.etc.....For.mo |
53e0 | 72 65 20 69 6e 20 64 65 70 74 68 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 6c 6f 6f 6b 20 66 6f | re.in.depth.information,.look.fo |
5400 | 72 20 63 6f 6d 6d 65 6e 74 73 20 6c 6f 63 61 74 65 64 20 69 6e 20 76 61 72 69 6f 75 73 20 70 6c | r.comments.located.in.various.pl |
5420 | 61 63 65 73 20 69 6e 20 74 68 69 73 20 70 72 65 73 65 74 2e 20 20 54 68 65 79 20 77 69 6c 6c 20 | aces.in.this.preset...They.will. |
5440 | 6f 66 66 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 72 65 67 61 72 64 69 6e 67 20 74 68 61 74 | offer.information.regarding.that |
5460 | 20 61 72 65 61 20 6f 66 20 74 68 65 20 70 72 65 73 65 74 2e 0d 0a 0d 0a 0d 0a 2d 2d 2d 2d 49 27 | .area.of.the.preset.......----I' |
5480 | 64 20 6c 69 6b 65 20 74 6f 20 73 65 65 20 73 6f 6d 65 20 6d 6f 64 73 20 6f 72 20 65 6e 63 68 61 | d.like.to.see.some.mods.or.encha |
54a0 | 6e 63 65 6d 65 6e 74 73 20 6d 61 64 65 20 66 6f 72 20 74 68 69 73 2c 20 69 66 20 61 6e 79 6f 6e | ncements.made.for.this,.if.anyon |
54c0 | 65 20 69 73 20 69 6e 74 65 72 65 73 74 65 64 21 0d 0a 00 15 00 00 00 21 02 00 00 1d 02 00 00 20 | e.is.interested!.......!........ |
54e0 | 20 5f 5f 20 20 5f 20 20 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5f 5f 5f 5f 5f | .__.._.._.................._____ |
5500 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 2f 20 20 2f 20 20 7c 20 | ______________________../../..|. |
5520 | 20 7c 20 7c 20 20 7c 20 20 20 20 5f 5f 5f 5f 20 20 20 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 | .|.|..|....____.../............. |
5540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
5560 | 20 5f 5f 5f 2f 0d 0a 5c 20 20 5c 20 20 7c 20 20 7c 20 7c 20 20 7c 20 20 2f 5f 5f 5f 2f 20 20 2f | .___/..\..\..|..|.|..|../___/../ |
5580 | 20 20 20 20 20 20 54 4f 54 41 4c 20 49 4d 4d 45 52 49 53 49 4f 4e 20 20 20 20 20 2f 5f 5f 20 20 | ......TOTAL.IMMERISION...../__.. |
55a0 | 20 20 0d 0a 2f 5f 2f 20 20 20 5c 5f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 5f 5f 5f 5f 5f | ..../_/...\_/............./_____ |
55c0 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 2f 0d 0a 53 68 6f 63 6b 20 56 61 | _____________________/..Shock.Va |
55e0 | 6c 75 65 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 | lue............................. |
5600 | 32 30 30 34 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 2e 20 41 72 63 68 69 | 2004...................20..Archi |
5620 | 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | tectural.Design.._______________ |
5640 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 20 20 20 20 20 20 20 | _____________________........... |
5660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 41 4e 47 45 4c 4f 47 0d 0a 0d 0a 76 2e 31 | ................CHANGELOG....v.1 |
5680 | 2e 30 31 0d 0a 2d 2d 2d 2d 41 64 64 65 64 20 5b 48 5d 20 72 65 6d 69 6e 64 65 72 20 74 65 78 74 | .01..----Added.[H].reminder.text |
56a0 | 20 69 6e 20 69 6e 74 72 6f 2e 0d 0a 2d 2d 2d 2d 41 64 64 65 64 20 79 65 6c 6c 6f 77 20 62 61 73 | .in.intro...----Added.yellow.bas |
56c0 | 69 63 20 68 65 6c 70 20 74 65 78 74 20 69 6e 20 64 65 73 69 67 6e 65 72 2e 0d 0a 0d 0a 76 2e 31 | ic.help.text.in.designer.....v.1 |
56e0 | 2e 30 30 0d 0a 2d 2d 2d 2d 49 74 27 73 20 66 69 6e 61 6c 6c 79 20 64 6f 6e 65 21 00 24 00 00 00 | .00..----It's.finally.done!.$... |
5700 | f8 0b 00 00 01 00 00 00 00 ea 07 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 | .............t=t+1;deltatime.=.g |
5720 | 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a | ettime(time);fr=fr*.9+deltatime* |
5740 | 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .1;framerate=1/fr;time.=.gettime |
5760 | 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 | (0);tb.=.tb+1;timeb.=.gettime(gt |
5780 | 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 | );xmouse=getkbmouse(1);ymouse=ge |
57a0 | 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 | tkbmouse(2);inbounds=below(abs(x |
57c0 | 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 | mouse),1)&below(abs(ymouse),1);x |
57e0 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
5800 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
5820 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
5840 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
5860 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
5880 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
58a0 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
58c0 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
58e0 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
5900 | 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f | sizechange=bnot(equal(oh,h))|bno |
5920 | 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b | t(equal(ow,w));oh=h;ow=w;hw=h/w; |
5940 | 70 61 67 65 75 70 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 33 29 3b 70 61 67 65 64 6f 77 6e 3d 67 | pageup=getkbmouse(33);pagedown=g |
5960 | 65 74 6b 62 6d 6f 75 73 65 28 33 34 29 3b 6c 6d 6f 75 73 65 3d 62 6f 72 28 6c 6d 6f 75 73 65 2c | etkbmouse(34);lmouse=bor(lmouse, |
5980 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 29 3b 66 6b 65 79 3d 67 65 74 6b 62 6d 6f 75 73 65 28 37 | getkbmouse(4));fkey=getkbmouse(7 |
59a0 | 30 29 3b 68 6f 6d 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 36 29 3b 0d 0a 2f 2f 20 67 65 6e 65 | 0);home=getkbmouse(36);..//.gene |
59c0 | 72 69 63 2c 20 75 73 65 66 75 6c 20 76 61 72 69 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 | ric,.useful.variable.definitions |
59e0 | 20 74 68 61 74 20 49 20 70 61 73 74 65 20 74 6f 20 6d 6f 73 74 20 73 63 6f 70 65 73 0d 0a 0d 0a | .that.I.paste.to.most.scopes.... |
5a00 | 70 61 67 65 75 63 3d 62 6e 6f 74 28 6f 70 75 29 26 70 61 67 65 75 70 3b 20 20 20 20 20 20 2f 2f | pageuc=bnot(opu)&pageup;......// |
5a20 | 20 66 69 67 75 72 65 20 6f 75 74 20 69 66 20 70 61 67 65 75 70 2f 64 6f 77 6e 0d 0a 6f 70 75 3d | .figure.out.if.pageup/down..opu= |
5a40 | 70 61 67 65 75 70 3b 20 20 20 20 20 2f 2f 20 68 61 73 20 62 65 65 6e 20 70 72 65 73 73 65 64 20 | pageup;.....//.has.been.pressed. |
5a60 | 74 68 69 73 20 66 72 61 6d 65 0d 0a 70 61 67 65 64 63 3d 62 6e 6f 74 28 6f 70 64 29 26 70 61 67 | this.frame..pagedc=bnot(opd)&pag |
5a80 | 65 64 6f 77 6e 3b 20 20 20 20 20 2f 2f 20 69 66 20 79 65 73 2c 20 6d 61 6b 65 20 70 61 67 65 75 | edown;.....//.if.yes,.make.pageu |
5aa0 | 63 20 6f 72 20 70 61 67 65 64 63 20 28 63 20 73 74 61 6e 64 73 20 66 6f 72 20 63 6c 69 63 6b 65 | c.or.pagedc.(c.stands.for.clicke |
5ac0 | 64 29 0d 0a 6f 70 64 3d 70 61 67 65 64 6f 77 6e 3b 20 20 20 20 20 2f 2f 20 76 61 72 73 20 31 2c | d)..opd=pagedown;.....//.vars.1, |
5ae0 | 20 65 6c 73 65 20 30 0d 0a 0d 0a 0d 0a 66 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 66 6b 29 26 66 6b | .else.0......fclick=bnot(ofk)&fk |
5b00 | 65 79 3b 0d 0a 6f 66 6b 3d 66 6b 65 79 3b 0d 0a 69 66 28 66 63 6c 69 63 6b 26 28 65 71 75 61 6c | ey;..ofk=fkey;..if(fclick&(equal |
5b20 | 28 6d 6f 64 65 2c 32 29 7c 65 71 75 61 6c 28 6d 6f 64 65 2c 33 29 7c 65 71 75 61 6c 28 6d 6f 64 | (mode,2)|equal(mode,3)|equal(mod |
5b40 | 65 2c 34 29 29 2c 61 73 73 69 67 6e 28 72 65 67 35 39 2c 62 6e 6f 74 28 72 65 67 35 39 29 29 2c | e,4)),assign(reg59,bnot(reg59)), |
5b60 | 30 29 3b 0d 0a 0d 0a 2f 2f 20 30 20 66 6f 72 20 69 6e 74 72 6f 2c 20 31 20 66 6f 72 20 62 75 69 | 0);....//.0.for.intro,.1.for.bui |
5b80 | 6c 64 65 72 2c 20 32 20 66 6f 72 20 76 69 65 77 65 72 2c 20 33 20 66 6f 72 20 77 61 6c 6b 65 72 | lder,.2.for.viewer,.3.for.walker |
5ba0 | 2c 20 34 20 66 6f 72 20 61 75 74 6f 6d 61 74 65 64 0d 0a 6f 6d 6f 64 65 3d 6d 6f 64 65 3b 0d 0a | ,.4.for.automated..omode=mode;.. |
5bc0 | 6d 6f 64 65 3d 6d 61 78 28 6d 69 6e 28 6d 6f 64 65 2b 70 61 67 65 75 63 2d 70 61 67 65 64 63 2c | mode=max(min(mode+pageuc-pagedc, |
5be0 | 34 29 2c 30 29 3b 20 0d 0a 2f 2f 20 63 68 61 6e 67 65 20 6d 6f 64 65 20 62 61 73 65 64 20 6f 6e | 4),0);...//.change.mode.based.on |
5c00 | 20 70 61 67 65 20 6b 65 79 73 0d 0a 2f 2f 20 61 6e 64 20 63 6c 61 6d 70 20 69 74 20 66 72 6f 6d | .page.keys..//.and.clamp.it.from |
5c20 | 20 30 20 74 6f 20 34 0d 0a 0d 0a 63 6c 69 63 6b 68 6f 6d 65 3d 62 6e 6f 74 28 6f 68 6f 29 2a 68 | .0.to.4....clickhome=bnot(oho)*h |
5c40 | 6f 6d 65 3b 6f 68 6f 3d 68 6f 6d 65 3b 0d 0a 69 66 28 63 6c 69 63 6b 68 6f 6d 65 26 62 6e 6f 74 | ome;oho=home;..if(clickhome&bnot |
5c60 | 28 65 71 75 61 6c 28 6d 6f 64 65 2c 30 29 7c 65 71 75 61 6c 28 6d 6f 64 65 2c 31 29 29 2c 61 73 | (equal(mode,0)|equal(mode,1)),as |
5c80 | 73 69 67 6e 28 72 65 67 35 35 2c 62 6e 6f 74 28 72 65 67 35 35 29 29 2c 30 29 3b 0d 0a 2f 2f 20 | sign(reg55,bnot(reg55)),0);..//. |
5ca0 | 61 62 6f 76 65 20 63 6f 64 65 20 73 6d 6f 6f 74 68 6c 79 20 66 61 64 65 73 20 6f 75 74 20 44 4d | above.code.smoothly.fades.out.DM |
5cc0 | 20 69 66 20 48 4f 4d 45 20 69 73 20 70 72 65 73 73 65 64 0d 0a 0d 0a 69 66 28 62 6e 6f 74 28 65 | .if.HOME.is.pressed....if(bnot(e |
5ce0 | 71 75 61 6c 28 6d 6f 64 65 2c 34 29 29 2c 61 73 73 69 67 6e 28 72 65 67 34 31 2c 74 69 6d 65 29 | qual(mode,4)),assign(reg41,time) |
5d00 | 2c 30 29 3b 0d 0a 2f 2f 20 63 61 6c 63 75 6c 61 74 65 20 61 20 74 69 6d 65 20 76 61 72 69 61 62 | ,0);..//.calculate.a.time.variab |
5d20 | 6c 65 20 66 6f 72 20 61 75 74 6f 6d 61 74 65 64 20 76 69 65 77 0d 0a 2f 2f 20 28 63 6f 6e 74 72 | le.for.automated.view..//.(contr |
5d40 | 6f 6c 73 20 77 68 65 6e 20 22 41 75 74 6f 6d 61 74 65 64 20 56 69 65 77 22 20 74 65 78 74 20 66 | ols.when."Automated.View".text.f |
5d60 | 61 64 65 73 20 6f 75 74 29 0d 0a 0d 0a 69 66 28 65 71 75 61 6c 28 6d 6f 64 65 2c 34 29 26 62 6e | ades.out)....if(equal(mode,4)&bn |
5d80 | 6f 74 28 65 71 75 61 6c 28 6f 6d 6f 64 65 2c 34 29 29 2c 61 73 73 69 67 6e 28 72 65 67 34 32 2c | ot(equal(omode,4)),assign(reg42, |
5da0 | 31 29 2c 61 73 73 69 67 6e 28 72 65 67 34 32 2c 30 29 29 3b 20 2f 2f 20 64 69 64 20 77 65 20 6a | 1),assign(reg42,0));.//.did.we.j |
5dc0 | 75 73 74 20 73 77 69 74 63 68 20 69 6e 20 74 6f 20 6d 6f 64 65 20 34 20 28 61 75 74 6f 6d 61 74 | ust.switch.in.to.mode.4.(automat |
5de0 | 65 64 20 76 69 65 77 29 3f 0d 0a 72 65 67 31 34 3d 6d 6f 64 65 3b 20 2f 2f 20 73 65 74 73 20 74 | ed.view)?..reg14=mode;.//.sets.t |
5e00 | 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 20 66 6f 72 20 6b 65 65 70 69 6e 67 20 74 72 61 63 6b 20 | he.global.var.for.keeping.track. |
5e20 | 6f 66 20 63 75 72 72 65 6e 74 20 6d 6f 64 65 0d 0a 72 65 67 31 35 3d 62 6e 6f 74 28 65 71 75 61 | of.current.mode..reg15=bnot(equa |
5e40 | 6c 28 6d 6f 64 65 2c 6f 6d 6f 64 65 29 29 3b 20 2f 2f 20 68 61 73 20 74 68 65 20 6d 6f 64 65 20 | l(mode,omode));.//.has.the.mode. |
5e60 | 63 68 61 6e 67 65 64 20 73 69 6e 63 65 20 6c 61 73 74 20 66 72 61 6d 65 3f 0d 0a 72 65 67 33 34 | changed.since.last.frame?..reg34 |
5e80 | 3d 66 72 61 6d 65 72 61 74 65 3b 0d 0a 6e 65 74 77 6f 72 74 68 3d 28 72 65 67 38 31 2a 32 30 2b | =framerate;..networth=(reg81*20+ |
5ea0 | 72 65 67 38 32 2a 32 35 2b 72 65 67 38 33 2a 33 30 2b 72 65 67 38 34 2a 33 35 2b 72 65 67 38 35 | reg82*25+reg83*30+reg84*35+reg85 |
5ec0 | 2a 34 30 2b 72 65 67 38 36 2a 35 30 2b 72 65 67 38 37 2a 38 30 2b 72 65 67 38 38 2a 31 30 30 29 | *40+reg86*50+reg87*80+reg88*100) |
5ee0 | 2a 37 35 3b 0d 0a 72 65 67 37 39 3d 6e 65 74 77 6f 72 74 68 0d 0a 00 9c 00 00 00 2f 2a 20 74 68 | *75;..reg79=networth......./*.th |
5f00 | 69 73 20 69 73 20 61 6c 6c 20 74 68 65 20 63 6f 64 65 20 74 68 61 74 20 69 73 20 65 78 65 63 75 | is.is.all.the.code.that.is.execu |
5f20 | 74 65 64 20 65 76 65 72 79 20 66 72 61 6d 65 2c 20 72 65 67 61 72 64 6c 65 73 73 0d 0a 6f 66 20 | ted.every.frame,.regardless..of. |
5f40 | 77 68 61 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 6f 64 65 20 69 73 2e 20 68 65 72 65 20 79 | what.the.current.mode.is..here.y |
5f60 | 6f 75 20 77 69 6c 6c 20 66 69 6e 64 20 74 68 65 20 61 63 74 75 61 6c 0d 0a 6d 6f 64 65 20 63 68 | ou.will.find.the.actual..mode.ch |
5f80 | 61 6e 67 65 20 63 6f 64 65 2c 20 69 6e 20 66 61 63 74 2e 20 2a 2f 00 51 03 00 00 2f 2f 20 50 72 | ange.code,.in.fact..*/.Q...//.Pr |
5fa0 | 65 73 65 74 20 43 6f 64 65 0d 0a 0d 0a 72 65 67 30 30 3d 30 3b 72 65 67 30 31 3d 30 3b 72 65 67 | eset.Code....reg00=0;reg01=0;reg |
5fc0 | 30 32 3d 30 3b 72 65 67 30 33 3d 30 3b 72 65 67 30 34 3d 30 3b 72 65 67 30 35 3d 30 3b 72 65 67 | 02=0;reg03=0;reg04=0;reg05=0;reg |
5fe0 | 30 36 3d 30 3b 72 65 67 30 37 3d 30 3b 72 65 67 30 38 3d 30 3b 72 65 67 30 39 3d 30 3b 0d 0a 72 | 06=0;reg07=0;reg08=0;reg09=0;..r |
6000 | 65 67 31 30 3d 30 3b 72 65 67 31 31 3d 30 3b 72 65 67 31 32 3d 30 3b 72 65 67 31 33 3d 30 3b 72 | eg10=0;reg11=0;reg12=0;reg13=0;r |
6020 | 65 67 31 34 3d 30 3b 72 65 67 31 35 3d 30 3b 72 65 67 31 36 3d 30 3b 72 65 67 31 37 3d 30 3b 72 | eg14=0;reg15=0;reg16=0;reg17=0;r |
6040 | 65 67 31 38 3d 30 3b 72 65 67 31 39 3d 30 3b 0d 0a 72 65 67 32 30 3d 30 3b 72 65 67 32 31 3d 30 | eg18=0;reg19=0;..reg20=0;reg21=0 |
6060 | 3b 72 65 67 32 32 3d 30 3b 72 65 67 32 33 3d 30 3b 72 65 67 32 34 3d 30 3b 72 65 67 32 35 3d 30 | ;reg22=0;reg23=0;reg24=0;reg25=0 |
6080 | 3b 72 65 67 32 36 3d 30 3b 72 65 67 32 37 3d 30 3b 72 65 67 32 38 3d 30 3b 72 65 67 32 39 3d 30 | ;reg26=0;reg27=0;reg28=0;reg29=0 |
60a0 | 3b 0d 0a 72 65 67 33 30 3d 30 3b 72 65 67 33 31 3d 30 3b 72 65 67 33 32 3d 30 3b 72 65 67 33 33 | ;..reg30=0;reg31=0;reg32=0;reg33 |
60c0 | 3d 30 3b 72 65 67 33 34 3d 30 3b 72 65 67 33 35 3d 30 3b 72 65 67 33 36 3d 30 3b 72 65 67 33 37 | =0;reg34=0;reg35=0;reg36=0;reg37 |
60e0 | 3d 30 3b 72 65 67 33 38 3d 30 3b 72 65 67 33 39 3d 30 3b 0d 0a 72 65 67 34 30 3d 30 3b 72 65 67 | =0;reg38=0;reg39=0;..reg40=0;reg |
6100 | 34 31 3d 30 3b 72 65 67 34 32 3d 30 3b 72 65 67 34 33 3d 30 3b 72 65 67 34 34 3d 30 3b 72 65 67 | 41=0;reg42=0;reg43=0;reg44=0;reg |
6120 | 34 35 3d 30 3b 72 65 67 34 36 3d 30 3b 72 65 67 34 37 3d 30 3b 72 65 67 34 38 3d 30 3b 72 65 67 | 45=0;reg46=0;reg47=0;reg48=0;reg |
6140 | 34 39 3d 30 3b 0d 0a 72 65 67 35 30 3d 30 3b 72 65 67 35 31 3d 30 3b 72 65 67 35 32 3d 30 3b 72 | 49=0;..reg50=0;reg51=0;reg52=0;r |
6160 | 65 67 35 33 3d 30 3b 72 65 67 35 34 3d 30 3b 72 65 67 35 35 3d 30 3b 72 65 67 35 36 3d 30 3b 72 | eg53=0;reg54=0;reg55=0;reg56=0;r |
6180 | 65 67 35 37 3d 30 3b 72 65 67 35 38 3d 30 3b 72 65 67 35 39 3d 30 3b 0d 0a 72 65 67 36 30 3d 30 | eg57=0;reg58=0;reg59=0;..reg60=0 |
61a0 | 3b 72 65 67 36 31 3d 30 3b 72 65 67 36 32 3d 30 3b 72 65 67 36 33 3d 30 3b 72 65 67 36 34 3d 30 | ;reg61=0;reg62=0;reg63=0;reg64=0 |
61c0 | 3b 72 65 67 36 35 3d 30 3b 72 65 67 36 36 3d 30 3b 72 65 67 36 37 3d 30 3b 72 65 67 36 38 3d 30 | ;reg65=0;reg66=0;reg67=0;reg68=0 |
61e0 | 3b 72 65 67 36 39 3d 30 3b 0d 0a 72 65 67 37 30 3d 30 3b 72 65 67 37 31 3d 30 3b 72 65 67 37 32 | ;reg69=0;..reg70=0;reg71=0;reg72 |
6200 | 3d 30 3b 72 65 67 37 33 3d 30 3b 72 65 67 37 34 3d 30 3b 72 65 67 37 35 3d 30 3b 72 65 67 37 36 | =0;reg73=0;reg74=0;reg75=0;reg76 |
6220 | 3d 30 3b 72 65 67 37 37 3d 30 3b 72 65 67 37 38 3d 30 3b 72 65 67 37 39 3d 30 3b 0d 0a 72 65 67 | =0;reg77=0;reg78=0;reg79=0;..reg |
6240 | 38 30 3d 30 3b 72 65 67 38 31 3d 30 3b 72 65 67 38 32 3d 30 3b 72 65 67 38 33 3d 30 3b 72 65 67 | 80=0;reg81=0;reg82=0;reg83=0;reg |
6260 | 38 34 3d 30 3b 72 65 67 38 35 3d 30 3b 72 65 67 38 36 3d 30 3b 72 65 67 38 37 3d 30 3b 72 65 67 | 84=0;reg85=0;reg86=0;reg87=0;reg |
6280 | 38 38 3d 30 3b 72 65 67 38 39 3d 30 3b 0d 0a 72 65 67 39 30 3d 30 3b 72 65 67 39 31 3d 30 3b 72 | 88=0;reg89=0;..reg90=0;reg91=0;r |
62a0 | 65 67 39 32 3d 30 3b 72 65 67 39 33 3d 30 3b 72 65 67 39 34 3d 30 3b 72 65 67 39 35 3d 30 3b 72 | eg92=0;reg93=0;reg94=0;reg95=0;r |
62c0 | 65 67 39 36 3d 30 3b 72 65 67 39 37 3d 30 3b 72 65 67 39 38 3d 30 3b 72 65 67 39 39 3d 30 3b 0d | eg96=0;reg97=0;reg98=0;reg99=0;. |
62e0 | 0a 0d 0a 72 65 67 35 35 3d 31 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 15 00 00 00 | ...reg55=1;..................... |
6300 | 36 00 00 00 32 00 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a 0d | 6...2...[[.Additional.Info.]]... |
6320 | 0a 4c 6f 6f 6b 20 77 69 74 68 69 6e 20 61 62 6f 76 65 20 73 63 6f 70 65 2e 00 fe ff ff ff c6 0c | .Look.within.above.scope........ |
6340 | 00 00 81 01 00 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ......$......................... |
6360 | 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 | ........@..AVS.2.8+.Effect.List. |
6380 | 43 6f 6e 66 69 67 00 00 00 00 00 27 02 00 00 01 00 00 00 06 00 00 00 6f 6e 3d 31 3b 00 15 02 00 | Config.....'...........on=1;.... |
63a0 | 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 | .t=t+1;deltatime.=.gettime(time) |
63c0 | 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 | ;fr=fr*.9+deltatime*.1;framerate |
63e0 | 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b | =1/fr;time.=.gettime(0);tb.=.tb+ |
6400 | 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 | 1;timeb.=.gettime(gt);xmouse=get |
6420 | 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b | kbmouse(1);ymouse=getkbmouse(2); |
6440 | 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 | inbounds=below(abs(xmouse),1)&be |
6460 | 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b | low(abs(ymouse),1);lmouse.=.getk |
6480 | 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 | bmouse(3);rmouse.=.getkbmouse(4) |
64a0 | 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d | ;shift.=.getkbmouse(5);control.= |
64c0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b | .getkbmouse(17);backspace.=.getk |
64e0 | 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 | bmouse(8);space.=.getkbmouse(32) |
6500 | 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 | ;right.=.getkbmouse(39);left.=.g |
6520 | 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 | etkbmouse(37);up.=.getkbmouse(38 |
6540 | 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e | );down.=.getkbmouse(40);sizechan |
6560 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
6580 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 65 6e 61 62 | ow,w));oh=h;ow=w;hw=h/w;....enab |
65a0 | 6c 65 64 3d 6f 6e 3b 6f 6e 3d 73 69 7a 65 63 68 61 6e 67 65 3b 00 15 00 00 00 3a 01 00 00 36 01 | led=on;on=sizechange;.....:...6. |
65c0 | 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a 0d 0a 54 68 69 73 20 | ..[[.Additional.Info.]]....This. |
65e0 | 45 4c 20 69 73 20 6f 6e 6c 79 20 65 78 65 63 75 74 65 64 20 61 74 20 74 68 65 20 76 65 72 79 20 | EL.is.only.executed.at.the.very. |
6600 | 62 65 67 69 6e 6e 69 6e 67 20 6f 72 20 6f 6e 20 73 69 7a 65 20 63 68 61 6e 67 65 2e 20 49 74 20 | beginning.or.on.size.change..It. |
6620 | 64 72 61 77 73 20 74 68 65 20 67 72 69 64 20 6c 69 6e 65 73 20 61 6e 64 20 73 61 76 65 73 20 74 | draws.the.grid.lines.and.saves.t |
6640 | 68 61 74 20 69 6d 61 67 65 20 69 6e 74 6f 20 61 20 62 75 66 66 65 72 20 66 6f 72 20 75 73 65 20 | hat.image.into.a.buffer.for.use. |
6660 | 77 69 74 68 20 61 6c 6c 20 76 69 65 77 73 20 65 78 63 65 70 74 20 74 68 65 20 44 65 73 69 67 6e | with.all.views.except.the.Design |
6680 | 65 72 20 28 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 69 6e 74 72 6f 29 2e 20 54 68 65 72 65 20 | er.(including.the.intro)..There. |
66a0 | 61 72 65 20 6c 6f 74 73 20 6f 66 20 43 6f 6e 76 6f 73 20 68 65 72 65 20 62 75 74 20 74 68 65 79 | are.lots.of.Convos.here.but.they |
66c0 | 20 61 72 65 20 6f 6e 6c 79 20 65 78 65 63 75 74 65 64 20 66 6f 72 20 6f 6e 65 20 66 72 61 6d 65 | .are.only.executed.for.one.frame |
66e0 | 2c 20 73 6f 20 69 74 20 64 6f 65 73 6e 27 74 20 6d 61 74 74 65 72 2e 00 19 00 00 00 14 00 00 00 | ,.so.it.doesn't.matter.......... |
6700 | 01 00 00 00 3c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 48 30 25 02 56 69 72 74 75 61 6c 20 | ....<...............H0%.Virtual. |
6720 | 45 66 66 65 63 74 3a 20 41 64 64 62 6f 72 64 65 72 73 00 00 00 00 00 00 0c 00 00 00 01 00 00 00 | Effect:.Addborders.............. |
6740 | ff ff ff 00 02 00 00 00 24 00 00 00 3c 00 00 00 01 0c 00 00 00 78 3d 30 3b 79 3d 69 2a 32 2d 31 | ........$...<........x=0;y=i*2-1 |
6760 | 00 0b 00 00 00 6c 69 6e 65 73 69 7a 65 3d 35 00 00 00 00 00 04 00 00 00 6e 3d 32 00 02 00 00 00 | .....linesize=5.........n=2..... |
6780 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 3c 00 00 00 01 0c 00 00 00 79 3d 30 3b 78 3d 69 | ............$...<........y=0;x=i |
67a0 | 2a 32 2d 31 00 0b 00 00 00 6c 69 6e 65 73 69 7a 65 3d 35 00 00 00 00 00 04 00 00 00 6e 3d 32 00 | *2-1.....linesize=5.........n=2. |
67c0 | 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f | ................l.P.Holden03:.Co |
67e0 | 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 | nvolution.Filter................ |
6800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6860 | 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
68a0 | 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
68c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 | ....................l.P.Holden03 |
68e0 | 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 | :.Convolution.Filter............ |
6900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6960 | 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6980 | 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
69a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
69c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 48 6f 6c 64 | ........................l.P.Hold |
69e0 | 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 | en03:.Convolution.Filter........ |
6a00 | 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6a60 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6a80 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 | ............................l.P. |
6ae0 | 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 | Holden03:.Convolution.Filter.... |
6b00 | dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 | ................................ |
6b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 | ................................ |
6b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 | ................................ |
6be0 | 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 | l.P.Holden03:.Convolution.Filter |
6c00 | 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
6c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 | ................................ |
6c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6ce0 | 08 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 | ....l.P.Holden03:.Convolution.Fi |
6d00 | 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | lter............................ |
6d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6d60 | 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 | ................................ |
6d80 | 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 | ................................ |
6da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6de0 | 00 00 00 00 08 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f | ........l.P.Holden03:.Convolutio |
6e00 | 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | n.Filter........................ |
6e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6e60 | 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
6e80 | 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
6ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6ee0 | 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c | ............l.P.Holden03:.Convol |
6f00 | 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ution.Filter.................... |
6f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6f60 | 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6f80 | 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6fa0 | 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
6fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7000 | 00 00 00 00 80 00 00 00 fe ff ff ff 47 0f 00 00 81 01 00 01 24 80 00 00 00 80 00 00 00 00 00 00 | ............G.......$........... |
7020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 | ......................@..AVS.2.8 |
7040 | 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 27 02 00 00 01 00 00 | +.Effect.List.Config.....'...... |
7060 | 00 06 00 00 00 6f 6e 3d 31 3b 00 15 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d | .....on=1;.....t=t+1;deltatime.= |
7080 | 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d | .gettime(time);fr=fr*.9+deltatim |
70a0 | 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 | e*.1;framerate=1/fr;time.=.getti |
70c0 | 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 | me(0);tb.=.tb+1;timeb.=.gettime( |
70e0 | 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d | gt);xmouse=getkbmouse(1);ymouse= |
7100 | 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 | getkbmouse(2);inbounds=below(abs |
7120 | 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 | (xmouse),1)&below(abs(ymouse),1) |
7140 | 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d | ;lmouse.=.getkbmouse(3);rmouse.= |
7160 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(4);shift.=.getkbmous |
7180 | 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 | e(5);control.=.getkbmouse(17);ba |
71a0 | 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 | ckspace.=.getkbmouse(8);space.=. |
71c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(32);right.=.getkbmous |
71e0 | 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d | e(39);left.=.getkbmouse(37);up.= |
7200 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(38);down.=.getkbmous |
7220 | 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | e(40);sizechange=bnot(equal(oh,h |
7240 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
7260 | 77 3d 68 2f 77 3b 0d 0a 0d 0a 65 6e 61 62 6c 65 64 3d 6f 6e 3b 6f 6e 3d 73 69 7a 65 63 68 61 6e | w=h/w;....enabled=on;on=sizechan |
7280 | 67 65 3b 00 15 00 00 00 e3 00 00 00 df 00 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e | ge;.............[[.Additional.In |
72a0 | 66 6f 20 5d 5d 0d 0a 0d 0a 54 68 69 73 20 45 4c 20 69 73 20 6a 75 73 74 20 6c 69 6b 65 20 74 68 | fo.]]....This.EL.is.just.like.th |
72c0 | 65 20 6c 61 73 74 20 6f 6e 65 20 65 78 63 65 70 74 20 74 68 65 20 69 6d 61 67 65 20 69 74 20 70 | e.last.one.except.the.image.it.p |
72e0 | 72 6f 64 75 63 65 73 20 69 73 20 61 20 62 69 74 20 64 61 72 6b 65 72 20 28 75 73 69 6e 67 20 74 | roduces.is.a.bit.darker.(using.t |
7300 | 68 65 20 43 6f 6c 6f 72 6d 61 70 29 2e 20 49 74 27 73 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 | he.Colormap)..It's.used.for.the. |
7320 | 69 6e 74 72 6f 2c 20 62 65 63 61 75 73 65 20 49 20 6e 65 65 64 65 64 20 61 6e 20 69 6d 61 67 65 | intro,.because.I.needed.an.image |
7340 | 20 74 68 61 74 20 77 61 73 20 61 20 62 69 74 20 64 61 72 6b 65 72 20 74 6f 20 75 73 65 20 61 73 | .that.was.a.bit.darker.to.use.as |
7360 | 20 61 20 62 61 63 6b 67 72 6f 75 6e 64 2e 00 19 00 00 00 14 00 00 00 01 00 00 00 3c 00 00 00 00 | .a.background..............<.... |
7380 | 00 00 00 00 00 00 00 00 00 00 00 48 30 25 02 56 69 72 74 75 61 6c 20 45 66 66 65 63 74 3a 20 41 | ...........H0%.Virtual.Effect:.A |
73a0 | 64 64 62 6f 72 64 65 72 73 00 00 00 00 00 00 0c 00 00 00 01 00 00 00 ff ff ff 00 02 00 00 00 24 | ddborders......................$ |
73c0 | 00 00 00 3c 00 00 00 01 0c 00 00 00 78 3d 30 3b 79 3d 69 2a 32 2d 31 00 0b 00 00 00 6c 69 6e 65 | ...<........x=0;y=i*2-1.....line |
73e0 | 73 69 7a 65 3d 35 00 00 00 00 00 04 00 00 00 6e 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 | size=5.........n=2.............. |
7400 | 00 00 00 24 00 00 00 3c 00 00 00 01 0c 00 00 00 79 3d 30 3b 78 3d 69 2a 32 2d 31 00 0b 00 00 00 | ...$...<........y=0;x=i*2-1..... |
7420 | 6c 69 6e 65 73 69 7a 65 3d 35 00 00 00 00 00 04 00 00 00 6e 3d 32 00 02 00 00 00 01 00 00 00 ff | linesize=5.........n=2.......... |
7440 | ff ff 00 01 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e | .......l.P.Holden03:.Convolution |
7460 | 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .Filter......................... |
7480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
74a0 | 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
74c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 00 | ................................ |
74e0 | 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 00 | ................................ |
7520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7540 | 00 00 00 00 00 00 00 05 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 | ...........l.P.Holden03:.Convolu |
7560 | 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 | tion.Filter..................... |
7580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
75a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
75c0 | 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 | ................................ |
75e0 | 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 | ................................ |
7600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7640 | 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e | ...............l.P.Holden03:.Con |
7660 | 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 | volution.Filter................. |
7680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
76a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
76c0 | 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
76e0 | 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7700 | 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a | ...................l.P.Holden03: |
7760 | 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 | .Convolution.Filter............. |
7780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
77a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
77c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
77e0 | 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7800 | 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 48 6f 6c 64 65 | .......................l.P.Holde |
7860 | 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 | n03:.Convolution.Filter......... |
7880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
78a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
78c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
78e0 | 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7900 | 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 48 | ...........................l.P.H |
7960 | 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc | olden03:.Convolution.Filter..... |
7980 | 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
79a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
79c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 | ................................ |
79e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 | ................................ |
7a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 6c | ...............................l |
7a60 | bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 | .P.Holden03:.Convolution.Filter. |
7a80 | 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
7ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 | ................................ |
7b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 | ................................ |
7b60 | 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c | ...l.P.Holden03:.Convolution.Fil |
7b80 | 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ter............................. |
7ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 | ................................ |
7be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 | ................................ |
7c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 | ................................ |
7c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7c60 | 00 00 00 08 00 00 00 88 71 4f 02 43 6f 6c 6f 72 20 4d 61 70 00 00 00 00 00 00 00 00 00 00 00 00 | ........qO.Color.Map............ |
7c80 | 00 00 00 00 00 00 00 00 00 00 00 b0 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 01 | ................................ |
7ca0 | 00 00 00 02 00 00 00 00 c4 e0 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 | ................................ |
7ce0 | 00 00 00 b0 f8 f9 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 f8 | ................................ |
7d20 | d1 f9 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 d0 1f c8 00 00 | ................................ |
7d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 28 7a df 01 00 00 00 00 00 | .......................(z....... |
7da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 08 f3 5a 04 00 00 00 00 00 00 00 00 00 | .....................Z.......... |
7de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7e00 | 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 20 f6 5c 04 00 00 00 00 00 00 00 00 00 00 00 00 00 | .................\.............. |
7e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7e40 | 00 00 00 00 00 00 00 02 00 00 00 08 e9 de 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7e80 | 00 00 00 70 00 00 00 49 54 00 00 ff 00 00 00 ff c6 c6 00 01 00 00 00 00 00 00 00 00 00 00 00 00 | ...p...IT....................... |
7ea0 | 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff | ................................ |
7ec0 | ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 | ................................ |
7ee0 | 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
7f00 | 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff | ................................ |
7f20 | ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 12 | ................................ |
7f40 | 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 80 00 00 00 fe ff ff ff 9c 45 00 00 82 | ............................E... |
7f60 | 02 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...$............................ |
7f80 | 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e | .....@..AVS.2.8+.Effect.List.Con |
7fa0 | 66 69 67 00 00 00 00 00 2c 00 00 00 01 00 00 00 09 00 00 00 2f 2f 20 69 6e 74 72 6f 00 17 00 00 | fig.....,...........//.intro.... |
7fc0 | 00 65 6e 61 62 6c 65 64 3d 65 71 75 61 6c 28 72 65 67 31 34 2c 30 29 00 24 00 00 00 e3 04 00 00 | .enabled=equal(reg14,0).$....... |
7fe0 | 01 41 00 00 00 2f 2f 20 54 68 69 73 20 73 63 6f 70 65 20 69 73 20 61 20 63 6f 6e 74 72 6f 6c 6c | .A...//.This.scope.is.a.controll |
8000 | 65 72 20 73 63 6f 70 65 20 66 6f 72 20 74 68 65 20 63 61 6d 65 72 61 20 69 6e 20 74 68 65 20 69 | er.scope.for.the.camera.in.the.i |
8020 | 6e 74 72 6f 2e 00 40 04 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 | ntro..@...t=t+1;deltatime.=.gett |
8040 | 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b | ime(time);fr=fr*.9+deltatime*.1; |
8060 | 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | framerate=1/fr;time.=.gettime(0) |
8080 | 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 | ;tb.=.tb+1;timeb.=.gettime(gt);x |
80a0 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 | mouse=getkbmouse(1);ymouse=getkb |
80c0 | 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 | mouse(2);inbounds=below(abs(xmou |
80e0 | 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 | se),1)&below(abs(ymouse),1);xmou |
8100 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
8120 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
8140 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
8160 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
8180 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
81a0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
81c0 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
81e0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
8200 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a | se(38);down.=.getkbmouse(40);siz |
8220 | 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 | echange=bnot(equal(oh,h))|bnot(e |
8240 | 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 6c 6d 6f | qual(ow,w));oh=h;ow=w;hw=h/w;lmo |
8260 | 75 73 65 3d 62 6f 72 28 6c 6d 6f 75 73 65 2c 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 29 20 3b 0d | use=bor(lmouse,getkbmouse(4)).;. |
8280 | 0a 0d 0a 78 70 6f 73 20 3d 20 30 3b 0d 0a 79 70 6f 73 20 3d 20 32 3b 20 2f 2f 20 70 6f 73 69 74 | ...xpos.=.0;..ypos.=.2;.//.posit |
82a0 | 69 6f 6e 20 76 61 72 69 61 62 6c 65 73 0d 0a 7a 70 6f 73 20 3d 20 74 69 6d 65 3b 0d 0a 78 70 6f | ion.variables..zpos.=.time;..xpo |
82c0 | 73 32 3d 78 70 6f 73 2d 78 74 61 72 67 3b 20 20 2f 2f 0d 0a 79 70 6f 73 32 3d 79 70 6f 73 2d 79 | s2=xpos-xtarg;..//..ypos2=ypos-y |
82e0 | 74 61 72 67 3b 20 20 2f 2f 20 74 65 6d 70 6f 72 61 72 79 20 76 61 72 69 61 62 6c 65 73 0d 0a 7a | targ;..//.temporary.variables..z |
8300 | 70 6f 73 32 3d 7a 70 6f 73 2d 7a 74 61 72 67 3b 20 20 2f 2f 0d 0a 78 74 61 72 67 3d 78 70 6f 73 | pos2=zpos-ztarg;..//..xtarg=xpos |
8320 | 3b 79 74 61 72 67 3d 30 3b 7a 74 61 72 67 3d 7a 70 6f 73 2b 73 69 6e 28 74 69 6d 65 29 2a 2e 32 | ;ytarg=0;ztarg=zpos+sin(time)*.2 |
8340 | 35 3b 20 2f 2f 20 6d 6f 72 65 20 74 65 6d 70 20 76 61 72 73 0d 0a 79 70 6f 73 3d 6d 61 78 28 79 | 5;.//.more.temp.vars..ypos=max(y |
8360 | 70 6f 73 2c 2e 32 29 3b 20 2f 2f 20 6c 69 6d 69 74 20 79 20 70 6f 73 20 28 6e 6f 74 20 73 75 72 | pos,.2);.//.limit.y.pos.(not.sur |
8380 | 65 20 77 68 79 20 49 20 64 69 64 20 74 68 69 73 29 0d 0a 78 72 6f 74 20 3d 20 73 69 6e 28 74 69 | e.why.I.did.this)..xrot.=.sin(ti |
83a0 | 6d 65 29 2a 2e 31 2d 24 70 69 2f 32 3b 0d 0a 79 72 6f 74 20 3d 20 63 6f 73 28 74 69 6d 65 2a 31 | me)*.1-$pi/2;..yrot.=.cos(time*1 |
83c0 | 2e 31 31 37 29 2a 2e 31 2b 24 70 69 2f 32 3b 20 2f 2f 20 72 6f 74 61 74 69 6f 6e 20 76 61 72 73 | .117)*.1+$pi/2;.//.rotation.vars |
83e0 | 0d 0a 7a 72 6f 74 20 3d 20 24 70 69 2f 32 3b 0d 0a 0d 0a 72 65 67 30 30 20 3d 20 78 70 6f 73 3b | ..zrot.=.$pi/2;....reg00.=.xpos; |
8400 | 0d 0a 72 65 67 30 31 20 3d 20 79 70 6f 73 3b 20 2f 2f 20 61 73 73 69 67 6e 20 76 61 72 69 61 62 | ..reg01.=.ypos;.//.assign.variab |
8420 | 6c 65 73 20 74 6f 20 67 6c 6f 62 61 6c 0d 0a 72 65 67 30 32 20 3d 20 7a 70 6f 73 3b 0d 0a 72 65 | les.to.global..reg02.=.zpos;..re |
8440 | 67 30 33 20 3d 20 78 72 6f 74 3b 0d 0a 72 65 67 30 34 20 3d 20 79 72 6f 74 3b 0d 0a 72 65 67 30 | g03.=.xrot;..reg04.=.yrot;..reg0 |
8460 | 35 20 3d 20 7a 72 6f 74 3b 00 18 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d | 5.=.zrot;.....tb=0;..gt.=.gettim |
8480 | 65 28 30 29 3b 00 29 00 00 00 2f 2f 20 43 61 6d 65 72 61 20 43 6f 64 65 0d 0a 0d 0a 78 70 6f 73 | e(0);.)...//.Camera.Code....xpos |
84a0 | 3d 30 3b 79 70 6f 73 3d 34 3b 7a 70 6f 73 3d 2d 31 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 | =0;ypos=4;zpos=-1;.............. |
84c0 | 00 00 00 15 00 00 00 3b 00 00 00 37 00 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 | .......;...7...[[.Additional.Inf |
84e0 | 6f 20 5d 5d 0d 0a 0d 0a 53 65 65 20 61 62 6f 76 65 20 73 63 6f 70 65 20 61 6e 64 20 62 65 6c 6f | o.]]....See.above.scope.and.belo |
8500 | 77 20 44 4d 2e 00 19 00 00 00 14 00 00 00 01 00 00 00 50 00 00 00 00 00 00 00 00 00 00 00 00 00 | w.DM..............P............. |
8520 | 00 00 2b 00 00 00 60 04 00 00 01 01 01 00 00 64 78 3d 78 2a 69 68 77 3b 64 79 3d 79 3b 64 7a 3d | ..+...`........dx=x*ihw;dy=y;dz= |
8540 | 31 3b 0d 0a 0d 0a 64 78 31 3d 64 78 2a 63 7a 2d 64 79 2a 73 7a 3b 0d 0a 64 79 31 3d 64 78 2a 73 | 1;....dx1=dx*cz-dy*sz;..dy1=dx*s |
8560 | 7a 2b 64 79 2a 63 7a 3b 0d 0a 64 79 33 3d 64 79 31 2a 63 78 2d 64 7a 2a 73 78 3b 0d 0a 64 7a 32 | z+dy*cz;..dy3=dy1*cx-dz*sx;..dz2 |
8580 | 3d 64 79 31 2a 73 78 2b 64 7a 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 79 2d 64 7a 32 2a 73 | =dy1*sx+dz*cx;..dx3=dx1*cy-dz2*s |
85a0 | 79 3b 0d 0a 64 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d 0a 0d 0a 6b 3d 28 2d 6f 79 | y;..dz3=dx1*sy+dz2*cy;....k=(-oy |
85c0 | 29 2f 28 2d 64 79 33 29 3b 0d 0a 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 2c 30 29 2c 31 30 30 2c 6b | )/(-dy3);..k=if(below(k,0),100,k |
85e0 | 29 3b 0d 0a 0d 0a 78 31 3d 6b 2a 64 78 33 2b 6f 78 3b 0d 0a 79 31 3d 6b 2a 64 79 33 2b 6f 79 3b | );....x1=k*dx3+ox;..y1=k*dy3+oy; |
8600 | 0d 0a 7a 31 3d 6b 2a 64 7a 33 2b 6f 7a 3b 0d 0a 0d 0a 78 3d 78 31 2b 31 3b 0d 0a 79 3d 2d 7a 31 | ..z1=k*dz3+oz;....x=x1+1;..y=-z1 |
8620 | 2b 31 3b 0d 0a 0d 0a 61 6c 70 68 61 20 3d 31 00 b1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 | +1;....alpha.=1.....t=t+1;deltat |
8640 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c | ime.=.gettime(time);fr=fr*.9+del |
8660 | 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 | tatime*.1;framerate=1/fr;time.=. |
8680 | 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 | gettime(0);tb.=.tb+1;timeb.=.get |
86a0 | 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d | time(gt);xmouse=getkbmouse(1);ym |
86c0 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f | ouse=getkbmouse(2);inbounds=belo |
86e0 | 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 | w(abs(xmouse),1)&below(abs(ymous |
8700 | 65 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f | e),1);lmouse.=.getkbmouse(3);rmo |
8720 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b | use.=.getkbmouse(4);shift.=.getk |
8740 | 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 | bmouse(5);control.=.getkbmouse(1 |
8760 | 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 | 7);backspace.=.getkbmouse(8);spa |
8780 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b | ce.=.getkbmouse(32);right.=.getk |
87a0 | 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 | bmouse(39);left.=.getkbmouse(37) |
87c0 | 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b | ;up.=.getkbmouse(38);down.=.getk |
87e0 | 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c | bmouse(40);sizechange=bnot(equal |
8800 | 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f | (oh,h))|bnot(equal(ow,w));oh=h;o |
8820 | 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 72 65 67 33 33 3d 66 72 61 6d 65 72 61 74 65 3b 0d 0a 6f | w=w;hw=h/w;..reg33=framerate;..o |
8840 | 78 3d 72 65 67 30 30 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 0d 0a | x=reg00;..oy=reg01;..oz=reg02;.. |
8860 | 0d 0a 78 72 6f 74 3d 72 65 67 30 33 3b 0d 0a 79 72 6f 74 3d 72 65 67 30 34 3b 0d 0a 7a 72 6f 74 | ..xrot=reg03;..yrot=reg04;..zrot |
8880 | 3d 72 65 67 30 35 3b 0d 0a 0d 0a 73 78 3d 73 69 6e 28 78 72 6f 74 29 3b 73 79 3d 73 69 6e 28 79 | =reg05;....sx=sin(xrot);sy=sin(y |
88a0 | 72 6f 74 29 3b 73 7a 3d 73 69 6e 28 7a 72 6f 74 29 3b 0d 0a 63 78 3d 63 6f 73 28 78 72 6f 74 29 | rot);sz=sin(zrot);..cx=cos(xrot) |
88c0 | 3b 63 79 3d 63 6f 73 28 79 72 6f 74 29 3b 63 7a 3d 63 6f 73 28 7a 72 6f 74 29 3b 20 69 68 77 3d | ;cy=cos(yrot);cz=cos(zrot);.ihw= |
88e0 | 31 2f 68 77 00 76 00 00 00 2f 2f 20 54 68 69 73 20 44 4d 20 72 61 79 74 72 61 63 65 73 20 74 68 | 1/hw.v...//.This.DM.raytraces.th |
8900 | 65 20 67 72 69 64 20 62 75 66 66 65 72 20 69 6d 61 67 65 20 66 6f 72 20 74 68 65 20 69 6e 74 72 | e.grid.buffer.image.for.the.intr |
8920 | 6f 20 75 73 69 6e 67 0d 0a 2f 2f 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 2f 72 6f 74 61 74 69 6f | o.using..//.the.position/rotatio |
8940 | 6e 20 76 61 72 73 20 73 65 74 20 69 6e 20 74 68 65 20 61 62 6f 76 65 20 73 63 6f 70 65 2e 00 07 | n.vars.set.in.the.above.scope... |
8960 | 00 00 00 70 69 3d 24 70 69 00 01 00 00 00 01 00 00 00 14 00 00 00 14 00 00 00 00 00 00 00 01 00 | ...pi=$pi....................... |
8980 | 00 00 02 00 00 00 00 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 | ..........l.P.Holden03:.Convolut |
89a0 | 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 | ion.Filter...................... |
89c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
89e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
8a00 | 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 | ................................ |
8a20 | 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 | ................................ |
8a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
8a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
8a80 | 00 00 00 00 00 00 00 00 00 00 08 00 00 00 17 00 00 00 28 00 00 00 01 00 00 00 00 00 00 00 02 00 | ..................(............. |
8aa0 | 00 00 1e 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 04 00 00 00 15 00 | ................................ |
8ac0 | 00 00 04 01 00 00 00 01 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d | ..........[[.Additional.Info.]]. |
8ae0 | 0a 0d 0a 49 20 6c 69 6b 65 20 68 6f 77 20 74 68 65 20 49 6e 74 65 72 6c 65 61 76 65 20 73 75 62 | ...I.like.how.the.Interleave.sub |
8b00 | 74 6c 79 20 6d 61 6b 65 73 20 74 68 69 73 20 70 72 65 73 65 74 20 6c 6f 6f 6b 20 6d 6f 72 65 20 | tly.makes.this.preset.look.more. |
8b20 | 74 65 63 68 6e 69 63 61 6c 2e 20 42 65 6c 6f 77 20 49 20 75 73 65 20 61 20 73 63 6f 70 65 2f 6d | technical..Below.I.use.a.scope/m |
8b40 | 6f 76 65 6d 65 6e 74 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 74 68 61 74 20 69 73 20 64 72 61 77 | ovement.combination.that.is.draw |
8b60 | 6e 20 6f 6e 6c 79 20 6f 6e 20 72 65 73 69 7a 65 20 74 68 61 74 20 6d 61 6b 65 73 20 74 68 65 20 | n.only.on.resize.that.makes.the. |
8b80 | 69 6e 74 72 6f 20 6c 6f 6f 6b 20 64 61 72 6b 65 72 20 61 73 20 79 6f 75 20 6d 6f 76 65 20 66 61 | intro.look.darker.as.you.move.fa |
8ba0 | 72 74 68 65 72 20 66 72 6f 6d 20 63 65 6e 74 65 72 2c 20 61 6e 6f 74 68 65 72 20 73 75 62 74 6c | rther.from.center,.another.subtl |
8bc0 | 65 20 65 66 66 65 63 74 2e 00 fe ff ff ff 76 03 00 00 80 00 00 0a 24 80 00 00 00 80 00 00 00 00 | e.effect......v.......$......... |
8be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 | ........................@..AVS.2 |
8c00 | 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 0c 00 00 00 00 | .8+.Effect.List.Config.......... |
8c20 | 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff 15 03 00 00 80 00 00 00 24 80 00 00 00 80 00 00 00 | .......................$........ |
8c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 | .........................@..AVS. |
8c60 | 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 27 02 00 00 | 2.8+.Effect.List.Config.....'... |
8c80 | 01 00 00 00 06 00 00 00 6f 6e 3d 31 3b 00 15 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | ........on=1;.....t=t+1;deltatim |
8ca0 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
8cc0 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
8ce0 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
8d00 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
8d20 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 | se=getkbmouse(2);inbounds=below( |
8d40 | 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 | abs(xmouse),1)&below(abs(ymouse) |
8d60 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
8d80 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
8da0 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
8dc0 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
8de0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
8e00 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
8e20 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
8e40 | 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f | ouse(40);sizechange=bnot(equal(o |
8e60 | 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d | h,h))|bnot(equal(ow,w));oh=h;ow= |
8e80 | 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 65 6e 61 62 6c 65 64 3d 6f 6e 3b 6f 6e 3d 73 69 7a 65 63 | w;hw=h/w;....enabled=on;on=sizec |
8ea0 | 68 61 6e 67 65 3b 00 24 00 00 00 6a 00 00 00 01 3d 00 00 00 78 3d 30 3b 79 3d 69 2a 32 2d 31 3b | hange;.$...j....=...x=0;y=i*2-1; |
8ec0 | 0d 0a 63 3d 73 69 6e 28 69 2a 24 70 69 29 2a 2e 33 2b 2e 37 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 | ..c=sin(i*$pi)*.3+.7;..red=c;..g |
8ee0 | 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 00 06 00 00 00 6e 3d 68 2f 32 00 00 00 00 00 06 | reen=c;..blue=c;.....n=h/2...... |
8f00 | 00 00 00 6e 3d 68 2f 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 0f 00 00 00 27 00 00 | ...n=h/2.....................'.. |
8f20 | 00 ff 7f 00 00 01 0a 00 00 00 78 3d 30 3b 0d 0a 79 3d 64 00 00 00 00 00 00 00 00 00 01 00 00 00 | ..........x=0;..y=d............. |
8f40 | 01 00 00 00 00 00 00 00 fe ff ff ff 71 1d 00 00 81 01 00 01 24 80 00 00 00 80 00 00 00 00 00 00 | ............q.......$........... |
8f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 | ......................@..AVS.2.8 |
8f80 | 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 27 02 00 00 01 00 00 | +.Effect.List.Config.....'...... |
8fa0 | 00 06 00 00 00 6f 6e 3d 31 3b 00 15 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d | .....on=1;.....t=t+1;deltatime.= |
8fc0 | 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d | .gettime(time);fr=fr*.9+deltatim |
8fe0 | 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 | e*.1;framerate=1/fr;time.=.getti |
9000 | 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 | me(0);tb.=.tb+1;timeb.=.gettime( |
9020 | 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d | gt);xmouse=getkbmouse(1);ymouse= |
9040 | 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 | getkbmouse(2);inbounds=below(abs |
9060 | 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 | (xmouse),1)&below(abs(ymouse),1) |
9080 | 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d | ;lmouse.=.getkbmouse(3);rmouse.= |
90a0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(4);shift.=.getkbmous |
90c0 | 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 | e(5);control.=.getkbmouse(17);ba |
90e0 | 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 | ckspace.=.getkbmouse(8);space.=. |
9100 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(32);right.=.getkbmous |
9120 | 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d | e(39);left.=.getkbmouse(37);up.= |
9140 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(38);down.=.getkbmous |
9160 | 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | e(40);sizechange=bnot(equal(oh,h |
9180 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
91a0 | 77 3d 68 2f 77 3b 0d 0a 0d 0a 65 6e 61 62 6c 65 64 3d 6f 6e 3b 6f 6e 3d 73 69 7a 65 63 68 61 6e | w=h/w;....enabled=on;on=sizechan |
91c0 | 67 65 3b 00 50 85 c3 02 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 00 00 00 | ge;.P...Acko.net:.Texer.II...... |
91e0 | 00 00 00 00 00 00 00 00 51 01 00 00 00 00 00 00 73 76 5f 61 72 63 68 69 74 65 63 74 69 6d 61 67 | ........Q.......sv_architectimag |
9200 | 65 5f 62 75 66 66 65 72 2e 62 6d 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | e_buffer.bmp.................... |
9220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
92a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
92c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
92e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9300 | 00 00 00 00 03 00 00 00 6e 3d 31 09 00 00 00 68 77 3d 68 2a 2e 30 30 32 00 00 00 00 1d 00 00 00 | ........n=1....hw=h*.002........ |
9320 | 78 3d 30 3b 79 3d 2d 2e 31 32 35 3b 73 69 7a 65 78 3d 68 77 3b 73 69 7a 65 79 3d 68 77 15 00 00 | x=0;y=-.125;sizex=hw;sizey=hw... |
9340 | 00 04 01 00 00 00 01 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a | .........[[.Additional.Info.]].. |
9360 | 0d 0a 41 6e 64 20 68 65 72 65 20 79 6f 75 20 74 68 69 6e 6b 20 49 20 61 6d 20 63 72 61 7a 79 20 | ..And.here.you.think.I.am.crazy. |
9380 | 77 69 74 68 20 74 68 69 73 20 6d 61 6e 79 20 43 6f 6e 76 6f 20 46 69 6c 74 65 72 73 2e 20 48 6f | with.this.many.Convo.Filters..Ho |
93a0 | 77 65 76 65 72 2c 20 74 68 65 79 20 61 72 65 20 6f 6e 6c 79 20 61 63 74 69 76 61 74 65 64 20 6f | wever,.they.are.only.activated.o |
93c0 | 6e 20 72 65 73 69 7a 65 20 73 6f 20 74 68 65 72 65 20 69 73 20 6e 6f 20 68 69 74 20 70 65 72 20 | n.resize.so.there.is.no.hit.per. |
93e0 | 66 72 61 6d 65 20 61 6e 64 20 6e 6f 20 6c 6f 73 73 20 6f 66 20 66 70 73 2e 20 54 68 65 20 63 6f | frame.and.no.loss.of.fps..The.co |
9400 | 6e 76 6f 73 20 61 72 65 20 75 73 65 64 20 74 6f 20 62 6c 75 72 20 74 68 65 20 61 6c 70 68 61 20 | nvos.are.used.to.blur.the.alpha. |
9420 | 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 65 64 67 65 73 20 6f 66 20 74 68 65 20 63 65 6e 74 65 | values.of.the.edges.of.the.cente |
9440 | 72 20 69 6d 61 67 65 2e 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 | r.image..l.P.Holden03:.Convoluti |
9460 | 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | on.Filter....................... |
9480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
94a0 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
94c0 | 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
94e0 | 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
9500 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
9520 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9540 | 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f | .............l.P.Holden03:.Convo |
9560 | 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | lution.Filter................... |
9580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
95a0 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
95c0 | 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
95e0 | 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
9600 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
9620 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 | .................l.P.Holden03:.C |
9660 | 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 | onvolution.Filter............... |
9680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
96a0 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
96c0 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
96e0 | 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9700 | 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
9720 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 | .....................l.P.Holden0 |
9760 | 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 | 3:.Convolution.Filter........... |
9780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
97a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
97c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
97e0 | 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
9800 | 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
9820 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c | .........................l.P.Hol |
9860 | 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 | den03:.Convolution.Filter....... |
9880 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
98a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
98c0 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
98e0 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
9900 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9920 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 | .............................l.P |
9960 | 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 | .Holden03:.Convolution.Filter... |
9980 | 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
99a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
99c0 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 | ................................ |
99e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
9a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
9a20 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
9a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 | ................................ |
9a60 | 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 | .l.P.Holden03:.Convolution.Filte |
9a80 | 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | r............................... |
9aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
9ac0 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
9ae0 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
9b00 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
9b20 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
9b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9b60 | 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 | .....l.P.Holden03:.Convolution.F |
9b80 | 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ilter........................... |
9ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
9bc0 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
9be0 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
9c00 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 | ................................ |
9c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
9c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9c60 | 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 | .........l.P.Holden03:.Convoluti |
9c80 | 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | on.Filter....................... |
9ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9cc0 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9ce0 | 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
9d00 | 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
9d20 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
9d40 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9d60 | 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f | .............l.P.Holden03:.Convo |
9d80 | 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | lution.Filter................... |
9da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9dc0 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
9de0 | 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
9e00 | 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
9e20 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
9e40 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 | .................l.P.Holden03:.C |
9e80 | 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 | onvolution.Filter............... |
9ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9ec0 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
9ee0 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9f00 | 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9f20 | 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
9f40 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 | .....................l.P.Holden0 |
9f80 | 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 | 3:.Convolution.Filter........... |
9fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
9fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
9fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
a000 | 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
a020 | 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
a040 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c | .........................l.P.Hol |
a080 | 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 | den03:.Convolution.Filter....... |
a0a0 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
a0e0 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
a100 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
a120 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a140 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 | .............................l.P |
a180 | 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 | .Holden03:.Convolution.Filter... |
a1a0 | 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
a1e0 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 | ................................ |
a200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
a220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
a240 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
a260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 | ................................ |
a280 | 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 | .l.P.Holden03:.Convolution.Filte |
a2a0 | 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | r............................... |
a2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
a2e0 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
a300 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
a320 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
a340 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
a360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a380 | 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 | .....l.P.Holden03:.Convolution.F |
a3a0 | 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ilter........................... |
a3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
a3e0 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
a400 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
a420 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 | ................................ |
a440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
a460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a480 | 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 | .........l.P.Holden03:.Convoluti |
a4a0 | 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | on.Filter....................... |
a4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a4e0 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a500 | 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
a520 | 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
a540 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
a560 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a580 | 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f | .............l.P.Holden03:.Convo |
a5a0 | 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | lution.Filter................... |
a5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a5e0 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
a600 | 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
a620 | 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
a640 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
a660 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 | .................l.P.Holden03:.C |
a6a0 | 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 | onvolution.Filter............... |
a6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a6e0 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
a700 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a720 | 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a740 | 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
a760 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 | .....................l.P.Holden0 |
a7a0 | 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 | 3:.Convolution.Filter........... |
a7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
a800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
a820 | 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
a840 | 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
a860 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c | .........................l.P.Hol |
a8a0 | 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 | den03:.Convolution.Filter....... |
a8c0 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
a900 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
a920 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
a940 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a960 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 | .............................l.P |
a9a0 | 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 | .Holden03:.Convolution.Filter... |
a9c0 | 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
a9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
aa00 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 | ................................ |
aa20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
aa40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
aa60 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
aa80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 | ................................ |
aaa0 | 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 | .l.P.Holden03:.Convolution.Filte |
aac0 | 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | r............................... |
aae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
ab00 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
ab20 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
ab40 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
ab60 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
ab80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
aba0 | 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 | .....l.P.Holden03:.Convolution.F |
abc0 | 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ilter........................... |
abe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
ac00 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
ac20 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 | ................................ |
ac40 | 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 | ................................ |
ac60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
ac80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
aca0 | 00 00 00 00 00 10 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 80 00 00 | ................................ |
acc0 | 00 fe ff ff ff b0 09 00 00 80 00 00 0d 24 80 00 00 00 80 00 00 00 00 00 00 00 02 00 00 00 00 00 | .............$.................. |
ace0 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 | ...............@..AVS.2.8+.Effec |
ad00 | 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 | t.List.Config................... |
ad20 | 00 00 fe ff ff ff 4f 09 00 00 82 02 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 | ......O.......$................. |
ad40 | 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 | ................@..AVS.2.8+.Effe |
ad60 | 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 27 02 00 00 01 00 00 00 06 00 00 00 6f | ct.List.Config.....'...........o |
ad80 | 6e 3d 31 3b 00 15 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | n=1;.....t=t+1;deltatime.=.getti |
ada0 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
adc0 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
ade0 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
ae00 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
ae20 | 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 | ouse(2);inbounds=below(abs(xmous |
ae40 | 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 6c 6d 6f 75 73 | e),1)&below(abs(ymouse),1);lmous |
ae60 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
ae80 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
aea0 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
aec0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
aee0 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
af00 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
af20 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
af40 | 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f | sizechange=bnot(equal(oh,h))|bno |
af60 | 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b | t(equal(ow,w));oh=h;ow=w;hw=h/w; |
af80 | 0d 0a 0d 0a 65 6e 61 62 6c 65 64 3d 6f 6e 3b 6f 6e 3d 73 69 7a 65 63 68 61 6e 67 65 3b 00 50 85 | ....enabled=on;on=sizechange;.P. |
afa0 | c3 02 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 00 00 00 00 00 00 00 00 00 | ..Acko.net:.Texer.II............ |
afc0 | 00 00 51 01 00 00 00 00 00 00 73 76 5f 61 72 63 68 69 74 65 63 74 69 6d 61 67 65 5f 32 35 36 2e | ..Q.......sv_architectimage_256. |
afe0 | 62 6d 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | bmp............................. |
b000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b0a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 00 | ................................ |
b0e0 | 00 00 6e 3d 31 09 00 00 00 68 77 3d 68 2a 2e 30 30 32 00 00 00 00 1d 00 00 00 78 3d 30 3b 79 3d | ..n=1....hw=h*.002........x=0;y= |
b100 | 2d 2e 31 32 35 3b 73 69 7a 65 78 3d 68 77 3b 73 69 7a 65 79 3d 68 77 15 00 00 00 7e 01 00 00 7a | -.125;sizex=hw;sizey=hw....~...z |
b120 | 01 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a 0d 0a 54 68 69 73 | ...[[.Additional.Info.]]....This |
b140 | 20 69 73 20 74 68 65 20 63 65 6e 74 65 72 20 69 6d 61 67 65 20 6f 66 20 74 68 65 20 69 6e 74 72 | .is.the.center.image.of.the.intr |
b160 | 6f 2e 20 49 20 74 77 65 65 6b 65 64 20 69 74 20 61 20 62 69 74 20 61 74 20 72 75 6e 74 69 6d 65 | o..I.tweeked.it.a.bit.at.runtime |
b180 | 20 62 65 6c 6f 77 20 77 69 74 68 20 74 68 65 20 43 6f 6e 76 6f 20 46 69 6c 74 65 72 20 61 6e 64 | .below.with.the.Convo.Filter.and |
b1a0 | 20 43 6f 6c 6f 72 6d 61 70 2e 20 54 68 65 73 65 20 61 72 65 20 6f 6e 6c 79 20 61 63 74 69 76 65 | .Colormap..These.are.only.active |
b1c0 | 64 20 6f 6e 20 72 65 73 69 7a 65 20 74 68 6f 75 67 68 2c 20 73 6f 20 61 67 61 69 6e 20 6e 6f 20 | d.on.resize.though,.so.again.no. |
b1e0 | 68 69 74 20 6f 6e 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 28 6e 6f 74 20 74 68 61 74 20 69 74 20 | hit.on.performance.(not.that.it. |
b200 | 72 65 61 6c 6c 79 20 6d 61 74 74 65 72 73 20 73 69 6e 63 65 20 74 68 69 73 20 69 73 20 6f 6e 6c | really.matters.since.this.is.onl |
b220 | 79 20 74 68 65 20 69 6e 74 72 6f 29 2e 20 49 74 27 73 20 62 75 66 66 65 72 20 62 6c 65 6e 64 65 | y.the.intro)..It's.buffer.blende |
b240 | 64 20 77 69 74 68 20 74 68 65 20 62 75 66 66 65 72 20 49 20 73 61 76 65 64 20 69 6e 20 74 68 65 | d.with.the.buffer.I.saved.in.the |
b260 | 20 45 4c 20 61 62 6f 76 65 20 28 74 68 65 20 6f 6e 65 20 77 69 74 68 20 74 68 65 20 69 6e 73 61 | .EL.above.(the.one.with.the.insa |
b280 | 6e 65 20 61 6d 6f 75 6e 74 20 6f 66 20 43 6f 6e 76 6f 20 46 69 6c 74 65 72 73 29 2e 00 6c bb 50 | ne.amount.of.Convo.Filters)..l.P |
b2a0 | 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 | .Holden03:.Convolution.Filter... |
b2c0 | 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
b320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 0c 00 00 00 01 00 00 00 00 00 00 | ................................ |
b340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 | ................................ |
b3a0 | 00 88 71 4f 02 43 6f 6c 6f 72 20 4d 61 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..qO.Color.Map.................. |
b3c0 | 00 00 00 00 00 b0 02 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 08 01 00 00 00 02 00 00 | ................................ |
b3e0 | 00 f0 f8 f9 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 60 cf d2 | .............................`.. |
b420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 e0 93 cb 00 00 00 00 | ................................ |
b460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 c8 c3 ce 00 00 00 00 00 00 00 00 | ................................ |
b4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 78 f2 f9 01 00 00 00 00 00 00 00 00 00 00 00 | .................x.............. |
b4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b500 | 00 00 00 00 00 00 00 00 00 02 00 00 00 40 5e e1 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .............@^................. |
b520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b540 | 00 00 00 00 00 02 00 00 00 e0 78 da 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..........x..................... |
b560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b580 | 00 02 00 00 00 d0 a9 c8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b5c0 | 00 00 00 00 00 ff 00 00 00 60 60 60 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 | .........```.................... |
b5e0 | 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 | ................................ |
b600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
b620 | 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 | ................................ |
b640 | 00 ff ff ff 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 | ................................ |
b660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 ff ff ff 00 01 00 00 00 fe ff ff ff 37 04 00 | .............................7.. |
b680 | 00 81 01 02 0b 24 26 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .....$&......................... |
b6a0 | 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 | .......@..AVS.2.8+.Effect.List.C |
b6c0 | 6f 6e 66 69 67 00 00 00 00 00 66 00 00 00 01 00 00 00 00 00 00 00 5a 00 00 00 68 6b 65 79 3d 67 | onfig.....f...........Z...hkey=g |
b6e0 | 65 74 6b 62 6d 6f 75 73 65 28 37 32 29 3b 0d 0a 61 61 3d 6d 69 6e 28 6d 61 78 28 61 61 2b 68 6b | etkbmouse(72);..aa=min(max(aa+hk |
b700 | 65 79 2a 2e 33 2d 2e 31 35 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a | ey*.3-.15,0),1);..alphaout=aa;.. |
b720 | 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 00 15 00 00 00 d6 00 00 00 d2 00 00 00 | enabled=above(aa,0)............. |
b740 | 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a 0d 0a 54 68 69 73 20 45 4c | [[.Additional.Info.]]....This.EL |
b760 | 20 69 73 20 61 63 74 69 76 65 64 20 77 68 65 6e 20 79 6f 75 20 70 72 65 73 73 20 5b 48 5d 2e 20 | .is.actived.when.you.press.[H].. |
b780 | 49 74 27 73 20 74 68 65 20 68 65 6c 70 20 73 63 72 65 65 6e 2e 20 59 6f 75 27 6c 6c 20 73 65 65 | It's.the.help.screen..You'll.see |
b7a0 | 20 74 68 69 73 20 61 67 61 69 6e 2c 20 6f 6e 65 20 74 69 6d 65 20 66 6f 72 20 65 61 63 68 20 6d | .this.again,.one.time.for.each.m |
b7c0 | 6f 64 65 2c 20 77 69 74 68 20 64 69 66 66 65 72 65 6e 74 20 74 65 78 74 73 20 66 6f 72 20 65 61 | ode,.with.different.texts.for.ea |
b7e0 | 63 68 2e 20 54 68 65 20 73 61 6d 65 20 65 78 61 63 74 20 6d 65 74 68 6f 64 20 75 73 65 64 20 65 | ch..The.same.exact.method.used.e |
b800 | 61 63 68 20 74 69 6d 65 2c 20 74 68 6f 75 67 68 2e 00 1c 00 00 00 c9 00 00 00 01 00 00 00 ff ff | ach.time,.though................ |
b820 | ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f 00 | ................................ |
b840 | 00 00 0f 00 00 00 3c 00 00 00 04 01 a0 00 00 00 00 00 e8 ed 2e 04 b4 00 00 00 41 01 01 00 ff ff | ......<...................A..... |
b860 | ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 | .......................!........ |
b880 | 00 00 e8 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 | ............................."Ar |
b8a0 | 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 00 | ial............................. |
b8c0 | 00 00 48 65 6c 70 00 01 00 00 00 00 00 00 00 00 00 00 00 e4 ff ff ff 01 00 00 00 00 00 00 00 00 | ..Help.......................... |
b8e0 | 00 00 00 1c 00 00 00 e8 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
b900 | 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 | .......................<...n.... |
b920 | 00 00 00 40 e1 2e 04 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...@...P...A.................... |
b940 | 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 | ........!....................... |
b960 | 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 | .............."Arial............ |
b980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 24 00 00 00 50 41 47 45 20 55 50 20 2f 20 50 41 47 | ...............$...PAGE.UP./.PAG |
b9a0 | 45 20 44 4f 57 4e 20 2d 20 43 68 61 6e 67 65 20 6d 6f 64 65 73 2e 00 01 00 00 00 00 00 00 00 02 | E.DOWN.-.Change.modes........... |
b9c0 | 00 00 00 ed ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 dd 00 00 00 01 00 00 00 ff | ................................ |
b9e0 | ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f | ................................ |
ba00 | 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 a0 d9 2e 04 50 00 00 00 41 01 01 00 ff | .......<...n...........P...A.... |
ba20 | ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 | ........................!....... |
ba40 | 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 | .............................."A |
ba60 | 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 19 | rial............................ |
ba80 | 00 00 00 5b 48 5d 20 4b 45 59 20 2d 20 53 68 6f 77 20 6b 65 79 20 68 65 6c 70 2e 00 01 00 00 00 | ...[H].KEY.-.Show.key.help...... |
baa0 | 00 00 00 00 02 00 00 00 f2 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d9 00 00 00 | ................................ |
bac0 | 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 | ................................ |
bae0 | 01 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 b2 04 25 01 00 00 00 00 10 bc 2e 04 c8 00 00 00 | ............<.....%............. |
bb00 | 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 | A............................!.. |
bb20 | 00 00 00 00 00 00 00 00 e5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 | ................................ |
bb40 | 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..."Arial....................... |
bb60 | 00 00 00 00 15 00 00 00 41 72 63 68 69 74 65 63 74 75 72 61 6c 20 44 65 73 69 67 6e 00 01 00 00 | ........Architectural.Design.... |
bb80 | 00 40 00 00 00 00 00 00 00 db ff ff ff 02 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 da 00 00 | .@.............................. |
bba0 | 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 | ................................ |
bbc0 | 00 01 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 c2 01 df 01 00 00 00 00 78 b9 2e 04 78 00 00 | .............<...........x...x.. |
bbe0 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
bc00 | 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
bc20 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
bc40 | 00 00 00 00 00 16 00 00 00 50 6c 65 61 73 65 20 73 65 65 20 63 6f 6d 6d 65 6e 74 28 73 29 00 01 | .........Please.see.comment(s).. |
bc60 | 00 00 00 40 00 00 00 00 00 00 00 18 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d6 | ...@............................ |
bc80 | 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 | ................................ |
bca0 | 00 00 00 01 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 c2 01 de 01 00 00 00 00 d8 b1 2e 04 78 | ...............<...............x |
bcc0 | 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 | ...A............................ |
bce0 | 21 00 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 | !............................... |
bd00 | 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ......"Arial.................... |
bd20 | 00 00 00 00 00 00 00 12 00 00 00 66 6f 72 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 2e 00 01 00 00 | ...........for.instructions..... |
bd40 | 00 40 00 00 00 00 00 00 00 1f 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 de 00 00 | .@.............................. |
bd60 | 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 | ................................ |
bd80 | 00 01 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 c2 01 de 01 00 00 00 00 40 af 2e 04 78 00 00 | .............<...........@...x.. |
bda0 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
bdc0 | 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
bde0 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
be00 | 00 00 00 00 00 1a 00 00 00 50 72 65 73 73 20 5b 48 5d 20 66 6f 72 20 71 75 69 63 6b 20 68 65 6c | .........Press.[H].for.quick.hel |
be20 | 70 2e 00 01 00 00 00 40 00 00 00 00 00 00 00 27 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 fe | p......@.......'................ |
be40 | ff ff ff b4 06 00 00 80 00 00 0d 24 80 00 00 00 80 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 | ...........$.................... |
be60 | 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 | .............@..AVS.2.8+.Effect. |
be80 | 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 60 00 00 00 01 00 00 00 00 00 00 00 54 00 00 00 | List.Config.....`...........T... |
bea0 | 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b 0d 0a 74 74 3d 6d 69 6e | ta=below(gettime(-1),5);..tt=min |
bec0 | 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a | (max(tt-sign(tt-ta)*.02,0),1);.. |
bee0 | 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 74 74 2c 30 29 00 15 00 00 00 23 01 00 00 1f 01 00 00 | enabled=above(tt,0).....#....... |
bf00 | 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a 0d 0a 54 68 69 73 20 45 4c | [[.Additional.Info.]]....This.EL |
bf20 | 20 69 73 20 66 6f 72 20 74 68 65 20 64 69 73 70 6c 61 79 69 6e 67 20 6f 66 20 74 68 65 20 73 6f | .is.for.the.displaying.of.the.so |
bf40 | 6e 67 20 74 69 74 6c 65 20 77 68 65 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 72 61 63 6b 20 | ng.title.when.the.current.track. |
bf60 | 63 68 61 6e 67 65 73 2e 20 49 74 27 73 20 6f 6e 6c 79 20 61 63 74 69 76 65 64 20 6f 6e 20 73 6f | changes..It's.only.actived.on.so |
bf80 | 6e 67 20 63 68 61 6e 67 65 20 74 68 6f 75 67 68 2c 20 73 6f 20 74 68 65 72 65 20 69 73 20 6e 6f | ng.change.though,.so.there.is.no |
bfa0 | 20 68 69 74 20 6f 6e 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 65 78 63 65 70 74 20 61 74 20 74 68 | .hit.on.performance.except.at.th |
bfc0 | 61 74 20 74 69 6d 65 2e 20 59 6f 75 27 6c 6c 20 73 65 65 20 74 68 69 73 20 61 67 61 69 6e 2c 20 | at.time..You'll.see.this.again,. |
bfe0 | 6f 6e 63 65 20 69 6e 20 65 61 63 68 20 6d 6f 64 65 20 28 61 6e 64 20 69 6e 20 65 76 65 72 79 20 | once.in.each.mode.(and.in.every. |
c000 | 70 72 65 73 65 74 20 6f 66 20 74 68 69 73 20 70 61 63 6b 2c 20 69 6e 20 66 61 63 74 29 2e 00 fe | preset.of.this.pack,.in.fact)... |
c020 | ff ff ff fc 01 00 00 81 01 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...........$.................... |
c040 | 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 | .............@..AVS.2.8+.Effect. |
c060 | 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 d7 00 00 00 01 00 00 00 00 00 00 00 cb 00 00 00 | List.Config..................... |
c080 | 6f 6e 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b 0d 0a 6f 66 66 3d 62 6e | on=below(gettime(-1),5);..off=bn |
c0a0 | 6f 74 28 6f 6e 29 3b 0d 0a 69 66 28 6f 66 66 2c 61 73 73 69 67 6e 28 64 6f 6e 65 2c 30 29 2b 61 | ot(on);..if(off,assign(done,0)+a |
c0c0 | 73 73 69 67 6e 28 67 6f 2c 30 29 2c 30 29 3b 0d 0a 69 66 28 6f 6e 26 62 6e 6f 74 28 64 6f 6e 65 | ssign(go,0),0);..if(on&bnot(done |
c0e0 | 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2b 61 73 73 69 67 6e 28 64 6f 6e 65 2c 31 29 2c 61 73 | ),assign(go,1)+assign(done,1),as |
c100 | 73 69 67 6e 28 67 6f 2c 30 29 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d | sign(go,0));..if(below(gettime(- |
c120 | 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 30 29 3b 0d 0a 65 6e 61 62 6c 65 64 | 1),.5),assign(go,1),0);..enabled |
c140 | 3d 67 6f 7c 72 65 67 31 35 3b 00 1c 00 00 00 d0 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 | =go|reg15;...................... |
c160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f 00 00 00 0f 00 00 00 3c | ...............................< |
c180 | 00 00 00 d4 02 b0 00 00 00 00 00 a8 ac 2e 04 64 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 | ...............d...A............ |
c1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f3 ff ff ff 00 | ................!............... |
c1c0 | 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 | ......................"Arial.... |
c1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 00 00 00 24 28 74 69 74 | ...........................$(tit |
c200 | 6c 65 3a 34 36 29 00 00 00 00 00 00 00 00 00 00 00 00 00 2e 00 00 00 01 00 00 00 00 00 00 00 00 | le:46).......................... |
c220 | 00 00 00 fe ff ff ff d0 02 00 00 82 02 01 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 | ...............$................ |
c240 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 | .................@..AVS.2.8+.Eff |
c260 | 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 af 00 00 00 01 00 00 00 00 00 00 00 | ect.List.Config................. |
c280 | a3 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b 0d 0a 74 6f | ....ta=below(gettime(-1),5);..to |
c2a0 | 3d 74 74 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d 74 61 29 2a | =tt;..tt=min(max(tt-sign(tt-ta)* |
c2c0 | 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 | .02,0),1);..if(below(gettime(-1) |
c2e0 | 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 61 73 73 69 67 6e 28 67 6f 2c 30 29 29 3b | ,.5),assign(go,1),assign(go,0)); |
c300 | 0d 0a 65 6e 61 62 6c 65 64 3d 62 6e 6f 74 28 65 71 75 61 6c 28 74 6f 2c 74 74 29 29 7c 67 6f 7c | ..enabled=bnot(equal(to,tt))|go| |
c320 | 72 65 67 31 35 3b 00 fe ff ff ff cc 01 00 00 81 01 0a 01 24 80 00 00 00 80 00 00 00 00 00 00 00 | reg15;.............$............ |
c340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b | .....................@..AVS.2.8+ |
c360 | 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 63 00 00 00 01 00 00 00 | .Effect.List.Config.....c....... |
c380 | 00 00 00 00 57 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b | ....W...ta=below(gettime(-1),5); |
c3a0 | 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d 74 61 29 2a 2e 30 32 2c | ..tt=min(max(tt-sign(tt-ta)*.02, |
c3c0 | 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 69 6e 3d 74 74 3b 0d 0a 65 6e 61 62 6c 65 64 3d 31 00 6c | 0),1);..alphain=tt;..enabled=1.l |
c3e0 | bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 | .P.Holden03:.Convolution.Filter. |
c400 | 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
c420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
c440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
c460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
c480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
c4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
c4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 | ................................ |
c4e0 | 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 80 00 00 00 fe ff ff ff e0 | ................................ |
c500 | 99 00 00 82 02 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .......$........................ |
c520 | 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 | .........@..AVS.2.8+.Effect.List |
c540 | 20 43 6f 6e 66 69 67 00 00 00 00 00 38 00 00 00 01 00 00 00 15 00 00 00 2f 2f 20 74 6f 70 2d 64 | .Config.....8...........//.top-d |
c560 | 6f 77 6e 20 64 65 73 69 67 6e 65 72 00 17 00 00 00 65 6e 61 62 6c 65 64 3d 65 71 75 61 6c 28 72 | own.designer.....enabled=equal(r |
c580 | 65 67 31 34 2c 31 29 00 19 00 00 00 14 00 00 00 01 00 00 00 50 00 00 00 00 00 00 00 00 00 00 00 | eg14,1).............P........... |
c5a0 | 00 00 00 00 24 00 00 00 b6 05 00 00 01 28 00 00 00 2f 2f 20 63 61 6d 65 72 61 20 63 6f 6e 74 72 | ....$........(...//.camera.contr |
c5c0 | 6f 6c 20 66 6f 72 20 74 6f 70 2d 64 6f 77 6e 20 64 65 73 69 67 6e 65 72 00 27 05 00 00 74 3d 74 | ol.for.top-down.designer.'...t=t |
c5e0 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
c600 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
c620 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
c640 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
c660 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f | use(1);ymouse=getkbmouse(2);inbo |
c680 | 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 | unds=below(abs(xmouse),1)&below( |
c6a0 | 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 | abs(ymouse),1);xmousec=min(max(x |
c6c0 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f | mouse,-1),1);ymousec=min(max(ymo |
c6e0 | 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | use,-1),1);lmouse.=.getkbmouse(3 |
c700 | 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 6c 6d 6f 75 73 65 3d | );rmouse.=.getkbmouse(4);lmouse= |
c720 | 6c 6d 6f 75 73 65 7c 72 6d 6f 75 73 65 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | lmouse|rmouse;shift.=.getkbmouse |
c740 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
c760 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
c780 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
c7a0 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
c7c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
c7e0 | 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 | (40);sizechange=bnot(equal(oh,h) |
c800 | 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 | )|bnot(equal(ow,w));oh=h;ow=w;hw |
c820 | 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d | =h/w;click=bnot(olm)*lmouse;olm= |
c840 | 6c 6d 6f 75 73 65 3b 70 6c 75 73 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 37 29 3b 6d 69 6e 75 | lmouse;plus=getkbmouse(187);minu |
c860 | 73 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 39 29 3b 65 73 63 3d 67 65 74 6b 62 6d 6f 75 73 65 | s=getkbmouse(189);esc=getkbmouse |
c880 | 28 32 32 30 29 3b 6c 6d 6f 75 73 65 3d 62 6f 72 28 6c 6d 6f 75 73 65 2c 67 65 74 6b 62 6d 6f 75 | (220);lmouse=bor(lmouse,getkbmou |
c8a0 | 73 65 28 34 29 29 20 3b 0d 0a 0d 0a 63 6c 69 63 6b 65 73 63 3d 62 6e 6f 74 28 6f 65 73 63 29 2a | se(4)).;....clickesc=bnot(oesc)* |
c8c0 | 65 73 63 3b 6f 65 73 63 3d 65 73 63 3b 20 2f 2f 20 27 65 73 63 61 70 65 27 20 68 65 72 65 20 69 | esc;oesc=esc;.//.'escape'.here.i |
c8e0 | 73 20 61 63 74 75 61 6c 6c 79 20 74 68 65 20 5b 5c 5d 20 6b 65 79 0d 0a 69 66 28 63 6c 69 63 6b | s.actually.the.[\].key..if(click |
c900 | 65 73 63 2c 61 73 73 69 67 6e 28 72 65 67 39 34 2c 62 6e 6f 74 28 72 65 67 39 34 29 29 2c 30 29 | esc,assign(reg94,bnot(reg94)),0) |
c920 | 3b 20 2f 2f 20 74 6f 67 67 6c 65 20 6c 6f 63 6b 20 69 66 20 5b 5c 5d 20 69 73 20 70 72 65 73 73 | ;.//.toggle.lock.if.[\].is.press |
c940 | 65 64 0d 0a 6c 6f 63 6b 65 64 3d 72 65 67 39 34 3b 0d 0a 0d 0a 79 70 6f 73 20 3d 20 6d 61 78 28 | ed..locked=reg94;....ypos.=.max( |
c960 | 6d 69 6e 28 79 70 6f 73 2d 70 6c 75 73 2a 2e 30 37 35 2a 64 65 6c 74 61 74 69 6d 65 2a 31 30 30 | min(ypos-plus*.075*deltatime*100 |
c980 | 2b 6d 69 6e 75 73 2a 2e 30 37 35 2a 64 65 6c 74 61 74 69 6d 65 2a 31 30 30 2c 31 30 29 2c 32 29 | +minus*.075*deltatime*100,10),2) |
c9a0 | 3b 20 2f 2f 0d 0a 78 70 6f 73 20 3d 20 6d 69 6e 28 6d 61 78 28 78 70 6f 73 2a 2e 39 2b 2e 31 2a | ;.//..xpos.=.min(max(xpos*.9+.1* |
c9c0 | 69 66 28 6c 6f 63 6b 65 64 2c 78 70 6f 73 2c 78 6d 6f 75 73 65 2a 31 30 29 2c 79 70 6f 73 2d 31 | if(locked,xpos,xmouse*10),ypos-1 |
c9e0 | 30 29 2c 2d 79 70 6f 73 2b 31 30 29 3b 20 2f 2f 20 73 65 74 20 63 61 6d 65 72 61 20 70 6f 73 0d | 0),-ypos+10);.//.set.camera.pos. |
ca00 | 0a 7a 70 6f 73 20 3d 20 6d 69 6e 28 6d 61 78 28 7a 70 6f 73 2a 2e 39 2b 2e 31 2a 69 66 28 6c 6f | .zpos.=.min(max(zpos*.9+.1*if(lo |
ca20 | 63 6b 65 64 2c 7a 70 6f 73 2c 2d 79 6d 6f 75 73 65 2a 31 30 29 2c 79 70 6f 73 2d 31 30 29 2c 2d | cked,zpos,-ymouse*10),ypos-10),- |
ca40 | 79 70 6f 73 2b 31 30 29 3b 20 2f 2f 0d 0a 0d 0a 78 72 6f 74 20 3d 20 2d 24 70 69 2f 32 3b 20 2f | ypos+10);.//....xrot.=.-$pi/2;./ |
ca60 | 2f 0d 0a 79 72 6f 74 20 3d 20 30 3b 20 20 2f 2f 20 6e 6f 20 72 6f 74 61 74 69 6f 6e 0d 0a 7a 72 | /..yrot.=.0;..//.no.rotation..zr |
ca80 | 6f 74 20 3d 30 3b 20 2f 2f 0d 0a 0d 0a 72 65 67 30 30 20 3d 20 78 70 6f 73 3b 20 2f 2f 0d 0a 72 | ot.=0;.//....reg00.=.xpos;.//..r |
caa0 | 65 67 30 31 20 3d 20 79 70 6f 73 3b 20 2f 2f 20 73 65 74 20 67 6c 6f 62 61 6c 73 0d 0a 72 65 67 | eg01.=.ypos;.//.set.globals..reg |
cac0 | 30 32 20 3d 20 7a 70 6f 73 3b 20 2f 2f 0d 0a 72 65 67 30 33 20 3d 20 78 72 6f 74 3b 20 2f 2f 0d | 02.=.zpos;.//..reg03.=.xrot;.//. |
cae0 | 0a 72 65 67 30 34 20 3d 20 79 72 6f 74 3b 20 2f 2f 0d 0a 72 65 67 30 35 20 3d 20 7a 72 6f 74 3b | .reg04.=.yrot;.//..reg05.=.zrot; |
cb00 | 20 2f 2f 00 19 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 0d 0a | .//.....tb=0;..gt.=.gettime(0).. |
cb20 | 00 2d 00 00 00 2f 2f 20 43 61 6d 65 72 61 20 43 6f 64 65 0d 0a 0d 0a 78 70 6f 73 3d 30 3b 79 70 | .-...//.Camera.Code....xpos=0;yp |
cb40 | 6f 73 3d 31 30 3b 7a 70 6f 73 3d 2d 31 3b 6e 3d 30 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 | os=10;zpos=-1;n=0............... |
cb60 | 00 00 24 00 00 00 b2 20 00 00 01 69 00 00 00 2f 2a 20 20 20 2a 2a 20 4d 6f 73 74 20 69 6d 70 6f | ..$........i.../*...**.Most.impo |
cb80 | 72 74 61 6e 74 20 73 63 6f 70 65 20 6f 66 20 74 68 69 73 20 70 72 65 73 65 74 20 2a 2a 20 20 20 | rtant.scope.of.this.preset.**... |
cba0 | 2a 2f 0d 0a 0d 0a 0d 0a 2f 2a 20 20 20 2a 2a 20 45 76 65 6e 20 49 20 64 6f 6e 27 74 20 6b 6e 6f | */....../*...**.Even.I.don't.kno |
cbc0 | 77 20 68 6f 77 20 69 74 20 77 6f 72 6b 73 21 20 2a 2a 20 20 20 2a 2f 00 0e 20 00 00 74 3d 74 2b | w.how.it.works!.**...*/.....t=t+ |
cbe0 | 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 | 1;deltatime.=.gettime(time);fr=f |
cc00 | 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 | r*.9+deltatime*.1;framerate=1/fr |
cc20 | 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d | ;time.=.gettime(0);tb.=.tb+1;tim |
cc40 | 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | eb.=.gettime(gt);xmouse=getkbmou |
cc60 | 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 | se(1);ymouse=getkbmouse(2);inbou |
cc80 | 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 | nds=below(abs(xmouse),1)&below(a |
cca0 | 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d | bs(ymouse),1);xmousec=min(max(xm |
ccc0 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 | ouse,-1),1);ymousec=min(max(ymou |
cce0 | 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 | se,-1),1);lmouse.=.getkbmouse(3) |
cd00 | 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 6c 6d 6f 75 73 65 3d 6c | ;rmouse.=.getkbmouse(4);lmouse=l |
cd20 | 6d 6f 75 73 65 7c 72 6d 6f 75 73 65 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | mouse|rmouse;shift.=.getkbmouse( |
cd40 | 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b | 5);control.=.getkbmouse(17);back |
cd60 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 | space.=.getkbmouse(8);space.=.ge |
cd80 | 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(32);right.=.getkbmouse( |
cda0 | 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 | 39);left.=.getkbmouse(37);up.=.g |
cdc0 | 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(38);down.=.getkbmouse( |
cde0 | 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | 40);sizechange=bnot(equal(oh,h)) |
ce00 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
ce20 | 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c | h/w;click=bnot(olm)*lmouse;olm=l |
ce40 | 6d 6f 75 73 65 3b 64 65 6c 65 74 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 34 36 29 3b 61 6c 74 3d | mouse;delete=getkbmouse(46);alt= |
ce60 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 29 3b 68 6f 6d 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 | getkbmouse(18);home=getkbmouse(3 |
ce80 | 36 29 3b 74 61 62 3d 67 65 74 6b 62 6d 6f 75 73 65 28 39 29 3b 65 6e 64 3d 67 65 74 6b 62 6d 6f | 6);tab=getkbmouse(9);end=getkbmo |
cea0 | 75 73 65 28 33 35 29 3b 0d 0a 0d 0a 63 6c 69 63 6b 64 65 6c 3d 62 6e 6f 74 28 6f 64 65 6c 29 2a | use(35);....clickdel=bnot(odel)* |
cec0 | 64 65 6c 65 74 65 3b 6f 64 65 6c 3d 64 65 6c 65 74 65 3b 20 2f 2f 0d 0a 63 6c 69 63 6b 74 61 62 | delete;odel=delete;.//..clicktab |
cee0 | 3d 62 6e 6f 74 28 6f 74 61 62 29 2a 74 61 62 3b 6f 74 61 62 3d 74 61 62 3b 20 2f 2f 20 66 69 67 | =bnot(otab)*tab;otab=tab;.//.fig |
cf00 | 75 72 65 20 6f 75 74 20 69 66 20 74 68 65 73 65 20 6b 65 79 73 0d 0a 63 6c 69 63 6b 73 68 69 66 | ure.out.if.these.keys..clickshif |
cf20 | 74 3d 62 6e 6f 74 28 6f 6c 73 29 2a 73 68 69 66 74 3b 6f 6c 73 3d 73 68 69 66 74 3b 20 2f 2f 20 | t=bnot(ols)*shift;ols=shift;.//. |
cf40 | 68 61 76 65 20 62 65 65 6e 20 70 72 65 73 73 65 64 20 74 68 69 73 20 66 72 61 6d 65 0d 0a 63 6c | have.been.pressed.this.frame..cl |
cf60 | 69 63 6b 63 6f 6e 74 72 6f 6c 3d 62 6e 6f 74 28 6f 6c 63 29 2a 63 6f 6e 74 72 6f 6c 3b 6f 6c 63 | ickcontrol=bnot(olc)*control;olc |
cf80 | 3d 63 6f 6e 74 72 6f 6c 3b 20 2f 2f 0d 0a 0d 0a 63 6c 69 63 6b 68 6f 6d 65 3d 62 6e 6f 74 28 6f | =control;.//....clickhome=bnot(o |
cfa0 | 68 6f 29 2a 68 6f 6d 65 3b 20 2f 2f 0d 0a 72 65 6c 68 6f 6d 65 3d 6f 68 6f 2a 62 6e 6f 74 28 68 | ho)*home;.//..relhome=oho*bnot(h |
cfc0 | 6f 6d 65 29 3b 20 2f 2f 20 73 61 6d 65 20 77 69 74 68 20 74 68 69 73 20 6b 65 79 20 28 68 6f 6d | ome);.//.same.with.this.key.(hom |
cfe0 | 65 29 0d 0a 6f 68 6f 3d 68 6f 6d 65 3b 20 2f 2f 0d 0a 0d 0a 63 6c 69 63 6b 65 6e 64 3d 62 6e 6f | e)..oho=home;.//....clickend=bno |
d000 | 74 28 6f 65 6e 64 29 2a 65 6e 64 3b 6f 65 6e 64 3d 65 6e 64 3b 20 2f 2f 20 61 6e 64 20 74 68 65 | t(oend)*end;oend=end;.//.and.the |
d020 | 20 65 6e 64 20 6b 65 79 0d 0a 69 66 28 63 6c 69 63 6b 65 6e 64 2c 61 73 73 69 67 6e 28 72 65 67 | .end.key..if(clickend,assign(reg |
d040 | 31 39 2c 31 2d 72 65 67 31 39 29 2c 30 29 3b 20 2f 2f 20 73 77 69 74 63 68 20 70 72 65 63 69 73 | 19,1-reg19),0);.//.switch.precis |
d060 | 69 6f 6e 20 6d 6f 64 65 20 69 66 20 65 6e 64 20 69 73 20 70 72 65 73 73 65 64 0d 0a 64 70 72 65 | ion.mode.if.end.is.pressed..dpre |
d080 | 63 69 73 69 6f 6e 20 3d 20 72 65 67 31 39 3b 0d 0a 72 65 67 32 30 3d 72 65 67 31 39 2a 32 2b 32 | cision.=.reg19;..reg20=reg19*2+2 |
d0a0 | 3b 20 0d 0a 2f 2f 20 73 65 74 20 61 20 76 61 72 69 61 62 6c 65 20 74 6f 20 64 69 73 70 6c 61 79 | ;...//.set.a.variable.to.display |
d0c0 | 20 61 73 20 74 68 65 20 64 65 6e 6f 6d 69 6e 61 74 6f 72 20 6f 66 0d 0a 2f 2f 20 74 68 65 20 66 | .as.the.denominator.of..//.the.f |
d0e0 | 72 61 63 74 69 6f 6e 20 74 6f 20 73 68 6f 77 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 65 63 | raction.to.show.the.current.prec |
d100 | 69 73 69 6f 6e 20 6d 6f 64 65 0d 0a 0d 0a 69 66 28 61 6c 74 2c 0d 0a 20 61 73 73 69 67 6e 28 72 | ision.mode....if(alt,...assign(r |
d120 | 65 67 37 36 2c 78 6d 6f 75 73 65 2a 72 65 67 30 31 2b 72 65 67 30 30 29 2b 0d 0a 20 61 73 73 69 | eg76,xmouse*reg01+reg00)+...assi |
d140 | 67 6e 28 72 65 67 37 37 2c 2d 79 6d 6f 75 73 65 2a 72 65 67 30 31 2b 72 65 67 30 32 29 0d 0a 2c | gn(reg77,-ymouse*reg01+reg02).., |
d160 | 30 29 3b 20 2f 2f 20 69 66 20 61 6c 74 20 69 73 20 70 72 65 73 73 65 64 2c 20 73 65 74 20 74 68 | 0);.//.if.alt.is.pressed,.set.th |
d180 | 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 61 6d 65 72 61 20 74 61 72 67 65 74 20 | e.position.of.the.camera.target. |
d1a0 | 74 68 69 6e 67 79 0d 0a 0d 0a 6f 64 3d 64 72 61 67 3b 0d 0a 0d 0a 69 66 28 63 6c 69 63 6b 26 69 | thingy....od=drag;....if(click&i |
d1c0 | 6e 62 6f 75 6e 64 73 2c 20 0d 0a 20 61 73 73 69 67 6e 28 64 72 61 67 2c 31 29 2b 61 73 73 69 67 | nbounds,....assign(drag,1)+assig |
d1e0 | 6e 28 72 65 67 39 30 2c 31 29 0d 0a 2c 30 29 3b 20 2f 2f 20 69 66 20 79 6f 75 20 63 6c 69 63 6b | n(reg90,1)..,0);.//.if.you.click |
d200 | 20 69 6e 62 6f 75 6e 64 73 2c 20 6c 65 74 27 73 20 73 74 61 72 74 20 62 75 69 6c 64 69 6e 67 20 | .inbounds,.let's.start.building. |
d220 | 77 61 6c 6c 73 21 0d 0a 0d 0a 69 66 28 62 6e 6f 74 28 6c 6d 6f 75 73 65 29 7c 62 6e 6f 74 28 69 | walls!....if(bnot(lmouse)|bnot(i |
d240 | 6e 62 6f 75 6e 64 73 29 2c 0d 0a 20 61 73 73 69 67 6e 28 64 72 61 67 2c 30 29 20 2f 2f 20 6f 74 | nbounds),...assign(drag,0).//.ot |
d260 | 68 65 72 77 69 73 65 2c 20 77 65 20 62 65 74 74 65 72 20 73 74 6f 70 0d 0a 2c 30 29 3b 0d 0a 0d | herwise,.we.better.stop..,0);... |
d280 | 0a 72 65 67 37 32 3d 64 72 61 67 3b 0d 0a 73 74 6f 70 64 72 61 67 3d 28 6f 64 26 62 6e 6f 74 28 | .reg72=drag;..stopdrag=(od&bnot( |
d2a0 | 64 72 61 67 29 29 26 62 6e 6f 74 28 6c 69 6e 65 72 29 3b 20 2f 2f 20 64 69 64 20 77 65 20 6a 75 | drag))&bnot(liner);.//.did.we.ju |
d2c0 | 73 74 20 73 74 6f 70 20 64 72 61 67 67 69 6e 67 3f 0d 0a 73 74 61 72 74 64 72 61 67 3d 28 62 6e | st.stop.dragging?..startdrag=(bn |
d2e0 | 6f 74 28 6f 64 29 26 64 72 61 67 29 26 62 6e 6f 74 28 6c 69 6e 65 72 29 3b 20 2f 2f 20 64 69 64 | ot(od)&drag)&bnot(liner);.//.did |
d300 | 20 77 65 20 6a 75 73 74 20 73 74 61 72 74 20 64 72 61 67 67 69 6e 67 3f 0d 0a 0d 0a 62 70 31 3d | .we.just.start.dragging?....bp1= |
d320 | 72 65 67 38 31 3b 62 70 32 3d 72 65 67 38 32 3b 62 70 33 3d 72 65 67 38 33 3b 62 70 34 3d 72 65 | reg81;bp2=reg82;bp3=reg83;bp4=re |
d340 | 67 38 34 3b 62 70 35 3d 72 65 67 38 35 3b 62 70 36 3d 72 65 67 38 36 3b 62 70 37 3d 72 65 67 38 | g84;bp5=reg85;bp6=reg86;bp7=reg8 |
d360 | 37 3b 62 70 38 3d 72 65 67 38 38 3b 20 0d 0a 2f 2f 73 65 74 20 66 6c 6f 6f 72 20 6c 65 6e 67 74 | 7;bp8=reg88;...//set.floor.lengt |
d380 | 68 20 6c 6f 63 61 6c 20 76 61 72 73 20 61 62 6f 76 65 0d 0a 61 73 73 69 67 6e 28 67 6d 65 67 61 | h.local.vars.above..assign(gmega |
d3a0 | 62 75 66 28 39 31 29 2c 62 70 31 29 3b 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 39 35 29 | buf(91),bp1);assign(gmegabuf(95) |
d3c0 | 2c 62 70 35 29 3b 20 2f 2f 20 6e 6f 77 20 77 65 20 73 65 74 20 73 6f 6d 65 20 67 6d 65 67 61 62 | ,bp5);.//.now.we.set.some.gmegab |
d3e0 | 75 66 20 76 61 6c 75 65 73 0d 0a 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 39 32 29 2c 62 | uf.values..assign(gmegabuf(92),b |
d400 | 70 32 29 3b 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 39 36 29 2c 62 70 36 29 3b 20 2f 2f | p2);assign(gmegabuf(96),bp6);.// |
d420 | 20 66 6f 72 20 74 68 65 20 6c 65 6e 67 74 68 73 20 6f 66 20 65 61 63 68 20 66 6c 6f 6f 72 0d 0a | .for.the.lengths.of.each.floor.. |
d440 | 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 39 33 29 2c 62 70 33 29 3b 61 73 73 69 67 6e 28 | assign(gmegabuf(93),bp3);assign( |
d460 | 67 6d 65 67 61 62 75 66 28 39 37 29 2c 62 70 37 29 3b 20 2f 2f 20 73 6f 20 77 65 20 63 61 6e 20 | gmegabuf(97),bp7);.//.so.we.can. |
d480 | 61 63 63 65 73 73 20 74 68 65 6d 20 64 79 6e 61 6d 69 63 61 6c 6c 79 0d 0a 61 73 73 69 67 6e 28 | access.them.dynamically..assign( |
d4a0 | 67 6d 65 67 61 62 75 66 28 39 34 29 2c 62 70 34 29 3b 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 | gmegabuf(94),bp4);assign(gmegabu |
d4c0 | 66 28 39 38 29 2c 62 70 38 29 3b 20 2f 2f 20 6d 75 63 68 20 65 61 73 69 65 72 20 69 66 20 77 65 | f(98),bp8);.//.much.easier.if.we |
d4e0 | 20 6e 65 65 64 20 74 6f 0d 0a 2f 2f 20 69 20 64 6f 6e 27 74 20 74 68 69 6e 6b 20 69 20 75 73 65 | .need.to..//.i.don't.think.i.use |
d500 | 20 74 68 65 73 65 20 69 6e 20 74 68 69 73 20 73 63 6f 70 65 2c 20 62 75 74 20 65 6c 73 65 77 68 | .these.in.this.scope,.but.elsewh |
d520 | 65 72 65 20 69 6e 20 74 68 65 20 70 72 65 73 65 74 20 69 20 64 6f 0d 0a 0d 0a 72 65 67 37 31 3d | ere.in.the.preset.i.do....reg71= |
d540 | 6d 61 78 28 6d 69 6e 28 72 65 67 37 31 2b 63 6c 69 63 6b 73 68 69 66 74 2d 63 6c 69 63 6b 63 6f | max(min(reg71+clickshift-clickco |
d560 | 6e 74 72 6f 6c 2c 38 29 2c 31 29 3b 20 2f 2f 20 73 65 74 20 63 75 72 72 65 6e 74 20 66 6c 6f 6f | ntrol,8),1);.//.set.current.floo |
d580 | 72 20 62 61 73 65 64 20 6f 6e 20 6b 65 79 20 70 72 65 73 73 65 73 0d 0a 66 6c 6f 3d 72 65 67 37 | r.based.on.key.presses..flo=reg7 |
d5a0 | 31 3b 20 2f 2f 20 73 65 74 20 6c 6f 63 61 6c 20 63 75 72 72 65 6e 74 20 66 6c 6f 6f 72 20 76 61 | 1;.//.set.local.current.floor.va |
d5c0 | 72 0d 0a 0d 0a 62 70 3d 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 35 29 2c 20 2f 2f 20 73 65 74 20 | r....bp=if(below(flo,5),.//.set. |
d5e0 | 63 75 72 72 65 6e 74 20 66 6c 6f 6f 72 20 6c 65 6e 67 74 68 20 76 61 72 0d 0a 69 66 28 62 65 6c | current.floor.length.var..if(bel |
d600 | 6f 77 28 66 6c 6f 2c 33 29 2c 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 32 29 2c 62 70 31 2c 62 70 | ow(flo,3),if(below(flo,2),bp1,bp |
d620 | 32 29 2c 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 34 29 2c 62 70 33 2c 62 70 34 29 29 2c 0d 0a 69 | 2),if(below(flo,4),bp3,bp4)),..i |
d640 | 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 37 29 2c 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 36 29 2c 62 | f(below(flo,7),if(below(flo,6),b |
d660 | 70 35 2c 62 70 36 29 2c 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 38 29 2c 62 70 37 2c 62 70 38 29 | p5,bp6),if(below(flo,8),bp7,bp8) |
d680 | 29 0d 0a 29 3b 20 2f 2f 20 62 61 73 69 63 6c 79 20 77 65 20 70 69 63 6b 20 66 72 6f 6d 20 74 68 | )..);.//.basicly.we.pick.from.th |
d6a0 | 65 20 65 69 67 68 74 20 66 6c 6f 6f 72 20 6c 65 6e 67 74 68 20 76 61 72 73 0d 0a 2f 2f 20 69 20 | e.eight.floor.length.vars..//.i. |
d6c0 | 63 6f 75 6c 64 20 68 61 76 65 20 64 6f 6e 65 20 74 68 69 73 20 6d 6f 72 65 20 64 79 6e 61 6d 69 | could.have.done.this.more.dynami |
d6e0 | 63 61 6c 6c 79 20 75 73 69 6e 67 20 74 68 65 20 67 6d 65 67 61 62 75 66 28 29 20 76 61 72 20 73 | cally.using.the.gmegabuf().var.s |
d700 | 61 76 65 73 0d 0a 2f 2f 20 62 75 74 20 74 68 69 73 20 77 61 73 20 77 72 69 74 74 65 6e 20 62 65 | aves..//.but.this.was.written.be |
d720 | 66 6f 72 65 20 74 68 61 74 20 77 61 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 0d 0a 0d 0a 69 66 28 | fore.that.was.implemented....if( |
d740 | 62 6e 6f 74 28 64 70 72 65 63 69 73 69 6f 6e 29 2c 20 2f 2f 20 73 65 74 20 6c 6f 63 61 6c 20 76 | bnot(dprecision),.//.set.local.v |
d760 | 61 72 73 20 66 6f 72 20 62 75 69 6c 64 69 6e 67 20 70 6f 73 69 74 69 6f 6e 20 62 61 73 65 64 20 | ars.for.building.position.based. |
d780 | 6f 6e 2e 2e 2e 0d 0a 61 73 73 69 67 6e 28 6e 78 2c 66 6c 6f 6f 72 28 78 6d 6f 75 73 65 2a 72 65 | on.....assign(nx,floor(xmouse*re |
d7a0 | 67 30 31 2a 32 2d 2e 35 2b 72 65 67 30 30 2a 32 29 2a 2e 35 2b 2e 35 29 2b 0d 0a 61 73 73 69 67 | g01*2-.5+reg00*2)*.5+.5)+..assig |
d7c0 | 6e 28 6e 79 2c 66 6c 6f 6f 72 28 2d 79 6d 6f 75 73 65 2a 72 65 67 30 31 2a 32 2d 2e 35 2b 72 65 | n(ny,floor(-ymouse*reg01*2-.5+re |
d7e0 | 67 30 32 2a 32 29 2a 2e 35 2b 2e 35 29 2c 0d 0a 61 73 73 69 67 6e 28 6e 78 2c 66 6c 6f 6f 72 28 | g02*2)*.5+.5),..assign(nx,floor( |
d800 | 78 6d 6f 75 73 65 2a 72 65 67 30 31 2a 34 2d 2e 35 2b 72 65 67 30 30 2a 34 29 2a 2e 32 35 2b 2e | xmouse*reg01*4-.5+reg00*4)*.25+. |
d820 | 32 35 29 2b 0d 0a 61 73 73 69 67 6e 28 6e 79 2c 66 6c 6f 6f 72 28 2d 79 6d 6f 75 73 65 2a 72 65 | 25)+..assign(ny,floor(-ymouse*re |
d840 | 67 30 31 2a 34 2d 2e 35 2b 72 65 67 30 32 2a 34 29 2a 2e 32 35 2b 2e 32 35 29 0d 0a 29 3b 20 2f | g01*4-.5+reg02*4)*.25+.25)..);./ |
d860 | 2f 20 6d 6f 75 73 65 20 70 6f 73 69 74 69 6f 6e 20 61 6e 64 20 63 61 6d 65 72 61 20 70 6f 73 69 | /.mouse.position.and.camera.posi |
d880 | 74 69 6f 6e 0d 0a 0d 0a 72 65 67 30 38 3d 6e 78 3b 20 2f 2f 20 6c 65 74 27 73 20 67 6f 20 67 6c | tion....reg08=nx;.//.let's.go.gl |
d8a0 | 6f 62 61 6c 0d 0a 72 65 67 30 39 3d 6e 79 3b 0d 0a 0d 0a 6f 6c 69 6e 65 72 3d 6c 69 6e 65 72 3b | obal..reg09=ny;....oliner=liner; |
d8c0 | 0d 0a 69 66 28 63 6c 69 63 6b 68 6f 6d 65 2c 20 2f 2f 20 2e 2e 2e 20 73 74 61 72 74 20 64 72 61 | ..if(clickhome,.//.....start.dra |
d8e0 | 67 67 69 6e 67 20 61 20 6c 6f 6e 67 20 77 61 6c 6c 0d 0a 20 61 73 73 69 67 6e 28 6c 69 6e 65 72 | gging.a.long.wall...assign(liner |
d900 | 2c 31 29 2b 20 2f 2f 20 62 65 6c 6f 77 20 77 65 20 6d 6f 64 69 66 79 20 74 68 65 20 63 75 72 72 | ,1)+.//.below.we.modify.the.curr |
d920 | 65 6e 74 20 77 61 6c 6c 20 6c 65 6e 67 74 68 0d 0a 20 61 73 73 69 67 6e 28 62 70 2c 62 70 2b 31 | ent.wall.length...assign(bp,bp+1 |
d940 | 2d 62 6e 6f 74 28 6a 75 73 74 6c 69 6e 65 64 29 29 20 2f 2f 20 68 61 63 6b 69 73 68 2c 20 62 75 | -bnot(justlined)).//.hackish,.bu |
d960 | 74 20 77 6f 72 6b 73 20 28 61 70 70 61 72 65 6e 74 6c 79 29 0d 0a 2c 30 29 3b 0d 0a 0d 0a 69 66 | t.works.(apparently)..,0);....if |
d980 | 28 62 6e 6f 74 28 68 6f 6d 65 29 7c 6c 6d 6f 75 73 65 2c 20 2f 2f 20 69 66 20 68 6f 6d 65 20 69 | (bnot(home)|lmouse,.//.if.home.i |
d9a0 | 73 6e 27 74 20 70 72 65 73 73 65 64 20 6f 72 20 63 6c 69 63 6b 69 6e 67 2c 20 73 74 6f 70 20 6d | sn't.pressed.or.clicking,.stop.m |
d9c0 | 61 6b 69 6e 67 20 61 20 6c 69 6e 65 21 0d 0a 20 61 73 73 69 67 6e 28 6c 69 6e 65 72 2c 30 29 0d | aking.a.line!...assign(liner,0). |
d9e0 | 0a 2c 30 29 3b 0d 0a 0d 0a 69 66 28 6f 6c 69 6e 65 72 2a 62 6e 6f 74 28 6c 69 6e 65 72 29 2c 20 | .,0);....if(oliner*bnot(liner),. |
da00 | 2f 2f 20 69 66 20 77 65 20 68 61 76 65 20 6a 75 73 74 20 73 74 6f 70 70 65 64 20 6d 61 6b 69 6e | //.if.we.have.just.stopped.makin |
da20 | 67 20 61 20 6c 69 6e 65 0d 0a 61 73 73 69 67 6e 28 62 70 2c 62 70 2d 31 29 20 2f 2f 73 75 62 74 | g.a.line..assign(bp,bp-1).//subt |
da40 | 72 61 63 74 20 6f 6e 65 20 66 72 6f 6d 20 74 68 65 20 77 61 6c 6c 20 6c 65 6e 67 74 68 20 28 6e | ract.one.from.the.wall.length.(n |
da60 | 6f 74 20 65 78 61 63 74 6c 79 20 73 75 72 65 20 77 68 79 2e 2e 2e 0d 0a 2c 30 29 3b 20 2f 2f 20 | ot.exactly.sure.why.....,0);.//. |
da80 | 74 68 69 73 20 77 61 73 20 77 72 69 74 74 65 6e 20 6c 6f 6e 67 20 61 66 74 65 72 20 74 68 69 73 | this.was.written.long.after.this |
daa0 | 20 63 6f 64 65 20 77 61 73 20 63 6f 6d 70 6c 65 74 65 64 29 0d 0a 0d 0a 6f 78 3d 67 6d 65 67 61 | .code.was.completed)....ox=gmega |
dac0 | 62 75 66 28 31 30 30 2a 62 70 2b 31 2b 66 6c 6f 2a 36 29 3b 20 2f 2f 20 67 65 74 20 78 2c 79 20 | buf(100*bp+1+flo*6);.//.get.x,y. |
dae0 | 70 6f 73 69 74 69 6f 6e 20 6f 66 20 6c 61 73 74 20 62 75 69 6c 74 20 77 61 6c 6c 20 73 65 67 6d | position.of.last.built.wall.segm |
db00 | 65 6e 74 0d 0a 6f 79 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 32 2b 66 6c 6f 2a 36 29 | ent..oy=gmegabuf(100*bp+2+flo*6) |
db20 | 3b 0d 0a 6e 75 6d 6c 6f 6f 70 3d 63 65 69 6c 28 73 71 72 74 28 73 71 72 28 6f 78 2d 6e 78 29 2b | ;..numloop=ceil(sqrt(sqr(ox-nx)+ |
db40 | 73 71 72 28 6f 79 2d 6e 79 29 29 29 3b 20 2f 2f 20 68 6f 77 20 6d 61 6e 79 20 73 65 67 6d 65 6e | sqr(oy-ny)));.//.how.many.segmen |
db60 | 74 73 20 61 72 65 0d 0a 6c 70 3d 30 3b 20 2f 2f 20 67 6f 69 6e 67 20 74 6f 20 62 65 20 69 6e 20 | ts.are..lp=0;.//.going.to.be.in. |
db80 | 74 68 69 73 20 6c 69 6e 65 3f 20 64 65 70 65 6e 64 73 20 6f 6e 20 6c 65 6e 67 74 68 0d 0a 0d 0a | this.line?.depends.on.length.... |
dba0 | 69 66 28 6f 6c 69 6e 65 72 2a 62 6e 6f 74 28 6c 69 6e 65 72 29 2c 20 2f 2f 20 6f 6b 2c 20 69 66 | if(oliner*bnot(liner),.//.ok,.if |
dbc0 | 20 68 6f 6d 65 20 77 61 73 20 6a 75 73 74 20 72 65 6c 65 61 73 65 64 2c 20 6c 65 74 27 73 20 62 | .home.was.just.released,.let's.b |
dbe0 | 75 69 6c 64 0d 0a 20 61 73 73 69 67 6e 28 6a 75 73 74 6c 69 6e 65 64 2c 31 29 2b 20 2f 2f 20 74 | uild...assign(justlined,1)+.//.t |
dc00 | 68 69 73 20 6c 69 6e 65 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 21 0d 0a 20 69 66 28 | his.line.of.wall.segments!...if( |
dc20 | 61 62 6f 76 65 28 62 70 2c 30 29 2c 0d 0a 20 20 6c 6f 6f 70 28 6e 75 6d 6c 6f 6f 70 2c 20 2f 2f | above(bp,0),....loop(numloop,.// |
dc40 | 20 6c 6f 6f 70 20 66 6f 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 73 | .loop.for.the.number.of.segments |
dc60 | 20 62 65 69 6e 67 20 63 72 65 61 74 65 64 0d 0a 20 20 20 61 73 73 69 67 6e 28 6c 70 2c 6c 70 2b | .being.created.....assign(lp,lp+ |
dc80 | 31 29 2b 20 2f 2f 20 69 6e 63 72 65 61 73 65 20 74 65 6d 70 6f 72 61 72 79 20 73 65 67 6d 65 6e | 1)+.//.increase.temporary.segmen |
dca0 | 74 20 6e 75 6d 62 65 72 20 76 61 72 0d 0a 20 20 20 61 73 73 69 67 6e 28 70 74 74 2c 6c 70 2f 6e | t.number.var.....assign(ptt,lp/n |
dcc0 | 75 6d 6c 6f 6f 70 29 2b 20 2f 2f 20 77 68 61 74 20 70 6f 73 69 74 69 6f 6e 20 61 72 65 20 77 65 | umloop)+.//.what.position.are.we |
dce0 | 20 61 74 20 28 75 73 69 6e 67 20 6c 69 6e 65 61 72 20 69 6e 74 65 72 70 6f 6c 61 74 69 6f 6e 29 | .at.(using.linear.interpolation) |
dd00 | 3f 0d 0a 20 20 20 61 73 73 69 67 6e 28 62 70 2c 62 70 2b 31 29 2b 20 2f 2f 20 69 6e 63 72 65 61 | ?.....assign(bp,bp+1)+.//.increa |
dd20 | 73 65 20 66 6c 6f 6f 72 20 6c 65 6e 67 74 68 20 62 79 20 6f 6e 65 20 66 6f 72 20 65 61 63 68 20 | se.floor.length.by.one.for.each. |
dd40 | 73 65 67 6d 65 6e 74 20 62 75 69 6c 74 20 69 6e 20 74 68 65 20 6c 6f 6f 70 0d 0a 20 20 20 61 73 | segment.built.in.the.loop.....as |
dd60 | 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 31 2b 66 6c 6f 2a 36 29 2c 6e 78 | sign(gmegabuf(100*bp+1+flo*6),nx |
dd80 | 2a 70 74 74 2b 6f 78 2a 28 31 2d 70 74 74 29 29 2b 20 2f 2f 20 62 75 69 6c 64 20 74 68 65 20 6c | *ptt+ox*(1-ptt))+.//.build.the.l |
dda0 | 69 6e 65 73 21 0d 0a 20 20 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 | ines!.....assign(gmegabuf(100*bp |
ddc0 | 2b 32 2b 66 6c 6f 2a 36 29 2c 6e 79 2a 70 74 74 2b 6f 79 2a 28 31 2d 70 74 74 29 29 2b 20 2f 2f | +2+flo*6),ny*ptt+oy*(1-ptt))+.// |
dde0 | 20 73 61 76 65 20 74 68 65 20 63 6f 6f 72 64 73 0d 0a 20 20 20 61 73 73 69 67 6e 28 67 6d 65 67 | .save.the.coords.....assign(gmeg |
de00 | 61 62 75 66 28 31 30 30 2a 62 70 2b 33 2b 66 6c 6f 2a 36 29 2c 31 29 20 2f 2f 20 61 6e 64 20 76 | abuf(100*bp+3+flo*6),1).//.and.v |
de20 | 69 73 69 62 69 6c 69 74 79 20 75 73 69 6e 67 20 67 6d 65 67 61 62 75 66 28 29 0d 0a 20 20 29 2c | isibility.using.gmegabuf()....), |
de40 | 0d 0a 20 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 31 2b 66 6c 6f | ....assign(gmegabuf(100*bp+1+flo |
de60 | 2a 36 29 2c 6e 78 29 2b 20 2f 2f 20 61 64 64 20 74 68 65 20 66 69 6e 61 6c 20 73 65 67 6d 65 6e | *6),nx)+.//.add.the.final.segmen |
de80 | 74 0d 0a 20 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 32 2b 66 6c | t....assign(gmegabuf(100*bp+2+fl |
dea0 | 6f 2a 36 29 2c 6e 79 29 2b 0d 0a 20 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 | o*6),ny)+....assign(gmegabuf(100 |
dec0 | 2a 62 70 2b 33 2b 66 6c 6f 2a 36 29 2c 30 29 2b 0d 0a 20 20 61 73 73 69 67 6e 28 62 70 2c 62 70 | *bp+3+flo*6),0)+....assign(bp,bp |
dee0 | 2b 31 29 0d 0a 20 29 0d 0a 2c 30 29 3b 20 2f 2f 20 77 65 27 72 65 20 64 6f 6e 65 20 77 69 74 68 | +1)...)..,0);.//.we're.done.with |
df00 | 20 74 68 61 74 21 0d 0a 6f 6c 69 6e 65 72 3d 6c 69 6e 65 72 3b 0d 0a 0d 0a 78 63 68 3d 62 6e 6f | .that!..oliner=liner;....xch=bno |
df20 | 74 28 20 65 71 75 61 6c 28 20 6e 78 2c 20 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 31 2b | t(.equal(.nx,.gmegabuf(100*bp+1+ |
df40 | 66 6c 6f 2a 36 29 20 29 29 3b 20 2f 2f 20 69 73 20 74 68 65 20 6d 6f 75 73 65 20 70 6f 73 20 64 | flo*6).));.//.is.the.mouse.pos.d |
df60 | 69 66 66 65 72 65 6e 74 0d 0a 79 63 68 3d 62 6e 6f 74 28 20 65 71 75 61 6c 28 20 6e 79 2c 20 67 | ifferent..ych=bnot(.equal(.ny,.g |
df80 | 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 32 2b 66 6c 6f 2a 36 29 20 29 29 3b 20 2f 2f 20 66 | megabuf(100*bp+2+flo*6).));.//.f |
dfa0 | 72 6f 6d 20 74 68 65 20 62 75 69 6c 64 69 6e 67 20 70 6f 73 20 66 6f 72 20 78 20 6f 72 20 79 3f | rom.the.building.pos.for.x.or.y? |
dfc0 | 0d 0a 0d 0a 69 66 28 73 74 61 72 74 64 72 61 67 2c 20 2f 2f 20 63 6f 64 65 20 66 6f 74 20 77 68 | ....if(startdrag,.//.code.fot.wh |
dfe0 | 65 6e 20 77 65 20 6a 75 73 74 20 73 74 61 72 74 20 64 72 61 67 67 69 6e 67 20 74 6f 20 62 75 69 | en.we.just.start.dragging.to.bui |
e000 | 6c 64 20 77 61 6c 6c 73 0d 0a 20 61 73 73 69 67 6e 28 6a 75 73 74 6c 69 6e 65 64 2c 30 29 2b 0d | ld.walls...assign(justlined,0)+. |
e020 | 0a 20 61 73 73 69 67 6e 28 62 70 2c 62 70 2b 31 29 2b 0d 0a 20 61 73 73 69 67 6e 28 67 6d 65 67 | ..assign(bp,bp+1)+...assign(gmeg |
e040 | 61 62 75 66 28 31 30 30 2a 62 70 2b 31 2b 66 6c 6f 2a 36 29 2c 6e 78 29 2b 0d 0a 20 61 73 73 69 | abuf(100*bp+1+flo*6),nx)+...assi |
e060 | 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 32 2b 66 6c 6f 2a 36 29 2c 6e 79 29 2b | gn(gmegabuf(100*bp+2+flo*6),ny)+ |
e080 | 0d 0a 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 33 2b 66 6c 6f 2a | ...assign(gmegabuf(100*bp+3+flo* |
e0a0 | 36 29 2c 30 29 20 2f 2f 20 73 74 61 72 74 20 6f 66 66 20 77 69 74 68 20 61 6e 20 69 6e 76 69 73 | 6),0).//.start.off.with.an.invis |
e0c0 | 69 62 6c 65 20 77 61 6c 6c 0d 0a 2c 30 29 3b 0d 0a 69 66 28 6c 69 6e 65 72 2c 0d 0a 20 61 73 73 | ible.wall..,0);..if(liner,...ass |
e0e0 | 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 31 2b 66 6c 6f 2a 36 29 2c 6e 78 29 | ign(gmegabuf(100*bp+1+flo*6),nx) |
e100 | 2b 20 2f 2f 20 69 66 20 6d 61 6b 69 6e 67 20 61 20 6c 69 6e 65 20 75 73 69 6e 67 20 68 6f 6d 65 | +.//.if.making.a.line.using.home |
e120 | 0d 0a 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 32 2b 66 6c 6f 2a | ...assign(gmegabuf(100*bp+2+flo* |
e140 | 36 29 2c 6e 79 29 2b 20 2f 2f 20 75 70 64 61 74 65 20 74 68 65 20 76 69 73 69 62 6c 65 20 67 75 | 6),ny)+.//.update.the.visible.gu |
e160 | 69 64 65 20 66 6f 72 0d 0a 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 | ide.for...assign(gmegabuf(100*bp |
e180 | 2b 33 2b 66 6c 6f 2a 36 29 2c 31 29 20 2f 2f 20 74 68 65 20 6c 69 6e 65 0d 0a 2c 30 29 3b 20 2f | +3+flo*6),1).//.the.line..,0);./ |
e1a0 | 2f 20 28 68 61 63 6b 69 73 68 20 6d 65 74 68 6f 64 29 0d 0a 0d 0a 69 66 28 20 28 78 63 68 20 7c | /.(hackish.method)....if(.(xch.| |
e1c0 | 20 79 63 68 29 2a 64 72 61 67 2c 20 2f 2f 20 69 66 20 64 72 61 67 67 69 6e 67 20 61 6e 64 20 74 | .ych)*drag,.//.if.dragging.and.t |
e1e0 | 68 65 72 65 20 69 73 20 61 20 63 68 61 6e 67 65 20 69 6e 20 70 6f 73 69 74 69 6f 6e 0d 0a 20 61 | here.is.a.change.in.position...a |
e200 | 73 73 69 67 6e 28 62 70 2c 62 70 2b 31 29 2b 20 2f 2f 20 64 72 61 77 20 61 20 6e 65 77 20 77 61 | ssign(bp,bp+1)+.//.draw.a.new.wa |
e220 | 6c 6c 20 73 65 67 6d 65 6e 74 0d 0a 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 | ll.segment...assign(gmegabuf(100 |
e240 | 2a 62 70 2b 31 2b 66 6c 6f 2a 36 29 2c 6e 78 29 2b 0d 0a 20 61 73 73 69 67 6e 28 67 6d 65 67 61 | *bp+1+flo*6),nx)+...assign(gmega |
e260 | 62 75 66 28 31 30 30 2a 62 70 2b 32 2b 66 6c 6f 2a 36 29 2c 6e 79 29 2b 0d 0a 20 61 73 73 69 67 | buf(100*bp+2+flo*6),ny)+...assig |
e280 | 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 33 2b 66 6c 6f 2a 36 29 2c 31 29 0d 0a 2c | n(gmegabuf(100*bp+3+flo*6),1).., |
e2a0 | 30 29 3b 0d 0a 0d 0a 69 66 28 73 74 6f 70 64 72 61 67 2c 20 2f 2f 20 69 66 20 77 65 20 61 72 65 | 0);....if(stopdrag,.//.if.we.are |
e2c0 | 20 64 6f 6e 65 20 64 72 61 67 67 69 6e 67 2c 20 6d 61 6b 65 20 61 6e 20 69 6e 76 69 73 69 62 6c | .done.dragging,.make.an.invisibl |
e2e0 | 65 20 77 61 6c 6c 0d 0a 20 20 61 73 73 69 67 6e 28 62 70 2c 62 70 2b 31 29 2b 0d 0a 20 20 61 73 | e.wall....assign(bp,bp+1)+....as |
e300 | 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b 31 2b 66 6c 6f 2a 36 29 2c 6f 6c | sign(gmegabuf(100*bp+1+flo*6),ol |
e320 | 64 6e 78 29 2b 0d 0a 20 20 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 62 70 2b | dnx)+....assign(gmegabuf(100*bp+ |
e340 | 32 2b 66 6c 6f 2a 36 29 2c 6f 6c 64 6e 79 29 2b 0d 0a 20 20 61 73 73 69 67 6e 28 67 6d 65 67 61 | 2+flo*6),oldny)+....assign(gmega |
e360 | 62 75 66 28 31 30 30 2a 62 70 2b 33 2b 66 6c 6f 2a 36 29 2c 30 29 0d 0a 2c 30 29 3b 0d 0a 0d 0a | buf(100*bp+3+flo*6),0)..,0);.... |
e380 | 69 66 28 62 61 63 6b 73 70 61 63 65 2c 20 2f 2f 20 6e 6f 77 20 66 6f 72 20 64 65 73 74 72 75 63 | if(backspace,.//.now.for.destruc |
e3a0 | 74 69 6f 6e 21 20 69 66 20 62 61 63 6b 73 70 61 63 69 6e 67 2c 0d 0a 20 61 73 73 69 67 6e 28 64 | tion!.if.backspacing,...assign(d |
e3c0 | 65 6c 74 69 6d 65 2c 64 65 6c 74 69 6d 65 2b 31 29 2b 20 2f 2f 20 6b 65 65 70 20 74 72 61 63 6b | eltime,deltime+1)+.//.keep.track |
e3e0 | 20 6f 66 20 74 68 65 20 74 69 6d 65 20 73 69 6e 63 65 20 77 65 20 73 74 61 72 74 65 64 20 62 61 | .of.the.time.since.we.started.ba |
e400 | 63 6b 73 70 61 63 69 6e 67 0d 0a 20 61 73 73 69 67 6e 28 62 70 2c 69 66 28 62 6e 6f 74 28 64 65 | ckspacing...assign(bp,if(bnot(de |
e420 | 6c 65 74 65 29 2b 6c 6f 6f 70 28 32 30 2c 20 2f 2f 20 64 65 6c 65 74 65 20 69 6e 76 69 73 69 62 | lete)+loop(20,.//.delete.invisib |
e440 | 6c 65 20 77 61 6c 6c 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2e 2e 2e 0d 0a 20 20 69 66 28 | le.walls.automatically.......if( |
e460 | 62 6e 6f 74 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 62 70 2d 31 29 2b 33 2b 66 6c 6f 2a 36 | bnot(gmegabuf(100*(bp-1)+3+flo*6 |
e480 | 29 2a 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 62 70 2d 32 29 2b 33 2b 66 6c 6f 2a 36 29 29 0d | )*gmegabuf(100*(bp-2)+3+flo*6)). |
e4a0 | 0a 20 20 20 2c 61 73 73 69 67 6e 28 62 70 2c 62 70 2d 31 29 0d 0a 20 20 2c 30 29 0d 0a 20 29 2c | ....,assign(bp,bp-1)....,0)...), |
e4c0 | 0d 0a 20 20 62 70 2d 62 65 6c 6f 77 28 74 25 28 33 2d 61 62 6f 76 65 28 64 65 6c 74 69 6d 65 2c | ....bp-below(t%(3-above(deltime, |
e4e0 | 36 30 29 29 2c 31 29 20 2f 2f 20 61 6e 64 20 73 74 61 72 74 20 64 65 6c 65 74 69 6e 67 20 76 69 | 60)),1).//.and.start.deleting.vi |
e500 | 73 69 62 6c 65 20 77 61 6c 6c 73 0d 0a 20 20 2c 30 29 0d 0a 20 29 2c 0d 0a 20 61 73 73 69 67 6e | sible.walls....,0)...),...assign |
e520 | 28 64 65 6c 74 69 6d 65 2c 30 29 0d 0a 29 3b 0d 0a 0d 0a 69 66 28 63 6c 69 63 6b 64 65 6c 2c 20 | (deltime,0)..);....if(clickdel,. |
e540 | 2f 2f 20 69 66 20 77 65 20 70 75 73 68 20 64 65 6c 65 74 65 2c 20 72 65 6d 6f 76 65 20 6f 6e 65 | //.if.we.push.delete,.remove.one |
e560 | 20 62 79 20 6f 6e 65 0d 0a 20 61 73 73 69 67 6e 28 62 70 2c 62 70 2d 31 29 2b 0d 0a 20 6c 6f 6f | .by.one...assign(bp,bp-1)+...loo |
e580 | 70 28 34 30 2c 20 2f 2f 20 64 65 6c 65 74 65 20 69 6e 76 69 73 69 62 6c 65 20 77 61 6c 6c 73 20 | p(40,.//.delete.invisible.walls. |
e5a0 | 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0d 0a 20 20 69 66 28 62 6e 6f 74 28 67 6d 65 67 61 62 75 | automatically....if(bnot(gmegabu |
e5c0 | 66 28 31 30 30 2a 28 62 70 2d 31 29 2b 33 2b 66 6c 6f 2a 36 29 2a 67 6d 65 67 61 62 75 66 28 31 | f(100*(bp-1)+3+flo*6)*gmegabuf(1 |
e5e0 | 30 30 2a 28 62 70 2d 32 29 2b 33 2b 66 6c 6f 2a 36 29 29 0d 0a 20 20 20 2c 61 73 73 69 67 6e 28 | 00*(bp-2)+3+flo*6)).....,assign( |
e600 | 62 70 2c 62 70 2d 31 29 0d 0a 20 20 2c 30 29 0d 0a 20 29 0d 0a 2c 30 29 3b 0d 0a 0d 0a 69 66 28 | bp,bp-1)....,0)...)..,0);....if( |
e620 | 63 6c 69 63 6b 74 61 62 26 61 62 6f 76 65 28 66 6c 6f 2c 31 29 2c 20 2f 2f 20 69 66 20 77 65 20 | clicktab&above(flo,1),.//.if.we. |
e640 | 70 75 73 68 20 74 61 62 20 28 61 6e 64 20 77 65 27 72 65 20 6f 6e 20 66 6c 6f 6f 72 20 74 77 6f | push.tab.(and.we're.on.floor.two |
e660 | 20 6f 72 20 61 62 6f 76 65 29 0d 0a 20 61 73 73 69 67 6e 28 62 70 2c 67 6d 65 67 61 62 75 66 28 | .or.above)...assign(bp,gmegabuf( |
e680 | 38 39 2b 66 6c 6f 29 29 20 2f 2f 20 63 6f 70 79 20 74 68 65 20 66 6c 6f 6f 72 20 6c 65 6e 67 74 | 89+flo)).//.copy.the.floor.lengt |
e6a0 | 68 20 66 72 6f 6d 20 74 68 65 20 66 6c 6f 6f 72 20 62 65 6c 6f 77 2e 2e 2e 0d 0a 2c 30 29 3b 0d | h.from.the.floor.below.....,0);. |
e6c0 | 0a 70 70 70 3d 30 3b 0d 0a 69 66 28 63 6c 69 63 6b 74 61 62 26 61 62 6f 76 65 28 66 6c 6f 2c 31 | .ppp=0;..if(clicktab&above(flo,1 |
e6e0 | 29 2c 20 2f 2f 20 63 6f 70 79 20 61 6c 6c 20 74 68 65 20 78 20 63 6f 6f 72 64 73 20 75 73 69 6e | ),.//.copy.all.the.x.coords.usin |
e700 | 67 20 61 20 6c 6f 6f 70 0d 0a 20 6c 6f 6f 70 28 62 70 2b 31 2c 0d 0a 20 20 61 73 73 69 67 6e 28 | g.a.loop...loop(bp+1,....assign( |
e720 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 70 70 70 2b 31 2b 66 6c 6f 2a 36 29 2c 67 6d 65 67 61 62 | gmegabuf(100*ppp+1+flo*6),gmegab |
e740 | 75 66 28 31 30 30 2a 70 70 70 2b 31 2b 28 66 6c 6f 2d 31 29 2a 36 29 29 0d 0a 20 20 2b 61 73 73 | uf(100*ppp+1+(flo-1)*6))....+ass |
e760 | 69 67 6e 28 70 70 70 2c 70 70 70 2b 31 29 0d 0a 20 29 0d 0a 2c 30 29 3b 0d 0a 70 70 70 3d 30 3b | ign(ppp,ppp+1)...)..,0);..ppp=0; |
e780 | 0d 0a 69 66 28 63 6c 69 63 6b 74 61 62 26 61 62 6f 76 65 28 66 6c 6f 2c 31 29 2c 20 2f 2f 20 63 | ..if(clicktab&above(flo,1),.//.c |
e7a0 | 6f 70 79 20 74 68 65 20 79 27 73 0d 0a 20 6c 6f 6f 70 28 62 70 2b 31 2c 0d 0a 20 20 61 73 73 69 | opy.the.y's...loop(bp+1,....assi |
e7c0 | 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 70 70 70 2b 32 2b 66 6c 6f 2a 36 29 2c 67 6d 65 | gn(gmegabuf(100*ppp+2+flo*6),gme |
e7e0 | 67 61 62 75 66 28 31 30 30 2a 70 70 70 2b 32 2b 28 66 6c 6f 2d 31 29 2a 36 29 29 0d 0a 20 20 2b | gabuf(100*ppp+2+(flo-1)*6))....+ |
e800 | 61 73 73 69 67 6e 28 70 70 70 2c 70 70 70 2b 31 29 0d 0a 20 29 0d 0a 2c 30 29 3b 0d 0a 70 70 70 | assign(ppp,ppp+1)...)..,0);..ppp |
e820 | 3d 30 3b 72 65 67 31 31 3d 62 70 3b 0d 0a 69 66 28 63 6c 69 63 6b 74 61 62 26 61 62 6f 76 65 28 | =0;reg11=bp;..if(clicktab&above( |
e840 | 66 6c 6f 2c 31 29 2c 20 2f 2f 20 63 6f 70 79 20 74 68 65 20 76 69 73 69 62 69 6c 69 74 79 20 76 | flo,1),.//.copy.the.visibility.v |
e860 | 61 6c 75 65 73 0d 0a 20 6c 6f 6f 70 28 62 70 2b 31 2c 0d 0a 20 20 61 73 73 69 67 6e 28 67 6d 65 | alues...loop(bp+1,....assign(gme |
e880 | 67 61 62 75 66 28 31 30 30 2a 70 70 70 2b 33 2b 66 6c 6f 2a 36 29 2c 67 6d 65 67 61 62 75 66 28 | gabuf(100*ppp+3+flo*6),gmegabuf( |
e8a0 | 31 30 30 2a 70 70 70 2b 33 2b 28 66 6c 6f 2d 31 29 2a 36 29 29 0d 0a 20 20 2b 61 73 73 69 67 6e | 100*ppp+3+(flo-1)*6))....+assign |
e8c0 | 28 70 70 70 2c 70 70 70 2b 31 29 0d 0a 20 29 0d 0a 2c 30 29 3b 0d 0a 0d 0a 62 70 3d 6d 61 78 28 | (ppp,ppp+1)...)..,0);....bp=max( |
e8e0 | 62 70 2c 30 29 3b 20 2f 2f 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 77 61 6c 6c 20 73 65 67 | bp,0);.//.the.number.of.wall.seg |
e900 | 6d 65 6e 74 73 20 63 61 6e 27 74 20 62 65 20 6c 6f 77 65 72 20 74 68 61 6e 20 7a 65 72 6f 0d 0a | ments.can't.be.lower.than.zero.. |
e920 | 0d 0a 61 73 73 69 67 6e 28 67 6d 65 67 61 62 75 66 28 31 30 30 2a 30 2b 31 2b 66 6c 6f 2a 36 29 | ..assign(gmegabuf(100*0+1+flo*6) |
e940 | 2c 30 29 3b 20 2f 2f 20 74 68 65 20 66 69 72 73 74 20 62 75 69 6c 64 69 6e 67 20 70 6f 73 69 74 | ,0);.//.the.first.building.posit |
e960 | 69 6f 6e 20 69 73 20 61 6c 77 61 79 73 20 30 2c 30 0d 0a 61 73 73 69 67 6e 28 67 6d 65 67 61 62 | ion.is.always.0,0..assign(gmegab |
e980 | 75 66 28 31 30 30 2a 30 2b 32 2b 66 6c 6f 2a 36 29 2c 30 29 3b 20 2f 2f 20 77 65 20 6d 61 6b 65 | uf(100*0+2+flo*6),0);.//.we.make |
e9a0 | 20 73 75 72 65 20 6f 66 20 74 68 61 74 0d 0a 0d 0a 72 65 67 32 38 3d 67 6d 65 67 61 62 75 66 28 | .sure.of.that....reg28=gmegabuf( |
e9c0 | 31 30 30 2a 28 62 70 2d 68 6f 6d 65 29 2b 31 2b 66 6c 6f 2a 36 29 3b 20 2f 2f 20 6d 61 6b 65 20 | 100*(bp-home)+1+flo*6);.//.make. |
e9e0 | 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 69 6c 64 69 6e 67 20 70 6f 73 0d 0a 72 65 67 32 39 3d | the.current.building.pos..reg29= |
ea00 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 62 70 2d 68 6f 6d 65 29 2b 32 2b 66 6c 6f 2a 36 29 3b | gmegabuf(100*(bp-home)+2+flo*6); |
ea20 | 20 2f 2f 20 69 6e 74 6f 20 67 6c 6f 62 61 6c 20 76 61 72 73 0d 0a 0d 0a 61 73 73 69 67 6e 28 20 | .//.into.global.vars....assign(. |
ea40 | 69 66 28 20 62 65 6c 6f 77 28 66 6c 6f 2c 35 29 20 20 2c 20 20 2f 2f 20 73 65 74 20 74 68 65 20 | if(.below(flo,5)..,..//.set.the. |
ea60 | 63 75 72 72 65 6e 74 20 66 6c 6f 6f 72 27 73 20 6c 65 6e 67 74 68 20 69 6e 74 6f 20 69 74 73 20 | current.floor's.length.into.its. |
ea80 | 66 6c 6f 6f 72 20 6c 65 6e 67 74 68 20 76 61 72 69 61 62 6c 65 0d 0a 69 66 28 62 65 6c 6f 77 28 | floor.length.variable..if(below( |
eaa0 | 66 6c 6f 2c 33 29 2c 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 32 29 2c 62 70 31 2c 62 70 32 29 2c | flo,3),if(below(flo,2),bp1,bp2), |
eac0 | 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 34 29 2c 62 70 33 2c 62 70 34 29 29 2c 0d 0a 69 66 28 62 | if(below(flo,4),bp3,bp4)),..if(b |
eae0 | 65 6c 6f 77 28 66 6c 6f 2c 37 29 2c 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 36 29 2c 62 70 35 2c | elow(flo,7),if(below(flo,6),bp5, |
eb00 | 62 70 36 29 2c 69 66 28 62 65 6c 6f 77 28 66 6c 6f 2c 38 29 2c 62 70 37 2c 62 70 38 29 29 29 0d | bp6),if(below(flo,8),bp7,bp8))). |
eb20 | 0a 2c 20 62 70 29 3b 0d 0a 0d 0a 72 65 67 38 31 3d 62 70 31 3b 72 65 67 38 32 3d 62 70 32 3b 72 | .,.bp);....reg81=bp1;reg82=bp2;r |
eb40 | 65 67 38 33 3d 62 70 33 3b 72 65 67 38 34 3d 62 70 34 3b 72 65 67 38 35 3d 62 70 35 3b 72 65 67 | eg83=bp3;reg84=bp4;reg85=bp5;reg |
eb60 | 38 36 3d 62 70 36 3b 72 65 67 38 37 3d 62 70 37 3b 72 65 67 38 38 3d 62 70 38 3b 20 2f 2f 20 75 | 86=bp6;reg87=bp7;reg88=bp8;.//.u |
eb80 | 70 64 61 74 65 20 67 6c 6f 62 61 6c 20 66 6c 6f 6f 72 20 6c 65 6e 67 74 68 20 76 61 72 69 61 62 | pdate.global.floor.length.variab |
eba0 | 6c 65 73 20 66 72 6f 6d 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 0d 0a 0d 0a 6f 6c 64 6e | les.from.local.variables....oldn |
ebc0 | 78 3d 6e 78 3b 0d 0a 6f 6c 64 6e 79 3d 6e 79 3b 0d 0a 2f 2f 20 2e 2e 2e 20 61 6e 64 20 77 65 20 | x=nx;..oldny=ny;..//.....and.we. |
ebe0 | 61 72 65 20 64 6f 6e 65 2e 00 00 00 00 00 1a 00 00 00 2f 2f 20 42 75 69 6c 64 65 72 20 43 6f 64 | are.done..........//.Builder.Cod |
ec00 | 65 0d 0a 0d 0a 0d 0a 6e 3d 30 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 15 00 00 00 | e......n=0;..................... |
ec20 | 34 01 00 00 30 01 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a 0d | 4...0...[[.Additional.Info.]]... |
ec40 | 0a 54 68 65 20 73 63 6f 70 65 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 61 62 6f 76 65 20 69 73 20 | .The.scope.immediately.above.is. |
ec60 | 74 68 65 20 68 65 61 72 74 20 6f 66 20 74 68 69 73 20 70 72 65 73 65 74 2e 20 49 74 20 63 6f 6e | the.heart.of.this.preset..It.con |
ec80 | 74 72 6f 6c 73 20 74 68 65 20 69 6e 70 75 74 20 6f 66 20 77 61 6c 6c 20 64 61 74 61 20 69 6e 20 | trols.the.input.of.wall.data.in. |
eca0 | 74 68 65 20 54 6f 70 2d 44 6f 77 6e 20 44 65 73 69 67 6e 65 72 2e 20 54 68 65 20 73 63 6f 70 65 | the.Top-Down.Designer..The.scope |
ecc0 | 20 61 62 6f 76 65 20 74 68 61 74 20 73 63 6f 70 65 20 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 63 | .above.that.scope.controls.the.c |
ece0 | 61 6d 65 72 61 20 69 6e 20 74 68 65 20 74 68 69 73 20 6d 6f 64 65 2e 20 42 6f 74 68 20 73 63 6f | amera.in.the.this.mode..Both.sco |
ed00 | 70 65 73 20 63 6f 75 6c 64 20 65 61 73 69 6c 79 20 62 65 20 63 6f 6d 62 69 6e 65 64 20 6f 6e 74 | pes.could.easily.be.combined.ont |
ed20 | 6f 20 6f 6e 65 2c 20 62 75 74 20 69 74 20 77 61 73 20 65 61 73 69 65 72 20 74 6f 20 70 72 6f 67 | o.one,.but.it.was.easier.to.prog |
ed40 | 72 61 6d 20 61 6e 64 20 64 65 62 75 67 20 77 69 74 68 20 74 77 6f 2e 00 fe ff ff ff 14 4d 00 00 | ram.and.debug.with.two.......M.. |
ed60 | 81 01 00 05 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ....$........................... |
ed80 | 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f | ......@..AVS.2.8+.Effect.List.Co |
eda0 | 6e 66 69 67 00 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 28 00 00 00 04 00 00 | nfig.....................(...... |
edc0 | 00 02 00 01 80 50 85 c3 02 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 00 00 | .....P...Acko.net:.Texer.II..... |
ede0 | 00 00 00 00 00 00 00 00 00 c1 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
ee00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
ee20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
ee40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
ee60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
ee80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
eea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
eec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
eee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
ef00 | 00 00 00 00 00 04 00 00 00 6e 3d 31 3b 00 00 00 00 2c 00 00 00 2f 2f 20 63 61 6d 65 72 61 20 74 | .........n=1;....,...//.camera.t |
ef20 | 61 72 67 65 74 20 74 65 78 65 72 20 28 73 65 74 20 62 79 20 70 72 65 73 73 69 6e 67 20 41 4c 54 | arget.texer.(set.by.pressing.ALT |
ef40 | 29 69 00 00 00 78 3d 28 72 65 67 37 36 2d 72 65 67 30 30 29 2f 72 65 67 30 31 3b 79 3d 28 2d 72 | )i...x=(reg76-reg00)/reg01;y=(-r |
ef60 | 65 67 37 37 2b 72 65 67 30 32 29 2f 72 65 67 30 31 3b 0d 0a 72 65 64 3d 2e 32 3b 67 72 65 65 6e | eg77+reg02)/reg01;..red=.2;green |
ef80 | 3d 2e 33 3b 62 6c 75 65 3d 2e 32 3b 73 69 7a 65 78 3d 31 2f 72 65 67 30 31 2a 31 30 3b 73 69 7a | =.3;blue=.2;sizex=1/reg01*10;siz |
efa0 | 65 79 3d 31 2f 72 65 67 30 31 2a 31 30 3b 24 00 00 00 95 00 00 00 01 57 00 00 00 78 3d 28 72 65 | ey=1/reg01*10;$........W...x=(re |
efc0 | 67 37 36 2d 72 65 67 30 30 29 2f 72 65 67 30 31 3b 0d 0a 79 3d 28 2d 72 65 67 37 37 2b 72 65 67 | g76-reg00)/reg01;..y=(-reg77+reg |
efe0 | 30 32 29 2f 72 65 67 30 31 2b 28 69 2d 2e 35 29 2f 72 65 67 30 31 3b 0d 0a 72 65 64 3d 2e 33 3b | 02)/reg01+(i-.5)/reg01;..red=.3; |
f000 | 62 6c 75 65 3d 2e 33 3b 67 72 65 65 6e 3d 2e 37 3b 00 00 00 00 00 19 00 00 00 2f 2f 20 63 61 6d | blue=.3;green=.7;.........//.cam |
f020 | 65 72 61 20 74 61 72 67 65 74 20 73 63 6f 70 65 20 31 00 04 00 00 00 6e 3d 32 00 02 00 00 00 01 | era.target.scope.1.....n=2...... |
f040 | 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 99 00 00 00 01 5b 00 00 00 78 3d 28 72 65 67 37 36 | ...........$........[...x=(reg76 |
f060 | 2d 72 65 67 30 30 29 2f 72 65 67 30 31 2b 28 69 2d 2e 35 29 2f 72 65 67 30 31 2a 68 2f 77 3b 0d | -reg00)/reg01+(i-.5)/reg01*h/w;. |
f080 | 0a 79 3d 28 2d 72 65 67 37 37 2b 72 65 67 30 32 29 2f 72 65 67 30 31 3b 0d 0a 72 65 64 3d 2e 33 | .y=(-reg77+reg02)/reg01;..red=.3 |
f0a0 | 3b 62 6c 75 65 3d 2e 33 3b 67 72 65 65 6e 3d 2e 37 3b 00 00 00 00 00 19 00 00 00 2f 2f 20 63 61 | ;blue=.3;green=.7;.........//.ca |
f0c0 | 6d 65 72 61 20 74 61 72 67 65 74 20 73 63 6f 70 65 20 32 00 04 00 00 00 6e 3d 32 00 02 00 00 00 | mera.target.scope.2.....n=2..... |
f0e0 | 01 00 00 00 ff ff ff 00 01 00 00 00 50 85 c3 02 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 | ............P...Acko.net:.Texer. |
f100 | 49 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | II.............................. |
f120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
f220 | 00 00 00 00 01 00 00 00 00 00 00 00 03 00 00 00 6e 3d 31 39 00 00 00 78 70 3d 72 65 67 30 38 2a | ................n=19...xp=reg08* |
f240 | 2e 35 2b 78 70 2a 2e 35 3b 0d 0a 79 70 3d 72 65 67 30 39 2a 2e 35 2b 79 70 2a 2e 35 3b 0d 0a 64 | .5+xp*.5;..yp=reg09*.5+yp*.5;..d |
f260 | 70 3d 64 70 2a 2e 39 2b 72 65 67 31 39 2a 2e 31 14 00 00 00 2f 2f 20 6d 6f 75 73 65 20 70 6f 73 | p=dp*.9+reg19*.1....//.mouse.pos |
f280 | 20 74 65 78 65 72 20 31 70 00 00 00 78 3d 28 78 70 2d 72 65 67 30 30 29 2f 72 65 67 30 31 3b 79 | .texer.1p...x=(xp-reg00)/reg01;y |
f2a0 | 3d 2d 28 79 70 2d 72 65 67 30 32 29 2f 72 65 67 30 31 3b 0d 0a 72 65 64 3d 2e 33 2b 64 70 2a 2e | =-(yp-reg02)/reg01;..red=.3+dp*. |
f2c0 | 37 3b 67 72 65 65 6e 3d 2e 33 3b 62 6c 75 65 3d 31 2d 64 70 2a 2e 37 3b 73 69 7a 65 78 3d 2e 33 | 7;green=.3;blue=1-dp*.7;sizex=.3 |
f2e0 | 2f 72 65 67 30 31 2a 31 30 3b 73 69 7a 65 79 3d 2e 33 2f 72 65 67 30 31 2a 31 30 3b 50 85 c3 02 | /reg01*10;sizey=.3/reg01*10;P... |
f300 | 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | Acko.net:.Texer.II.............. |
f320 | c7 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
f420 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 03 00 00 00 | ................................ |
f440 | 6e 3d 31 26 00 00 00 78 70 3d 72 65 67 30 38 2a 2e 35 2b 78 70 2a 2e 35 3b 0d 0a 79 70 3d 72 65 | n=1&...xp=reg08*.5+xp*.5;..yp=re |
f460 | 67 30 39 2a 2e 35 2b 79 70 2a 2e 35 3b 14 00 00 00 2f 2f 20 6d 6f 75 73 65 20 70 6f 73 20 74 65 | g09*.5+yp*.5;....//.mouse.pos.te |
f480 | 78 65 72 20 32 62 00 00 00 78 3d 28 78 70 2d 72 65 67 30 30 29 2f 72 65 67 30 31 3b 79 3d 2d 28 | xer.2b...x=(xp-reg00)/reg01;y=-( |
f4a0 | 79 70 2d 72 65 67 30 32 29 2f 72 65 67 30 31 3b 0d 0a 72 65 64 3d 31 3b 67 72 65 65 6e 3d 31 3b | yp-reg02)/reg01;..red=1;green=1; |
f4c0 | 62 6c 75 65 3d 31 3b 73 69 7a 65 78 3d 2e 32 2f 72 65 67 30 31 2a 31 30 3b 73 69 7a 65 79 3d 2e | blue=1;sizex=.2/reg01*10;sizey=. |
f4e0 | 32 2f 72 65 67 30 31 2a 31 30 3b 24 00 00 00 bb 04 00 00 01 68 01 00 00 64 79 3d 30 3b 0d 0a 64 | 2/reg01*10;$........h...dy=0;..d |
f500 | 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 | x=10*sin(i*2*$pi);..dz=-10*cos(i |
f520 | 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 | *2*$pi);....dy=dy-oy;dx=-dx+ox;d |
f540 | 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d | z=dz-oz;..dx1=dx*cy-dz*sy;..dz1= |
f560 | 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d | dx*sy+dz*cy;..dy2=dy*cx-dz1*sx;. |
f580 | 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 | .dz2=dy*sx+dz1*cx;..dx3=dx1*cz-d |
f5a0 | 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a | y2*sz;..dy3=dx1*sz+dy2*cz;....dz |
f5c0 | 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a | 3=max(dz2,.01);..x=-(dx3)/dz3;.. |
f5e0 | 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 | y=-(dy3)/dz3;..skip=equal(dz3,.0 |
f600 | 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 | 1);....c=1-dz3*.04;..red=c;..gre |
f620 | 65 6e 3d 63 2b 63 2a 6c 6f 63 6b 65 64 2a 2e 35 3b 0d 0a 62 6c 75 65 3d 63 2d 63 2a 6c 6f 63 6b | en=c+c*locked*.5;..blue=c-c*lock |
f640 | 65 64 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 | ed*.5;....num=num+1;..sw=-sw;... |
f660 | f8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 | ....t=t+1;deltatime.=.gettime(ti |
f680 | 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 | me);fr=fr*.9+deltatime*.1;framer |
f6a0 | 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 | ate=1/fr;time.=.gettime(0);tb.=. |
f6c0 | 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d | tb+1;timeb.=.gettime(gt);xmouse= |
f6e0 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | getkbmouse(1);ymouse=getkbmouse( |
f700 | 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 2);xmousec=min(max(xmouse,-1),1) |
f720 | 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c | ;ymousec=min(max(ymouse,-1),1);l |
f740 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 | mouse.=.getkbmouse(3);rmouse.=.g |
f760 | 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(4);shift.=.getkbmouse( |
f780 | 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b | 5);control.=.getkbmouse(17);back |
f7a0 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 | space.=.getkbmouse(8);space.=.ge |
f7c0 | 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(32);right.=.getkbmouse( |
f7e0 | 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 | 39);left.=.getkbmouse(37);up.=.g |
f800 | 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(38);down.=.getkbmouse( |
f820 | 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e | 40);num.=.1;sw.=.1;sizechange=bn |
f840 | 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 | ot(equal(oh,h))|bnot(equal(ow,w) |
f860 | 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c | );oh=h;ow=w;hw=h/w;click=bnot(ol |
f880 | 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 0d 0a 0d 0a 6c 6f 63 6b 65 64 3d | m)*lmouse;olm=lmouse;....locked= |
f8a0 | 6c 6f 63 6b 65 64 2a 2e 39 2b 72 65 67 39 34 2a 2e 31 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a | locked*.9+reg94*.1;....n=sqrt(h* |
f8c0 | 77 29 2a 2e 34 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 | w)*.4;..linesize=1;..ox=reg00;.r |
f8e0 | 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f | x=reg03;..oy=reg01;.ry=reg04;..o |
f900 | 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b | z=reg02;.rz=-reg05;..sx=sin(rx); |
f920 | 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 | sy=sin(ry);sz=sin(rz);..cx=cos(r |
f940 | 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 | x);cy=cos(ry);cz=cos(rz);....... |
f960 | 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 23 00 00 00 2f 2f 20 63 69 | tb=0;..gt.=.gettime(0).#...//.ci |
f980 | 72 63 6c 65 20 76 69 73 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 63 6f 70 65 00 02 00 | rcle.vis.representation.scope... |
f9a0 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 95 04 00 00 01 5b 01 00 00 64 79 3d 30 3b | ..............$........[...dy=0; |
f9c0 | 0d 0a 64 78 3d 73 77 2a 31 30 3b 0d 0a 64 7a 3d 66 6c 6f 6f 72 28 6e 75 6d 2f 32 29 2a 31 2d 31 | ..dx=sw*10;..dz=floor(num/2)*1-1 |
f9e0 | 30 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f | 0;....dy=dy-oy;dx=-dx+ox;dz=dz-o |
fa00 | 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b | z;..dx1=dx*cy-dz*sy;..dz1=dx*sy+ |
fa20 | 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 | dz*cy;..dy2=dy*cx-dz1*sx;..dz2=d |
fa40 | 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b | y*sx+dz1*cx;..dx3=dx1*cz-dy2*sz; |
fa60 | 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 | ..dy3=dx1*sz+dy2*cz;....dz3=max( |
fa80 | 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d 28 64 79 | dz2,.01);..x=-(dx3)/dz3;..y=-(dy |
faa0 | 33 29 2f 64 7a 33 3b 0d 0a 0d 0a 63 3d 6e 75 6d 25 32 2a 2e 35 2b 65 71 75 61 6c 28 6e 75 6d 25 | 3)/dz3;....c=num%2*.5+equal(num% |
fac0 | 34 2c 31 29 2a 2e 33 35 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 2b 63 2a 6c 6f 63 | 4,1)*.35;..red=c;..green=c+c*loc |
fae0 | 6b 65 64 2a 2e 35 3b 0d 0a 62 6c 75 65 3d 63 2d 63 2a 6c 6f 63 6b 65 64 2a 2e 35 3b 0d 0a 0d 0a | ked*.5;..blue=c-c*locked*.5;.... |
fb00 | 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 ee 02 00 00 74 3d 74 2b 31 3b | num=num+1;..sw=-sw;.......t=t+1; |
fb20 | 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a | deltatime.=.gettime(time);fr=fr* |
fb40 | 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 | .9+deltatime*.1;framerate=1/fr;t |
fb60 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 | ime.=.gettime(0);tb.=.tb+1;timeb |
fb80 | 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | .=.gettime(gt);xmouse=getkbmouse |
fba0 | 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 | (1);ymouse=getkbmouse(2);xmousec |
fbc0 | 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d | =min(max(xmouse,-1),1);ymousec=m |
fbe0 | 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 | in(max(ymouse,-1),1);lmouse.=.ge |
fc00 | 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(3);rmouse.=.getkbmouse( |
fc20 | 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c | 4);shift.=.getkbmouse(5);control |
fc40 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 | .=.getkbmouse(17);backspace.=.ge |
fc60 | 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(8);space.=.getkbmouse(3 |
fc80 | 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d | 2);right.=.getkbmouse(39);left.= |
fca0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | .getkbmouse(37);up.=.getkbmouse( |
fcc0 | 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 | 38);down.=.getkbmouse(40);num.=. |
fce0 | 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f | 1;sw.=.1;sizechange=bnot(equal(o |
fd00 | 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d | h,h))|bnot(equal(ow,w));oh=h;ow= |
fd20 | 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b | w;hw=h/w;click=bnot(olm)*lmouse; |
fd40 | 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 0d 0a 0d 0a 6c 6f 63 6b 65 64 3d 6c 6f 63 6b 65 64 2a 2e 39 2b | olm=lmouse;....locked=locked*.9+ |
fd60 | 72 65 67 39 34 2a 2e 31 3b 0d 0a 0d 0a 6e 3d 34 30 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d | reg94*.1;....n=40;..linesize=1;. |
fd80 | 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 | .ox=reg00;.rx=reg03;..oy=reg01;. |
fda0 | 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d | ry=reg04;..oz=reg02;.rz=-reg05;. |
fdc0 | 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a | .sx=sin(rx);sy=sin(ry);sz=sin(rz |
fde0 | 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 | );..cx=cos(rx);cy=cos(ry);cz=cos |
fe00 | 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 | (rz);.......tb=0;..gt.=.gettime( |
fe20 | 30 29 00 14 00 00 00 2f 2f 20 68 6f 72 69 7a 6f 6e 74 61 6c 20 6c 69 6e 65 73 00 02 00 00 00 01 | 0).....//.horizontal.lines...... |
fe40 | 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 93 04 00 00 01 5b 01 00 00 64 79 3d 30 3b 0d 0a 64 | ...........$........[...dy=0;..d |
fe60 | 78 3d 66 6c 6f 6f 72 28 6e 75 6d 2f 32 29 2a 31 2d 31 30 3b 0d 0a 64 7a 3d 73 77 2a 31 30 3b 0d | x=floor(num/2)*1-10;..dz=sw*10;. |
fe80 | 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d | ...dy=dy-oy;dx=-dx+ox;dz=dz-oz;. |
fea0 | 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a | .dx1=dx*cy-dz*sy;..dz1=dx*sy+dz* |
fec0 | 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 | cy;..dy2=dy*cx-dz1*sx;..dz2=dy*s |
fee0 | 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 | x+dz1*cx;..dx3=dx1*cz-dy2*sz;..d |
ff00 | 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 | y3=dx1*sz+dy2*cz;....dz3=max(dz2 |
ff20 | 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f | ,.01);..x=-(dx3)/dz3;..y=-(dy3)/ |
ff40 | 64 7a 33 3b 0d 0a 0d 0a 63 3d 6e 75 6d 25 32 2a 2e 35 2b 65 71 75 61 6c 28 6e 75 6d 25 34 2c 31 | dz3;....c=num%2*.5+equal(num%4,1 |
ff60 | 29 2a 2e 33 35 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 2b 63 2a 6c 6f 63 6b 65 64 | )*.35;..red=c;..green=c+c*locked |
ff80 | 2a 2e 35 3b 0d 0a 62 6c 75 65 3d 63 2d 63 2a 6c 6f 63 6b 65 64 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d | *.5;..blue=c-c*locked*.5;....num |
ffa0 | 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 ee 02 00 00 74 3d 74 2b 31 3b 64 65 6c | =num+1;..sw=-sw;.......t=t+1;del |
ffc0 | 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b | tatime.=.gettime(time);fr=fr*.9+ |
ffe0 | 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 | deltatime*.1;framerate=1/fr;time |
10000 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 | .=.gettime(0);tb.=.tb+1;timeb.=. |
10020 | 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 | gettime(gt);xmouse=getkbmouse(1) |
10040 | 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 | ;ymouse=getkbmouse(2);xmousec=mi |
10060 | 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 | n(max(xmouse,-1),1);ymousec=min( |
10080 | 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | max(ymouse,-1),1);lmouse.=.getkb |
100a0 | 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b | mouse(3);rmouse.=.getkbmouse(4); |
100c0 | 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 | shift.=.getkbmouse(5);control.=. |
100e0 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | getkbmouse(17);backspace.=.getkb |
10100 | 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b | mouse(8);space.=.getkbmouse(32); |
10120 | 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 | right.=.getkbmouse(39);left.=.ge |
10140 | 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 | tkbmouse(37);up.=.getkbmouse(38) |
10160 | 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 | ;down.=.getkbmouse(40);num.=.1;s |
10180 | 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | w.=.1;sizechange=bnot(equal(oh,h |
101a0 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
101c0 | 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d | w=h/w;click=bnot(olm)*lmouse;olm |
101e0 | 3d 6c 6d 6f 75 73 65 3b 0d 0a 0d 0a 6c 6f 63 6b 65 64 3d 6c 6f 63 6b 65 64 2a 2e 39 2b 72 65 67 | =lmouse;....locked=locked*.9+reg |
10200 | 39 34 2a 2e 31 3b 0d 0a 0d 0a 6e 3d 34 30 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 | 94*.1;....n=40;..linesize=1;..ox |
10220 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
10240 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
10260 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
10280 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
102a0 | 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 | );.......tb=0;..gt.=.gettime(0). |
102c0 | 12 00 00 00 2f 2f 20 76 65 72 74 69 63 61 6c 20 6c 69 6e 65 73 00 02 00 00 00 01 00 00 00 ff ff | ....//.vertical.lines........... |
102e0 | ff 00 01 00 00 00 28 00 00 00 04 00 00 00 00 00 01 80 24 00 00 00 ca 04 00 00 01 7f 01 00 00 64 | ......(...........$............d |
10300 | 79 3d 30 3b 0d 0a 64 78 3d 30 3b 0d 0a 64 7a 3d 28 69 2a 32 2d 31 29 2a 31 30 3b 0d 0a 0d 0a 64 | y=0;..dx=0;..dz=(i*2-1)*10;....d |
10320 | 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 | y=dy-oy;dx=-dx+ox;dz=dz-oz;..dx1 |
10340 | 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d | =dx*cy-dz*sy;..dz1=dx*sy+dz*cy;. |
10360 | 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a | .dy2=dy*cx-dz1*sx;..dz2=dy*sx+dz |
10380 | 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 | 1*cx;..dx3=dx1*cz-dy2*sz;..dy3=d |
103a0 | 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 | x1*sz+dy2*cz;....dz3=max(dz2,.01 |
103c0 | 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b | );..x=-(dx3)/dz3;..y=-(dy3)/dz3; |
103e0 | 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 72 65 64 3d 73 71 | ..skip=equal(dz3,.01);....red=sq |
10400 | 72 74 28 73 69 6e 28 69 2a 24 70 69 2b 24 70 69 29 29 3b 0d 0a 67 72 65 65 6e 3d 73 71 72 74 28 | rt(sin(i*$pi+$pi));..green=sqrt( |
10420 | 73 69 6e 28 69 2a 24 70 69 2b 24 70 69 29 29 2b 6c 6f 63 6b 65 64 2a 2e 33 35 3b 0d 0a 62 6c 75 | sin(i*$pi+$pi))+locked*.35;..blu |
10440 | 65 3d 73 71 72 74 28 73 69 6e 28 69 2a 24 70 69 2b 24 70 69 29 29 2b 31 2d 6c 6f 63 6b 65 64 2a | e=sqrt(sin(i*$pi+$pi))+1-locked* |
10460 | 31 2e 33 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 04 03 | 1.3;....num=num+1;..sw=-sw;..... |
10480 | 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 | ..t=t+1;deltatime.=.gettime(time |
104a0 | 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 | );fr=fr*.9+deltatime*.1;framerat |
104c0 | 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 | e=1/fr;time.=.gettime(0);tb.=.tb |
104e0 | 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 | +1;timeb.=.gettime(gt);xmouse=ge |
10500 | 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 | tkbmouse(1);ymouse=getkbmouse(2) |
10520 | 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 | ;xmousec=min(max(xmouse,-1),1);y |
10540 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f | mousec=min(max(ymouse,-1),1);lmo |
10560 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 | use.=.getkbmouse(3);rmouse.=.get |
10580 | 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 | kbmouse(4);shift.=.getkbmouse(5) |
105a0 | 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 | ;control.=.getkbmouse(17);backsp |
105c0 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b | ace.=.getkbmouse(8);space.=.getk |
105e0 | 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 | bmouse(32);right.=.getkbmouse(39 |
10600 | 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 | );left.=.getkbmouse(37);up.=.get |
10620 | 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 | kbmouse(38);down.=.getkbmouse(40 |
10640 | 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 | );num.=.1;sw.=.1;sizechange=bnot |
10660 | 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b | (equal(oh,h))|bnot(equal(ow,w)); |
10680 | 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 | oh=h;ow=w;hw=h/w;click=bnot(olm) |
106a0 | 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 0d 0a 0d 0a 6c 6f 63 6b 65 64 3d 6c 6f | *lmouse;olm=lmouse;....locked=lo |
106c0 | 63 6b 65 64 2a 2e 39 2b 72 65 67 39 34 2a 2e 31 3b 0d 0a 0d 0a 6e 3d 68 2a 2e 32 35 3b 0d 0a 6c | cked*.9+reg94*.1;....n=h*.25;..l |
106e0 | 69 6e 65 73 69 7a 65 3d 32 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d | inesize=2;..ox=reg00;.rx=reg03;. |
10700 | 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 | .oy=reg01;.ry=reg04;..oz=reg02;. |
10720 | 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 | rz=-reg05;..sx=sin(rx);sy=sin(ry |
10740 | 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 | );sz=sin(rz);..cx=cos(rx);cy=cos |
10760 | 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 70 6f 73 3d 70 6f 73 2a 2e 39 2b 72 65 67 | (ry);cz=cos(rz);..pos=pos*.9+reg |
10780 | 31 39 2a 2e 31 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | 19*.1.....tb=0;..gt.=.gettime(0) |
107a0 | 00 0f 00 00 00 2f 2f 20 7a 20 61 78 69 73 20 6c 69 6e 65 00 02 00 00 00 01 00 00 00 ff ff ff 00 | .....//.z.axis.line............. |
107c0 | 01 00 00 00 24 00 00 00 cc 04 00 00 01 81 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 28 69 2a 32 2d | ....$............dy=0;..dx=(i*2- |
107e0 | 31 29 2a 31 30 3b 0d 0a 64 7a 3d 30 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 | 1)*10;..dz=0;....dy=dy-oy;dx=-dx |
10800 | 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d | +ox;dz=dz-oz;..dx1=dx*cy-dz*sy;. |
10820 | 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 | .dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1 |
10840 | 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 | *sx;..dz2=dy*sx+dz1*cx;..dx3=dx1 |
10860 | 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d | *cz-dy2*sz;..dy3=dx1*sz+dy2*cz;. |
10880 | 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 | ...dz3=max(dz2,.01);..x=-(dx3)/d |
108a0 | 7a 33 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | z3;..y=-(dy3)/dz3;..skip=equal(d |
108c0 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 0d 0a 72 65 64 3d 73 71 72 74 28 73 69 6e 28 69 2a 24 70 69 | z3,.01);......red=sqrt(sin(i*$pi |
108e0 | 2b 24 70 69 29 29 3b 0d 0a 67 72 65 65 6e 3d 73 71 72 74 28 73 69 6e 28 69 2a 24 70 69 2b 24 70 | +$pi));..green=sqrt(sin(i*$pi+$p |
10900 | 69 29 29 2b 6c 6f 63 6b 65 64 2a 2e 33 35 3b 0d 0a 62 6c 75 65 3d 73 71 72 74 28 73 69 6e 28 69 | i))+locked*.35;..blue=sqrt(sin(i |
10920 | 2a 24 70 69 2b 24 70 69 29 29 2b 31 2d 6c 6f 63 6b 65 64 2a 31 2e 33 3b 0d 0a 0d 0a 6e 75 6d 3d | *$pi+$pi))+1-locked*1.3;....num= |
10940 | 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 04 03 00 00 74 3d 74 2b 31 3b 64 65 6c 74 | num+1;..sw=-sw;.......t=t+1;delt |
10960 | 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 | atime.=.gettime(time);fr=fr*.9+d |
10980 | 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 | eltatime*.1;framerate=1/fr;time. |
109a0 | 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 | =.gettime(0);tb.=.tb+1;timeb.=.g |
109c0 | 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b | ettime(gt);xmouse=getkbmouse(1); |
109e0 | 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e | ymouse=getkbmouse(2);xmousec=min |
10a00 | 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d | (max(xmouse,-1),1);ymousec=min(m |
10a20 | 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | ax(ymouse,-1),1);lmouse.=.getkbm |
10a40 | 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 | ouse(3);rmouse.=.getkbmouse(4);s |
10a60 | 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 | hift.=.getkbmouse(5);control.=.g |
10a80 | 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | etkbmouse(17);backspace.=.getkbm |
10aa0 | 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 | ouse(8);space.=.getkbmouse(32);r |
10ac0 | 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 | ight.=.getkbmouse(39);left.=.get |
10ae0 | 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b | kbmouse(37);up.=.getkbmouse(38); |
10b00 | 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 | down.=.getkbmouse(40);num.=.1;sw |
10b20 | 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 | .=.1;sizechange=bnot(equal(oh,h) |
10b40 | 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 | )|bnot(equal(ow,w));oh=h;ow=w;hw |
10b60 | 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d | =h/w;click=bnot(olm)*lmouse;olm= |
10b80 | 6c 6d 6f 75 73 65 3b 0d 0a 0d 0a 6c 6f 63 6b 65 64 3d 6c 6f 63 6b 65 64 2a 2e 39 2b 72 65 67 39 | lmouse;....locked=locked*.9+reg9 |
10ba0 | 34 2a 2e 31 3b 0d 0a 0d 0a 6e 3d 77 2a 2e 32 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 32 3b 0d 0a | 4*.1;....n=w*.25;..linesize=2;.. |
10bc0 | 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 | ox=reg00;.rx=reg03;..oy=reg01;.r |
10be0 | 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a | y=reg04;..oz=reg02;.rz=-reg05;.. |
10c00 | 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 | sx=sin(rx);sy=sin(ry);sz=sin(rz) |
10c20 | 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 | ;..cx=cos(rx);cy=cos(ry);cz=cos( |
10c40 | 72 7a 29 3b 0d 0a 70 6f 73 3d 70 6f 73 2a 2e 39 2b 72 65 67 31 39 2a 2e 31 00 17 00 00 00 74 62 | rz);..pos=pos*.9+reg19*.1.....tb |
10c60 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 0f 00 00 00 2f 2f 20 78 20 61 78 | =0;..gt.=.gettime(0).....//.x.ax |
10c80 | 69 73 20 6c 69 6e 65 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 | is.line.................(....... |
10ca0 | 00 00 01 80 24 00 00 00 9d 06 00 00 01 8b 02 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d 65 67 61 | ....$............dy=0;..dx=gmega |
10cc0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 20 2f 2f 20 67 65 74 20 70 6f 73 | buf(100*num+1+flo*6);.//.get.pos |
10ce0 | 69 74 69 6f 6e 20 64 61 74 61 20 66 72 6f 6d 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | ition.data.from..dz=gmegabuf(100 |
10d00 | 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 20 2f 2f 20 74 68 65 20 67 6c 6f 62 61 6c 20 61 72 72 | *num+2+flo*6);.//.the.global.arr |
10d20 | 61 79 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f | ay....dy=dy-oy;dx=-dx+ox;dz=dz-o |
10d40 | 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b | z;..dx1=dx*cy-dz*sy;..dz1=dx*sy+ |
10d60 | 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 | dz*cy;..dy2=dy*cx-dz1*sx;..dz2=d |
10d80 | 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b | y*sx+dz1*cx;..dx3=dx1*cz-dy2*sz; |
10da0 | 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 | ..dy3=dx1*sz+dy2*cz;....dz3=max( |
10dc0 | 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d 28 64 79 | dz2,.01);..x=-(dx3)/dz3;..y=-(dy |
10de0 | 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d | 3)/dz3;..skip=equal(dz3,.01);... |
10e00 | 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f | .drawmode=gmegabuf(100*num+3+flo |
10e20 | 2a 36 29 3b 20 2f 2f 20 67 65 74 20 76 69 73 69 62 69 6c 69 74 79 20 64 61 74 61 0d 0a 72 65 64 | *6);.//.get.visibility.data..red |
10e40 | 3d 64 72 61 77 6d 6f 64 65 2a 74 79 70 65 3b 20 2f 2f 20 62 72 69 67 68 74 20 6f 72 20 64 61 72 | =drawmode*type;.//.bright.or.dar |
10e60 | 6b 20 72 65 64 3f 0d 0a 67 72 65 65 6e 3d 30 3b 0d 0a 62 6c 75 65 3d 30 3b 0d 0a 69 66 28 62 65 | k.red?..green=0;..blue=0;..if(be |
10e80 | 6c 6f 77 28 72 65 64 2c 2e 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 31 29 2c 61 73 73 69 67 | low(red,.1),assign(skip,1),assig |
10ea0 | 6e 28 73 6b 69 70 2c 30 29 29 3b 20 2f 2f 73 6b 69 70 20 69 66 20 6e 6f 74 68 69 6e 67 20 69 73 | n(skip,0));.//skip.if.nothing.is |
10ec0 | 20 62 65 69 6e 67 20 64 72 61 77 6e 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 20 2f 2f 20 69 6e | .being.drawn....num=num+1;.//.in |
10ee0 | 63 72 65 6d 65 6e 74 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 0d 0a 73 77 3d 2d 73 77 3b 20 2f 2f | crement.point.number..sw=-sw;.// |
10f00 | 20 74 68 69 73 20 6c 69 6e 65 20 69 73 6e 27 74 20 61 63 74 75 61 6c 6c 79 20 75 73 65 64 20 66 | .this.line.isn't.actually.used.f |
10f20 | 6f 72 20 61 6e 79 74 68 69 6e 67 20 69 6e 20 74 68 69 73 20 73 63 6f 70 65 0d 0a 00 85 03 00 00 | or.anything.in.this.scope....... |
10f40 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
10f60 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
10f80 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
10fa0 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
10fc0 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
10fe0 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
11000 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
11020 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
11040 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
11060 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
11080 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
110a0 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
110c0 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
110e0 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
11100 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
11120 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
11140 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c | =h;ow=w;hw=h/w;click=bnot(olm)*l |
11160 | 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 0d 0a 0d 0a 74 79 70 65 3d 28 31 2d 28 72 65 | mouse;olm=lmouse;....type=(1-(re |
11180 | 67 37 31 2d 66 6c 6f 29 2a 2e 35 29 3b 20 2f 2f 20 74 79 70 65 3d 2e 35 20 69 66 20 6f 6e 20 66 | g71-flo)*.5);.//.type=.5.if.on.f |
111a0 | 6c 6f 6f 72 20 62 65 6c 6f 77 2c 20 31 20 69 66 20 63 75 72 72 65 6e 74 20 66 6c 6f 6f 72 2c 20 | loor.below,.1.if.current.floor,. |
111c0 | 3c 2e 35 20 6f 72 20 3e 31 20 69 66 20 6e 6f 74 20 62 65 69 6e 67 20 64 72 61 77 6e 0d 0a 6e 3d | <.5.or.>1.if.not.being.drawn..n= |
111e0 | 72 65 67 38 31 2a 61 62 6f 76 65 28 74 79 70 65 2c 30 29 2a 62 65 6c 6f 77 28 66 6c 6f 2d 31 2c | reg81*above(type,0)*below(flo-1, |
11200 | 72 65 67 37 31 29 3b 20 2f 2f 20 66 69 67 75 72 65 20 6f 75 74 20 69 66 20 69 74 20 6e 65 65 64 | reg71);.//.figure.out.if.it.need |
11220 | 73 20 74 6f 20 62 65 20 64 72 61 77 6e 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 33 3b 0d 0a 6f 78 | s.to.be.drawn....linesize=3;..ox |
11240 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
11260 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
11280 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
112a0 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
112c0 | 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 | );.......tb=0;..gt.=.gettime(0). |
112e0 | 55 00 00 00 66 6c 6f 3d 31 20 2f 2f 20 66 6f 72 20 74 68 69 73 20 61 6e 64 20 73 63 6f 70 65 73 | U...flo=1.//.for.this.and.scopes |
11300 | 20 62 65 6c 6f 77 2c 20 66 6c 6f 20 65 71 75 61 6c 73 20 74 68 65 20 0d 0a 2f 2f 20 66 6c 6f 6f | .below,.flo.equals.the...//.floo |
11320 | 72 20 6e 75 6d 62 65 72 20 74 68 65 20 73 63 6f 70 65 20 64 72 61 77 73 00 02 00 00 00 01 00 00 | r.number.the.scope.draws........ |
11340 | 00 ff ff ff 00 01 00 00 00 24 00 00 00 04 05 00 00 01 b6 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d | .........$............dy=0;..dx= |
11360 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 | gmegabuf(100*num+1+flo*6);..dz=g |
11380 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d | megabuf(100*num+2+flo*6);....dy= |
113a0 | 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 | dy-oy;dx=-dx+ox;dz=dz-oz;..dx1=d |
113c0 | 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 | x*cy-dz*sy;..dz1=dx*sy+dz*cy;..d |
113e0 | 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a | y2=dy*cx-dz1*sx;..dz2=dy*sx+dz1* |
11400 | 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 | cx;..dx3=dx1*cz-dy2*sz;..dy3=dx1 |
11420 | 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b | *sz+dy2*cz;....dz3=max(dz2,.01); |
11440 | 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | ..x=-(dx3)/dz3;..y=-(dy3)/dz3;.. |
11460 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 | skip=equal(dz3,.01);....drawmode |
11480 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 72 65 64 | =gmegabuf(100*num+3+flo*6);..red |
114a0 | 3d 64 72 61 77 6d 6f 64 65 2a 74 79 70 65 3b 0d 0a 67 72 65 65 6e 3d 30 3b 0d 0a 62 6c 75 65 3d | =drawmode*type;..green=0;..blue= |
114c0 | 30 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 72 65 64 2c 2e 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 | 0;..if(below(red,.1),assign(skip |
114e0 | 2c 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 30 29 29 3b 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b | ,1),assign(skip,0));..num=num+1; |
11500 | 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 10 03 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 | ..sw=-sw;.......t=t+1;deltatime. |
11520 | 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 | =.gettime(time);fr=fr*.9+deltati |
11540 | 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 | me*.1;framerate=1/fr;time.=.gett |
11560 | 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 | ime(0);tb.=.tb+1;timeb.=.gettime |
11580 | 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 | (gt);xmouse=getkbmouse(1);ymouse |
115a0 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 | =getkbmouse(2);xmousec=min(max(x |
115c0 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f | mouse,-1),1);ymousec=min(max(ymo |
115e0 | 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | use,-1),1);lmouse.=.getkbmouse(3 |
11600 | 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d | );rmouse.=.getkbmouse(4);shift.= |
11620 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f | .getkbmouse(5);control.=.getkbmo |
11640 | 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 | use(17);backspace.=.getkbmouse(8 |
11660 | 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d | );space.=.getkbmouse(32);right.= |
11680 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(39);left.=.getkbmous |
116a0 | 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d | e(37);up.=.getkbmouse(38);down.= |
116c0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 | .getkbmouse(40);num.=.1;sw.=.1;s |
116e0 | 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 | izechange=bnot(equal(oh,h))|bnot |
11700 | 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 | (equal(ow,w));oh=h;ow=w;hw=h/w;c |
11720 | 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 | lick=bnot(olm)*lmouse;olm=lmouse |
11740 | 3b 0d 0a 0d 0a 74 79 70 65 3d 28 31 2d 28 72 65 67 37 31 2d 66 6c 6f 29 2a 2e 35 29 3b 0d 0a 6e | ;....type=(1-(reg71-flo)*.5);..n |
11760 | 3d 72 65 67 38 32 2a 61 62 6f 76 65 28 74 79 70 65 2c 30 29 2a 62 65 6c 6f 77 28 66 6c 6f 2d 31 | =reg82*above(type,0)*below(flo-1 |
11780 | 2c 72 65 67 37 31 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 33 3b 0d 0a 6f 78 3d 72 65 67 30 | ,reg71);....linesize=3;..ox=reg0 |
117a0 | 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 | 0;.rx=reg03;..oy=reg01;.ry=reg04 |
117c0 | 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 | ;..oz=reg02;.rz=-reg05;..sx=sin( |
117e0 | 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 | rx);sy=sin(ry);sz=sin(rz);..cx=c |
11800 | 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 | os(rx);cy=cos(ry);cz=cos(rz);... |
11820 | 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 | ....tb=0;..gt.=.gettime(0).....f |
11840 | 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 04 05 00 00 01 b6 01 | lo=2.................$.......... |
11860 | 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 | ..dy=0;..dx=gmegabuf(100*num+1+f |
11880 | 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c | lo*6);..dz=gmegabuf(100*num+2+fl |
118a0 | 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 | o*6);....dy=dy-oy;dx=-dx+ox;dz=d |
118c0 | 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a | z-oz;..dx1=dx*cy-dz*sy;..dz1=dx* |
118e0 | 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a | sy+dz*cy;..dy2=dy*cx-dz1*sx;..dz |
11900 | 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a | 2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2* |
11920 | 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d | sz;..dy3=dx1*sz+dy2*cz;....dz3=m |
11940 | 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d | ax(dz2,.01);..x=-(dx3)/dz3;..y=- |
11960 | 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b | (dy3)/dz3;..skip=equal(dz3,.01); |
11980 | 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b | ....drawmode=gmegabuf(100*num+3+ |
119a0 | 66 6c 6f 2a 36 29 3b 0d 0a 72 65 64 3d 64 72 61 77 6d 6f 64 65 2a 74 79 70 65 3b 0d 0a 67 72 65 | flo*6);..red=drawmode*type;..gre |
119c0 | 65 6e 3d 30 3b 0d 0a 62 6c 75 65 3d 30 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 72 65 64 2c 2e 31 29 | en=0;..blue=0;..if(below(red,.1) |
119e0 | 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 30 29 29 3b | ,assign(skip,1),assign(skip,0)); |
11a00 | 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 10 03 00 00 74 3d 74 2b | ..num=num+1;..sw=-sw;.......t=t+ |
11a20 | 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 | 1;deltatime.=.gettime(time);fr=f |
11a40 | 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 | r*.9+deltatime*.1;framerate=1/fr |
11a60 | 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d | ;time.=.gettime(0);tb.=.tb+1;tim |
11a80 | 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | eb.=.gettime(gt);xmouse=getkbmou |
11aa0 | 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 | se(1);ymouse=getkbmouse(2);xmous |
11ac0 | 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 | ec=min(max(xmouse,-1),1);ymousec |
11ae0 | 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 | =min(max(ymouse,-1),1);lmouse.=. |
11b00 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(3);rmouse.=.getkbmous |
11b20 | 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 | e(4);shift.=.getkbmouse(5);contr |
11b40 | 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 | ol.=.getkbmouse(17);backspace.=. |
11b60 | 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(8);space.=.getkbmouse |
11b80 | 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 | (32);right.=.getkbmouse(39);left |
11ba0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .=.getkbmouse(37);up.=.getkbmous |
11bc0 | 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 | e(38);down.=.getkbmouse(40);num. |
11be0 | 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c | =.1;sw.=.1;sizechange=bnot(equal |
11c00 | 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f | (oh,h))|bnot(equal(ow,w));oh=h;o |
11c20 | 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 | w=w;hw=h/w;click=bnot(olm)*lmous |
11c40 | 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 0d 0a 0d 0a 74 79 70 65 3d 28 31 2d 28 72 65 67 37 31 2d | e;olm=lmouse;....type=(1-(reg71- |
11c60 | 66 6c 6f 29 2a 2e 35 29 3b 0d 0a 6e 3d 72 65 67 38 33 2a 61 62 6f 76 65 28 74 79 70 65 2c 30 29 | flo)*.5);..n=reg83*above(type,0) |
11c80 | 2a 62 65 6c 6f 77 28 66 6c 6f 2d 31 2c 72 65 67 37 31 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 | *below(flo-1,reg71);....linesize |
11ca0 | 3d 33 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 | =3;..ox=reg00;.rx=reg03;..oy=reg |
11cc0 | 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 | 01;.ry=reg04;..oz=reg02;.rz=-reg |
11ce0 | 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 | 05;..sx=sin(rx);sy=sin(ry);sz=si |
11d00 | 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a | n(rz);..cx=cos(rx);cy=cos(ry);cz |
11d20 | 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 | =cos(rz);.......tb=0;..gt.=.gett |
11d40 | 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | ime(0).....flo=3................ |
11d60 | 00 24 00 00 00 05 05 00 00 01 b6 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 | .$............dy=0;..dx=gmegabuf |
11d80 | 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 | (100*num+1+flo*6);..dz=gmegabuf( |
11da0 | 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 | 100*num+2+flo*6);....dy=dy-oy;dx |
11dc0 | 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a | =-dx+ox;dz=dz-oz;..dx1=dx*cy-dz* |
11de0 | 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 | sy;..dz1=dx*sy+dz*cy;..dy2=dy*cx |
11e00 | 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 | -dz1*sx;..dz2=dy*sx+dz1*cx;..dx3 |
11e20 | 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a | =dx1*cz-dy2*sz;..dy3=dx1*sz+dy2* |
11e40 | 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 | cz;....dz3=max(dz2,.01);..x=-(dx |
11e60 | 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 | 3)/dz3;..y=-(dy3)/dz3;..skip=equ |
11e80 | 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 | al(dz3,.01);....drawmode=gmegabu |
11ea0 | 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 72 65 64 3d 64 72 61 77 6d 6f 64 | f(100*num+3+flo*6);..red=drawmod |
11ec0 | 65 2a 74 79 70 65 3b 0d 0a 67 72 65 65 6e 3d 30 3b 0d 0a 62 6c 75 65 3d 30 3b 0d 0a 69 66 28 62 | e*type;..green=0;..blue=0;..if(b |
11ee0 | 65 6c 6f 77 28 72 65 64 2c 2e 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 31 29 2c 61 73 73 69 | elow(red,.1),assign(skip,1),assi |
11f00 | 67 6e 28 73 6b 69 70 2c 30 29 29 3b 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 | gn(skip,0));..num=num+1;..sw=-sw |
11f20 | 3b 0d 0a 00 11 03 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d | ;.......t=t+1;deltatime.=.gettim |
11f40 | 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 | e(time);fr=fr*.9+deltatime*.1;fr |
11f60 | 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 | amerate=1/fr;time.=.gettime(0);t |
11f80 | 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f | b.=.tb+1;timeb.=.gettime(gt);xmo |
11fa0 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | use=getkbmouse(1);ymouse=getkbmo |
11fc0 | 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 | use(2);xmousec=min(max(xmouse,-1 |
11fe0 | 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c | ),1);ymousec=min(max(ymouse,-1), |
12000 | 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 | 1);lmouse.=.getkbmouse(3);rmouse |
12020 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(4);shift.=.getkbmo |
12040 | 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b | use(5);control.=.getkbmouse(17); |
12060 | 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 | backspace.=.getkbmouse(8);space. |
12080 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(32);right.=.getkbmo |
120a0 | 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 | use(39);left.=.getkbmouse(37);up |
120c0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(38);down.=.getkbmo |
120e0 | 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 | use(40);num.=.1;sw.=.1;sizechang |
12100 | 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f | e=bnot(equal(oh,h))|bnot(equal(o |
12120 | 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f | w,w));oh=h;ow=w;hw=h/w;click=bno |
12140 | 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 3b 0d 0a 0d 0a 74 79 | t(olm)*lmouse;olm=lmouse;;....ty |
12160 | 70 65 3d 28 31 2d 28 72 65 67 37 31 2d 66 6c 6f 29 2a 2e 35 29 3b 0d 0a 6e 3d 72 65 67 38 34 2a | pe=(1-(reg71-flo)*.5);..n=reg84* |
12180 | 61 62 6f 76 65 28 74 79 70 65 2c 30 29 2a 62 65 6c 6f 77 28 66 6c 6f 2d 31 2c 72 65 67 37 31 29 | above(type,0)*below(flo-1,reg71) |
121a0 | 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 33 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 | ;....linesize=3;..ox=reg00;.rx=r |
121c0 | 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 | eg03;..oy=reg01;.ry=reg04;..oz=r |
121e0 | 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d | eg02;.rz=-reg05;..sx=sin(rx);sy= |
12200 | 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b | sin(ry);sz=sin(rz);..cx=cos(rx); |
12220 | 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d | cy=cos(ry);cz=cos(rz);.......tb= |
12240 | 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 | 0;..gt.=.gettime(0).....flo=4... |
12260 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 05 05 00 00 01 b6 01 00 00 64 79 3d 30 3b | ..............$............dy=0; |
12280 | 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d | ..dx=gmegabuf(100*num+1+flo*6);. |
122a0 | 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dz=gmegabuf(100*num+2+flo*6);.. |
122c0 | 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a | ..dy=dy-oy;dx=-dx+ox;dz=dz-oz;.. |
122e0 | 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 | dx1=dx*cy-dz*sy;..dz1=dx*sy+dz*c |
12300 | 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 | y;..dy2=dy*cx-dz1*sx;..dz2=dy*sx |
12320 | 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 | +dz1*cx;..dx3=dx1*cz-dy2*sz;..dy |
12340 | 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c | 3=dx1*sz+dy2*cz;....dz3=max(dz2, |
12360 | 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 | .01);..x=-(dx3)/dz3;..y=-(dy3)/d |
12380 | 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 | z3;..skip=equal(dz3,.01);....dra |
123a0 | 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b | wmode=gmegabuf(100*num+3+flo*6); |
123c0 | 0d 0a 72 65 64 3d 64 72 61 77 6d 6f 64 65 2a 74 79 70 65 3b 0d 0a 67 72 65 65 6e 3d 30 3b 0d 0a | ..red=drawmode*type;..green=0;.. |
123e0 | 62 6c 75 65 3d 30 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 72 65 64 2c 2e 31 29 2c 61 73 73 69 67 6e | blue=0;..if(below(red,.1),assign |
12400 | 28 73 6b 69 70 2c 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 30 29 29 3b 0d 0a 6e 75 6d 3d 6e | (skip,1),assign(skip,0));..num=n |
12420 | 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 11 03 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | um+1;..sw=-sw;.......t=t+1;delta |
12440 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
12460 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
12480 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
124a0 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
124c0 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
124e0 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
12500 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
12520 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
12540 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
12560 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
12580 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
125a0 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
125c0 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
125e0 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
12600 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
12620 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
12640 | 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c | h/w;click=bnot(olm)*lmouse;olm=l |
12660 | 6d 6f 75 73 65 3b 3b 0d 0a 0d 0a 74 79 70 65 3d 28 31 2d 28 72 65 67 37 31 2d 66 6c 6f 29 2a 2e | mouse;;....type=(1-(reg71-flo)*. |
12680 | 35 29 3b 0d 0a 6e 3d 72 65 67 38 35 2a 61 62 6f 76 65 28 74 79 70 65 2c 30 29 2a 62 65 6c 6f 77 | 5);..n=reg85*above(type,0)*below |
126a0 | 28 66 6c 6f 2d 31 2c 72 65 67 37 31 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 33 3b 0d 0a 6f | (flo-1,reg71);....linesize=3;..o |
126c0 | 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 | x=reg00;.rx=reg03;..oy=reg01;.ry |
126e0 | 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 | =reg04;..oz=reg02;.rz=-reg05;..s |
12700 | 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b | x=sin(rx);sy=sin(ry);sz=sin(rz); |
12720 | 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 | ..cx=cos(rx);cy=cos(ry);cz=cos(r |
12740 | 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | z);.......tb=0;..gt.=.gettime(0) |
12760 | 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 05 | .....flo=5.................$.... |
12780 | 05 00 00 01 b6 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | ........dy=0;..dx=gmegabuf(100*n |
127a0 | 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | um+1+flo*6);..dz=gmegabuf(100*nu |
127c0 | 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f | m+2+flo*6);....dy=dy-oy;dx=-dx+o |
127e0 | 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 | x;dz=dz-oz;..dx1=dx*cy-dz*sy;..d |
12800 | 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 | z1=dx*sy+dz*cy;..dy2=dy*cx-dz1*s |
12820 | 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 | x;..dz2=dy*sx+dz1*cx;..dx3=dx1*c |
12840 | 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d | z-dy2*sz;..dy3=dx1*sz+dy2*cz;... |
12860 | 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 | .dz3=max(dz2,.01);..x=-(dx3)/dz3 |
12880 | 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 | ;..y=-(dy3)/dz3;..skip=equal(dz3 |
128a0 | 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | ,.01);....drawmode=gmegabuf(100* |
128c0 | 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 72 65 64 3d 64 72 61 77 6d 6f 64 65 2a 74 79 70 65 | num+3+flo*6);..red=drawmode*type |
128e0 | 3b 0d 0a 67 72 65 65 6e 3d 30 3b 0d 0a 62 6c 75 65 3d 30 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 72 | ;..green=0;..blue=0;..if(below(r |
12900 | 65 64 2c 2e 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 | ed,.1),assign(skip,1),assign(ski |
12920 | 70 2c 30 29 29 3b 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 11 03 | p,0));..num=num+1;..sw=-sw;..... |
12940 | 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 | ..t=t+1;deltatime.=.gettime(time |
12960 | 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 | );fr=fr*.9+deltatime*.1;framerat |
12980 | 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 | e=1/fr;time.=.gettime(0);tb.=.tb |
129a0 | 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 | +1;timeb.=.gettime(gt);xmouse=ge |
129c0 | 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 | tkbmouse(1);ymouse=getkbmouse(2) |
129e0 | 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 | ;xmousec=min(max(xmouse,-1),1);y |
12a00 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f | mousec=min(max(ymouse,-1),1);lmo |
12a20 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 | use.=.getkbmouse(3);rmouse.=.get |
12a40 | 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 | kbmouse(4);shift.=.getkbmouse(5) |
12a60 | 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 | ;control.=.getkbmouse(17);backsp |
12a80 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b | ace.=.getkbmouse(8);space.=.getk |
12aa0 | 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 | bmouse(32);right.=.getkbmouse(39 |
12ac0 | 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 | );left.=.getkbmouse(37);up.=.get |
12ae0 | 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 | kbmouse(38);down.=.getkbmouse(40 |
12b00 | 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 | );num.=.1;sw.=.1;sizechange=bnot |
12b20 | 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b | (equal(oh,h))|bnot(equal(ow,w)); |
12b40 | 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 | oh=h;ow=w;hw=h/w;click=bnot(olm) |
12b60 | 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 3b 0d 0a 0d 0a 74 79 70 65 3d 28 31 2d | *lmouse;olm=lmouse;;....type=(1- |
12b80 | 28 72 65 67 37 31 2d 66 6c 6f 29 2a 2e 35 29 3b 0d 0a 6e 3d 72 65 67 38 36 2a 61 62 6f 76 65 28 | (reg71-flo)*.5);..n=reg86*above( |
12ba0 | 74 79 70 65 2c 30 29 2a 62 65 6c 6f 77 28 66 6c 6f 2d 31 2c 72 65 67 37 31 29 3b 0d 0a 0d 0a 6c | type,0)*below(flo-1,reg71);....l |
12bc0 | 69 6e 65 73 69 7a 65 3d 33 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d | inesize=3;..ox=reg00;.rx=reg03;. |
12be0 | 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 | .oy=reg01;.ry=reg04;..oz=reg02;. |
12c00 | 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 | rz=-reg05;..sx=sin(rx);sy=sin(ry |
12c20 | 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 | );sz=sin(rz);..cx=cos(rx);cy=cos |
12c40 | 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 | (ry);cz=cos(rz);.......tb=0;..gt |
12c60 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 | .=.gettime(0).....flo=6......... |
12c80 | ff ff ff 00 01 00 00 00 24 00 00 00 05 05 00 00 01 b6 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 | ........$............dy=0;..dx=g |
12ca0 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d | megabuf(100*num+1+flo*6);..dz=gm |
12cc0 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 | egabuf(100*num+2+flo*6);....dy=d |
12ce0 | 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 | y-oy;dx=-dx+ox;dz=dz-oz;..dx1=dx |
12d00 | 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 | *cy-dz*sy;..dz1=dx*sy+dz*cy;..dy |
12d20 | 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 | 2=dy*cx-dz1*sx;..dz2=dy*sx+dz1*c |
12d40 | 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a | x;..dx3=dx1*cz-dy2*sz;..dy3=dx1* |
12d60 | 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d | sz+dy2*cz;....dz3=max(dz2,.01);. |
12d80 | 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 | .x=-(dx3)/dz3;..y=-(dy3)/dz3;..s |
12da0 | 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d | kip=equal(dz3,.01);....drawmode= |
12dc0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 72 65 64 3d | gmegabuf(100*num+3+flo*6);..red= |
12de0 | 64 72 61 77 6d 6f 64 65 2a 74 79 70 65 3b 0d 0a 67 72 65 65 6e 3d 30 3b 0d 0a 62 6c 75 65 3d 30 | drawmode*type;..green=0;..blue=0 |
12e00 | 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 72 65 64 2c 2e 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c | ;..if(below(red,.1),assign(skip, |
12e20 | 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 30 29 29 3b 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d | 1),assign(skip,0));..num=num+1;. |
12e40 | 0a 73 77 3d 2d 73 77 3b 0d 0a 00 11 03 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d | .sw=-sw;.......t=t+1;deltatime.= |
12e60 | 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d | .gettime(time);fr=fr*.9+deltatim |
12e80 | 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 | e*.1;framerate=1/fr;time.=.getti |
12ea0 | 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 | me(0);tb.=.tb+1;timeb.=.gettime( |
12ec0 | 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d | gt);xmouse=getkbmouse(1);ymouse= |
12ee0 | 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d | getkbmouse(2);xmousec=min(max(xm |
12f00 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 | ouse,-1),1);ymousec=min(max(ymou |
12f20 | 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 | se,-1),1);lmouse.=.getkbmouse(3) |
12f40 | 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 | ;rmouse.=.getkbmouse(4);shift.=. |
12f60 | 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 | getkbmouse(5);control.=.getkbmou |
12f80 | 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 | se(17);backspace.=.getkbmouse(8) |
12fa0 | 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 | ;space.=.getkbmouse(32);right.=. |
12fc0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(39);left.=.getkbmouse |
12fe0 | 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 | (37);up.=.getkbmouse(38);down.=. |
13000 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 | getkbmouse(40);num.=.1;sw.=.1;si |
13020 | 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 | zechange=bnot(equal(oh,h))|bnot( |
13040 | 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c | equal(ow,w));oh=h;ow=w;hw=h/w;cl |
13060 | 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b | ick=bnot(olm)*lmouse;olm=lmouse; |
13080 | 3b 0d 0a 0d 0a 74 79 70 65 3d 28 31 2d 28 72 65 67 37 31 2d 66 6c 6f 29 2a 2e 35 29 3b 0d 0a 6e | ;....type=(1-(reg71-flo)*.5);..n |
130a0 | 3d 72 65 67 38 37 2a 61 62 6f 76 65 28 74 79 70 65 2c 30 29 2a 62 65 6c 6f 77 28 66 6c 6f 2d 31 | =reg87*above(type,0)*below(flo-1 |
130c0 | 2c 72 65 67 37 31 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 33 3b 0d 0a 6f 78 3d 72 65 67 30 | ,reg71);....linesize=3;..ox=reg0 |
130e0 | 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 | 0;.rx=reg03;..oy=reg01;.ry=reg04 |
13100 | 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 | ;..oz=reg02;.rz=-reg05;..sx=sin( |
13120 | 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 | rx);sy=sin(ry);sz=sin(rz);..cx=c |
13140 | 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 | os(rx);cy=cos(ry);cz=cos(rz);... |
13160 | 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 | ....tb=0;..gt.=.gettime(0).....f |
13180 | 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 05 05 00 00 01 b6 01 | lo=7.................$.......... |
131a0 | 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 | ..dy=0;..dx=gmegabuf(100*num+1+f |
131c0 | 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c | lo*6);..dz=gmegabuf(100*num+2+fl |
131e0 | 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 | o*6);....dy=dy-oy;dx=-dx+ox;dz=d |
13200 | 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a | z-oz;..dx1=dx*cy-dz*sy;..dz1=dx* |
13220 | 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a | sy+dz*cy;..dy2=dy*cx-dz1*sx;..dz |
13240 | 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a | 2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2* |
13260 | 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d | sz;..dy3=dx1*sz+dy2*cz;....dz3=m |
13280 | 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 3b 0d 0a 79 3d 2d | ax(dz2,.01);..x=-(dx3)/dz3;..y=- |
132a0 | 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b | (dy3)/dz3;..skip=equal(dz3,.01); |
132c0 | 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b | ....drawmode=gmegabuf(100*num+3+ |
132e0 | 66 6c 6f 2a 36 29 3b 0d 0a 72 65 64 3d 64 72 61 77 6d 6f 64 65 2a 74 79 70 65 3b 0d 0a 67 72 65 | flo*6);..red=drawmode*type;..gre |
13300 | 65 6e 3d 30 3b 0d 0a 62 6c 75 65 3d 30 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 72 65 64 2c 2e 31 29 | en=0;..blue=0;..if(below(red,.1) |
13320 | 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 31 29 2c 61 73 73 69 67 6e 28 73 6b 69 70 2c 30 29 29 3b | ,assign(skip,1),assign(skip,0)); |
13340 | 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 11 03 00 00 74 3d 74 2b | ..num=num+1;..sw=-sw;.......t=t+ |
13360 | 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 | 1;deltatime.=.gettime(time);fr=f |
13380 | 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 | r*.9+deltatime*.1;framerate=1/fr |
133a0 | 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d | ;time.=.gettime(0);tb.=.tb+1;tim |
133c0 | 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | eb.=.gettime(gt);xmouse=getkbmou |
133e0 | 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 | se(1);ymouse=getkbmouse(2);xmous |
13400 | 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 | ec=min(max(xmouse,-1),1);ymousec |
13420 | 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 | =min(max(ymouse,-1),1);lmouse.=. |
13440 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(3);rmouse.=.getkbmous |
13460 | 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 | e(4);shift.=.getkbmouse(5);contr |
13480 | 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 | ol.=.getkbmouse(17);backspace.=. |
134a0 | 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(8);space.=.getkbmouse |
134c0 | 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 | (32);right.=.getkbmouse(39);left |
134e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .=.getkbmouse(37);up.=.getkbmous |
13500 | 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 | e(38);down.=.getkbmouse(40);num. |
13520 | 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c | =.1;sw.=.1;sizechange=bnot(equal |
13540 | 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f | (oh,h))|bnot(equal(ow,w));oh=h;o |
13560 | 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 | w=w;hw=h/w;click=bnot(olm)*lmous |
13580 | 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 3b 0d 0a 0d 0a 74 79 70 65 3d 28 31 2d 28 72 65 67 37 31 | e;olm=lmouse;;....type=(1-(reg71 |
135a0 | 2d 66 6c 6f 29 2a 2e 35 29 3b 0d 0a 6e 3d 72 65 67 38 38 2a 61 62 6f 76 65 28 74 79 70 65 2c 30 | -flo)*.5);..n=reg88*above(type,0 |
135c0 | 29 2a 62 65 6c 6f 77 28 66 6c 6f 2d 31 2c 72 65 67 37 31 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | )*below(flo-1,reg71);....linesiz |
135e0 | 65 3d 33 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | e=3;..ox=reg00;.rx=reg03;..oy=re |
13600 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
13620 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
13640 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
13660 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 | z=cos(rz);.......tb=0;..gt.=.get |
13680 | 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | time(0).....flo=8............... |
136a0 | 00 00 28 00 00 00 04 00 00 00 02 00 01 80 50 85 c3 02 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 | ..(...........P...Acko.net:.Texe |
136c0 | 72 20 49 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 bc 01 00 00 00 00 00 00 00 00 00 00 00 00 | r.II............................ |
136e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
137a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
137c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 | ................................ |
137e0 | 00 00 00 00 00 00 01 00 00 00 00 00 00 00 03 00 00 00 6e 3d 31 14 00 00 00 78 70 3d 72 65 67 32 | ..................n=1....xp=reg2 |
13800 | 38 3b 0d 0a 79 70 3d 72 65 67 32 39 3b 19 00 00 00 2f 2f 20 62 75 69 6c 64 69 6e 67 20 70 6f 69 | 8;..yp=reg29;....//.building.poi |
13820 | 6e 74 20 74 65 78 65 72 20 31 64 00 00 00 78 3d 28 78 70 2d 72 65 67 30 30 29 2f 72 65 67 30 31 | nt.texer.1d...x=(xp-reg00)/reg01 |
13840 | 3b 79 3d 2d 28 79 70 2d 72 65 67 30 32 29 2f 72 65 67 30 31 3b 0d 0a 72 65 64 3d 31 3b 67 72 65 | ;y=-(yp-reg02)/reg01;..red=1;gre |
13860 | 65 6e 3d 31 3b 62 6c 75 65 3d 30 3b 73 69 7a 65 78 3d 2e 32 33 2f 72 65 67 30 31 2a 31 30 3b 73 | en=1;blue=0;sizex=.23/reg01*10;s |
13880 | 69 7a 65 79 3d 2e 32 33 2f 72 65 67 30 31 2a 31 30 3b 50 85 c3 02 41 63 6b 6f 2e 6e 65 74 3a 20 | izey=.23/reg01*10;P...Acko.net:. |
138a0 | 54 65 78 65 72 20 49 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ba 01 00 00 00 00 00 00 00 00 | Texer.II........................ |
138c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
138e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
139a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
139c0 | 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 03 00 00 00 6e 3d 31 14 00 00 00 78 70 3d | ......................n=1....xp= |
139e0 | 72 65 67 32 38 3b 0d 0a 79 70 3d 72 65 67 32 39 3b 19 00 00 00 2f 2f 20 62 75 69 6c 64 69 6e 67 | reg28;..yp=reg29;....//.building |
13a00 | 20 70 6f 69 6e 74 20 74 65 78 65 72 20 32 62 00 00 00 78 3d 28 78 70 2d 72 65 67 30 30 29 2f 72 | .point.texer.2b...x=(xp-reg00)/r |
13a20 | 65 67 30 31 3b 79 3d 2d 28 79 70 2d 72 65 67 30 32 29 2f 72 65 67 30 31 3b 0d 0a 72 65 64 3d 31 | eg01;y=-(yp-reg02)/reg01;..red=1 |
13a40 | 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 73 69 7a 65 78 3d 2e 34 2f 72 65 67 30 31 2a 31 | ;green=0;blue=0;sizex=.4/reg01*1 |
13a60 | 30 3b 73 69 7a 65 79 3d 2e 34 2f 72 65 67 30 31 2a 31 30 3b 17 00 00 00 28 00 00 00 01 00 00 00 | 0;sizey=.4/reg01*10;....(....... |
13a80 | 00 00 00 00 02 00 00 00 1e 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 | ................................ |
13aa0 | 04 00 00 00 fe ff ff ff ee 0e 00 00 81 01 02 0b 24 26 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 | ................$&.............. |
13ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 | ..................@..AVS.2.8+.Ef |
13ae0 | 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 8f 00 00 00 01 00 00 00 29 00 00 | fect.List.Config.............).. |
13b00 | 00 2f 2f 20 68 65 6c 70 20 73 63 72 65 65 6e 0d 0a 2f 2f 20 70 72 65 73 73 20 5b 48 5d 20 74 6f | .//.help.screen..//.press.[H].to |
13b20 | 20 61 63 74 69 76 61 74 65 00 5a 00 00 00 68 6b 65 79 3d 67 65 74 6b 62 6d 6f 75 73 65 28 37 32 | .activate.Z...hkey=getkbmouse(72 |
13b40 | 29 3b 0d 0a 61 61 3d 6d 69 6e 28 6d 61 78 28 61 61 2b 68 6b 65 79 2a 2e 33 2d 2e 31 35 2c 30 29 | );..aa=min(max(aa+hkey*.3-.15,0) |
13b60 | 2c 31 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 | ,1);..alphaout=aa;..enabled=abov |
13b80 | 65 28 61 61 2c 30 29 00 1c 00 00 00 c9 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 | e(aa,0)......................... |
13ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 | ............................<... |
13bc0 | 6e 02 c6 01 00 00 00 00 10 aa 2e 04 b4 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 | n...............A............... |
13be0 | 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 e8 ff ff ff 00 00 00 00 | .............!.................. |
13c00 | 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 | ..................."Arial....... |
13c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 00 00 00 48 65 6c 70 00 01 00 00 | ........................Help.... |
13c40 | 00 00 00 00 00 00 00 00 00 db ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 f5 00 00 | ................................ |
13c60 | 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 | ................................ |
13c80 | 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 78 a7 2e 04 50 00 00 | .............<...n.......x...P.. |
13ca0 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
13cc0 | 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
13ce0 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
13d00 | 00 00 00 00 00 31 00 00 00 43 4c 49 43 4b 20 61 6e 64 20 44 52 41 47 20 2d 20 42 75 69 6c 64 20 | .....1...CLICK.and.DRAG.-.Build. |
13d20 | 73 74 72 69 6e 67 73 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 2e 00 01 00 00 00 00 00 | strings.of.wall.segments........ |
13d40 | 00 00 02 00 00 00 e3 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 00 01 00 00 01 00 | ................................ |
13d60 | 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 | ................................ |
13d80 | 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 e0 a4 2e 04 50 00 00 00 41 01 | ..........<...n...........P...A. |
13da0 | 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 | ...........................!.... |
13dc0 | 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 | ................................ |
13de0 | 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ."Arial......................... |
13e00 | 00 00 3c 00 00 00 48 4f 4d 45 20 2d 20 42 75 69 6c 64 20 61 20 73 74 72 61 69 67 68 74 20 6c 69 | ..<...HOME.-.Build.a.straight.li |
13e20 | 6e 65 20 6f 66 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 61 74 20 61 6e 79 20 61 6e 67 6c 65 | ne.of.wall.segments.at.any.angle |
13e40 | 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 e8 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 | ................................ |
13e60 | 00 00 fd 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13e80 | 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 48 a2 | ..................<...n.......H. |
13ea0 | 2e 04 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..P...A......................... |
13ec0 | 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 | ...!............................ |
13ee0 | 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ........."Arial................. |
13f00 | 00 00 00 00 00 00 00 00 00 00 39 00 00 00 54 41 42 20 2d 20 43 6f 70 79 20 74 68 65 20 66 6c 6f | ..........9...TAB.-.Copy.the.flo |
13f20 | 6f 72 20 70 6c 61 6e 20 66 72 6f 6d 20 74 68 65 20 66 6c 6f 6f 72 20 64 69 72 65 63 74 6c 79 20 | or.plan.from.the.floor.directly. |
13f40 | 62 65 6c 6f 77 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 ed ff ff ff 01 00 00 00 00 00 00 00 00 | below........................... |
13f60 | 00 00 00 1c 00 00 00 ee 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
13f80 | 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 | .......................<...n.... |
13fa0 | 00 00 00 b0 9f 2e 04 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .......P...A.................... |
13fc0 | 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 | ........!....................... |
13fe0 | 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 | .............."Arial............ |
14000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 00 00 44 45 4c 45 54 45 20 2d 20 44 65 6c 65 | ...............*...DELETE.-.Dele |
14020 | 74 65 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 20 6f 6e 65 2d 62 79 2d 6f 6e 65 2e 00 01 00 00 | te.wall.segments.one-by-one..... |
14040 | 00 00 00 00 00 02 00 00 00 f2 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 ee 00 00 | ................................ |
14060 | 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 | ................................ |
14080 | 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 70 eb e6 01 50 00 00 | .............<...n.......p...P.. |
140a0 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
140c0 | 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
140e0 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
14100 | 00 00 00 00 00 2a 00 00 00 42 41 43 4b 53 50 41 43 45 20 2d 20 51 75 69 63 6b 6c 79 20 64 65 6c | .....*...BACKSPACE.-.Quickly.del |
14120 | 65 74 65 20 77 61 6c 6c 20 73 65 67 6d 65 6e 74 73 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 f7 | ete.wall.segments............... |
14140 | ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 f0 00 00 00 01 00 00 00 ff ff ff 00 00 | ................................ |
14160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f | ................................ |
14180 | 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 b8 6b c9 00 50 00 00 00 41 01 01 00 ff ff ff 00 00 | ...<...n........k..P...A........ |
141a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 | ....................!........... |
141c0 | ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c | .........................."Arial |
141e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2c 00 00 00 44 | ...........................,...D |
14200 | 45 4c 45 54 45 20 61 6e 64 20 42 41 43 4b 53 50 41 43 45 20 2d 20 44 65 6c 65 74 65 20 65 6e 74 | ELETE.and.BACKSPACE.-.Delete.ent |
14220 | 69 72 65 20 66 6c 6f 6f 72 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 fc ff ff ff 01 00 00 00 00 | ire.floor....................... |
14240 | 00 00 00 00 00 00 00 1c 00 00 00 fb 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 | ................................ |
14260 | 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e | ...........................<...n |
14280 | 02 c7 01 00 00 00 00 d0 db f8 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 | ...........P...A................ |
142a0 | 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 | ............!................... |
142c0 | 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 | .................."Arial........ |
142e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 37 00 00 00 41 4c 54 20 2d 20 50 6c 61 | ...................7...ALT.-.Pla |
14300 | 63 65 20 43 41 4d 45 52 41 20 54 41 52 47 45 54 20 28 66 6f 72 20 75 73 65 20 69 6e 20 41 75 74 | ce.CAMERA.TARGET.(for.use.in.Aut |
14320 | 6f 6d 61 74 65 64 20 56 69 65 77 29 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 01 00 00 00 01 00 | omated.View).................... |
14340 | 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 df 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 | ................................ |
14360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 | ..............................<. |
14380 | 00 00 6e 02 c7 01 00 00 00 00 e0 be db 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 | ..n...........P...A............. |
143a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 | ...............!................ |
143c0 | 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 | ....................."Arial..... |
143e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1b 00 00 00 53 48 49 46 54 20 | ..........................SHIFT. |
14400 | 2d 20 4d 6f 76 65 20 75 70 20 6f 6e 65 20 66 6c 6f 6f 72 2e 00 01 00 00 00 00 00 00 00 02 00 00 | -.Move.up.one.floor............. |
14420 | 00 06 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 e3 00 00 00 01 00 00 00 ff ff ff | ................................ |
14440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 | ................................ |
14460 | 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 20 a3 db 01 50 00 00 00 41 01 01 00 ff ff ff | .....<...n...........P...A...... |
14480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 | ......................!......... |
144a0 | 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 | ............................"Ari |
144c0 | 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1f 00 00 | al.............................. |
144e0 | 00 43 4f 4e 54 52 4f 4c 20 2d 20 4d 6f 76 65 20 64 6f 77 6e 20 6f 6e 65 20 66 6c 6f 6f 72 2e 00 | .CONTROL.-.Move.down.one.floor.. |
14500 | 01 00 00 00 00 00 00 00 02 00 00 00 0b 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 | ................................ |
14520 | e8 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14540 | 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 78 96 db 01 | ................<...n.......x... |
14560 | 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | P...A........................... |
14580 | 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 | .!.............................. |
145a0 | 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ......."Arial................... |
145c0 | 00 00 00 00 00 00 00 00 24 00 00 00 45 4e 44 20 2d 20 54 6f 67 67 6c 65 20 64 6f 75 62 6c 65 20 | ........$...END.-.Toggle.double. |
145e0 | 70 72 65 63 69 73 69 6f 6e 20 6d 6f 64 65 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 10 00 00 00 | precision.mode.................. |
14600 | 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d7 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 | ................................ |
14620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 | ................................ |
14640 | 3c 00 00 00 6e 02 c7 01 00 00 00 00 e0 93 db 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 | <...n...........P...A........... |
14660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff | .................!.............. |
14680 | 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 | ......................."Arial... |
146a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 00 00 00 5b 2b 5d 20 | ............................[+]. |
146c0 | 4b 45 59 20 2d 20 5a 6f 6f 6d 20 69 6e 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 15 00 00 00 01 | KEY.-.Zoom.in................... |
146e0 | 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d8 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 | ................................ |
14700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c | ...............................< |
14720 | 00 00 00 6e 02 c7 01 00 00 00 00 48 91 db 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 | ...n.......H...P...A............ |
14740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 | ................!............... |
14760 | 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 | ......................"Arial.... |
14780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 00 00 00 5b 2d 5d 20 4b | ...........................[-].K |
147a0 | 45 59 20 2d 20 5a 6f 6f 6d 20 6f 75 74 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 1a 00 00 00 01 | EY.-.Zoom.out................... |
147c0 | 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 e2 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 | ................................ |
147e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c | ...............................< |
14800 | 00 00 00 6e 02 c7 01 00 00 00 00 b0 8e db 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 | ...n...........P...A............ |
14820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 | ................!............... |
14840 | 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 | ......................"Arial.... |
14860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1e 00 00 00 5b 5c 5d 20 4b | ...........................[\].K |
14880 | 45 59 20 2d 20 54 6f 67 67 6c 65 20 63 61 6d 65 72 61 20 6c 6f 63 6b 2e 00 01 00 00 00 00 00 00 | EY.-.Toggle.camera.lock......... |
148a0 | 00 02 00 00 00 1f 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 dd 00 00 00 01 00 00 | ................................ |
148c0 | 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 | ................................ |
148e0 | 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 18 8c db 01 50 00 00 00 41 01 01 | .........<...n...........P...A.. |
14900 | 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 | ..........................!..... |
14920 | 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 | ................................ |
14940 | 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | "Arial.......................... |
14960 | 00 19 00 00 00 5b 48 5d 20 4b 45 59 20 2d 20 53 68 6f 77 20 6b 65 79 20 68 65 6c 70 2e 00 01 00 | .....[H].KEY.-.Show.key.help.... |
14980 | 00 00 00 00 00 00 02 00 00 00 24 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d7 00 | ..........$..................... |
149a0 | 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 | ................................ |
149c0 | 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c5 01 00 00 00 00 80 89 db 01 78 00 | ..............<...n...........x. |
149e0 | 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 | ..A............................! |
14a00 | 00 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 | ................................ |
14a20 | 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ....."Arial..................... |
14a40 | 00 00 00 00 00 00 13 00 00 00 46 6c 6f 6f 72 20 24 28 72 65 67 37 31 3a 31 2e 30 29 00 01 00 00 | ..........Floor.$(reg71:1.0).... |
14a60 | 00 00 00 00 00 01 00 00 00 ff ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 de 00 00 | ................................ |
14a80 | 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 | ................................ |
14aa0 | 00 02 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c5 01 00 00 00 00 e8 86 db 01 78 00 00 | .............<...n...........x.. |
14ac0 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
14ae0 | 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
14b00 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
14b20 | 00 00 00 00 00 1a 00 00 00 50 72 65 63 69 73 69 6f 6e 3a 20 31 2f 24 28 72 65 67 32 30 3a 31 2e | .........Precision:.1/$(reg20:1. |
14b40 | 30 29 00 01 00 00 00 00 00 00 00 fe ff ff ff a3 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c | 0).............................. |
14b60 | 00 00 00 d6 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14b80 | 00 00 00 08 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 ed 00 00 00 00 00 50 | ...................<...n.......P |
14ba0 | 84 db 01 78 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...x...A........................ |
14bc0 | 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc | ....!........................... |
14be0 | 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........."Arial................ |
14c00 | 00 00 00 00 00 00 00 00 00 00 00 12 00 00 00 54 6f 70 2d 44 6f 77 6e 20 44 65 73 69 67 6e 65 72 | ...............Top-Down.Designer |
14c20 | 00 01 00 00 00 00 00 00 00 01 00 00 00 a3 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 28 00 00 | .............................(.. |
14c40 | 00 04 00 00 00 01 00 01 80 24 00 00 00 ac 00 00 00 01 4f 00 00 00 79 3d 76 2a 73 69 6e 28 69 2a | .........$........O...y=v*sin(i* |
14c60 | 24 70 69 29 2a 2e 31 2b 2e 39 3b 0d 0a 78 3d 69 2a 2e 33 2b 2e 36 35 3b 0d 0a 63 3d 73 71 72 74 | $pi)*.1+.9;..x=i*.3+.65;..c=sqrt |
14c80 | 28 73 69 6e 28 69 2a 24 70 69 29 29 3b 0d 0a 72 65 64 3d 63 3b 67 72 65 65 6e 3d 63 3b 62 6c 75 | (sin(i*$pi));..red=c;green=c;blu |
14ca0 | 65 3d 63 3b 00 1e 00 00 00 70 6f 69 6e 74 3d 67 65 74 74 69 6d 65 28 2d 31 29 2f 67 65 74 74 69 | e=c;.....point=gettime(-1)/getti |
14cc0 | 6d 65 28 2d 32 29 00 18 00 00 00 2f 2f 20 77 61 76 65 20 73 63 6f 70 65 20 69 6e 20 63 6f 72 6e | me(-2).....//.wave.scope.in.corn |
14ce0 | 65 72 00 06 00 00 00 6e 3d 31 30 30 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 50 85 c3 | er.....n=100.................P.. |
14d00 | 02 41 63 6b 6f 2e 6e 65 74 3a 20 54 65 78 65 72 20 49 49 00 00 00 00 00 00 00 00 00 00 00 00 00 | .Acko.net:.Texer.II............. |
14d20 | 00 b8 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
14e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 03 00 00 | ................................ |
14e40 | 00 6e 3d 31 02 00 00 00 0d 0a 20 00 00 00 2f 2f 20 73 6f 6e 67 20 70 6f 73 69 74 69 6f 6e 20 74 | .n=1..........//.song.position.t |
14e60 | 65 78 65 72 20 69 6e 20 63 6f 72 6e 65 72 6b 01 00 00 70 6f 69 6e 74 3d 69 66 28 65 71 75 61 6c | exer.in.cornerk...point=if(equal |
14e80 | 28 67 65 74 74 69 6d 65 28 2d 32 29 2c 2d 31 29 2c 2e 35 2c 67 65 74 74 69 6d 65 28 2d 31 29 2f | (gettime(-2),-1),.5,gettime(-1)/ |
14ea0 | 6d 61 78 28 67 65 74 74 69 6d 65 28 2d 32 29 2c 2e 31 29 29 3b 0d 0a 70 70 3d 70 70 2a 2e 39 2b | max(gettime(-2),.1));..pp=pp*.9+ |
14ec0 | 70 6f 69 6e 74 2a 2e 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 67 65 74 74 69 6d 65 28 2d 32 29 2c | point*.1;..if(equal(gettime(-2), |
14ee0 | 2d 31 29 2c 0d 0a 20 61 73 73 69 67 6e 28 63 2c 2e 32 35 29 2b 0d 0a 20 61 73 73 69 67 6e 28 73 | -1),...assign(c,.25)+...assign(s |
14f00 | 78 2c 77 2a 2e 30 31 29 2b 0d 0a 20 61 73 73 69 67 6e 28 73 79 2c 68 2a 2e 30 30 33 29 2c 0d 0a | x,w*.01)+...assign(sy,h*.003),.. |
14f20 | 20 61 73 73 69 67 6e 28 63 2c 31 29 2b 0d 0a 20 61 73 73 69 67 6e 28 73 78 2c 77 2a 2e 30 30 31 | .assign(c,1)+...assign(sx,w*.001 |
14f40 | 29 2b 0d 0a 20 61 73 73 69 67 6e 28 73 79 2c 68 2a 2e 30 30 33 29 29 3b 0d 0a 0d 0a 78 3d 2e 36 | )+...assign(sy,h*.003));....x=.6 |
14f60 | 35 2b 70 70 2a 2e 33 3b 0d 0a 79 3d 2e 39 3b 0d 0a 63 63 3d 63 63 2a 2e 39 2b 63 2a 2e 31 3b 0d | 5+pp*.3;..y=.9;..cc=cc*.9+c*.1;. |
14f80 | 0a 72 65 64 3d 63 63 3b 0d 0a 62 6c 75 65 3d 63 63 3b 0d 0a 67 72 65 65 6e 3d 63 63 3b 0d 0a 73 | .red=cc;..blue=cc;..green=cc;..s |
14fa0 | 73 78 3d 73 73 78 2a 2e 39 2b 73 78 2a 2e 31 3b 0d 0a 73 73 79 3d 73 73 79 2a 2e 39 2b 73 79 2a | sx=ssx*.9+sx*.1;..ssy=ssy*.9+sy* |
14fc0 | 2e 31 3b 0d 0a 73 69 7a 65 78 3d 73 73 78 3b 0d 0a 73 69 7a 65 79 3d 73 73 79 3b 0d 0a fe ff ff | .1;..sizex=ssx;..sizey=ssy;..... |
14fe0 | ff 7f 04 00 00 81 01 01 0b 24 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........$...................... |
15000 | 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 | ...........@..AVS.2.8+.Effect.Li |
15020 | 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 47 03 00 00 01 00 00 00 24 00 00 00 61 6c 3d 31 3b 74 | st.Config.....G.......$...al=1;t |
15040 | 69 6d 65 3d 67 65 74 74 69 6d 65 28 30 29 3b 61 61 3d 62 6e 6f 74 28 72 65 67 39 30 29 00 17 03 | ime=gettime(0);aa=bnot(reg90)... |
15060 | 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 | ..t=t+1;deltatime.=.gettime(time |
15080 | 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 | );fr=fr*.9+deltatime*.1;framerat |
150a0 | 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 | e=1/fr;time.=.gettime(0);tb.=.tb |
150c0 | 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 | +1;timeb.=.gettime(gt);xmouse=ge |
150e0 | 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 | tkbmouse(1);ymouse=getkbmouse(2) |
15100 | 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 | ;inbounds=below(abs(xmouse),1)&b |
15120 | 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | elow(abs(ymouse),1);xmousec=min( |
15140 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
15160 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
15180 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 6c 6d | use(3);rmouse.=.getkbmouse(4);lm |
151a0 | 6f 75 73 65 3d 6c 6d 6f 75 73 65 7c 72 6d 6f 75 73 65 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 | ouse=lmouse|rmouse;shift.=.getkb |
151c0 | 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 | mouse(5);control.=.getkbmouse(17 |
151e0 | 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 | );backspace.=.getkbmouse(8);spac |
15200 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(32);right.=.getkb |
15220 | 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b | mouse(39);left.=.getkbmouse(37); |
15240 | 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 | up.=.getkbmouse(38);down.=.getkb |
15260 | 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | mouse(40);sizechange=bnot(equal( |
15280 | 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 | oh,h))|bnot(equal(ow,w));oh=h;ow |
152a0 | 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 | =w;hw=h/w;click=bnot(olm)*lmouse |
152c0 | 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 70 6c 75 73 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 37 29 | ;olm=lmouse;plus=getkbmouse(187) |
152e0 | 3b 6d 69 6e 75 73 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 39 29 3b 65 73 63 3d 67 65 74 6b 62 | ;minus=getkbmouse(189);esc=getkb |
15300 | 6d 6f 75 73 65 28 32 32 30 29 3b 6c 6d 6f 75 73 65 3d 62 6f 72 28 6c 6d 6f 75 73 65 2c 67 65 74 | mouse(220);lmouse=bor(lmouse,get |
15320 | 6b 62 6d 6f 75 73 65 28 34 29 29 20 3b 0d 0a 0d 0a 61 61 3d 62 6e 6f 74 28 72 65 67 39 30 29 3b | kbmouse(4)).;....aa=bnot(reg90); |
15340 | 0d 0a 61 6c 3d 61 6c 2d 62 6e 6f 74 28 61 61 29 2a 2e 30 32 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d | ..al=al-bnot(aa)*.02;..alphaout= |
15360 | 61 6c 3b 0d 0a 61 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 6c 2c 30 29 00 1c 00 00 00 e3 00 00 | al;..anabled=above(al,0)........ |
15380 | 00 01 00 00 00 3c fa ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 | .....<.......................... |
153a0 | 00 01 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 3a 00 7f 00 00 00 00 00 b8 81 db 01 78 00 00 | .............<...:...........x.. |
153c0 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
153e0 | 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
15400 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
15420 | 00 00 00 00 00 1f 00 00 00 43 6c 69 63 6b 20 61 6e 64 20 64 72 61 67 20 74 6f 20 70 6c 61 63 65 | .........Click.and.drag.to.place |
15440 | 20 77 61 6c 6c 73 2e 00 01 00 00 00 00 00 00 00 00 00 00 00 05 00 00 00 01 00 00 00 00 00 00 00 | .walls.......................... |
15460 | 00 00 00 00 fe ff ff ff ce 04 00 00 81 01 01 0b 24 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 | ................$............... |
15480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 | ..................@..AVS.2.8+.Ef |
154a0 | 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 95 03 00 00 01 00 00 00 2c 00 00 | fect.List.Config.............,.. |
154c0 | 00 61 6c 3d 30 3b 74 69 6d 65 3d 67 65 74 74 69 6d 65 28 30 29 3b 61 61 3d 62 6e 6f 74 28 72 65 | .al=0;time=gettime(0);aa=bnot(re |
154e0 | 67 39 30 29 3b 74 69 6d 65 72 3d 34 00 5d 03 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 | g90);timer=4.]...t=t+1;deltatime |
15500 | 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 | .=.gettime(time);fr=fr*.9+deltat |
15520 | 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 | ime*.1;framerate=1/fr;time.=.get |
15540 | 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d | time(0);tb.=.tb+1;timeb.=.gettim |
15560 | 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 | e(gt);xmouse=getkbmouse(1);ymous |
15580 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 | e=getkbmouse(2);inbounds=below(a |
155a0 | 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c | bs(xmouse),1)&below(abs(ymouse), |
155c0 | 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 1);xmousec=min(max(xmouse,-1),1) |
155e0 | 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c | ;ymousec=min(max(ymouse,-1),1);l |
15600 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 | mouse.=.getkbmouse(3);rmouse.=.g |
15620 | 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 6c 6d 6f 75 73 65 3d 6c 6d 6f 75 73 65 7c 72 6d 6f 75 73 | etkbmouse(4);lmouse=lmouse|rmous |
15640 | 65 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 | e;shift.=.getkbmouse(5);control. |
15660 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 | =.getkbmouse(17);backspace.=.get |
15680 | 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 | kbmouse(8);space.=.getkbmouse(32 |
156a0 | 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 | );right.=.getkbmouse(39);left.=. |
156c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | getkbmouse(37);up.=.getkbmouse(3 |
156e0 | 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 | 8);down.=.getkbmouse(40);sizecha |
15700 | 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c | nge=bnot(equal(oh,h))|bnot(equal |
15720 | 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 | (ow,w));oh=h;ow=w;hw=h/w;click=b |
15740 | 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 70 6c 75 73 3d | not(olm)*lmouse;olm=lmouse;plus= |
15760 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 37 29 3b 6d 69 6e 75 73 3d 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(187);minus=getkbmouse |
15780 | 28 31 38 39 29 3b 65 73 63 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 32 30 29 3b 6c 6d 6f 75 73 65 | (189);esc=getkbmouse(220);lmouse |
157a0 | 3d 62 6f 72 28 6c 6d 6f 75 73 65 2c 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 29 20 3b 0d 0a 0d 0a | =bor(lmouse,getkbmouse(4)).;.... |
157c0 | 6f 6e 3d 72 65 67 39 30 26 61 62 6f 76 65 28 74 69 6d 65 72 2c 30 29 3b 0d 0a 69 66 28 72 65 67 | on=reg90&above(timer,0);..if(reg |
157e0 | 39 30 2c 61 73 73 69 67 6e 28 74 69 6d 65 72 2c 74 69 6d 65 72 2d 64 65 6c 74 61 74 69 6d 65 29 | 90,assign(timer,timer-deltatime) |
15800 | 2c 30 29 3b 0d 0a 61 6c 3d 6d 69 6e 28 6d 61 78 28 61 6c 2b 73 69 67 6e 28 6f 6e 2d 61 6c 29 2a | ,0);..al=min(max(al+sign(on-al)* |
15820 | 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 6c 3b 0d 0a 61 6e 61 62 6c 65 | .02,0),1);..alphaout=al;..anable |
15840 | 64 3d 61 62 6f 76 65 28 61 6c 2c 30 29 00 1c 00 00 00 e4 00 00 00 01 00 00 00 3c fa ff 00 00 00 | d=above(al,0).............<..... |
15860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f 00 00 00 0f 00 | ................................ |
15880 | 00 00 3c 00 00 00 3a 00 7f 00 00 00 00 00 b0 f1 cb 00 78 00 00 00 41 01 01 00 ff ff ff 00 00 00 | ..<...:...........x...A......... |
158a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f0 ff | ...................!............ |
158c0 | ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 | ........................."Arial. |
158e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 50 72 | ..............................Pr |
15900 | 65 73 73 20 5b 48 5d 20 61 74 20 61 6e 79 20 74 69 6d 65 20 66 6f 72 20 68 65 6c 70 2e 00 01 00 | ess.[H].at.any.time.for.help.... |
15920 | 00 00 00 00 00 00 00 00 00 00 dd ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff a1 05 | ................................ |
15940 | 00 00 80 00 00 0d 24 80 00 00 00 80 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 | ......$......................... |
15960 | 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 | ........@..AVS.2.8+.Effect.List. |
15980 | 43 6f 6e 66 69 67 00 00 00 00 00 78 00 00 00 01 00 00 00 18 00 00 00 2f 2f 20 67 65 6e 65 72 69 | Config.....x...........//.generi |
159a0 | 63 20 73 6f 6e 67 20 64 69 73 70 6c 61 79 00 54 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 | c.song.display.T...ta=below(gett |
159c0 | 69 6d 65 28 2d 31 29 2c 35 29 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 | ime(-1),5);..tt=min(max(tt-sign( |
159e0 | 74 74 2d 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 | tt-ta)*.02,0),1);..enabled=above |
15a00 | 28 74 74 2c 30 29 00 fe ff ff ff fc 01 00 00 81 01 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 | (tt,0).............$............ |
15a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b | .....................@..AVS.2.8+ |
15a40 | 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 d7 00 00 00 01 00 00 00 | .Effect.List.Config............. |
15a60 | 00 00 00 00 cb 00 00 00 6f 6e 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b | ........on=below(gettime(-1),5); |
15a80 | 0d 0a 6f 66 66 3d 62 6e 6f 74 28 6f 6e 29 3b 0d 0a 69 66 28 6f 66 66 2c 61 73 73 69 67 6e 28 64 | ..off=bnot(on);..if(off,assign(d |
15aa0 | 6f 6e 65 2c 30 29 2b 61 73 73 69 67 6e 28 67 6f 2c 30 29 2c 30 29 3b 0d 0a 69 66 28 6f 6e 26 62 | one,0)+assign(go,0),0);..if(on&b |
15ac0 | 6e 6f 74 28 64 6f 6e 65 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2b 61 73 73 69 67 6e 28 64 6f | not(done),assign(go,1)+assign(do |
15ae0 | 6e 65 2c 31 29 2c 61 73 73 69 67 6e 28 67 6f 2c 30 29 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 | ne,1),assign(go,0));..if(below(g |
15b00 | 65 74 74 69 6d 65 28 2d 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 30 29 3b 0d | ettime(-1),.5),assign(go,1),0);. |
15b20 | 0a 65 6e 61 62 6c 65 64 3d 67 6f 7c 72 65 67 31 35 3b 00 1c 00 00 00 d0 00 00 00 01 00 00 00 ff | .enabled=go|reg15;.............. |
15b40 | ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f | ................................ |
15b60 | 00 00 00 0f 00 00 00 3c 00 00 00 40 03 4e 01 00 00 00 00 20 7f db 01 46 00 00 00 41 01 01 00 ff | .......<...@.N.........F...A.... |
15b80 | ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 | ........................!....... |
15ba0 | 00 00 00 f7 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 | .............................."A |
15bc0 | 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c | rial............................ |
15be0 | 00 00 00 24 28 74 69 74 6c 65 3a 34 36 29 00 00 00 00 00 00 00 00 00 00 00 00 00 2e 00 00 00 01 | ...$(title:46).................. |
15c00 | 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff d0 02 00 00 82 02 01 01 24 80 00 00 00 80 00 00 00 | .......................$........ |
15c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 | .........................@..AVS. |
15c40 | 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 af 00 00 00 | 2.8+.Effect.List.Config......... |
15c60 | 01 00 00 00 00 00 00 00 a3 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 | ............ta=below(gettime(-1) |
15c80 | 2c 35 29 3b 0d 0a 74 6f 3d 74 74 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e | ,5);..to=tt;..tt=min(max(tt-sign |
15ca0 | 28 74 74 2d 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 65 74 | (tt-ta)*.02,0),1);..if(below(get |
15cc0 | 74 69 6d 65 28 2d 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 61 73 73 69 67 6e | time(-1),.5),assign(go,1),assign |
15ce0 | 28 67 6f 2c 30 29 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 62 6e 6f 74 28 65 71 75 61 6c 28 74 6f 2c | (go,0));..enabled=bnot(equal(to, |
15d00 | 74 74 29 29 7c 67 6f 7c 72 65 67 31 35 3b 00 fe ff ff ff cc 01 00 00 81 01 0a 01 24 80 00 00 00 | tt))|go|reg15;.............$.... |
15d20 | 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 | .............................@.. |
15d40 | 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 | AVS.2.8+.Effect.List.Config..... |
15d60 | 63 00 00 00 01 00 00 00 00 00 00 00 57 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 | c...........W...ta=below(gettime |
15d80 | 28 2d 31 29 2c 35 29 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d | (-1),5);..tt=min(max(tt-sign(tt- |
15da0 | 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 69 6e 3d 74 74 3b 0d 0a 65 6e 61 | ta)*.02,0),1);..alphain=tt;..ena |
15dc0 | 62 6c 65 64 3d 31 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e | bled=1.l.P.Holden03:.Convolution |
15de0 | 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .Filter......................... |
15e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
15e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
15e40 | 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
15e60 | 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
15e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
15ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
15ec0 | 00 00 00 00 00 00 00 01 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 80 | ................................ |
15ee0 | 00 00 00 fe ff ff ff 99 60 01 00 81 01 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 | ........`......$................ |
15f00 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 | .................@..AVS.2.8+.Eff |
15f20 | 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 2e 00 00 00 01 00 00 00 0b 00 00 00 | ect.List.Config................. |
15f40 | 2f 2f 20 33 64 20 76 69 65 77 00 17 00 00 00 65 6e 61 62 6c 65 64 3d 65 71 75 61 6c 28 72 65 67 | //.3d.view.....enabled=equal(reg |
15f60 | 31 34 2c 32 29 00 24 00 00 00 45 0a 00 00 01 00 00 00 00 9a 09 00 00 74 3d 74 2b 31 3b 64 65 6c | 14,2).$...E............t=t+1;del |
15f80 | 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b | tatime.=.gettime(time);fr=fr*.9+ |
15fa0 | 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 | deltatime*.1;framerate=1/fr;time |
15fc0 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 | .=.gettime(0);tb.=.tb+1;timeb.=. |
15fe0 | 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 | gettime(gt);xmouse=getkbmouse(1) |
16000 | 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 | ;ymouse=getkbmouse(2);inbounds=b |
16020 | 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d | elow(abs(xmouse),1)&below(abs(ym |
16040 | 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c | ouse),1);xmousec=min(max(xmouse, |
16060 | 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 | -1),1);ymousec=min(max(ymouse,-1 |
16080 | 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 | ),1);lmouse.=.getkbmouse(3);rmou |
160a0 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 6c 6d 6f 75 73 65 3d 6c 6d 6f 75 73 65 | se.=.getkbmouse(4);lmouse=lmouse |
160c0 | 7c 72 6d 6f 75 73 65 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f | |rmouse;shift.=.getkbmouse(5);co |
160e0 | 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 | ntrol.=.getkbmouse(17);backspace |
16100 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(8);space.=.getkbmo |
16120 | 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c | use(32);right.=.getkbmouse(39);l |
16140 | 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d | eft.=.getkbmouse(37);up.=.getkbm |
16160 | 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 | ouse(38);down.=.getkbmouse(40);s |
16180 | 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 | izechange=bnot(equal(oh,h))|bnot |
161a0 | 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 61 | (equal(ow,w));oh=h;ow=w;hw=h/w;a |
161c0 | 6c 74 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 29 3b 0d 0a 0d 0a 66 6f 72 77 61 72 64 3d 6d 69 | lt=getkbmouse(18);....forward=mi |
161e0 | 6e 28 6d 61 78 28 66 6f 72 77 61 72 64 2b 69 66 28 61 6c 74 2c 30 2c 79 6d 6f 75 73 65 2a 2e 32 | n(max(forward+if(alt,0,ymouse*.2 |
16200 | 2a 6c 6d 6f 75 73 65 2a 69 6e 62 6f 75 6e 64 73 2a 64 65 6c 74 61 74 69 6d 65 2a 35 30 29 2c 31 | *lmouse*inbounds*deltatime*50),1 |
16220 | 29 2c 31 30 29 3b 20 2f 2f 20 75 73 65 20 6d 6f 75 73 65 20 76 61 72 73 20 74 6f 20 73 65 65 20 | ),10);.//.use.mouse.vars.to.see. |
16240 | 69 66 20 77 65 20 6e 65 65 64 20 74 6f 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 2f 62 61 63 6b 77 | if.we.need.to.move.forward/backw |
16260 | 61 72 64 0d 0a 72 69 67 68 74 6c 65 66 74 3d 72 69 67 68 74 6c 65 66 74 2b 69 66 28 61 6c 74 2c | ard..rightleft=rightleft+if(alt, |
16280 | 30 2c 78 6d 6f 75 73 65 2a 2e 30 35 2a 6c 6d 6f 75 73 65 2a 69 6e 62 6f 75 6e 64 73 29 2a 64 65 | 0,xmouse*.05*lmouse*inbounds)*de |
162a0 | 6c 74 61 74 69 6d 65 2a 35 30 3b 20 2f 2f 20 73 61 6d 65 20 61 73 20 61 62 6f 76 65 2c 20 6f 6e | ltatime*50;.//.same.as.above,.on |
162c0 | 6c 79 20 74 68 69 73 20 69 73 20 72 6f 74 61 74 69 6f 6e 20 61 72 6f 75 6e 64 20 74 61 72 67 65 | ly.this.is.rotation.around.targe |
162e0 | 74 0d 0a 0d 0a 69 66 28 62 61 63 6b 73 70 61 63 65 2c 61 73 73 69 67 6e 28 78 74 61 72 67 31 2c | t....if(backspace,assign(xtarg1, |
16300 | 72 65 67 37 36 29 2b 61 73 73 69 67 6e 28 7a 74 61 72 67 31 2c 72 65 67 37 37 29 2b 61 73 73 69 | reg76)+assign(ztarg1,reg77)+assi |
16320 | 67 6e 28 66 6f 72 77 61 72 64 2c 31 29 2b 61 73 73 69 67 6e 28 72 69 67 68 74 6c 65 66 74 2c 30 | gn(forward,1)+assign(rightleft,0 |
16340 | 29 2b 61 73 73 69 67 6e 28 79 70 6f 73 2c 34 29 2c 30 29 3b 20 2f 2f 20 72 65 73 65 74 20 70 6f | )+assign(ypos,4),0);.//.reset.po |
16360 | 73 69 74 69 6f 6e 20 69 66 20 62 61 63 6b 73 70 61 63 65 20 69 73 20 70 72 65 73 73 65 64 0d 0a | sition.if.backspace.is.pressed.. |
16380 | 0d 0a 69 66 28 61 6c 74 26 6c 6d 6f 75 73 65 2c 61 73 73 69 67 6e 28 78 74 61 72 67 31 2c 78 74 | ..if(alt&lmouse,assign(xtarg1,xt |
163a0 | 61 72 67 31 2b 78 6d 6f 75 73 65 2a 31 35 2a 64 65 6c 74 61 74 69 6d 65 29 2b 61 73 73 69 67 6e | arg1+xmouse*15*deltatime)+assign |
163c0 | 28 7a 74 61 72 67 31 2c 7a 74 61 72 67 31 2d 79 6d 6f 75 73 65 2a 31 35 2a 64 65 6c 74 61 74 69 | (ztarg1,ztarg1-ymouse*15*deltati |
163e0 | 6d 65 29 2c 30 29 3b 20 2f 2f 20 6d 6f 76 65 20 74 61 72 67 65 74 20 69 66 20 61 6c 74 20 69 73 | me),0);.//.move.target.if.alt.is |
16400 | 20 70 72 65 73 73 65 64 20 61 6e 64 20 6d 6f 75 73 65 20 69 73 20 63 6c 69 63 6b 65 64 0d 0a 0d | .pressed.and.mouse.is.clicked... |
16420 | 0a 78 70 6f 73 74 3d 73 69 6e 28 72 69 67 68 74 6c 65 66 74 29 2a 66 6f 72 77 61 72 64 2b 78 74 | .xpost=sin(rightleft)*forward+xt |
16440 | 61 72 67 31 3b 20 2f 2f 20 73 65 74 20 78 70 6f 73 0d 0a 7a 70 6f 73 74 3d 2d 63 6f 73 28 72 69 | arg1;.//.set.xpos..zpost=-cos(ri |
16460 | 67 68 74 6c 65 66 74 29 2a 66 6f 72 77 61 72 64 2b 7a 74 61 72 67 31 3b 20 2f 2f 20 73 65 74 20 | ghtleft)*forward+ztarg1;.//.set. |
16480 | 7a 70 6f 73 0d 0a 78 61 6c 74 3d 78 74 61 72 67 31 3b 0d 0a 7a 61 6c 74 3d 7a 74 61 72 67 31 2d | zpos..xalt=xtarg1;..zalt=ztarg1- |
164a0 | 2e 30 30 31 3b 0d 0a 61 6c 74 70 6f 73 3d 6d 61 78 28 6d 69 6e 28 61 6c 74 70 6f 73 2b 61 6c 74 | .001;..altpos=max(min(altpos+alt |
164c0 | 2a 2e 31 2d 2e 30 35 2c 31 29 2c 30 29 3b 20 2f 2f 20 73 6f 6d 65 20 65 78 74 72 61 20 76 61 72 | *.1-.05,1),0);.//.some.extra.var |
164e0 | 73 20 74 68 61 74 20 61 6c 6c 6f 77 20 66 6f 72 20 73 6d 6f 6f 74 68 69 6e 67 20 77 68 65 6e 20 | s.that.allow.for.smoothing.when. |
16500 | 70 72 65 73 73 69 6e 67 20 61 6c 74 0d 0a 78 70 6f 73 20 3d 20 78 70 6f 73 74 2a 28 31 2d 61 6c | pressing.alt..xpos.=.xpost*(1-al |
16520 | 74 70 6f 73 29 2b 78 61 6c 74 2a 61 6c 74 70 6f 73 3b 20 2f 2f 20 73 65 74 20 66 69 6e 61 6c 20 | tpos)+xalt*altpos;.//.set.final. |
16540 | 78 70 6f 73 20 74 68 61 74 20 73 77 69 74 63 68 65 73 20 62 65 74 77 65 65 6e 20 74 77 6f 20 76 | xpos.that.switches.between.two.v |
16560 | 61 72 73 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 77 68 65 74 68 65 72 20 61 6c 74 20 69 73 20 | ars.depending.on.whether.alt.is. |
16580 | 70 72 65 73 73 65 64 0d 0a 79 70 6f 73 20 3d 20 6d 61 78 28 6d 69 6e 28 79 70 6f 73 2b 73 68 69 | pressed..ypos.=.max(min(ypos+shi |
165a0 | 66 74 2a 2e 32 2a 64 65 6c 74 61 74 69 6d 65 2a 34 30 2d 63 6f 6e 74 72 6f 6c 2a 2e 32 2a 64 65 | ft*.2*deltatime*40-control*.2*de |
165c0 | 6c 74 61 74 69 6d 65 2a 34 30 2c 31 30 29 2c 2e 35 29 3b 20 2f 2f 20 6d 6f 76 65 20 75 70 20 6f | ltatime*40,10),.5);.//.move.up.o |
165e0 | 72 20 64 6f 77 6e 20 69 66 20 73 68 69 66 74 2f 63 6f 6e 74 72 6f 6c 20 69 73 20 70 72 65 73 73 | r.down.if.shift/control.is.press |
16600 | 65 64 0d 0a 7a 70 6f 73 20 3d 20 7a 70 6f 73 74 2a 28 31 2d 61 6c 74 70 6f 73 29 2b 7a 61 6c 74 | ed..zpos.=.zpost*(1-altpos)+zalt |
16620 | 2a 61 6c 74 70 6f 73 3b 20 2f 2f 20 73 61 6d 65 20 61 73 20 78 70 6f 73 0d 0a 78 74 61 72 67 3d | *altpos;.//.same.as.xpos..xtarg= |
16640 | 78 74 61 72 67 31 3b 20 2f 2f 20 73 65 74 20 63 61 6d 65 72 61 20 74 61 72 67 65 74 20 28 78 29 | xtarg1;.//.set.camera.target.(x) |
16660 | 0d 0a 79 74 61 72 67 3d 79 70 6f 73 2a 2e 35 20 3b 20 2f 2f 73 65 74 20 63 61 6d 65 72 61 20 74 | ..ytarg=ypos*.5.;.//set.camera.t |
16680 | 61 72 67 65 74 20 28 79 29 20 74 6f 20 31 2f 32 20 68 65 69 67 68 74 0d 0a 7a 74 61 72 67 3d 7a | arget.(y).to.1/2.height..ztarg=z |
166a0 | 74 61 72 67 31 3b 20 2f 2f 20 73 65 74 20 63 61 6d 65 72 61 20 74 61 72 67 65 74 20 28 7a 29 0d | targ1;.//.set.camera.target.(z). |
166c0 | 0a 78 70 6f 73 32 3d 78 70 6f 73 2d 78 74 61 72 67 3b 20 2f 2f 0d 0a 79 70 6f 73 32 3d 79 70 6f | .xpos2=xpos-xtarg;.//..ypos2=ypo |
166e0 | 73 2d 79 74 61 72 67 3b 20 2f 2f 20 74 65 6d 70 20 76 61 72 73 20 66 6f 72 20 63 61 6c 63 75 6c | s-ytarg;.//.temp.vars.for.calcul |
16700 | 61 74 69 6e 67 20 72 6f 74 61 74 69 6f 6e 0d 0a 7a 70 6f 73 32 3d 7a 70 6f 73 2d 7a 74 61 72 67 | ating.rotation..zpos2=zpos-ztarg |
16720 | 3b 20 2f 2f 0d 0a 78 72 6f 74 20 3d 20 28 61 74 61 6e 32 28 73 71 72 74 28 78 70 6f 73 32 2a 78 | ;.//..xrot.=.(atan2(sqrt(xpos2*x |
16740 | 70 6f 73 32 2b 7a 70 6f 73 32 2a 7a 70 6f 73 32 29 2c 79 70 6f 73 32 29 29 2a 28 31 2d 61 6c 74 | pos2+zpos2*zpos2),ypos2))*(1-alt |
16760 | 70 6f 73 29 2d 24 70 69 2f 32 3b 20 2f 2f 20 63 61 6c 63 75 6c 61 74 65 20 77 68 65 72 65 20 74 | pos)-$pi/2;.//.calculate.where.t |
16780 | 68 65 20 63 61 6d 65 72 61 20 73 68 6f 75 6c 64 20 62 65 20 70 6f 69 6e 74 69 6e 67 0d 0a 79 72 | he.camera.should.be.pointing..yr |
167a0 | 6f 74 20 3d 20 28 61 74 61 6e 32 28 7a 70 6f 73 32 2c 78 70 6f 73 32 29 2b 24 70 69 2f 32 29 2a | ot.=.(atan2(zpos2,xpos2)+$pi/2)* |
167c0 | 28 31 2d 61 6c 74 70 6f 73 29 3b 20 2f 2f 20 6d 6f 72 65 20 63 61 6c 63 75 6c 61 74 69 6f 6e 73 | (1-altpos);.//.more.calculations |
167e0 | 0d 0a 7a 72 6f 74 20 3d 28 7a 72 6f 74 2a 2e 38 33 35 2b 78 6d 6f 75 73 65 2a 2e 30 35 2a 6c 6d | ..zrot.=(zrot*.835+xmouse*.05*lm |
16800 | 6f 75 73 65 2a 69 6e 62 6f 75 6e 64 73 2a 2e 37 35 29 2a 28 31 2d 61 6c 74 70 6f 73 29 3b 20 2f | ouse*inbounds*.75)*(1-altpos);./ |
16820 | 2f 20 74 68 69 73 20 67 69 76 65 73 20 61 20 73 6c 69 67 68 74 20 72 6f 6c 6c 20 77 68 65 6e 20 | /.this.gives.a.slight.roll.when. |
16840 | 6d 6f 76 69 6e 67 20 72 69 67 68 74 2f 6c 65 66 74 2d 2d 61 20 73 75 62 74 6c 65 20 62 75 74 20 | moving.right/left--a.subtle.but. |
16860 | 73 6d 6f 6f 74 68 2d 6c 6f 6f 6b 69 6e 67 20 65 66 66 65 63 74 0d 0a 0d 0a 72 65 67 30 30 20 3d | smooth-looking.effect....reg00.= |
16880 | 20 78 70 6f 73 3b 20 2f 2f 0d 0a 72 65 67 30 31 20 3d 20 79 70 6f 73 3b 20 2f 2f 20 73 65 74 20 | .xpos;.//..reg01.=.ypos;.//.set. |
168a0 | 67 6c 6f 62 61 6c 20 70 6f 73 20 76 61 72 73 0d 0a 72 65 67 30 32 20 3d 20 7a 70 6f 73 3b 20 2f | global.pos.vars..reg02.=.zpos;./ |
168c0 | 2f 0d 0a 72 65 67 30 33 20 3d 20 78 72 6f 74 3b 20 2f 2f 0d 0a 72 65 67 30 34 20 3d 20 79 72 6f | /..reg03.=.xrot;.//..reg04.=.yro |
168e0 | 74 3b 20 2f 2f 20 73 65 74 20 67 6c 6f 62 61 6c 20 72 6f 74 61 74 69 6f 6e 20 76 61 72 73 0d 0a | t;.//.set.global.rotation.vars.. |
16900 | 72 65 67 30 35 20 3d 20 7a 72 6f 74 3b 20 2f 2f 00 19 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d | reg05.=.zrot;.//.....tb=0;..gt.= |
16920 | 20 67 65 74 74 69 6d 65 28 30 29 0d 0a 00 71 00 00 00 2f 2f 20 43 61 6d 65 72 61 20 43 6f 64 65 | .gettime(0)...q...//.Camera.Code |
16940 | 0d 0a 0d 0a 61 73 73 69 67 6e 28 78 74 61 72 67 31 2c 72 65 67 37 36 29 2b 61 73 73 69 67 6e 28 | ....assign(xtarg1,reg76)+assign( |
16960 | 7a 74 61 72 67 31 2c 72 65 67 37 37 29 2b 61 73 73 69 67 6e 28 66 6f 72 77 61 72 64 2c 30 29 2b | ztarg1,reg77)+assign(forward,0)+ |
16980 | 61 73 73 69 67 6e 28 72 69 67 68 74 6c 65 66 74 2c 30 29 2b 61 73 73 69 67 6e 28 79 70 6f 73 2c | assign(rightleft,0)+assign(ypos, |
169a0 | 34 29 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 15 00 00 00 56 00 00 00 52 00 00 00 5b | 4).....................V...R...[ |
169c0 | 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a 0d 0a 53 65 65 20 61 62 6f 76 | [.Additional.Info.]]....See.abov |
169e0 | 65 20 73 63 6f 70 65 2e 20 49 74 20 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 63 61 6d 65 72 61 20 | e.scope..It.controls.the.camera. |
16a00 | 66 6f 72 20 74 68 65 20 33 44 20 56 69 65 77 2e 00 19 00 00 00 14 00 00 00 01 00 00 00 50 00 00 | for.the.3D.View..............P.. |
16a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff d6 04 00 00 82 02 00 0b 24 80 00 00 00 ff 00 | .........................$...... |
16a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 | ...........................@..AV |
16a60 | 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 5f 00 | S.2.8+.Effect.List.Config....._. |
16a80 | 00 00 01 00 00 00 06 00 00 00 61 61 3d 31 3b 00 4d 00 00 00 61 61 3d 6d 61 78 28 6d 69 6e 28 61 | ..........aa=1;.M...aa=max(min(a |
16aa0 | 61 2b 73 69 67 6e 28 72 65 67 35 35 2d 61 61 29 2a 2e 31 2c 31 29 2c 30 29 3b 0d 0a 61 6c 70 68 | a+sign(reg55-aa)*.1,1),0);..alph |
16ac0 | 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 3b 0d 0a | aout=aa;..enabled=above(aa,0);.. |
16ae0 | 00 19 00 00 00 14 00 00 00 01 00 00 00 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2b 00 00 | .............P...............+.. |
16b00 | 00 06 04 00 00 01 1d 01 00 00 64 78 3d 78 2a 69 68 77 3b 64 79 3d 79 3b 64 7a 3d 31 3b 0d 0a 0d | ..........dx=x*ihw;dy=y;dz=1;... |
16b20 | 0a 64 78 31 3d 64 78 2a 63 7a 2d 64 79 2a 73 7a 3b 0d 0a 64 79 31 3d 64 78 2a 73 7a 2b 64 79 2a | .dx1=dx*cz-dy*sz;..dy1=dx*sz+dy* |
16b40 | 63 7a 3b 0d 0a 64 79 33 3d 64 79 31 2a 63 78 2d 64 7a 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 31 2a | cz;..dy3=dy1*cx-dz*sx;..dz2=dy1* |
16b60 | 73 78 2b 64 7a 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 79 2d 64 7a 32 2a 73 79 3b 0d 0a 64 | sx+dz*cx;..dx3=dx1*cy-dz2*sy;..d |
16b80 | 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d 0a 0d 0a 6b 3d 28 2d 6f 79 29 2f 28 2d 64 | z3=dx1*sy+dz2*cy;....k=(-oy)/(-d |
16ba0 | 79 33 29 3b 0d 0a 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 2c 30 29 2c 31 30 30 2c 6b 29 3b 0d 0a 0d | y3);..k=if(below(k,0),100,k);... |
16bc0 | 0a 78 31 3d 6b 2a 64 78 33 2b 6f 78 3b 0d 0a 79 31 3d 6b 2a 64 79 33 2b 6f 79 3b 0d 0a 7a 31 3d | .x1=k*dx3+ox;..y1=k*dy3+oy;..z1= |
16be0 | 6b 2a 64 7a 33 2b 6f 7a 3b 0d 0a 0d 0a 78 3d 78 31 2b 31 3b 0d 0a 79 3d 2d 7a 31 2b 31 3b 0d 0a | k*dz3+oz;....x=x1+1;..y=-z1+1;.. |
16c00 | 0d 0a 61 6c 70 68 61 20 3d 28 31 2e 37 35 2d 73 71 72 74 28 78 31 2a 78 31 2b 7a 31 2a 7a 31 29 | ..alpha.=(1.75-sqrt(x1*x1+z1*z1) |
16c20 | 2a 2e 31 37 35 29 00 b1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 | *.175).....t=t+1;deltatime.=.get |
16c40 | 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 | time(time);fr=fr*.9+deltatime*.1 |
16c60 | 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 | ;framerate=1/fr;time.=.gettime(0 |
16c80 | 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b | );tb.=.tb+1;timeb.=.gettime(gt); |
16ca0 | 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b | xmouse=getkbmouse(1);ymouse=getk |
16cc0 | 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f | bmouse(2);inbounds=below(abs(xmo |
16ce0 | 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 6c 6d 6f | use),1)&below(abs(ymouse),1);lmo |
16d00 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 | use.=.getkbmouse(3);rmouse.=.get |
16d20 | 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 | kbmouse(4);shift.=.getkbmouse(5) |
16d40 | 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 | ;control.=.getkbmouse(17);backsp |
16d60 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b | ace.=.getkbmouse(8);space.=.getk |
16d80 | 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 | bmouse(32);right.=.getkbmouse(39 |
16da0 | 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 | );left.=.getkbmouse(37);up.=.get |
16dc0 | 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 | kbmouse(38);down.=.getkbmouse(40 |
16de0 | 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | );sizechange=bnot(equal(oh,h))|b |
16e00 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
16e20 | 77 3b 0d 0a 72 65 67 33 33 3d 66 72 61 6d 65 72 61 74 65 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 0d | w;..reg33=framerate;..ox=reg00;. |
16e40 | 0a 6f 79 3d 72 65 67 30 31 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 0d 0a 0d 0a 78 72 6f 74 3d 72 65 | .oy=reg01;..oz=reg02;....xrot=re |
16e60 | 67 30 33 3b 0d 0a 79 72 6f 74 3d 72 65 67 30 34 3b 0d 0a 7a 72 6f 74 3d 72 65 67 30 35 3b 0d 0a | g03;..yrot=reg04;..zrot=reg05;.. |
16e80 | 0d 0a 73 78 3d 73 69 6e 28 78 72 6f 74 29 3b 73 79 3d 73 69 6e 28 79 72 6f 74 29 3b 73 7a 3d 73 | ..sx=sin(xrot);sy=sin(yrot);sz=s |
16ea0 | 69 6e 28 7a 72 6f 74 29 3b 0d 0a 63 78 3d 63 6f 73 28 78 72 6f 74 29 3b 63 79 3d 63 6f 73 28 79 | in(zrot);..cx=cos(xrot);cy=cos(y |
16ec0 | 72 6f 74 29 3b 63 7a 3d 63 6f 73 28 7a 72 6f 74 29 3b 20 69 68 77 3d 31 2f 68 77 00 00 00 00 00 | rot);cz=cos(zrot);.ihw=1/hw..... |
16ee0 | 07 00 00 00 70 69 3d 24 70 69 00 00 00 00 00 01 00 00 00 0c 00 00 00 20 00 00 00 01 00 00 00 01 | ....pi=$pi...................... |
16f00 | 00 00 00 01 00 00 00 00 00 00 00 fe ff ff ff a3 98 00 00 81 01 00 05 24 80 00 00 00 80 00 00 00 | .......................$........ |
16f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 | .........................@..AVS. |
16f40 | 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 76 00 00 00 | 2.8+.Effect.List.Config.....v... |
16f60 | 00 00 00 00 6a 00 00 00 2f 2f 20 61 6e 20 65 66 66 65 63 74 20 6c 69 73 74 20 69 73 20 6e 65 63 | ....j...//.an.effect.list.is.nec |
16f80 | 65 73 73 61 72 79 20 73 6f 20 74 68 61 74 20 74 68 65 20 73 63 6f 70 65 73 20 61 72 65 20 6e 6f | essary.so.that.the.scopes.are.no |
16fa0 | 74 0d 0a 2f 2f 20 61 64 64 69 74 69 76 65 20 74 6f 20 74 68 65 6d 73 65 6c 76 65 73 2c 20 6f 6e | t..//.additive.to.themselves,.on |
16fc0 | 6c 79 20 74 68 65 20 62 61 63 6b 67 72 6f 75 6e 64 00 00 00 00 00 28 00 00 00 04 00 00 00 02 00 | ly.the.background.....(......... |
16fe0 | 01 80 24 00 00 00 84 04 00 00 01 7f 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 | ..$............dy=abs(getosc(asi |
17000 | 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 3b | n(sin(i*$pi))/$pi,.1,alt*.5)*1); |
17020 | 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f | ..dx=10*sin(i*2*$pi);..dz=-10*co |
17040 | 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f | s(i*2*$pi);....dy=dy-oy;dx=-dx+o |
17060 | 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 | x;dz=dz-oz;..dx1=dx*cy-dz*sy;..d |
17080 | 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 | z1=dx*sy+dz*cy;..dy2=dy*cx-dz1*s |
170a0 | 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 | x;..dz2=dy*sx+dz1*cx;..dx3=dx1*c |
170c0 | 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d | z-dy2*sz;..dy3=dx1*sz+dy2*cz;... |
170e0 | 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 | .dz3=max(dz2,.01);..x=-(dx3)/dz3 |
17100 | 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 | *hw;..y=-(dy3)/dz3;..skip=equal( |
17120 | 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 | dz3,.01);....c=1-dz3*.04;..red=c |
17140 | 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b | ;..green=c;..blue=c;....num=num+ |
17160 | 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | 1;..sw=-sw;.......t=t+1;deltatim |
17180 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
171a0 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
171c0 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
171e0 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
17200 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | se=getkbmouse(2);xmousec=min(max |
17220 | 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 | (xmouse,-1),1);ymousec=min(max(y |
17240 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse,-1),1);lmouse.=.getkbmouse |
17260 | 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 | (3);rmouse.=.getkbmouse(4);shift |
17280 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 | .=.getkbmouse(5);control.=.getkb |
172a0 | 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse(17);backspace.=.getkbmouse |
172c0 | 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 | (8);space.=.getkbmouse(32);right |
172e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(39);left.=.getkbmo |
17300 | 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e | use(37);up.=.getkbmouse(38);down |
17320 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 | .=.getkbmouse(40);num.=.1;sw.=.1 |
17340 | 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e | ;sizechange=bnot(equal(oh,h))|bn |
17360 | 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 | ot(equal(ow,w));oh=h;ow=w;hw=h/w |
17380 | 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 | ;....n=sqrt(h*w)*.5;..linesize=1 |
173a0 | 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 | ;..ox=reg00;.rx=reg03;..oy=reg01 |
173c0 | 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 | ;.ry=reg04;..oz=reg02;.rz=-reg05 |
173e0 | 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 | ;..sx=sin(rx);sy=sin(ry);sz=sin( |
17400 | 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 | rz);..cx=cos(rx);cy=cos(ry);cz=c |
17420 | 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d | os(rz);.......tb=0;..gt.=.gettim |
17440 | 65 28 30 29 00 15 00 00 00 2f 2f 20 63 69 72 63 6c 65 20 77 61 76 65 20 73 63 6f 70 65 00 02 00 | e(0).....//.circle.wave.scope... |
17460 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 92 04 00 00 01 8d 01 00 00 64 79 3d 61 62 | ..............$............dy=ab |
17480 | 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 | s(getosc(asin(sin(i*$pi))/$pi,.1 |
174a0 | 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a 32 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 | ,alt*.5)*1)*2;..dx=10*sin(i*2*$p |
174c0 | 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d | i);..dz=-10*cos(i*2*$pi);....dy= |
174e0 | 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 | dy-oy;dx=-dx+ox;dz=dz-oz;..dx1=d |
17500 | 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 | x*cy-dz*sy;..dz1=dx*sy+dz*cy;..d |
17520 | 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a | y2=dy*cx-dz1*sx;..dz2=dy*sx+dz1* |
17540 | 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 | cx;..dx3=dx1*cz-dy2*sz;..dy3=dx1 |
17560 | 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b | *sz+dy2*cz;....dz3=max(dz2,.01); |
17580 | 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 | ..x=-(dx3)/dz3*hw;..y=-(dy3)/dz3 |
175a0 | 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 | ;..skip=equal(dz3,.01);....c=1-d |
175c0 | 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 2a 2e 36 36 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 36 36 | z3*.04;..red=c*.66;..green=c*.66 |
175e0 | 3b 0d 0a 62 6c 75 65 3d 63 2a 2e 36 36 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 | ;..blue=c*.66;....num=num+1;..sw |
17600 | 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | =-sw;.......t=t+1;deltatime.=.ge |
17620 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
17640 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
17660 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
17680 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
176a0 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
176c0 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
176e0 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
17700 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
17720 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
17740 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
17760 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
17780 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
177a0 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
177c0 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
177e0 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
17800 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e | al(ow,w));oh=h;ow=w;hw=h/w;....n |
17820 | 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d | =sqrt(h*w)*.5;..linesize=1;..ox= |
17840 | 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 | reg00;.rx=reg03;..oy=reg01;.ry=r |
17860 | 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d | eg04;..oz=reg02;.rz=-reg05;..sx= |
17880 | 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a | sin(rx);sy=sin(ry);sz=sin(rz);.. |
178a0 | 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 | cx=cos(rx);cy=cos(ry);cz=cos(rz) |
178c0 | 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 15 | ;.......tb=0;..gt.=.gettime(0).. |
178e0 | 00 00 00 2f 2f 20 63 69 72 63 6c 65 20 77 61 76 65 20 73 63 6f 70 65 00 02 00 00 00 01 00 00 00 | ...//.circle.wave.scope......... |
17900 | ff ff ff 00 01 00 00 00 24 00 00 00 92 04 00 00 01 8d 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f | ........$............dy=abs(geto |
17920 | 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e | sc(asin(sin(i*$pi))/$pi,.1,alt*. |
17940 | 35 29 2a 31 29 2a 33 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 | 5)*1)*3;..dx=10*sin(i*2*$pi);..d |
17960 | 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b | z=-10*cos(i*2*$pi);....dy=dy-oy; |
17980 | 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 | dx=-dx+ox;dz=dz-oz;..dx1=dx*cy-d |
179a0 | 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a | z*sy;..dz1=dx*sy+dz*cy;..dy2=dy* |
179c0 | 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 | cx-dz1*sx;..dz2=dy*sx+dz1*cx;..d |
179e0 | 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 | x3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy |
17a00 | 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 | 2*cz;....dz3=max(dz2,.01);..x=-( |
17a20 | 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 | dx3)/dz3*hw;..y=-(dy3)/dz3;..ski |
17a40 | 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 | p=equal(dz3,.01);....c=1-dz3*.04 |
17a60 | 3b 0d 0a 72 65 64 3d 63 2a 2e 33 33 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 33 33 3b 0d 0a 62 6c 75 | ;..red=c*.33;..green=c*.33;..blu |
17a80 | 65 3d 63 2a 2e 33 33 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d | e=c*.33;....num=num+1;..sw=-sw;. |
17aa0 | 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | ......t=t+1;deltatime.=.gettime( |
17ac0 | 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d | time);fr=fr*.9+deltatime*.1;fram |
17ae0 | 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 | erate=1/fr;time.=.gettime(0);tb. |
17b00 | 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 | =.tb+1;timeb.=.gettime(gt);xmous |
17b20 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | e=getkbmouse(1);ymouse=getkbmous |
17b40 | 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c | e(2);xmousec=min(max(xmouse,-1), |
17b60 | 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 1);ymousec=min(max(ymouse,-1),1) |
17b80 | 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d | ;lmouse.=.getkbmouse(3);rmouse.= |
17ba0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(4);shift.=.getkbmous |
17bc0 | 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 | e(5);control.=.getkbmouse(17);ba |
17be0 | 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 | ckspace.=.getkbmouse(8);space.=. |
17c00 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(32);right.=.getkbmous |
17c20 | 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d | e(39);left.=.getkbmouse(37);up.= |
17c40 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(38);down.=.getkbmous |
17c60 | 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d | e(40);num.=.1;sw.=.1;sizechange= |
17c80 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c | bnot(equal(oh,h))|bnot(equal(ow, |
17ca0 | 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 | w));oh=h;ow=w;hw=h/w;....n=sqrt( |
17cc0 | 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b | h*w)*.5;..linesize=1;..ox=reg00; |
17ce0 | 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d | .rx=reg03;..oy=reg01;.ry=reg04;. |
17d00 | 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 | .oz=reg02;.rz=-reg05;..sx=sin(rx |
17d20 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 | );sy=sin(ry);sz=sin(rz);..cx=cos |
17d40 | 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 | (rx);cy=cos(ry);cz=cos(rz);..... |
17d60 | 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 15 00 00 00 2f 2f 20 | ..tb=0;..gt.=.gettime(0).....//. |
17d80 | 63 69 72 63 6c 65 20 77 61 76 65 20 73 63 6f 70 65 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | circle.wave.scope............... |
17da0 | 00 00 24 00 00 00 5f 04 00 00 01 53 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 | ..$..._....S...dy=0;..dx=10*sin( |
17dc0 | 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d | i*2*$pi);..dz=-10*cos(i*2*$pi);. |
17de0 | 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d | ...dy=dy-oy;dx=-dx+ox;dz=dz-oz;. |
17e00 | 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a | .dx1=dx*cy-dz*sy;..dz1=dx*sy+dz* |
17e20 | 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 | cy;..dy2=dy*cx-dz1*sx;..dz2=dy*s |
17e40 | 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 | x+dz1*cx;..dx3=dx1*cz-dy2*sz;..d |
17e60 | 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 | y3=dx1*sz+dy2*cz;....dz3=max(dz2 |
17e80 | 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 | ,.01);..x=-(dx3)/dz3*hw;..y=-(dy |
17ea0 | 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d | 3)/dz3;..skip=equal(dz3,.01);... |
17ec0 | 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d | .c=1-dz3*.04;..red=c;..green=c;. |
17ee0 | 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d | .blue=c;....num=num+1;..sw=-sw;. |
17f00 | 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | ......t=t+1;deltatime.=.gettime( |
17f20 | 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d | time);fr=fr*.9+deltatime*.1;fram |
17f40 | 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 | erate=1/fr;time.=.gettime(0);tb. |
17f60 | 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 | =.tb+1;timeb.=.gettime(gt);xmous |
17f80 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | e=getkbmouse(1);ymouse=getkbmous |
17fa0 | 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c | e(2);xmousec=min(max(xmouse,-1), |
17fc0 | 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 1);ymousec=min(max(ymouse,-1),1) |
17fe0 | 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d | ;lmouse.=.getkbmouse(3);rmouse.= |
18000 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(4);shift.=.getkbmous |
18020 | 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 | e(5);control.=.getkbmouse(17);ba |
18040 | 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 | ckspace.=.getkbmouse(8);space.=. |
18060 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(32);right.=.getkbmous |
18080 | 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d | e(39);left.=.getkbmouse(37);up.= |
180a0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(38);down.=.getkbmous |
180c0 | 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d | e(40);num.=.1;sw.=.1;sizechange= |
180e0 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c | bnot(equal(oh,h))|bnot(equal(ow, |
18100 | 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 | w));oh=h;ow=w;hw=h/w;....n=sqrt( |
18120 | 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b | h*w)*.5;..linesize=1;..ox=reg00; |
18140 | 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d | .rx=reg03;..oy=reg01;.ry=reg04;. |
18160 | 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 | .oz=reg02;.rz=-reg05;..sx=sin(rx |
18180 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 | );sy=sin(ry);sz=sin(rz);..cx=cos |
181a0 | 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 | (rx);cy=cos(ry);cz=cos(rz);..... |
181c0 | 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 1c 00 00 00 2f 2f 20 | ..tb=0;..gt.=.gettime(0).....//. |
181e0 | 63 69 72 63 6c 65 20 77 61 76 65 20 73 63 6f 70 65 20 28 62 61 73 65 29 00 02 00 00 00 01 00 00 | circle.wave.scope.(base)........ |
18200 | 00 ff ff ff 00 01 00 00 00 24 00 00 00 58 04 00 00 01 74 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d | .........$...X....t...dy=0;..dx= |
18220 | 2e 35 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 2e 35 2a 63 6f | .5*sin(i*2*$pi)+reg76;..dz=.5*co |
18240 | 73 28 69 2a 32 2a 24 70 69 29 2b 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 | s(i*2*$pi)+reg77;....dy=dy-oy;dx |
18260 | 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a | =-dx+ox;dz=dz-oz;..dx1=dx*cy-dz* |
18280 | 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 | sy;..dz1=dx*sy+dz*cy;..dy2=dy*cx |
182a0 | 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 | -dz1*sx;..dz2=dy*sx+dz1*cx;..dx3 |
182c0 | 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a | =dx1*cz-dy2*sz;..dy3=dx1*sz+dy2* |
182e0 | 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 | cz;....dz3=max(dz2,.01);..x=-(dx |
18300 | 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d | 3)/dz3*hw;..y=-(dy3)/dz3;..skip= |
18320 | 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d | equal(dz3,.01);....c=1-dz3*.04;. |
18340 | 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 | .red=c;..green=c;..blue=c;....li |
18360 | 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a | nesize=4-dz3*.5;....num=num+1;.. |
18380 | 73 77 3d 2d 73 77 3b 0d 0a 00 ac 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 | sw=-sw;.......t=t+1;deltatime.=. |
183a0 | 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 | gettime(time);fr=fr*.9+deltatime |
183c0 | 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d | *.1;framerate=1/fr;time.=.gettim |
183e0 | 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 | e(0);tb.=.tb+1;timeb.=.gettime(g |
18400 | 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 | t);xmouse=getkbmouse(1);ymouse=g |
18420 | 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f | etkbmouse(2);xmousec=min(max(xmo |
18440 | 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 | use,-1),1);ymousec=min(max(ymous |
18460 | 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b | e,-1),1);lmouse.=.getkbmouse(3); |
18480 | 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 | rmouse.=.getkbmouse(4);shift.=.g |
184a0 | 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | etkbmouse(5);control.=.getkbmous |
184c0 | 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b | e(17);backspace.=.getkbmouse(8); |
184e0 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 | space.=.getkbmouse(32);right.=.g |
18500 | 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(39);left.=.getkbmouse( |
18520 | 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 | 37);up.=.getkbmouse(38);down.=.g |
18540 | 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a | etkbmouse(40);num.=.1;sw.=.1;siz |
18560 | 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 | echange=bnot(equal(oh,h))|bnot(e |
18580 | 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d | qual(ow,w));oh=h;ow=w;hw=h/w;... |
185a0 | 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 31 35 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d | .n=sqrt(h*w)*.15;..ox=reg00;.rx= |
185c0 | 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d | reg03;..oy=reg01;.ry=reg04;..oz= |
185e0 | 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 | reg02;.rz=-reg05;..sx=sin(rx);sy |
18600 | 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 | =sin(ry);sz=sin(rz);..cx=cos(rx) |
18620 | 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 | ;cy=cos(ry);cz=cos(rz);.......tb |
18640 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 | =0;..gt.=.gettime(0)............ |
18660 | 00 ff ff ff 00 01 00 00 00 24 00 00 00 61 04 00 00 01 66 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d | .........$...a....f...dy=0;..dx= |
18680 | 28 69 2a 2e 35 2d 2e 35 29 2a 2e 35 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 69 2a 2e 35 2b 72 65 67 | (i*.5-.5)*.5+reg76;..dz=i*.5+reg |
186a0 | 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d | 77;....dy=dy-oy;dx=-dx+ox;dz=dz- |
186c0 | 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 | oz;..dx1=dx*cy-dz*sy;..dz1=dx*sy |
186e0 | 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d | +dz*cy;..dy2=dy*cx-dz1*sx;..dz2= |
18700 | 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a | dy*sx+dz1*cx;..dx3=dx1*cz-dy2*sz |
18720 | 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 | ;..dy3=dx1*sz+dy2*cz;....dz3=max |
18740 | 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d | (dz2,.01);..x=-(dx3)/dz3*hw;..y= |
18760 | 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 | -(dy3)/dz3;..skip=equal(dz3,.01) |
18780 | 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e | ;....c=1-dz3*.04;..red=c;..green |
187a0 | 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e | =c;..blue=c;....linesize=4-dz3*. |
187c0 | 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 c3 02 00 00 | 5;....num=num+1;..sw=-sw;....... |
187e0 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
18800 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
18820 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
18840 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
18860 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
18880 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
188a0 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
188c0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
188e0 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
18900 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
18920 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
18940 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
18960 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
18980 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
189a0 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
189c0 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
189e0 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e | =h;ow=w;hw=h/w;....n=sqrt(h*w)*. |
18a00 | 30 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 | 05;....ox=reg00;.rx=reg03;..oy=r |
18a20 | 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 | eg01;.ry=reg04;..oz=reg02;.rz=-r |
18a40 | 65 67 30 35 3b 0d 0a 6d 79 6d 6f 6e 65 79 3d 31 30 30 30 30 30 30 30 30 30 3b 0d 0a 73 78 3d 73 | eg05;..mymoney=1000000000;..sx=s |
18a60 | 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 | in(rx);sy=sin(ry);sz=sin(rz);..c |
18a80 | 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b | x=cos(rx);cy=cos(ry);cz=cos(rz); |
18aa0 | 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 | .......tb=0;..gt.=.gettime(0)... |
18ac0 | 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4d 04 00 00 01 67 01 00 00 64 | ..................$...M....g...d |
18ae0 | 79 3d 30 3b 0d 0a 64 78 3d 28 2d 69 2a 2e 35 2b 2e 35 29 2a 2e 35 2b 72 65 67 37 36 3b 0d 0a 64 | y=0;..dx=(-i*.5+.5)*.5+reg76;..d |
18b00 | 7a 3d 69 2a 2e 35 2b 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 | z=i*.5+reg77;....dy=dy-oy;dx=-dx |
18b20 | 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d | +ox;dz=dz-oz;..dx1=dx*cy-dz*sy;. |
18b40 | 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 | .dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1 |
18b60 | 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 | *sx;..dz2=dy*sx+dz1*cx;..dx3=dx1 |
18b80 | 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d | *cz-dy2*sz;..dy3=dx1*sz+dy2*cz;. |
18ba0 | 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 | ...dz3=max(dz2,.01);..x=-(dx3)/d |
18bc0 | 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 | z3*hw;..y=-(dy3)/dz3;..skip=equa |
18be0 | 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 | l(dz3,.01);....c=1-dz3*.04;..red |
18c00 | 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 | =c;..green=c;..blue=c;....linesi |
18c20 | 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d | ze=4-dz3*.5;....num=num+1;..sw=- |
18c40 | 73 77 3b 0d 0a 00 ae 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 | sw;.......t=t+1;deltatime.=.gett |
18c60 | 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b | ime(time);fr=fr*.9+deltatime*.1; |
18c80 | 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | framerate=1/fr;time.=.gettime(0) |
18ca0 | 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 | ;tb.=.tb+1;timeb.=.gettime(gt);x |
18cc0 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 | mouse=getkbmouse(1);ymouse=getkb |
18ce0 | 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c | mouse(2);xmousec=min(max(xmouse, |
18d00 | 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 | -1),1);ymousec=min(max(ymouse,-1 |
18d20 | 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 | ),1);lmouse.=.getkbmouse(3);rmou |
18d40 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 | se.=.getkbmouse(4);shift.=.getkb |
18d60 | 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 | mouse(5);control.=.getkbmouse(17 |
18d80 | 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 | );backspace.=.getkbmouse(8);spac |
18da0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(32);right.=.getkb |
18dc0 | 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b | mouse(39);left.=.getkbmouse(37); |
18de0 | 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 | up.=.getkbmouse(38);down.=.getkb |
18e00 | 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 | mouse(40);num.=.1;sw.=.1;sizecha |
18e20 | 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c | nge=bnot(equal(oh,h))|bnot(equal |
18e40 | 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 | (ow,w));oh=h;ow=w;hw=h/w;....n=s |
18e60 | 71 72 74 28 68 2a 77 29 2a 2e 30 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | qrt(h*w)*.05;....ox=reg00;.rx=re |
18e80 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
18ea0 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
18ec0 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
18ee0 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
18f00 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff | ;..gt.=.gettime(0).............. |
18f20 | ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d | .......$............dy=0;..dx=gm |
18f40 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 | egabuf(100*num+1+flo*6);..dz=gme |
18f60 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 | gabuf(100*num+2+flo*6);....dy=dy |
18f80 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
18fa0 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
18fc0 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
18fe0 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
19000 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
19020 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
19040 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 | .skip=equal(dz3,.01);....drawmod |
19060 | 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d | e=gmegabuf(100*num+3+flo*6);..c= |
19080 | 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 | drawmode;..red=c;..green=c;..blu |
190a0 | 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 | e=c;....linesize=4-dz3*.5;....nu |
190c0 | 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 | m=num+1;..sw=-sw;.......t=t+1;de |
190e0 | 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 | ltatime.=.gettime(time);fr=fr*.9 |
19100 | 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d | +deltatime*.1;framerate=1/fr;tim |
19120 | 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d | e.=.gettime(0);tb.=.tb+1;timeb.= |
19140 | 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 | .gettime(gt);xmouse=getkbmouse(1 |
19160 | 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d | );ymouse=getkbmouse(2);xmousec=m |
19180 | 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e | in(max(xmouse,-1),1);ymousec=min |
191a0 | 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b | (max(ymouse,-1),1);lmouse.=.getk |
191c0 | 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 | bmouse(3);rmouse.=.getkbmouse(4) |
191e0 | 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d | ;shift.=.getkbmouse(5);control.= |
19200 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b | .getkbmouse(17);backspace.=.getk |
19220 | 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 | bmouse(8);space.=.getkbmouse(32) |
19240 | 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 | ;right.=.getkbmouse(39);left.=.g |
19260 | 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 | etkbmouse(37);up.=.getkbmouse(38 |
19280 | 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b | );down.=.getkbmouse(40);num.=.1; |
192a0 | 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c | sw.=.1;sizechange=bnot(equal(oh, |
192c0 | 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b | h))|bnot(equal(ow,w));oh=h;ow=w; |
192e0 | 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b | hw=h/w;....n=reg81;....ox=reg00; |
19300 | 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d | .rx=reg03;..oy=reg01;.ry=reg04;. |
19320 | 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 | .oz=reg02;.rz=-reg05;..sx=sin(rx |
19340 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 | );sy=sin(ry);sz=sin(rz);..cx=cos |
19360 | 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 | (rx);cy=cos(ry);cz=cos(rz);..... |
19380 | 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f | ..tb=0;..gt.=.gettime(0).....flo |
193a0 | 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 | =1.................$............ |
193c0 | 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f | dy=1;..dx=gmegabuf(100*num+1+flo |
193e0 | 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a | *6);..dz=gmegabuf(100*num+2+flo* |
19400 | 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d | 6);....dy=dy-oy;dx=-dx+ox;dz=dz- |
19420 | 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 | oz;..dx1=dx*cy-dz*sy;..dz1=dx*sy |
19440 | 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d | +dz*cy;..dy2=dy*cx-dz1*sx;..dz2= |
19460 | 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a | dy*sx+dz1*cx;..dx3=dx1*cz-dy2*sz |
19480 | 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 | ;..dy3=dx1*sz+dy2*cz;....dz3=max |
194a0 | 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d | (dz2,.01);..x=-(dx3)/dz3*hw;..y= |
194c0 | 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 | -(dy3)/dz3;..skip=equal(dz3,.01) |
194e0 | 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 | ;....drawmode=gmegabuf(100*num+3 |
19500 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 | +flo*6);..c=drawmode;..red=c;..g |
19520 | 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 | reen=c;..blue=c;....linesize=4-d |
19540 | 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 | z3*.5;....num=num+1;..sw=-sw;... |
19560 | a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 | ....t=t+1;deltatime.=.gettime(ti |
19580 | 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 | me);fr=fr*.9+deltatime*.1;framer |
195a0 | 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 | ate=1/fr;time.=.gettime(0);tb.=. |
195c0 | 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d | tb+1;timeb.=.gettime(gt);xmouse= |
195e0 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | getkbmouse(1);ymouse=getkbmouse( |
19600 | 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 2);xmousec=min(max(xmouse,-1),1) |
19620 | 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c | ;ymousec=min(max(ymouse,-1),1);l |
19640 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 | mouse.=.getkbmouse(3);rmouse.=.g |
19660 | 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(4);shift.=.getkbmouse( |
19680 | 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b | 5);control.=.getkbmouse(17);back |
196a0 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 | space.=.getkbmouse(8);space.=.ge |
196c0 | 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(32);right.=.getkbmouse( |
196e0 | 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 | 39);left.=.getkbmouse(37);up.=.g |
19700 | 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(38);down.=.getkbmouse( |
19720 | 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e | 40);num.=.1;sw.=.1;sizechange=bn |
19740 | 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 | ot(equal(oh,h))|bnot(equal(ow,w) |
19760 | 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d | );oh=h;ow=w;hw=h/w;....n=reg81;. |
19780 | 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 | ...ox=reg00;.rx=reg03;..oy=reg01 |
197a0 | 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 | ;.ry=reg04;..oz=reg02;.rz=-reg05 |
197c0 | 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 | ;..sx=sin(rx);sy=sin(ry);sz=sin( |
197e0 | 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 | rz);..cx=cos(rx);cy=cos(ry);cz=c |
19800 | 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d | os(rz);.......tb=0;..gt.=.gettim |
19820 | 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 | e(0).....flo=1.................$ |
19840 | 00 00 00 f1 05 00 00 01 03 03 00 00 64 79 3d 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 | ............dy=.5+sw*.5;..dx=gme |
19860 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 | gabuf(100*num+1+flo*6);..dz=gmeg |
19880 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 | abuf(100*num+2+flo*6);..dxa=dx;d |
198a0 | 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d | za=dz;....dy=dy-oy;dx=-dx+ox;dz= |
198c0 | 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 | dz-oz;..dx1=dx*cy-dz*sy;..dz1=dx |
198e0 | 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 | *sy+dz*cy;..dy2=dy*cx-dz1*sx;..d |
19900 | 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 | z2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2 |
19920 | 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d | *sz;..dy3=dx1*sz+dy2*cz;....dz3= |
19940 | 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d | max(dz2,.01);..x=-(dx3)/dz3*hw;. |
19960 | 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e | .y=-(dy3)/dz3;..skip=equal(dz3,. |
19980 | 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 | 01);....ogx=gmegabuf(100*(num-1) |
199a0 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 | +1+flo*6);..ogz=gmegabuf(100*(nu |
199c0 | 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | m-1)+2+flo*6);..ngx=gmegabuf(100 |
199e0 | 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 | *(num+1)+1+flo*6);..ngz=gmegabuf |
19a00 | 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 | (100*(num+1)+2+flo*6);....ang1=a |
19a20 | 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 | tan2(dxa-ogx,dza-ogz);..ang2=ata |
19a40 | 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 | n2(-dxa+ngx,-dza+ngz);..corner=b |
19a60 | 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a | not(below(abs(ang1-ang2),.1));.. |
19a80 | 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c | ..drawmode=gmegabuf(100*num+3+fl |
19aa0 | 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 | o*6);..c=drawmode*equal(add,1)*c |
19ac0 | 6f 72 6e 65 72 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 | orner;..red=c;..green=c;..blue=c |
19ae0 | 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 | ;....linesize=4-dz3*.5;....add=a |
19b00 | 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 | dd+1;..if(equal(add,2),assign(ad |
19b20 | 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d | d,0)+assign(num,num+1),0);..sw=- |
19b40 | 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | sw;..reg99=10;.....t=t+1;deltati |
19b60 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
19b80 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
19ba0 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
19bc0 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
19be0 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
19c00 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
19c20 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
19c40 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
19c60 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
19c80 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
19ca0 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
19cc0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
19ce0 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
19d00 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
19d20 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
19d40 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
19d60 | 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 | w;....n=reg81*2;....ox=reg00;.rx |
19d80 | 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a | =reg03;..oy=reg01;.ry=reg04;..oz |
19da0 | 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 | =reg02;.rz=-reg05;..sx=sin(rx);s |
19dc0 | 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 | y=sin(ry);sz=sin(rz);..cx=cos(rx |
19de0 | 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d | );cy=cos(ry);cz=cos(rz);....add= |
19e00 | 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 | 0;.....tb=0;..gt.=.gettime(0)... |
19e20 | 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 | ..flo=1.................$....... |
19e40 | 01 a0 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | .....dy=2;..dx=gmegabuf(100*num+ |
19e60 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 | 1+flo*6);..dz=gmegabuf(100*num+2 |
19e80 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 | +flo*6);....dy=dy-oy;dx=-dx+ox;d |
19ea0 | 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d | z=dz-oz;..dx1=dx*cy-dz*sy;..dz1= |
19ec0 | 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d | dx*sy+dz*cy;..dy2=dy*cx-dz1*sx;. |
19ee0 | 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 | .dz2=dy*sx+dz1*cx;..dx3=dx1*cz-d |
19f00 | 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a | y2*sz;..dy3=dx1*sz+dy2*cz;....dz |
19f20 | 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 | 3=max(dz2,.01);..x=-(dx3)/dz3*hw |
19f40 | 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 | ;..y=-(dy3)/dz3;..skip=equal(dz3 |
19f60 | 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | ,.01);....drawmode=gmegabuf(100* |
19f80 | 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d | num+3+flo*6);..c=drawmode;..red= |
19fa0 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
19fc0 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 | e=4-dz3*.5;....num=num+1;..sw=-s |
19fe0 | 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | w;.......t=t+1;deltatime.=.getti |
1a000 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
1a020 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
1a040 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
1a060 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
1a080 | 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d | ouse(2);xmousec=min(max(xmouse,- |
1a0a0 | 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 | 1),1);ymousec=min(max(ymouse,-1) |
1a0c0 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
1a0e0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
1a100 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
1a120 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
1a140 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
1a160 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
1a180 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
1a1a0 | 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e | ouse(40);num.=.1;sw.=.1;sizechan |
1a1c0 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
1a1e0 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 | ow,w));oh=h;ow=w;hw=h/w;....n=re |
1a200 | 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | g82;....ox=reg00;.rx=reg03;..oy= |
1a220 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
1a240 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
1a260 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
1a280 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | ;cz=cos(rz);.......tb=0;..gt.=.g |
1a2a0 | 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ettime(0).....flo=2............. |
1a2c0 | 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 | ....$............dy=1;..dx=gmega |
1a2e0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 | buf(100*num+1+flo*6);..dz=gmegab |
1a300 | 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 | uf(100*num+2+flo*6);....dy=dy-oy |
1a320 | 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d | ;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy- |
1a340 | 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 | dz*sy;..dz1=dx*sy+dz*cy;..dy2=dy |
1a360 | 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a | *cx-dz1*sx;..dz2=dy*sx+dz1*cx;.. |
1a380 | 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 | dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+d |
1a3a0 | 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d | y2*cz;....dz3=max(dz2,.01);..x=- |
1a3c0 | 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b | (dx3)/dz3*hw;..y=-(dy3)/dz3;..sk |
1a3e0 | 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 | ip=equal(dz3,.01);....drawmode=g |
1a400 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 | megabuf(100*num+3+flo*6);..c=dra |
1a420 | 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 | wmode;..red=c;..green=c;..blue=c |
1a440 | 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e | ;....linesize=4-dz3*.5;....num=n |
1a460 | 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | um+1;..sw=-sw;.......t=t+1;delta |
1a480 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
1a4a0 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
1a4c0 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
1a4e0 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
1a500 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
1a520 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
1a540 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
1a560 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
1a580 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
1a5a0 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
1a5c0 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
1a5e0 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
1a600 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
1a620 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
1a640 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
1a660 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
1a680 | 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 | h/w;....n=reg82;....ox=reg00;.rx |
1a6a0 | 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a | =reg03;..oy=reg01;.ry=reg04;..oz |
1a6c0 | 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 | =reg02;.rz=-reg05;..sx=sin(rx);s |
1a6e0 | 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 | y=sin(ry);sz=sin(rz);..cx=cos(rx |
1a700 | 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 | );cy=cos(ry);cz=cos(rz);.......t |
1a720 | 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 | b=0;..gt.=.gettime(0).....flo=2. |
1a740 | 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 f2 05 00 00 01 04 03 00 00 64 79 3d | ................$............dy= |
1a760 | 31 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | 1.5+sw*.5;..dx=gmegabuf(100*num+ |
1a780 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 | 1+flo*6);..dz=gmegabuf(100*num+2 |
1a7a0 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 | +flo*6);..dxa=dx;dza=dz;....dy=d |
1a7c0 | 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 | y-oy;dx=-dx+ox;dz=dz-oz;..dx1=dx |
1a7e0 | 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 | *cy-dz*sy;..dz1=dx*sy+dz*cy;..dy |
1a800 | 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 | 2=dy*cx-dz1*sx;..dz2=dy*sx+dz1*c |
1a820 | 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a | x;..dx3=dx1*cz-dy2*sz;..dy3=dx1* |
1a840 | 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d | sz+dy2*cz;....dz3=max(dz2,.01);. |
1a860 | 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b | .x=-(dx3)/dz3*hw;..y=-(dy3)/dz3; |
1a880 | 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d | ..skip=equal(dz3,.01);....ogx=gm |
1a8a0 | 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 | egabuf(100*(num-1)+1+flo*6);..og |
1a8c0 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b | z=gmegabuf(100*(num-1)+2+flo*6); |
1a8e0 | 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f | ..ngx=gmegabuf(100*(num+1)+1+flo |
1a900 | 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 | *6);..ngz=gmegabuf(100*(num+1)+2 |
1a920 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 | +flo*6);....ang1=atan2(dxa-ogx,d |
1a940 | 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 | za-ogz);..ang2=atan2(-dxa+ngx,-d |
1a960 | 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 | za+ngz);..corner=bnot(below(abs( |
1a980 | 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 | ang1-ang2),.1));....drawmode=gme |
1a9a0 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d | gabuf(100*num+3+flo*6);..c=drawm |
1a9c0 | 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 3b 0d 0a 72 65 64 3d 63 3b | ode*equal(add,1)*corner;..red=c; |
1a9e0 | 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d | ..green=c;..blue=c;....linesize= |
1aa00 | 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 | 4-dz3*.5;....add=add+1;..if(equa |
1aa20 | 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 | l(add,2),assign(add,0)+assign(nu |
1aa40 | 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b | m,num+1),0);..sw=-sw;..reg99=10; |
1aa60 | 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
1aa80 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
1aaa0 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
1aac0 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
1aae0 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
1ab00 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
1ab20 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
1ab40 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
1ab60 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
1ab80 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
1aba0 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
1abc0 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
1abe0 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
1ac00 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
1ac20 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
1ac40 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
1ac60 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 2a | ));oh=h;ow=w;hw=h/w;....n=reg82* |
1ac80 | 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | 2;....ox=reg00;.rx=reg03;..oy=re |
1aca0 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
1acc0 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
1ace0 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
1ad00 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a | z=cos(rz);....add=0;.....tb=0;.. |
1ad20 | 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 | gt.=.gettime(0).....flo=2....... |
1ad40 | 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 32 3b 0d 0a 64 78 | ..........$............dy=2;..dx |
1ad60 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d | =gmegabuf(100*num+1+flo*6);..dz= |
1ad80 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 | gmegabuf(100*num+2+flo*6);....dy |
1ada0 | 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d | =dy-oy;dx=-dx+ox;dz=dz-oz;..dx1= |
1adc0 | 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a | dx*cy-dz*sy;..dz1=dx*sy+dz*cy;.. |
1ade0 | 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 | dy2=dy*cx-dz1*sx;..dz2=dy*sx+dz1 |
1ae00 | 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 | *cx;..dx3=dx1*cz-dy2*sz;..dy3=dx |
1ae20 | 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 | 1*sz+dy2*cz;....dz3=max(dz2,.01) |
1ae40 | 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a | ;..x=-(dx3)/dz3*hw;..y=-(dy3)/dz |
1ae60 | 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 | 3;..skip=equal(dz3,.01);....draw |
1ae80 | 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d | mode=gmegabuf(100*num+3+flo*6);. |
1aea0 | 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | .c=drawmode;..red=c;..green=c;.. |
1aec0 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d | blue=c;....linesize=4-dz3*.5;... |
1aee0 | 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 | .num=num+1;..sw=-sw;.......t=t+1 |
1af00 | 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 | ;deltatime.=.gettime(time);fr=fr |
1af20 | 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b | *.9+deltatime*.1;framerate=1/fr; |
1af40 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 | time.=.gettime(0);tb.=.tb+1;time |
1af60 | 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | b.=.gettime(gt);xmouse=getkbmous |
1af80 | 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 | e(1);ymouse=getkbmouse(2);xmouse |
1afa0 | 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d | c=min(max(xmouse,-1),1);ymousec= |
1afc0 | 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | min(max(ymouse,-1),1);lmouse.=.g |
1afe0 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
1b000 | 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f | (4);shift.=.getkbmouse(5);contro |
1b020 | 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 | l.=.getkbmouse(17);backspace.=.g |
1b040 | 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(8);space.=.getkbmouse( |
1b060 | 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 | 32);right.=.getkbmouse(39);left. |
1b080 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | =.getkbmouse(37);up.=.getkbmouse |
1b0a0 | 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d | (38);down.=.getkbmouse(40);num.= |
1b0c0 | 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | .1;sw.=.1;sizechange=bnot(equal( |
1b0e0 | 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 | oh,h))|bnot(equal(ow,w));oh=h;ow |
1b100 | 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | =w;hw=h/w;....n=reg83;....ox=reg |
1b120 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
1b140 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
1b160 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
1b180 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
1b1a0 | 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 | .....tb=0;..gt.=.gettime(0)..... |
1b1c0 | 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 | flo=3.................$......... |
1b1e0 | 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b | ...dy=3;..dx=gmegabuf(100*num+1+ |
1b200 | 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 | flo*6);..dz=gmegabuf(100*num+2+f |
1b220 | 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d | lo*6);....dy=dy-oy;dx=-dx+ox;dz= |
1b240 | 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 | dz-oz;..dx1=dx*cy-dz*sy;..dz1=dx |
1b260 | 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 | *sy+dz*cy;..dy2=dy*cx-dz1*sx;..d |
1b280 | 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 | z2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2 |
1b2a0 | 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d | *sz;..dy3=dx1*sz+dy2*cz;....dz3= |
1b2c0 | 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d | max(dz2,.01);..x=-(dx3)/dz3*hw;. |
1b2e0 | 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e | .y=-(dy3)/dz3;..skip=equal(dz3,. |
1b300 | 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | 01);....drawmode=gmegabuf(100*nu |
1b320 | 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b | m+3+flo*6);..c=drawmode;..red=c; |
1b340 | 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d | ..green=c;..blue=c;....linesize= |
1b360 | 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | 4-dz3*.5;....num=num+1;..sw=-sw; |
1b380 | 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
1b3a0 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
1b3c0 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
1b3e0 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
1b400 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
1b420 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
1b440 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
1b460 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
1b480 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
1b4a0 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
1b4c0 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
1b4e0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
1b500 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
1b520 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
1b540 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
1b560 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
1b580 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
1b5a0 | 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | 3;....ox=reg00;.rx=reg03;..oy=re |
1b5c0 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
1b5e0 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
1b600 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
1b620 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 | z=cos(rz);.......tb=0;..gt.=.get |
1b640 | 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | time(0).....flo=3............... |
1b660 | 00 00 24 00 00 00 f2 05 00 00 01 04 03 00 00 64 79 3d 32 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 | ..$............dy=2.5+sw*.5;..dx |
1b680 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d | =gmegabuf(100*num+1+flo*6);..dz= |
1b6a0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d | gmegabuf(100*num+2+flo*6);..dxa= |
1b6c0 | 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | dx;dza=dz;....dy=dy-oy;dx=-dx+ox |
1b6e0 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
1b700 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
1b720 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
1b740 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
1b760 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
1b780 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
1b7a0 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 | z3,.01);....ogx=gmegabuf(100*(nu |
1b7c0 | 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | m-1)+1+flo*6);..ogz=gmegabuf(100 |
1b7e0 | 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 | *(num-1)+2+flo*6);..ngx=gmegabuf |
1b800 | 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 | (100*(num+1)+1+flo*6);..ngz=gmeg |
1b820 | 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e | abuf(100*(num+1)+2+flo*6);....an |
1b840 | 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 | g1=atan2(dxa-ogx,dza-ogz);..ang2 |
1b860 | 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e | =atan2(-dxa+ngx,-dza+ngz);..corn |
1b880 | 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 | er=bnot(below(abs(ang1-ang2),.1) |
1b8a0 | 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | );....drawmode=gmegabuf(100*num+ |
1b8c0 | 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c | 3+flo*6);..c=drawmode*equal(add, |
1b8e0 | 31 29 2a 63 6f 72 6e 65 72 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c | 1)*corner;..red=c;..green=c;..bl |
1b900 | 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 | ue=c;....linesize=4-dz3*.5;....a |
1b920 | 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 | dd=add+1;..if(equal(add,2),assig |
1b940 | 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a | n(add,0)+assign(num,num+1),0);.. |
1b960 | 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c | sw=-sw;..reg99=10;.....t=t+1;del |
1b980 | 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b | tatime.=.gettime(time);fr=fr*.9+ |
1b9a0 | 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 | deltatime*.1;framerate=1/fr;time |
1b9c0 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 | .=.gettime(0);tb.=.tb+1;timeb.=. |
1b9e0 | 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 | gettime(gt);xmouse=getkbmouse(1) |
1ba00 | 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 | ;ymouse=getkbmouse(2);xmousec=mi |
1ba20 | 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 | n(max(xmouse,-1),1);ymousec=min( |
1ba40 | 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | max(ymouse,-1),1);lmouse.=.getkb |
1ba60 | 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b | mouse(3);rmouse.=.getkbmouse(4); |
1ba80 | 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 | shift.=.getkbmouse(5);control.=. |
1baa0 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | getkbmouse(17);backspace.=.getkb |
1bac0 | 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b | mouse(8);space.=.getkbmouse(32); |
1bae0 | 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 | right.=.getkbmouse(39);left.=.ge |
1bb00 | 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 | tkbmouse(37);up.=.getkbmouse(38) |
1bb20 | 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 | ;down.=.getkbmouse(40);num.=.1;s |
1bb40 | 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | w.=.1;sizechange=bnot(equal(oh,h |
1bb60 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
1bb80 | 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 | w=h/w;....n=reg83*2;....ox=reg00 |
1bba0 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
1bbc0 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
1bbe0 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
1bc00 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a | s(rx);cy=cos(ry);cz=cos(rz);.... |
1bc20 | 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 | add=0;.....tb=0;..gt.=.gettime(0 |
1bc40 | 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 | ).....flo=3.................$... |
1bc60 | 84 04 00 00 01 a0 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | .........dy=3;..dx=gmegabuf(100* |
1bc80 | 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | num+1+flo*6);..dz=gmegabuf(100*n |
1bca0 | 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b | um+2+flo*6);....dy=dy-oy;dx=-dx+ |
1bcc0 | 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a | ox;dz=dz-oz;..dx1=dx*cy-dz*sy;.. |
1bce0 | 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a | dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1* |
1bd00 | 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a | sx;..dz2=dy*sx+dz1*cx;..dx3=dx1* |
1bd20 | 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a | cz-dy2*sz;..dy3=dx1*sz+dy2*cz;.. |
1bd40 | 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a | ..dz3=max(dz2,.01);..x=-(dx3)/dz |
1bd60 | 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c | 3*hw;..y=-(dy3)/dz3;..skip=equal |
1bd80 | 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 | (dz3,.01);....drawmode=gmegabuf( |
1bda0 | 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a | 100*num+3+flo*6);..c=drawmode;.. |
1bdc0 | 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e | red=c;..green=c;..blue=c;....lin |
1bde0 | 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 | esize=4-dz3*.5;....num=num+1;..s |
1be00 | 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 | w=-sw;.......t=t+1;deltatime.=.g |
1be20 | 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a | ettime(time);fr=fr*.9+deltatime* |
1be40 | 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .1;framerate=1/fr;time.=.gettime |
1be60 | 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 | (0);tb.=.tb+1;timeb.=.gettime(gt |
1be80 | 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 | );xmouse=getkbmouse(1);ymouse=ge |
1bea0 | 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 | tkbmouse(2);xmousec=min(max(xmou |
1bec0 | 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 | se,-1),1);ymousec=min(max(ymouse |
1bee0 | 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 | ,-1),1);lmouse.=.getkbmouse(3);r |
1bf00 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 | mouse.=.getkbmouse(4);shift.=.ge |
1bf20 | 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | tkbmouse(5);control.=.getkbmouse |
1bf40 | 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 | (17);backspace.=.getkbmouse(8);s |
1bf60 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 | pace.=.getkbmouse(32);right.=.ge |
1bf80 | 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(39);left.=.getkbmouse(3 |
1bfa0 | 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 | 7);up.=.getkbmouse(38);down.=.ge |
1bfc0 | 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 | tkbmouse(40);num.=.1;sw.=.1;size |
1bfe0 | 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 | change=bnot(equal(oh,h))|bnot(eq |
1c000 | 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a | ual(ow,w));oh=h;ow=w;hw=h/w;.... |
1c020 | 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d | n=reg84;....ox=reg00;.rx=reg03;. |
1c040 | 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 | .oy=reg01;.ry=reg04;..oz=reg02;. |
1c060 | 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 | rz=-reg05;..sx=sin(rx);sy=sin(ry |
1c080 | 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 | );sz=sin(rz);..cx=cos(rx);cy=cos |
1c0a0 | 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 | (ry);cz=cos(rz);.......tb=0;..gt |
1c0c0 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 | .=.gettime(0).....flo=4......... |
1c0e0 | ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 34 3b 0d 0a 64 78 3d 67 | ........$............dy=4;..dx=g |
1c100 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d | megabuf(100*num+1+flo*6);..dz=gm |
1c120 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 | egabuf(100*num+2+flo*6);....dy=d |
1c140 | 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 | y-oy;dx=-dx+ox;dz=dz-oz;..dx1=dx |
1c160 | 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 | *cy-dz*sy;..dz1=dx*sy+dz*cy;..dy |
1c180 | 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 | 2=dy*cx-dz1*sx;..dz2=dy*sx+dz1*c |
1c1a0 | 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a | x;..dx3=dx1*cz-dy2*sz;..dy3=dx1* |
1c1c0 | 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d | sz+dy2*cz;....dz3=max(dz2,.01);. |
1c1e0 | 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b | .x=-(dx3)/dz3*hw;..y=-(dy3)/dz3; |
1c200 | 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f | ..skip=equal(dz3,.01);....drawmo |
1c220 | 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 | de=gmegabuf(100*num+3+flo*6);..c |
1c240 | 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c | =drawmode;..red=c;..green=c;..bl |
1c260 | 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e | ue=c;....linesize=4-dz3*.5;....n |
1c280 | 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 | um=num+1;..sw=-sw;.......t=t+1;d |
1c2a0 | 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e | eltatime.=.gettime(time);fr=fr*. |
1c2c0 | 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 | 9+deltatime*.1;framerate=1/fr;ti |
1c2e0 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 | me.=.gettime(0);tb.=.tb+1;timeb. |
1c300 | 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | =.gettime(gt);xmouse=getkbmouse( |
1c320 | 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d | 1);ymouse=getkbmouse(2);xmousec= |
1c340 | 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 | min(max(xmouse,-1),1);ymousec=mi |
1c360 | 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 | n(max(ymouse,-1),1);lmouse.=.get |
1c380 | 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | kbmouse(3);rmouse.=.getkbmouse(4 |
1c3a0 | 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 | );shift.=.getkbmouse(5);control. |
1c3c0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 | =.getkbmouse(17);backspace.=.get |
1c3e0 | 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 | kbmouse(8);space.=.getkbmouse(32 |
1c400 | 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 | );right.=.getkbmouse(39);left.=. |
1c420 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | getkbmouse(37);up.=.getkbmouse(3 |
1c440 | 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 | 8);down.=.getkbmouse(40);num.=.1 |
1c460 | 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 | ;sw.=.1;sizechange=bnot(equal(oh |
1c480 | 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 | ,h))|bnot(equal(ow,w));oh=h;ow=w |
1c4a0 | 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 | ;hw=h/w;....n=reg84;....ox=reg00 |
1c4c0 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
1c4e0 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
1c500 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
1c520 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 | s(rx);cy=cos(ry);cz=cos(rz);.... |
1c540 | 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c | ...tb=0;..gt.=.gettime(0).....fl |
1c560 | 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 f2 05 00 00 01 04 03 00 | o=4.................$........... |
1c580 | 00 64 79 3d 33 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | .dy=3.5+sw*.5;..dx=gmegabuf(100* |
1c5a0 | 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | num+1+flo*6);..dz=gmegabuf(100*n |
1c5c0 | 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a | um+2+flo*6);..dxa=dx;dza=dz;.... |
1c5e0 | 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 | dy=dy-oy;dx=-dx+ox;dz=dz-oz;..dx |
1c600 | 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b | 1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy; |
1c620 | 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 | ..dy2=dy*cx-dz1*sx;..dz2=dy*sx+d |
1c640 | 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d | z1*cx;..dx3=dx1*cz-dy2*sz;..dy3= |
1c660 | 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 | dx1*sz+dy2*cz;....dz3=max(dz2,.0 |
1c680 | 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f | 1);..x=-(dx3)/dz3*hw;..y=-(dy3)/ |
1c6a0 | 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 | dz3;..skip=equal(dz3,.01);....og |
1c6c0 | 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b | x=gmegabuf(100*(num-1)+1+flo*6); |
1c6e0 | 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f | ..ogz=gmegabuf(100*(num-1)+2+flo |
1c700 | 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 | *6);..ngx=gmegabuf(100*(num+1)+1 |
1c720 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b | +flo*6);..ngz=gmegabuf(100*(num+ |
1c740 | 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f | 1)+2+flo*6);....ang1=atan2(dxa-o |
1c760 | 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 | gx,dza-ogz);..ang2=atan2(-dxa+ng |
1c780 | 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 | x,-dza+ngz);..corner=bnot(below( |
1c7a0 | 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 | abs(ang1-ang2),.1));....drawmode |
1c7c0 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 | =gmegabuf(100*num+3+flo*6);..c=d |
1c7e0 | 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 3b 0d 0a 72 65 | rawmode*equal(add,1)*corner;..re |
1c800 | 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 | d=c;..green=c;..blue=c;....lines |
1c820 | 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 | ize=4-dz3*.5;....add=add+1;..if( |
1c840 | 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 | equal(add,2),assign(add,0)+assig |
1c860 | 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 | n(num,num+1),0);..sw=-sw;..reg99 |
1c880 | 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | =10;.....t=t+1;deltatime.=.getti |
1c8a0 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
1c8c0 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
1c8e0 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
1c900 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
1c920 | 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d | ouse(2);xmousec=min(max(xmouse,- |
1c940 | 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 | 1),1);ymousec=min(max(ymouse,-1) |
1c960 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
1c980 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
1c9a0 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
1c9c0 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
1c9e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
1ca00 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
1ca20 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
1ca40 | 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e | ouse(40);num.=.1;sw.=.1;sizechan |
1ca60 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
1ca80 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 | ow,w));oh=h;ow=w;hw=h/w;....n=re |
1caa0 | 67 38 34 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f | g84*2;....ox=reg00;.rx=reg03;..o |
1cac0 | 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a | y=reg01;.ry=reg04;..oz=reg02;.rz |
1cae0 | 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b | =-reg05;..sx=sin(rx);sy=sin(ry); |
1cb00 | 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 | sz=sin(rz);..cx=cos(rx);cy=cos(r |
1cb20 | 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d | y);cz=cos(rz);....add=0;.....tb= |
1cb40 | 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 | 0;..gt.=.gettime(0).....flo=4... |
1cb60 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 f2 05 00 00 01 04 03 00 00 64 79 3d 34 2e | ..............$............dy=4. |
1cb80 | 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b | 5+sw*.5;..dx=gmegabuf(100*num+1+ |
1cba0 | 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 | flo*6);..dz=gmegabuf(100*num+2+f |
1cbc0 | 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d | lo*6);..dxa=dx;dza=dz;....dy=dy- |
1cbe0 | 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 | oy;dx=-dx+ox;dz=dz-oz;..dx1=dx*c |
1cc00 | 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d | y-dz*sy;..dz1=dx*sy+dz*cy;..dy2= |
1cc20 | 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b | dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx; |
1cc40 | 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a | ..dx3=dx1*cz-dy2*sz;..dy3=dx1*sz |
1cc60 | 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 | +dy2*cz;....dz3=max(dz2,.01);..x |
1cc80 | 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | =-(dx3)/dz3*hw;..y=-(dy3)/dz3;.. |
1cca0 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 | skip=equal(dz3,.01);....ogx=gmeg |
1ccc0 | 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d | abuf(100*(num-1)+1+flo*6);..ogz= |
1cce0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | gmegabuf(100*(num-1)+2+flo*6);.. |
1cd00 | 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 | ngx=gmegabuf(100*(num+1)+1+flo*6 |
1cd20 | 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 | );..ngz=gmegabuf(100*(num+1)+2+f |
1cd40 | 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 | lo*6);....ang1=atan2(dxa-ogx,dza |
1cd60 | 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 | -ogz);..ang2=atan2(-dxa+ngx,-dza |
1cd80 | 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e | +ngz);..corner=bnot(below(abs(an |
1cda0 | 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 | g1-ang2),.1));....drawmode=gmega |
1cdc0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 | buf(100*num+3+flo*6);..c=drawmod |
1cde0 | 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 3b 0d 0a 72 65 64 3d 63 3b 0d 0a | e*equal(add,1)*corner;..red=c;.. |
1ce00 | 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d | green=c;..blue=c;....linesize=4- |
1ce20 | 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 | dz3*.5;....add=add+1;..if(equal( |
1ce40 | 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c | add,2),assign(add,0)+assign(num, |
1ce60 | 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 | num+1),0);..sw=-sw;..reg99=10;.. |
1ce80 | 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d | ...t=t+1;deltatime.=.gettime(tim |
1cea0 | 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 | e);fr=fr*.9+deltatime*.1;framera |
1cec0 | 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 | te=1/fr;time.=.gettime(0);tb.=.t |
1cee0 | 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 | b+1;timeb.=.gettime(gt);xmouse=g |
1cf00 | 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 | etkbmouse(1);ymouse=getkbmouse(2 |
1cf20 | 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );xmousec=min(max(xmouse,-1),1); |
1cf40 | 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d | ymousec=min(max(ymouse,-1),1);lm |
1cf60 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 | ouse.=.getkbmouse(3);rmouse.=.ge |
1cf80 | 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 | tkbmouse(4);shift.=.getkbmouse(5 |
1cfa0 | 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 | );control.=.getkbmouse(17);backs |
1cfc0 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 | pace.=.getkbmouse(8);space.=.get |
1cfe0 | 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | kbmouse(32);right.=.getkbmouse(3 |
1d000 | 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 | 9);left.=.getkbmouse(37);up.=.ge |
1d020 | 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | tkbmouse(38);down.=.getkbmouse(4 |
1d040 | 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f | 0);num.=.1;sw.=.1;sizechange=bno |
1d060 | 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 | t(equal(oh,h))|bnot(equal(ow,w)) |
1d080 | 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 2a 32 3b | ;oh=h;ow=w;hw=h/w;....n=reg85*2; |
1d0a0 | 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 | ....ox=reg00;.rx=reg03;..oy=reg0 |
1d0c0 | 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 | 1;.ry=reg04;..oz=reg02;.rz=-reg0 |
1d0e0 | 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e | 5;..sx=sin(rx);sy=sin(ry);sz=sin |
1d100 | 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d | (rz);..cx=cos(rx);cy=cos(ry);cz= |
1d120 | 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 | cos(rz);....add=0;.....tb=0;..gt |
1d140 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 | .=.gettime(0).....flo=5......... |
1d160 | ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 | ........$............dy=5;..dx=g |
1d180 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d | megabuf(100*num+1+flo*6);..dz=gm |
1d1a0 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 | egabuf(100*num+2+flo*6);....dy=d |
1d1c0 | 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 | y-oy;dx=-dx+ox;dz=dz-oz;..dx1=dx |
1d1e0 | 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 | *cy-dz*sy;..dz1=dx*sy+dz*cy;..dy |
1d200 | 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 | 2=dy*cx-dz1*sx;..dz2=dy*sx+dz1*c |
1d220 | 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a | x;..dx3=dx1*cz-dy2*sz;..dy3=dx1* |
1d240 | 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d | sz+dy2*cz;....dz3=max(dz2,.01);. |
1d260 | 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b | .x=-(dx3)/dz3*hw;..y=-(dy3)/dz3; |
1d280 | 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f | ..skip=equal(dz3,.01);....drawmo |
1d2a0 | 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 | de=gmegabuf(100*num+3+flo*6);..c |
1d2c0 | 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c | =drawmode;..red=c;..green=c;..bl |
1d2e0 | 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e | ue=c;....linesize=4-dz3*.5;....n |
1d300 | 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 | um=num+1;..sw=-sw;.......t=t+1;d |
1d320 | 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e | eltatime.=.gettime(time);fr=fr*. |
1d340 | 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 | 9+deltatime*.1;framerate=1/fr;ti |
1d360 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 | me.=.gettime(0);tb.=.tb+1;timeb. |
1d380 | 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | =.gettime(gt);xmouse=getkbmouse( |
1d3a0 | 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d | 1);ymouse=getkbmouse(2);xmousec= |
1d3c0 | 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 | min(max(xmouse,-1),1);ymousec=mi |
1d3e0 | 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 | n(max(ymouse,-1),1);lmouse.=.get |
1d400 | 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | kbmouse(3);rmouse.=.getkbmouse(4 |
1d420 | 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 | );shift.=.getkbmouse(5);control. |
1d440 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 | =.getkbmouse(17);backspace.=.get |
1d460 | 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 | kbmouse(8);space.=.getkbmouse(32 |
1d480 | 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 | );right.=.getkbmouse(39);left.=. |
1d4a0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | getkbmouse(37);up.=.getkbmouse(3 |
1d4c0 | 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 | 8);down.=.getkbmouse(40);num.=.1 |
1d4e0 | 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 | ;sw.=.1;sizechange=bnot(equal(oh |
1d500 | 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 | ,h))|bnot(equal(ow,w));oh=h;ow=w |
1d520 | 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 | ;hw=h/w;....n=reg85;....ox=reg00 |
1d540 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
1d560 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
1d580 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
1d5a0 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 | s(rx);cy=cos(ry);cz=cos(rz);.... |
1d5c0 | 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c | ...tb=0;..gt.=.gettime(0).....fl |
1d5e0 | 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 | o=5.................$........... |
1d600 | 00 64 79 3d 34 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c | .dy=4;..dx=gmegabuf(100*num+1+fl |
1d620 | 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f | o*6);..dz=gmegabuf(100*num+2+flo |
1d640 | 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a | *6);....dy=dy-oy;dx=-dx+ox;dz=dz |
1d660 | 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 | -oz;..dx1=dx*cy-dz*sy;..dz1=dx*s |
1d680 | 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 | y+dz*cy;..dy2=dy*cx-dz1*sx;..dz2 |
1d6a0 | 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 | =dy*sx+dz1*cx;..dx3=dx1*cz-dy2*s |
1d6c0 | 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 | z;..dy3=dx1*sz+dy2*cz;....dz3=ma |
1d6e0 | 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 | x(dz2,.01);..x=-(dx3)/dz3*hw;..y |
1d700 | 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 | =-(dy3)/dz3;..skip=equal(dz3,.01 |
1d720 | 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | );....drawmode=gmegabuf(100*num+ |
1d740 | 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a | 3+flo*6);..c=drawmode;..red=c;.. |
1d760 | 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d | green=c;..blue=c;....linesize=4- |
1d780 | 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a | dz3*.5;....num=num+1;..sw=-sw;.. |
1d7a0 | 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
1d7c0 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
1d7e0 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
1d800 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
1d820 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
1d840 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
1d860 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
1d880 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
1d8a0 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
1d8c0 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
1d8e0 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
1d900 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
1d920 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
1d940 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
1d960 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
1d980 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
1d9a0 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b | ));oh=h;ow=w;hw=h/w;....n=reg85; |
1d9c0 | 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 | ....ox=reg00;.rx=reg03;..oy=reg0 |
1d9e0 | 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 | 1;.ry=reg04;..oz=reg02;.rz=-reg0 |
1da00 | 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e | 5;..sx=sin(rx);sy=sin(ry);sz=sin |
1da20 | 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d | (rz);..cx=cos(rx);cy=cos(ry);cz= |
1da40 | 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 | cos(rz);.......tb=0;..gt.=.getti |
1da60 | 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 | me(0).....flo=5................. |
1da80 | 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 | $............dy=5;..dx=gmegabuf( |
1daa0 | 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 | 100*num+1+flo*6);..dz=gmegabuf(1 |
1dac0 | 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d | 00*num+2+flo*6);....dy=dy-oy;dx= |
1dae0 | 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 | -dx+ox;dz=dz-oz;..dx1=dx*cy-dz*s |
1db00 | 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d | y;..dz1=dx*sy+dz*cy;..dy2=dy*cx- |
1db20 | 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d | dz1*sx;..dz2=dy*sx+dz1*cx;..dx3= |
1db40 | 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 | dx1*cz-dy2*sz;..dy3=dx1*sz+dy2*c |
1db60 | 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 | z;....dz3=max(dz2,.01);..x=-(dx3 |
1db80 | 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 | )/dz3*hw;..y=-(dy3)/dz3;..skip=e |
1dba0 | 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 | qual(dz3,.01);....drawmode=gmega |
1dbc0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 | buf(100*num+3+flo*6);..c=drawmod |
1dbe0 | 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d | e;..red=c;..green=c;..blue=c;... |
1dc00 | 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 | .linesize=4-dz3*.5;....num=num+1 |
1dc20 | 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 | ;..sw=-sw;.......t=t+1;deltatime |
1dc40 | 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 | .=.gettime(time);fr=fr*.9+deltat |
1dc60 | 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 | ime*.1;framerate=1/fr;time.=.get |
1dc80 | 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d | time(0);tb.=.tb+1;timeb.=.gettim |
1dca0 | 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 | e(gt);xmouse=getkbmouse(1);ymous |
1dcc0 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | e=getkbmouse(2);xmousec=min(max( |
1dce0 | 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d | xmouse,-1),1);ymousec=min(max(ym |
1dd00 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | ouse,-1),1);lmouse.=.getkbmouse( |
1dd20 | 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 | 3);rmouse.=.getkbmouse(4);shift. |
1dd40 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d | =.getkbmouse(5);control.=.getkbm |
1dd60 | 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | ouse(17);backspace.=.getkbmouse( |
1dd80 | 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 | 8);space.=.getkbmouse(32);right. |
1dda0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(39);left.=.getkbmou |
1ddc0 | 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 | se(37);up.=.getkbmouse(38);down. |
1dde0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b | =.getkbmouse(40);num.=.1;sw.=.1; |
1de00 | 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f | sizechange=bnot(equal(oh,h))|bno |
1de20 | 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b | t(equal(ow,w));oh=h;ow=w;hw=h/w; |
1de40 | 0d 0a 0d 0a 6e 3d 72 65 67 38 36 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 | ....n=reg86;....ox=reg00;.rx=reg |
1de60 | 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 | 03;..oy=reg01;.ry=reg04;..oz=reg |
1de80 | 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 | 02;.rz=-reg05;..sx=sin(rx);sy=si |
1dea0 | 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 | n(ry);sz=sin(rz);..cx=cos(rx);cy |
1dec0 | 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b | =cos(ry);cz=cos(rz);.......tb=0; |
1dee0 | 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 | ..gt.=.gettime(0).....flo=6..... |
1df00 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 36 3b 0d 0a | ............$............dy=6;.. |
1df20 | 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 | dx=gmegabuf(100*num+1+flo*6);..d |
1df40 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a | z=gmegabuf(100*num+2+flo*6);.... |
1df60 | 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 | dy=dy-oy;dx=-dx+ox;dz=dz-oz;..dx |
1df80 | 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b | 1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy; |
1dfa0 | 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 | ..dy2=dy*cx-dz1*sx;..dz2=dy*sx+d |
1dfc0 | 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d | z1*cx;..dx3=dx1*cz-dy2*sz;..dy3= |
1dfe0 | 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 | dx1*sz+dy2*cz;....dz3=max(dz2,.0 |
1e000 | 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f | 1);..x=-(dx3)/dz3*hw;..y=-(dy3)/ |
1e020 | 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 | dz3;..skip=equal(dz3,.01);....dr |
1e040 | 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 | awmode=gmegabuf(100*num+3+flo*6) |
1e060 | 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b | ;..c=drawmode;..red=c;..green=c; |
1e080 | 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d | ..blue=c;....linesize=4-dz3*.5;. |
1e0a0 | 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 | ...num=num+1;..sw=-sw;.......t=t |
1e0c0 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
1e0e0 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
1e100 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
1e120 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
1e140 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
1e160 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
1e180 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
1e1a0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
1e1c0 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
1e1e0 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
1e200 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
1e220 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
1e240 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
1e260 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
1e280 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
1e2a0 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
1e2c0 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 3b 0d 0a 0d 0a 6f 78 3d 72 | ow=w;hw=h/w;....n=reg86;....ox=r |
1e2e0 | 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 | eg00;.rx=reg03;..oy=reg01;.ry=re |
1e300 | 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 | g04;..oz=reg02;.rz=-reg05;..sx=s |
1e320 | 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 | in(rx);sy=sin(ry);sz=sin(rz);..c |
1e340 | 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b | x=cos(rx);cy=cos(ry);cz=cos(rz); |
1e360 | 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 | .......tb=0;..gt.=.gettime(0)... |
1e380 | 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 f2 05 00 00 | ..flo=6.................$....... |
1e3a0 | 01 04 03 00 00 64 79 3d 35 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 | .....dy=5.5+sw*.5;..dx=gmegabuf( |
1e3c0 | 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 | 100*num+1+flo*6);..dz=gmegabuf(1 |
1e3e0 | 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b | 00*num+2+flo*6);..dxa=dx;dza=dz; |
1e400 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
1e420 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
1e440 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
1e460 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
1e480 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
1e4a0 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
1e4c0 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
1e4e0 | 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f | ..ogx=gmegabuf(100*(num-1)+1+flo |
1e500 | 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 | *6);..ogz=gmegabuf(100*(num-1)+2 |
1e520 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b | +flo*6);..ngx=gmegabuf(100*(num+ |
1e540 | 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | 1)+1+flo*6);..ngz=gmegabuf(100*( |
1e560 | 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 | num+1)+2+flo*6);....ang1=atan2(d |
1e580 | 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 | xa-ogx,dza-ogz);..ang2=atan2(-dx |
1e5a0 | 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 | a+ngx,-dza+ngz);..corner=bnot(be |
1e5c0 | 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 | low(abs(ang1-ang2),.1));....draw |
1e5e0 | 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d | mode=gmegabuf(100*num+3+flo*6);. |
1e600 | 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 3b | .c=drawmode*equal(add,1)*corner; |
1e620 | 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c | ..red=c;..green=c;..blue=c;....l |
1e640 | 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d | inesize=4-dz3*.5;....add=add+1;. |
1e660 | 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 | .if(equal(add,2),assign(add,0)+a |
1e680 | 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 | ssign(num,num+1),0);..sw=-sw;..r |
1e6a0 | 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 | eg99=10;.....t=t+1;deltatime.=.g |
1e6c0 | 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a | ettime(time);fr=fr*.9+deltatime* |
1e6e0 | 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .1;framerate=1/fr;time.=.gettime |
1e700 | 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 | (0);tb.=.tb+1;timeb.=.gettime(gt |
1e720 | 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 | );xmouse=getkbmouse(1);ymouse=ge |
1e740 | 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 | tkbmouse(2);xmousec=min(max(xmou |
1e760 | 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 | se,-1),1);ymousec=min(max(ymouse |
1e780 | 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 | ,-1),1);lmouse.=.getkbmouse(3);r |
1e7a0 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 | mouse.=.getkbmouse(4);shift.=.ge |
1e7c0 | 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | tkbmouse(5);control.=.getkbmouse |
1e7e0 | 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 | (17);backspace.=.getkbmouse(8);s |
1e800 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 | pace.=.getkbmouse(32);right.=.ge |
1e820 | 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(39);left.=.getkbmouse(3 |
1e840 | 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 | 7);up.=.getkbmouse(38);down.=.ge |
1e860 | 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 | tkbmouse(40);num.=.1;sw.=.1;size |
1e880 | 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 | change=bnot(equal(oh,h))|bnot(eq |
1e8a0 | 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a | ual(ow,w));oh=h;ow=w;hw=h/w;.... |
1e8c0 | 6e 3d 72 65 67 38 36 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 | n=reg86*2;....ox=reg00;.rx=reg03 |
1e8e0 | 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 | ;..oy=reg01;.ry=reg04;..oz=reg02 |
1e900 | 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 | ;.rz=-reg05;..sx=sin(rx);sy=sin( |
1e920 | 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 | ry);sz=sin(rz);..cx=cos(rx);cy=c |
1e940 | 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 | os(ry);cz=cos(rz);....add=0;.... |
1e960 | 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d | .tb=0;..gt.=.gettime(0).....flo= |
1e980 | 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 f2 05 00 00 01 04 03 00 00 64 | 6.................$............d |
1e9a0 | 79 3d 36 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | y=6.5+sw*.5;..dx=gmegabuf(100*nu |
1e9c0 | 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | m+1+flo*6);..dz=gmegabuf(100*num |
1e9e0 | 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 | +2+flo*6);..dxa=dx;dza=dz;....dy |
1ea00 | 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d | =dy-oy;dx=-dx+ox;dz=dz-oz;..dx1= |
1ea20 | 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a | dx*cy-dz*sy;..dz1=dx*sy+dz*cy;.. |
1ea40 | 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 | dy2=dy*cx-dz1*sx;..dz2=dy*sx+dz1 |
1ea60 | 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 | *cx;..dx3=dx1*cz-dy2*sz;..dy3=dx |
1ea80 | 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 | 1*sz+dy2*cz;....dz3=max(dz2,.01) |
1eaa0 | 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a | ;..x=-(dx3)/dz3*hw;..y=-(dy3)/dz |
1eac0 | 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d | 3;..skip=equal(dz3,.01);....ogx= |
1eae0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a | gmegabuf(100*(num-1)+1+flo*6);.. |
1eb00 | 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 | ogz=gmegabuf(100*(num-1)+2+flo*6 |
1eb20 | 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 | );..ngx=gmegabuf(100*(num+1)+1+f |
1eb40 | 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 | lo*6);..ngz=gmegabuf(100*(num+1) |
1eb60 | 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 | +2+flo*6);....ang1=atan2(dxa-ogx |
1eb80 | 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c | ,dza-ogz);..ang2=atan2(-dxa+ngx, |
1eba0 | 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 | -dza+ngz);..corner=bnot(below(ab |
1ebc0 | 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 | s(ang1-ang2),.1));....drawmode=g |
1ebe0 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 | megabuf(100*num+3+flo*6);..c=dra |
1ec00 | 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 3b 0d 0a 72 65 64 3d | wmode*equal(add,1)*corner;..red= |
1ec20 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
1ec40 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 | e=4-dz3*.5;....add=add+1;..if(eq |
1ec60 | 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 | ual(add,2),assign(add,0)+assign( |
1ec80 | 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 | num,num+1),0);..sw=-sw;..reg99=1 |
1eca0 | 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | 0;.....t=t+1;deltatime.=.gettime |
1ecc0 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
1ece0 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
1ed00 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
1ed20 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
1ed40 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
1ed60 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
1ed80 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
1eda0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
1edc0 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
1ede0 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
1ee00 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
1ee20 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
1ee40 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
1ee60 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
1ee80 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
1eea0 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
1eec0 | 37 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | 7*2;....ox=reg00;.rx=reg03;..oy= |
1eee0 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
1ef00 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
1ef20 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
1ef40 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b | ;cz=cos(rz);....add=0;.....tb=0; |
1ef60 | 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 | ..gt.=.gettime(0).....flo=7..... |
1ef80 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 37 3b 0d 0a | ............$............dy=7;.. |
1efa0 | 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 | dx=gmegabuf(100*num+1+flo*6);..d |
1efc0 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a | z=gmegabuf(100*num+2+flo*6);.... |
1efe0 | 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 | dy=dy-oy;dx=-dx+ox;dz=dz-oz;..dx |
1f000 | 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b | 1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy; |
1f020 | 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 | ..dy2=dy*cx-dz1*sx;..dz2=dy*sx+d |
1f040 | 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d | z1*cx;..dx3=dx1*cz-dy2*sz;..dy3= |
1f060 | 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 | dx1*sz+dy2*cz;....dz3=max(dz2,.0 |
1f080 | 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f | 1);..x=-(dx3)/dz3*hw;..y=-(dy3)/ |
1f0a0 | 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 | dz3;..skip=equal(dz3,.01);....dr |
1f0c0 | 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 | awmode=gmegabuf(100*num+3+flo*6) |
1f0e0 | 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b | ;..c=drawmode;..red=c;..green=c; |
1f100 | 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d | ..blue=c;....linesize=4-dz3*.5;. |
1f120 | 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 | ...num=num+1;..sw=-sw;.......t=t |
1f140 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
1f160 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
1f180 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
1f1a0 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
1f1c0 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
1f1e0 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
1f200 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
1f220 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
1f240 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
1f260 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
1f280 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
1f2a0 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
1f2c0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
1f2e0 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
1f300 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
1f320 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
1f340 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 3b 0d 0a 0d 0a 6f 78 3d 72 | ow=w;hw=h/w;....n=reg88;....ox=r |
1f360 | 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 | eg00;.rx=reg03;..oy=reg01;.ry=re |
1f380 | 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 | g04;..oz=reg02;.rz=-reg05;..sx=s |
1f3a0 | 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 | in(rx);sy=sin(ry);sz=sin(rz);..c |
1f3c0 | 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b | x=cos(rx);cy=cos(ry);cz=cos(rz); |
1f3e0 | 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 | .......tb=0;..gt.=.gettime(0)... |
1f400 | 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 | ..flo=8.................$....... |
1f420 | 01 a0 01 00 00 64 79 3d 38 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | .....dy=8;..dx=gmegabuf(100*num+ |
1f440 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 | 1+flo*6);..dz=gmegabuf(100*num+2 |
1f460 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 | +flo*6);....dy=dy-oy;dx=-dx+ox;d |
1f480 | 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d | z=dz-oz;..dx1=dx*cy-dz*sy;..dz1= |
1f4a0 | 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d | dx*sy+dz*cy;..dy2=dy*cx-dz1*sx;. |
1f4c0 | 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 | .dz2=dy*sx+dz1*cx;..dx3=dx1*cz-d |
1f4e0 | 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a | y2*sz;..dy3=dx1*sz+dy2*cz;....dz |
1f500 | 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 | 3=max(dz2,.01);..x=-(dx3)/dz3*hw |
1f520 | 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 | ;..y=-(dy3)/dz3;..skip=equal(dz3 |
1f540 | 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | ,.01);....drawmode=gmegabuf(100* |
1f560 | 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d | num+3+flo*6);..c=drawmode;..red= |
1f580 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
1f5a0 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 | e=4-dz3*.5;....num=num+1;..sw=-s |
1f5c0 | 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | w;.......t=t+1;deltatime.=.getti |
1f5e0 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
1f600 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
1f620 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
1f640 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
1f660 | 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d | ouse(2);xmousec=min(max(xmouse,- |
1f680 | 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 | 1),1);ymousec=min(max(ymouse,-1) |
1f6a0 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
1f6c0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
1f6e0 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
1f700 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
1f720 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
1f740 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
1f760 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
1f780 | 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e | ouse(40);num.=.1;sw.=.1;sizechan |
1f7a0 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
1f7c0 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 | ow,w));oh=h;ow=w;hw=h/w;....n=re |
1f7e0 | 67 38 38 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | g88;....ox=reg00;.rx=reg03;..oy= |
1f800 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
1f820 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
1f840 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
1f860 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | ;cz=cos(rz);.......tb=0;..gt.=.g |
1f880 | 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ettime(0).....flo=8............. |
1f8a0 | 01 00 00 00 24 00 00 00 f2 05 00 00 01 04 03 00 00 64 79 3d 37 2e 35 2b 73 77 2a 2e 35 3b 0d 0a | ....$............dy=7.5+sw*.5;.. |
1f8c0 | 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 | dx=gmegabuf(100*num+1+flo*6);..d |
1f8e0 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 | z=gmegabuf(100*num+2+flo*6);..dx |
1f900 | 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b | a=dx;dza=dz;....dy=dy-oy;dx=-dx+ |
1f920 | 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a | ox;dz=dz-oz;..dx1=dx*cy-dz*sy;.. |
1f940 | 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a | dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1* |
1f960 | 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a | sx;..dz2=dy*sx+dz1*cx;..dx3=dx1* |
1f980 | 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a | cz-dy2*sz;..dy3=dx1*sz+dy2*cz;.. |
1f9a0 | 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a | ..dz3=max(dz2,.01);..x=-(dx3)/dz |
1f9c0 | 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c | 3*hw;..y=-(dy3)/dz3;..skip=equal |
1f9e0 | 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | (dz3,.01);....ogx=gmegabuf(100*( |
1fa00 | 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 | num-1)+1+flo*6);..ogz=gmegabuf(1 |
1fa20 | 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 | 00*(num-1)+2+flo*6);..ngx=gmegab |
1fa40 | 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d | uf(100*(num+1)+1+flo*6);..ngz=gm |
1fa60 | 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a | egabuf(100*(num+1)+2+flo*6);.... |
1fa80 | 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e | ang1=atan2(dxa-ogx,dza-ogz);..an |
1faa0 | 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f | g2=atan2(-dxa+ngx,-dza+ngz);..co |
1fac0 | 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e | rner=bnot(below(abs(ang1-ang2),. |
1fae0 | 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | 1));....drawmode=gmegabuf(100*nu |
1fb00 | 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 | m+3+flo*6);..c=drawmode*equal(ad |
1fb20 | 64 2c 31 29 2a 63 6f 72 6e 65 72 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | d,1)*corner;..red=c;..green=c;.. |
1fb40 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d | blue=c;....linesize=4-dz3*.5;... |
1fb60 | 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 | .add=add+1;..if(equal(add,2),ass |
1fb80 | 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b | ign(add,0)+assign(num,num+1),0); |
1fba0 | 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 | ..sw=-sw;..reg99=10;.....t=t+1;d |
1fbc0 | 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e | eltatime.=.gettime(time);fr=fr*. |
1fbe0 | 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 | 9+deltatime*.1;framerate=1/fr;ti |
1fc00 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 | me.=.gettime(0);tb.=.tb+1;timeb. |
1fc20 | 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | =.gettime(gt);xmouse=getkbmouse( |
1fc40 | 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d | 1);ymouse=getkbmouse(2);xmousec= |
1fc60 | 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 | min(max(xmouse,-1),1);ymousec=mi |
1fc80 | 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 | n(max(ymouse,-1),1);lmouse.=.get |
1fca0 | 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | kbmouse(3);rmouse.=.getkbmouse(4 |
1fcc0 | 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 | );shift.=.getkbmouse(5);control. |
1fce0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 | =.getkbmouse(17);backspace.=.get |
1fd00 | 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 | kbmouse(8);space.=.getkbmouse(32 |
1fd20 | 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 | );right.=.getkbmouse(39);left.=. |
1fd40 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | getkbmouse(37);up.=.getkbmouse(3 |
1fd60 | 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 | 8);down.=.getkbmouse(40);num.=.1 |
1fd80 | 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 | ;sw.=.1;sizechange=bnot(equal(oh |
1fda0 | 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 | ,h))|bnot(equal(ow,w));oh=h;ow=w |
1fdc0 | 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | ;hw=h/w;....n=reg88*2;....ox=reg |
1fde0 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
1fe00 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
1fe20 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
1fe40 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
1fe60 | 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 | ..add=0;.....tb=0;..gt.=.gettime |
1fe80 | 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 | (0).....flo=8.................$. |
1fea0 | 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 | ...........dy=6;..dx=gmegabuf(10 |
1fec0 | 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | 0*num+1+flo*6);..dz=gmegabuf(100 |
1fee0 | 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 | *num+2+flo*6);....dy=dy-oy;dx=-d |
1ff00 | 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b | x+ox;dz=dz-oz;..dx1=dx*cy-dz*sy; |
1ff20 | 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a | ..dz1=dx*sy+dz*cy;..dy2=dy*cx-dz |
1ff40 | 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 | 1*sx;..dz2=dy*sx+dz1*cx;..dx3=dx |
1ff60 | 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b | 1*cz-dy2*sz;..dy3=dx1*sz+dy2*cz; |
1ff80 | 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f | ....dz3=max(dz2,.01);..x=-(dx3)/ |
1ffa0 | 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 | dz3*hw;..y=-(dy3)/dz3;..skip=equ |
1ffc0 | 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 | al(dz3,.01);....drawmode=gmegabu |
1ffe0 | 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 3b | f(100*num+3+flo*6);..c=drawmode; |
20000 | 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c | ..red=c;..green=c;..blue=c;....l |
20020 | 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d | inesize=4-dz3*.5;....num=num+1;. |
20040 | 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d | .sw=-sw;.......t=t+1;deltatime.= |
20060 | 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d | .gettime(time);fr=fr*.9+deltatim |
20080 | 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 | e*.1;framerate=1/fr;time.=.getti |
200a0 | 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 | me(0);tb.=.tb+1;timeb.=.gettime( |
200c0 | 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d | gt);xmouse=getkbmouse(1);ymouse= |
200e0 | 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d | getkbmouse(2);xmousec=min(max(xm |
20100 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 | ouse,-1),1);ymousec=min(max(ymou |
20120 | 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 | se,-1),1);lmouse.=.getkbmouse(3) |
20140 | 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 | ;rmouse.=.getkbmouse(4);shift.=. |
20160 | 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 | getkbmouse(5);control.=.getkbmou |
20180 | 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 | se(17);backspace.=.getkbmouse(8) |
201a0 | 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 | ;space.=.getkbmouse(32);right.=. |
201c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(39);left.=.getkbmouse |
201e0 | 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 | (37);up.=.getkbmouse(38);down.=. |
20200 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 | getkbmouse(40);num.=.1;sw.=.1;si |
20220 | 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 | zechange=bnot(equal(oh,h))|bnot( |
20240 | 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a | equal(ow,w));oh=h;ow=w;hw=h/w;.. |
20260 | 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 | ..n=reg87;....ox=reg00;.rx=reg03 |
20280 | 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 | ;..oy=reg01;.ry=reg04;..oz=reg02 |
202a0 | 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 | ;.rz=-reg05;..sx=sin(rx);sy=sin( |
202c0 | 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 | ry);sz=sin(rz);..cx=cos(rx);cy=c |
202e0 | 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a | os(ry);cz=cos(rz);.......tb=0;.. |
20300 | 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 | gt.=.gettime(0).....flo=7....... |
20320 | 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 a0 01 00 00 64 79 3d 37 3b 0d 0a 64 78 | ..........$............dy=7;..dx |
20340 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d | =gmegabuf(100*num+1+flo*6);..dz= |
20360 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 | gmegabuf(100*num+2+flo*6);....dy |
20380 | 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d | =dy-oy;dx=-dx+ox;dz=dz-oz;..dx1= |
203a0 | 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a | dx*cy-dz*sy;..dz1=dx*sy+dz*cy;.. |
203c0 | 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 | dy2=dy*cx-dz1*sx;..dz2=dy*sx+dz1 |
203e0 | 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 | *cx;..dx3=dx1*cz-dy2*sz;..dy3=dx |
20400 | 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 | 1*sz+dy2*cz;....dz3=max(dz2,.01) |
20420 | 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a | ;..x=-(dx3)/dz3*hw;..y=-(dy3)/dz |
20440 | 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 | 3;..skip=equal(dz3,.01);....draw |
20460 | 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d | mode=gmegabuf(100*num+3+flo*6);. |
20480 | 0a 63 3d 64 72 61 77 6d 6f 64 65 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | .c=drawmode;..red=c;..green=c;.. |
204a0 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d | blue=c;....linesize=4-dz3*.5;... |
204c0 | 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 | .num=num+1;..sw=-sw;.......t=t+1 |
204e0 | 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 | ;deltatime.=.gettime(time);fr=fr |
20500 | 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b | *.9+deltatime*.1;framerate=1/fr; |
20520 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 | time.=.gettime(0);tb.=.tb+1;time |
20540 | 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | b.=.gettime(gt);xmouse=getkbmous |
20560 | 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 | e(1);ymouse=getkbmouse(2);xmouse |
20580 | 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d | c=min(max(xmouse,-1),1);ymousec= |
205a0 | 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | min(max(ymouse,-1),1);lmouse.=.g |
205c0 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
205e0 | 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f | (4);shift.=.getkbmouse(5);contro |
20600 | 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 | l.=.getkbmouse(17);backspace.=.g |
20620 | 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(8);space.=.getkbmouse( |
20640 | 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 | 32);right.=.getkbmouse(39);left. |
20660 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | =.getkbmouse(37);up.=.getkbmouse |
20680 | 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d | (38);down.=.getkbmouse(40);num.= |
206a0 | 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | .1;sw.=.1;sizechange=bnot(equal( |
206c0 | 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 | oh,h))|bnot(equal(ow,w));oh=h;ow |
206e0 | 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | =w;hw=h/w;....n=reg87;....ox=reg |
20700 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
20720 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
20740 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
20760 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
20780 | 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 | .....tb=0;..gt.=.gettime(0)..... |
207a0 | 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 15 00 00 00 4c 00 00 00 48 00 | flo=7.....................L...H. |
207c0 | 00 00 5b 5b 20 41 64 64 69 74 69 6f 6e 61 6c 20 49 6e 66 6f 20 5d 5d 0d 0a 0d 0a 53 65 65 20 63 | ..[[.Additional.Info.]]....See.c |
207e0 | 6f 64 65 20 69 6e 20 45 4c 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 62 65 6c 6f 77 20 74 68 69 73 | ode.in.EL.immediately.below.this |
20800 | 20 63 6f 6d 6d 65 6e 74 2e 00 fe ff ff ff 7b a6 00 00 80 00 01 0b 24 80 00 00 00 80 00 00 00 00 | .comment......{.......$......... |
20820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 | ........................@..AVS.2 |
20840 | 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 44 04 00 00 01 | .8+.Effect.List.Config.....D.... |
20860 | 00 00 00 0e 00 00 00 2f 2f 20 66 6f 63 61 6c 20 62 6c 75 72 00 2a 04 00 00 61 61 3d 6d 69 6e 28 | .......//.focal.blur.*...aa=min( |
20880 | 6d 61 78 28 61 61 2b 73 69 67 6e 28 72 65 67 35 39 2d 61 61 29 2a 2e 31 2c 30 29 2c 31 29 3b 0d | max(aa+sign(reg59-aa)*.1,0),1);. |
208a0 | 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c | .alphaout=aa;..enabled=above(aa, |
208c0 | 30 29 0d 0a 0d 0a 2f 2f 20 66 6f 63 61 6c 20 62 6c 75 72 20 77 6f 72 6b 73 20 62 79 20 72 65 72 | 0)....//.focal.blur.works.by.rer |
208e0 | 65 6e 64 65 72 69 6e 67 20 74 68 65 20 67 72 6f 75 6e 64 20 61 6e 64 20 62 75 69 6c 64 69 6e 67 | endering.the.ground.and.building |
20900 | 20 74 6f 0d 0a 2f 2f 20 61 20 62 75 66 66 65 72 20 69 6e 20 61 20 73 75 63 68 20 61 20 77 61 79 | .to..//.a.buffer.in.a.such.a.way |
20920 | 20 74 68 61 74 20 74 68 65 20 72 65 64 2c 20 67 72 65 65 6e 2c 20 61 6e 64 20 62 6c 75 65 0d 0a | .that.the.red,.green,.and.blue.. |
20940 | 2f 2f 20 63 6f 6c 6f 72 20 76 61 6c 75 65 73 20 72 65 70 72 65 73 65 6e 74 20 74 68 65 20 64 69 | //.color.values.represent.the.di |
20960 | 73 74 61 6e 63 65 20 61 77 61 79 20 66 72 6f 6d 20 74 68 65 20 63 61 6d 65 72 61 0d 0a 2f 2f 20 | stance.away.from.the.camera..//. |
20980 | 28 74 68 65 20 7a 20 64 69 73 74 61 6e 63 65 29 2e 20 70 72 65 73 73 20 74 68 65 20 5b 4d 5d 20 | (the.z.distance)..press.the.[M]. |
209a0 | 4b 45 59 20 77 68 69 6c 65 20 66 6f 63 61 6c 20 62 6c 75 72 20 69 73 20 6f 6e 20 74 6f 0d 0a 2f | KEY.while.focal.blur.is.on.to../ |
209c0 | 2f 20 73 65 65 20 74 68 69 73 20 27 7a 2d 27 62 75 66 66 65 72 2e 20 66 72 6f 6d 20 74 68 65 72 | /.see.this.'z-'buffer..from.ther |
209e0 | 65 2c 20 61 20 62 6c 75 72 72 69 6e 67 20 69 73 20 61 70 70 6c 69 65 64 20 74 6f 20 74 68 65 20 | e,.a.blurring.is.applied.to.the. |
20a00 | 0d 0a 2f 2f 20 77 68 6f 6c 65 20 73 63 65 6e 65 2c 20 61 6e 64 20 74 68 65 6e 20 74 68 65 20 62 | ..//.whole.scene,.and.then.the.b |
20a20 | 6c 75 72 72 65 64 20 69 6d 61 67 65 20 69 73 20 62 6c 65 6e 64 65 64 20 69 6e 74 6f 20 0d 0a 2f | lurred.image.is.blended.into.../ |
20a40 | 2f 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 69 6e 20 61 6c 6c 20 6f 66 20 74 68 65 20 70 69 78 | /.the.original.in.all.of.the.pix |
20a60 | 65 6c 73 20 74 68 61 74 20 61 72 65 20 66 61 72 20 61 77 61 79 20 66 72 6f 6d 20 74 68 65 0d 0a | els.that.are.far.away.from.the.. |
20a80 | 2f 2f 20 63 61 6d 65 72 61 2e 20 74 68 69 73 20 64 69 73 74 61 6e 63 65 20 69 73 20 64 65 74 65 | //.camera..this.distance.is.dete |
20aa0 | 72 6d 69 6e 65 64 20 62 79 20 75 73 69 6e 67 20 74 68 65 20 27 7a 27 2d 62 75 66 66 65 72 0d 0a | rmined.by.using.the.'z'-buffer.. |
20ac0 | 2f 2f 20 61 73 20 61 20 72 65 66 65 72 65 6e 63 65 20 69 6e 20 74 68 65 20 6f 75 74 70 75 74 20 | //.as.a.reference.in.the.output. |
20ae0 | 62 6c 65 6e 64 69 6e 67 20 6f 66 20 74 68 65 20 62 6c 75 72 20 45 4c 2e 0d 0a 2f 2f 20 74 68 69 | blending.of.the.blur.EL...//.thi |
20b00 | 73 20 27 7a 27 2d 62 75 66 66 65 72 20 69 73 20 62 75 66 66 65 72 20 23 36 2c 20 62 79 20 74 68 | s.'z'-buffer.is.buffer.#6,.by.th |
20b20 | 65 20 77 61 79 2e 20 75 6e 66 6f 72 74 75 6e 61 74 65 6c 79 2c 20 79 6f 75 0d 0a 2f 2f 20 63 61 | e.way..unfortunately,.you..//.ca |
20b40 | 6e 27 74 20 66 6f 63 75 73 20 6f 6e 20 6f 62 6a 65 63 74 73 20 69 6e 20 74 68 65 20 64 69 73 74 | n't.focus.on.objects.in.the.dist |
20b60 | 61 6e 63 65 2c 20 73 69 6e 63 65 20 74 68 69 73 20 77 6f 75 6c 64 0d 0a 2f 2f 20 72 65 71 75 69 | ance,.since.this.would..//.requi |
20b80 | 72 65 20 7a 2d 73 6f 72 74 69 6e 67 2c 20 77 68 69 63 68 20 69 20 64 6f 6e 27 74 20 6b 6e 6f 77 | re.z-sorting,.which.i.don't.know |
20ba0 | 20 68 6f 77 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 0d 0a 2f 2f 20 69 6e 20 74 68 65 20 62 75 69 | .how.to.implement..//.in.the.bui |
20bc0 | 6c 64 69 6e 67 20 72 65 6e 64 65 72 65 72 2e 20 74 68 65 72 65 20 69 73 20 61 6c 73 6f 20 61 6e | lding.renderer..there.is.also.an |
20be0 | 6f 74 68 65 72 20 70 6f 73 73 69 62 6c 65 0d 0a 2f 2f 20 6d 65 74 68 6f 64 20 75 73 69 6e 67 20 | other.possible..//.method.using. |
20c00 | 61 20 63 6f 6c 6f 72 20 6d 6f 64 69 66 69 65 72 2c 20 62 75 74 20 69 20 74 72 69 65 64 20 69 74 | a.color.modifier,.but.i.tried.it |
20c20 | 20 61 6e 64 20 69 74 20 72 65 61 6c 6c 79 0d 0a 2f 2f 20 64 6f 65 73 6e 27 74 20 6c 6f 6f 6b 20 | .and.it.really..//.doesn't.look. |
20c40 | 67 6f 6f 64 20 61 6e 64 20 64 6f 65 73 6e 27 74 20 62 6c 65 6e 64 20 77 65 6c 6c 20 77 69 74 68 | good.and.doesn't.blend.well.with |
20c60 | 20 74 68 65 20 44 4d 2e 20 69 20 0d 0a 2f 2f 20 67 75 65 73 73 20 74 68 65 20 63 75 72 72 65 6e | .the.DM..i...//.guess.the.curren |
20c80 | 74 2c 20 73 74 61 74 69 63 20 66 6f 63 61 6c 20 62 6c 75 72 20 77 69 6c 6c 20 73 75 66 66 69 63 | t,.static.focal.blur.will.suffic |
20ca0 | 65 2e 00 fe ff ff ff 47 9f 00 00 81 01 00 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 | e......G.......$................ |
20cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 | .................@..AVS.2.8+.Eff |
20ce0 | 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 29 00 00 00 00 00 00 00 1d 00 00 00 | ect.List.Config.....)........... |
20d00 | 2f 2f 20 66 6f 63 61 6c 20 62 6c 75 72 20 64 72 61 77 20 62 75 66 66 65 72 20 45 4c 00 00 00 00 | //.focal.blur.draw.buffer.EL.... |
20d20 | 00 fe ff ff ff c9 04 00 00 82 02 00 0b 24 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 | .............$.................. |
20d40 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 | ...............@..AVS.2.8+.Effec |
20d60 | 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 59 00 00 00 01 00 00 00 00 00 00 00 4d 00 | t.List.Config.....Y...........M. |
20d80 | 00 00 61 61 3d 6d 61 78 28 6d 69 6e 28 61 61 2b 73 69 67 6e 28 72 65 67 35 35 2d 61 61 29 2a 2e | ..aa=max(min(aa+sign(reg55-aa)*. |
20da0 | 31 2c 31 29 2c 30 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c 65 64 3d | 1,1),0);..alphaout=aa;..enabled= |
20dc0 | 61 62 6f 76 65 28 61 61 2c 30 29 3b 0d 0a 00 19 00 00 00 14 00 00 00 01 00 00 00 ff ff ff 00 00 | above(aa,0);.................... |
20de0 | 00 00 00 00 00 00 00 00 00 00 00 2b 00 00 00 ff 03 00 00 01 16 01 00 00 64 78 3d 78 2a 69 68 77 | ...........+............dx=x*ihw |
20e00 | 3b 64 79 3d 79 3b 64 7a 3d 31 3b 0d 0a 0d 0a 64 78 31 3d 64 78 2a 63 7a 2d 64 79 2a 73 7a 3b 0d | ;dy=y;dz=1;....dx1=dx*cz-dy*sz;. |
20e20 | 0a 64 79 31 3d 64 78 2a 73 7a 2b 64 79 2a 63 7a 3b 0d 0a 64 79 33 3d 64 79 31 2a 63 78 2d 64 7a | .dy1=dx*sz+dy*cz;..dy3=dy1*cx-dz |
20e40 | 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 31 2a 73 78 2b 64 7a 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 | *sx;..dz2=dy1*sx+dz*cx;..dx3=dx1 |
20e60 | 2a 63 79 2d 64 7a 32 2a 73 79 3b 0d 0a 64 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d | *cy-dz2*sy;..dz3=dx1*sy+dz2*cy;. |
20e80 | 0a 0d 0a 6b 3d 28 2d 6f 79 29 2f 28 2d 64 79 33 29 3b 0d 0a 6b 3d 69 66 28 62 65 6c 6f 77 28 6b | ...k=(-oy)/(-dy3);..k=if(below(k |
20ea0 | 2c 30 29 2c 31 30 30 2c 6b 29 3b 0d 0a 0d 0a 78 31 3d 6b 2a 64 78 33 2b 6f 78 3b 0d 0a 79 31 3d | ,0),100,k);....x1=k*dx3+ox;..y1= |
20ec0 | 6b 2a 64 79 33 2b 6f 79 3b 0d 0a 7a 31 3d 6b 2a 64 7a 33 2b 6f 7a 3b 0d 0a 0d 0a 78 3d 78 31 2b | k*dy3+oy;..z1=k*dz3+oz;....x=x1+ |
20ee0 | 31 3b 0d 0a 79 3d 2d 7a 31 2b 31 3b 0d 0a 0d 0a 61 6c 70 68 61 20 3d 2e 31 35 2a 6b 2a 61 62 6f | 1;..y=-z1+1;....alpha.=.15*k*abo |
20f00 | 76 65 28 79 31 2c 2d 31 30 30 30 30 29 00 b1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | ve(y1,-10000).....t=t+1;deltatim |
20f20 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
20f40 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
20f60 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
20f80 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
20fa0 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 | se=getkbmouse(2);inbounds=below( |
20fc0 | 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 | abs(xmouse),1)&below(abs(ymouse) |
20fe0 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
21000 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
21020 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
21040 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
21060 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
21080 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
210a0 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
210c0 | 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f | ouse(40);sizechange=bnot(equal(o |
210e0 | 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d | h,h))|bnot(equal(ow,w));oh=h;ow= |
21100 | 77 3b 68 77 3d 68 2f 77 3b 0d 0a 72 65 67 33 33 3d 66 72 61 6d 65 72 61 74 65 3b 0d 0a 6f 78 3d | w;hw=h/w;..reg33=framerate;..ox= |
21120 | 72 65 67 30 30 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 0d 0a 0d 0a | reg00;..oy=reg01;..oz=reg02;.... |
21140 | 78 72 6f 74 3d 72 65 67 30 33 3b 0d 0a 79 72 6f 74 3d 72 65 67 30 34 3b 0d 0a 7a 72 6f 74 3d 72 | xrot=reg03;..yrot=reg04;..zrot=r |
21160 | 65 67 30 35 3b 0d 0a 0d 0a 73 78 3d 73 69 6e 28 78 72 6f 74 29 3b 73 79 3d 73 69 6e 28 79 72 6f | eg05;....sx=sin(xrot);sy=sin(yro |
21180 | 74 29 3b 73 7a 3d 73 69 6e 28 7a 72 6f 74 29 3b 0d 0a 63 78 3d 63 6f 73 28 78 72 6f 74 29 3b 63 | t);sz=sin(zrot);..cx=cos(xrot);c |
211a0 | 79 3d 63 6f 73 28 79 72 6f 74 29 3b 63 7a 3d 63 6f 73 28 7a 72 6f 74 29 3b 20 69 68 77 3d 31 2f | y=cos(yrot);cz=cos(zrot);.ihw=1/ |
211c0 | 68 77 00 00 00 00 00 07 00 00 00 70 69 3d 24 70 69 00 00 00 00 00 00 00 00 00 04 00 00 00 12 00 | hw.........pi=$pi............... |
211e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 fe ff ff ff dc 98 00 00 81 01 00 02 24 80 | ..............................$. |
21200 | 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
21220 | 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 | @..AVS.2.8+.Effect.List.Config.. |
21240 | 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 28 00 00 00 04 00 00 00 02 00 01 80 24 | ...................(...........$ |
21260 | 00 00 00 84 04 00 00 01 94 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 | ............dy=abs(getosc(asin(s |
21280 | 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a 32 3b 0d | in(i*$pi))/$pi,.1,alt*.5)*1)*2;. |
212a0 | 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 | .dx=10*sin(i*2*$pi);..dz=-10*cos |
212c0 | 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | (i*2*$pi);....dy=dy-oy;dx=-dx+ox |
212e0 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
21300 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
21320 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
21340 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
21360 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
21380 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
213a0 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d | z3,.01);....c=drawmode-dz3*.18;. |
213c0 | 0a 72 65 64 3d 63 2a 2e 36 36 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 36 36 3b 0d 0a 62 6c 75 65 3d | .red=c*.66;..green=c*.66;..blue= |
213e0 | 63 2a 2e 36 36 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 | c*.66;....num=num+1;..sw=-sw;... |
21400 | b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 | ....t=t+1;deltatime.=.gettime(ti |
21420 | 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 | me);fr=fr*.9+deltatime*.1;framer |
21440 | 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 | ate=1/fr;time.=.gettime(0);tb.=. |
21460 | 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d | tb+1;timeb.=.gettime(gt);xmouse= |
21480 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | getkbmouse(1);ymouse=getkbmouse( |
214a0 | 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 2);xmousec=min(max(xmouse,-1),1) |
214c0 | 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c | ;ymousec=min(max(ymouse,-1),1);l |
214e0 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 | mouse.=.getkbmouse(3);rmouse.=.g |
21500 | 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(4);shift.=.getkbmouse( |
21520 | 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b | 5);control.=.getkbmouse(17);back |
21540 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 | space.=.getkbmouse(8);space.=.ge |
21560 | 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(32);right.=.getkbmouse( |
21580 | 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 | 39);left.=.getkbmouse(37);up.=.g |
215a0 | 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(38);down.=.getkbmouse( |
215c0 | 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e | 40);num.=.1;sw.=.1;sizechange=bn |
215e0 | 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 | ot(equal(oh,h))|bnot(equal(ow,w) |
21600 | 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a | );oh=h;ow=w;hw=h/w;....n=sqrt(h* |
21620 | 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 | w)*.5;..linesize=1;..ox=reg00;.r |
21640 | 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f | x=reg03;..oy=reg01;.ry=reg04;..o |
21660 | 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b | z=reg02;.rz=-reg05;..sx=sin(rx); |
21680 | 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 | sy=sin(ry);sz=sin(rz);..cx=cos(r |
216a0 | 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 | x);cy=cos(ry);cz=cos(rz);....... |
216c0 | 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 | tb=0;..gt.=.gettime(0).......... |
216e0 | 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 84 04 00 00 01 94 01 00 00 64 79 3d 61 62 73 28 67 | ...........$............dy=abs(g |
21700 | 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c | etosc(asin(sin(i*$pi))/$pi,.1,al |
21720 | 74 2a 2e 35 29 2a 31 29 2a 33 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b | t*.5)*1)*3;..dx=10*sin(i*2*$pi); |
21740 | 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d | ..dz=-10*cos(i*2*$pi);....dy=dy- |
21760 | 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 | oy;dx=-dx+ox;dz=dz-oz;..dx1=dx*c |
21780 | 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d | y-dz*sy;..dz1=dx*sy+dz*cy;..dy2= |
217a0 | 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b | dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx; |
217c0 | 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a | ..dx3=dx1*cz-dy2*sz;..dy3=dx1*sz |
217e0 | 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 | +dy2*cz;....dz3=max(dz2,.01);..x |
21800 | 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | =-(dx3)/dz3*hw;..y=-(dy3)/dz3;.. |
21820 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d 6f | skip=equal(dz3,.01);....c=drawmo |
21840 | 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 2a 2e 33 33 3b 0d 0a 67 72 65 65 6e 3d 63 | de-dz3*.18;..red=c*.33;..green=c |
21860 | 2a 2e 33 33 3b 0d 0a 62 6c 75 65 3d 63 2a 2e 33 33 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b | *.33;..blue=c*.33;....num=num+1; |
21880 | 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 | ..sw=-sw;.......t=t+1;deltatime. |
218a0 | 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 | =.gettime(time);fr=fr*.9+deltati |
218c0 | 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 | me*.1;framerate=1/fr;time.=.gett |
218e0 | 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 | ime(0);tb.=.tb+1;timeb.=.gettime |
21900 | 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 | (gt);xmouse=getkbmouse(1);ymouse |
21920 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 | =getkbmouse(2);xmousec=min(max(x |
21940 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f | mouse,-1),1);ymousec=min(max(ymo |
21960 | 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | use,-1),1);lmouse.=.getkbmouse(3 |
21980 | 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d | );rmouse.=.getkbmouse(4);shift.= |
219a0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f | .getkbmouse(5);control.=.getkbmo |
219c0 | 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 | use(17);backspace.=.getkbmouse(8 |
219e0 | 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d | );space.=.getkbmouse(32);right.= |
21a00 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(39);left.=.getkbmous |
21a20 | 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d | e(37);up.=.getkbmouse(38);down.= |
21a40 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 | .getkbmouse(40);num.=.1;sw.=.1;s |
21a60 | 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 | izechange=bnot(equal(oh,h))|bnot |
21a80 | 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d | (equal(ow,w));oh=h;ow=w;hw=h/w;. |
21aa0 | 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d | ...n=sqrt(h*w)*.5;..linesize=1;. |
21ac0 | 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 | .ox=reg00;.rx=reg03;..oy=reg01;. |
21ae0 | 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d | ry=reg04;..oz=reg02;.rz=-reg05;. |
21b00 | 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a | .sx=sin(rx);sy=sin(ry);sz=sin(rz |
21b20 | 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 | );..cx=cos(rx);cy=cos(ry);cz=cos |
21b40 | 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 | (rz);.......tb=0;..gt.=.gettime( |
21b60 | 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 76 04 00 00 01 | 0).....................$...v.... |
21b80 | 86 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 | ....dy=abs(getosc(asin(sin(i*$pi |
21ba0 | 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e | ))/$pi,.1,alt*.5)*1);..dx=10*sin |
21bc0 | 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b | (i*2*$pi);..dz=-10*cos(i*2*$pi); |
21be0 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
21c00 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
21c20 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
21c40 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
21c60 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
21c80 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
21ca0 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
21cc0 | 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 | ..c=drawmode-dz3*.18;..red=c;..g |
21ce0 | 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a | reen=c;..blue=c;....num=num+1;.. |
21d00 | 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 | sw=-sw;.......t=t+1;deltatime.=. |
21d20 | 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 | gettime(time);fr=fr*.9+deltatime |
21d40 | 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d | *.1;framerate=1/fr;time.=.gettim |
21d60 | 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 | e(0);tb.=.tb+1;timeb.=.gettime(g |
21d80 | 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 | t);xmouse=getkbmouse(1);ymouse=g |
21da0 | 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f | etkbmouse(2);xmousec=min(max(xmo |
21dc0 | 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 | use,-1),1);ymousec=min(max(ymous |
21de0 | 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b | e,-1),1);lmouse.=.getkbmouse(3); |
21e00 | 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 | rmouse.=.getkbmouse(4);shift.=.g |
21e20 | 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | etkbmouse(5);control.=.getkbmous |
21e40 | 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b | e(17);backspace.=.getkbmouse(8); |
21e60 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 | space.=.getkbmouse(32);right.=.g |
21e80 | 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(39);left.=.getkbmouse( |
21ea0 | 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 | 37);up.=.getkbmouse(38);down.=.g |
21ec0 | 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a | etkbmouse(40);num.=.1;sw.=.1;siz |
21ee0 | 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 | echange=bnot(equal(oh,h))|bnot(e |
21f00 | 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d | qual(ow,w));oh=h;ow=w;hw=h/w;... |
21f20 | 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f | .n=sqrt(h*w)*.5;..linesize=1;..o |
21f40 | 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 | x=reg00;.rx=reg03;..oy=reg01;.ry |
21f60 | 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 | =reg04;..oz=reg02;.rz=-reg05;..s |
21f80 | 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b | x=sin(rx);sy=sin(ry);sz=sin(rz); |
21fa0 | 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 | ..cx=cos(rx);cy=cos(ry);cz=cos(r |
21fc0 | 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | z);.......tb=0;..gt.=.gettime(0) |
21fe0 | 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4a 04 00 00 01 5a 01 | .....................$...J....Z. |
22000 | 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a | ..dy=0;..dx=10*sin(i*2*$pi);..dz |
22020 | 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 | =-10*cos(i*2*$pi);....dy=dy-oy;d |
22040 | 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a | x=-dx+ox;dz=dz-oz;..dx1=dx*cy-dz |
22060 | 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 | *sy;..dz1=dx*sy+dz*cy;..dy2=dy*c |
22080 | 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 | x-dz1*sx;..dz2=dy*sx+dz1*cx;..dx |
220a0 | 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 | 3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy2 |
220c0 | 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 | *cz;....dz3=max(dz2,.01);..x=-(d |
220e0 | 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 | x3)/dz3*hw;..y=-(dy3)/dz3;..skip |
22100 | 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 | =equal(dz3,.01);....c=drawmode-d |
22120 | 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d | z3*.18;..red=c;..green=c;..blue= |
22140 | 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 | c;....num=num+1;..sw=-sw;....... |
22160 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
22180 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
221a0 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
221c0 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
221e0 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
22200 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
22220 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
22240 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
22260 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
22280 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
222a0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
222c0 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
222e0 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
22300 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
22320 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
22340 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
22360 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e | =h;ow=w;hw=h/w;....n=sqrt(h*w)*. |
22380 | 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | 5;..linesize=1;..ox=reg00;.rx=re |
223a0 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
223c0 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
223e0 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
22400 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
22420 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff | ;..gt.=.gettime(0).............. |
22440 | ff ff 00 01 00 00 00 24 00 00 00 58 04 00 00 01 74 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 2e 35 | .......$...X....t...dy=0;..dx=.5 |
22460 | 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 2e 35 2a 63 6f 73 28 | *sin(i*2*$pi)+reg76;..dz=.5*cos( |
22480 | 69 2a 32 2a 24 70 69 29 2b 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d | i*2*$pi)+reg77;....dy=dy-oy;dx=- |
224a0 | 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 | dx+ox;dz=dz-oz;..dx1=dx*cy-dz*sy |
224c0 | 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 | ;..dz1=dx*sy+dz*cy;..dy2=dy*cx-d |
224e0 | 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 | z1*sx;..dz2=dy*sx+dz1*cx;..dx3=d |
22500 | 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a | x1*cz-dy2*sz;..dy3=dx1*sz+dy2*cz |
22520 | 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 | ;....dz3=max(dz2,.01);..x=-(dx3) |
22540 | 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 | /dz3*hw;..y=-(dy3)/dz3;..skip=eq |
22560 | 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 | ual(dz3,.01);....c=1-dz3*.18;..r |
22580 | 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 | ed=c;..green=c;..blue=c;....line |
225a0 | 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 | size=4-dz3*.5;....num=num+1;..sw |
225c0 | 3d 2d 73 77 3b 0d 0a 00 ac 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | =-sw;.......t=t+1;deltatime.=.ge |
225e0 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
22600 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
22620 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
22640 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
22660 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
22680 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
226a0 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
226c0 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
226e0 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
22700 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
22720 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
22740 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
22760 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
22780 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
227a0 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
227c0 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e | al(ow,w));oh=h;ow=w;hw=h/w;....n |
227e0 | 3d 73 71 72 74 28 68 2a 77 29 2a 2e 31 35 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | =sqrt(h*w)*.15;..ox=reg00;.rx=re |
22800 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
22820 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
22840 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
22860 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
22880 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff | ;..gt.=.gettime(0).............. |
228a0 | ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d | .......$............dy=0;..dx=gm |
228c0 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 | egabuf(100*num+1+flo*6);..dz=gme |
228e0 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 | gabuf(100*num+2+flo*6);....dy=dy |
22900 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
22920 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
22940 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
22960 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
22980 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
229a0 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
229c0 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 | .skip=equal(dz3,.01);....drawmod |
229e0 | 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d | e=gmegabuf(100*num+3+flo*6);..c= |
22a00 | 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e | drawmode-dz3*.18;..red=c;..green |
22a20 | 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e | =c;..blue=c;....linesize=4-dz3*. |
22a40 | 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 | 5;....num=num+1;..sw=-sw;....... |
22a60 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
22a80 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
22aa0 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
22ac0 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
22ae0 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
22b00 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
22b20 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
22b40 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
22b60 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
22b80 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
22ba0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
22bc0 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
22be0 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
22c00 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
22c20 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
22c40 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
22c60 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d 0a 0d 0a 6f | =h;ow=w;hw=h/w;....n=reg81;....o |
22c80 | 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 | x=reg00;.rx=reg03;..oy=reg01;.ry |
22ca0 | 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 | =reg04;..oz=reg02;.rz=-reg05;..s |
22cc0 | 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b | x=sin(rx);sy=sin(ry);sz=sin(rz); |
22ce0 | 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 | ..cx=cos(rx);cy=cos(ry);cz=cos(r |
22d00 | 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | z);.......tb=0;..gt.=.gettime(0) |
22d20 | 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4d | .....flo=1.................$...M |
22d40 | 04 00 00 01 67 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 28 2d 69 2a 2e 35 2b 2e 35 29 2a 2e 35 2b | ....g...dy=0;..dx=(-i*.5+.5)*.5+ |
22d60 | 72 65 67 37 36 3b 0d 0a 64 7a 3d 69 2a 2e 35 2b 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d | reg76;..dz=i*.5+reg77;....dy=dy- |
22d80 | 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 | oy;dx=-dx+ox;dz=dz-oz;..dx1=dx*c |
22da0 | 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d | y-dz*sy;..dz1=dx*sy+dz*cy;..dy2= |
22dc0 | 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b | dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx; |
22de0 | 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a | ..dx3=dx1*cz-dy2*sz;..dy3=dx1*sz |
22e00 | 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 | +dy2*cz;....dz3=max(dz2,.01);..x |
22e20 | 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | =-(dx3)/dz3*hw;..y=-(dy3)/dz3;.. |
22e40 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a | skip=equal(dz3,.01);....c=1-dz3* |
22e60 | 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d | .18;..red=c;..green=c;..blue=c;. |
22e80 | 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d | ...linesize=4-dz3*.5;....num=num |
22ea0 | 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 ae 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | +1;..sw=-sw;.......t=t+1;deltati |
22ec0 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
22ee0 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
22f00 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
22f20 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
22f40 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
22f60 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
22f80 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
22fa0 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
22fc0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
22fe0 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
23000 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
23020 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
23040 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
23060 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
23080 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
230a0 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
230c0 | 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 30 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | w;....n=sqrt(h*w)*.05;....ox=reg |
230e0 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
23100 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
23120 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
23140 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
23160 | 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 | .....tb=0;..gt.=.gettime(0)..... |
23180 | 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4c 04 00 00 01 66 01 00 00 64 79 3d | ................$...L....f...dy= |
231a0 | 30 3b 0d 0a 64 78 3d 28 69 2a 2e 35 2d 2e 35 29 2a 2e 35 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 69 | 0;..dx=(i*.5-.5)*.5+reg76;..dz=i |
231c0 | 2a 2e 35 2b 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | *.5+reg77;....dy=dy-oy;dx=-dx+ox |
231e0 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
23200 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
23220 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
23240 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
23260 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
23280 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
232a0 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b | z3,.01);....c=1-dz3*.18;..red=c; |
232c0 | 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d | ..green=c;..blue=c;....linesize= |
232e0 | 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | 4-dz3*.5;....num=num+1;..sw=-sw; |
23300 | 0d 0a 00 ae 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
23320 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
23340 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
23360 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
23380 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
233a0 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
233c0 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
233e0 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
23400 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
23420 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
23440 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
23460 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
23480 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
234a0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
234c0 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
234e0 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
23500 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 | ,w));oh=h;ow=w;hw=h/w;....n=sqrt |
23520 | 28 68 2a 77 29 2a 2e 30 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 | (h*w)*.05;....ox=reg00;.rx=reg03 |
23540 | 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 | ;..oy=reg01;.ry=reg04;..oz=reg02 |
23560 | 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 | ;.rz=-reg05;..sx=sin(rx);sy=sin( |
23580 | 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 | ry);sz=sin(rz);..cx=cos(rx);cy=c |
235a0 | 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a | os(ry);cz=cos(rz);.......tb=0;.. |
235c0 | 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 | gt.=.gettime(0)................. |
235e0 | 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 | ....$............dy=1;..dx=gmega |
23600 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 | buf(100*num+1+flo*6);..dz=gmegab |
23620 | 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 | uf(100*num+2+flo*6);....dy=dy-oy |
23640 | 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d | ;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy- |
23660 | 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 | dz*sy;..dz1=dx*sy+dz*cy;..dy2=dy |
23680 | 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a | *cx-dz1*sx;..dz2=dy*sx+dz1*cx;.. |
236a0 | 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 | dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+d |
236c0 | 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d | y2*cz;....dz3=max(dz2,.01);..x=- |
236e0 | 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b | (dx3)/dz3*hw;..y=-(dy3)/dz3;..sk |
23700 | 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 | ip=equal(dz3,.01);....drawmode=g |
23720 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 | megabuf(100*num+3+flo*6);..c=dra |
23740 | 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b | wmode-dz3*.18;..red=c;..green=c; |
23760 | 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d | ..blue=c;....linesize=4-dz3*.5;. |
23780 | 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 | ...num=num+1;..sw=-sw;.......t=t |
237a0 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
237c0 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
237e0 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
23800 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
23820 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
23840 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
23860 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
23880 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
238a0 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
238c0 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
238e0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
23900 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
23920 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
23940 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
23960 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
23980 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
239a0 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d 0a 0d 0a 6f 78 3d 72 | ow=w;hw=h/w;....n=reg81;....ox=r |
239c0 | 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 | eg00;.rx=reg03;..oy=reg01;.ry=re |
239e0 | 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 | g04;..oz=reg02;.rz=-reg05;..sx=s |
23a00 | 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 | in(rx);sy=sin(ry);sz=sin(rz);..c |
23a20 | 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b | x=cos(rx);cy=cos(ry);cz=cos(rz); |
23a40 | 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 | .......tb=0;..gt.=.gettime(0)... |
23a60 | 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 f9 05 00 00 | ..flo=1.................$....... |
23a80 | 01 0b 03 00 00 64 79 3d 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 | .....dy=.5+sw*.5;..dx=gmegabuf(1 |
23aa0 | 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 | 00*num+1+flo*6);..dz=gmegabuf(10 |
23ac0 | 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d | 0*num+2+flo*6);..dxa=dx;dza=dz;. |
23ae0 | 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d | ...dy=dy-oy;dx=-dx+ox;dz=dz-oz;. |
23b00 | 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a | .dx1=dx*cy-dz*sy;..dz1=dx*sy+dz* |
23b20 | 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 | cy;..dy2=dy*cx-dz1*sx;..dz2=dy*s |
23b40 | 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 | x+dz1*cx;..dx3=dx1*cz-dy2*sz;..d |
23b60 | 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 | y3=dx1*sz+dy2*cz;....dz3=max(dz2 |
23b80 | 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 | ,.01);..x=-(dx3)/dz3*hw;..y=-(dy |
23ba0 | 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d | 3)/dz3;..skip=equal(dz3,.01);... |
23bc0 | 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a | .ogx=gmegabuf(100*(num-1)+1+flo* |
23be0 | 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b | 6);..ogz=gmegabuf(100*(num-1)+2+ |
23c00 | 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 | flo*6);..ngx=gmegabuf(100*(num+1 |
23c20 | 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e | )+1+flo*6);..ngz=gmegabuf(100*(n |
23c40 | 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 | um+1)+2+flo*6);....ang1=atan2(dx |
23c60 | 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 | a-ogx,dza-ogz);..ang2=atan2(-dxa |
23c80 | 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c | +ngx,-dza+ngz);..corner=bnot(bel |
23ca0 | 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d | ow(abs(ang1-ang2),.1));....drawm |
23cc0 | 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a | ode=gmegabuf(100*num+3+flo*6);.. |
23ce0 | 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 | c=drawmode*equal(add,1)*corner-d |
23d00 | 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d | z3*.18;..red=c;..green=c;..blue= |
23d20 | 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d | c;....linesize=4-dz3*.5;....add= |
23d40 | 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 | add+1;..if(equal(add,2),assign(a |
23d60 | 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d | dd,0)+assign(num,num+1),0);..sw= |
23d80 | 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 | -sw;..reg99=10;.....t=t+1;deltat |
23da0 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c | ime.=.gettime(time);fr=fr*.9+del |
23dc0 | 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 | tatime*.1;framerate=1/fr;time.=. |
23de0 | 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 | gettime(0);tb.=.tb+1;timeb.=.get |
23e00 | 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d | time(gt);xmouse=getkbmouse(1);ym |
23e20 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d | ouse=getkbmouse(2);xmousec=min(m |
23e40 | 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | ax(xmouse,-1),1);ymousec=min(max |
23e60 | 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | (ymouse,-1),1);lmouse.=.getkbmou |
23e80 | 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 | se(3);rmouse.=.getkbmouse(4);shi |
23ea0 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 | ft.=.getkbmouse(5);control.=.get |
23ec0 | 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | kbmouse(17);backspace.=.getkbmou |
23ee0 | 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 | se(8);space.=.getkbmouse(32);rig |
23f00 | 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 | ht.=.getkbmouse(39);left.=.getkb |
23f20 | 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f | mouse(37);up.=.getkbmouse(38);do |
23f40 | 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d | wn.=.getkbmouse(40);num.=.1;sw.= |
23f60 | 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c | .1;sizechange=bnot(equal(oh,h))| |
23f80 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 | bnot(equal(ow,w));oh=h;ow=w;hw=h |
23fa0 | 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 | /w;....n=reg81*2;....ox=reg00;.r |
23fc0 | 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f | x=reg03;..oy=reg01;.ry=reg04;..o |
23fe0 | 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b | z=reg02;.rz=-reg05;..sx=sin(rx); |
24000 | 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 | sy=sin(ry);sz=sin(rz);..cx=cos(r |
24020 | 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 | x);cy=cos(ry);cz=cos(rz);....add |
24040 | 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 | =0;.....tb=0;..gt.=.gettime(0).. |
24060 | 00 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 | ...flo=1.................$...... |
24080 | 00 01 a8 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | ......dy=2;..dx=gmegabuf(100*num |
240a0 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | +1+flo*6);..dz=gmegabuf(100*num+ |
240c0 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b | 2+flo*6);....dy=dy-oy;dx=-dx+ox; |
240e0 | 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 | dz=dz-oz;..dx1=dx*cy-dz*sy;..dz1 |
24100 | 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b | =dx*sy+dz*cy;..dy2=dy*cx-dz1*sx; |
24120 | 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d | ..dz2=dy*sx+dz1*cx;..dx3=dx1*cz- |
24140 | 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 | dy2*sz;..dy3=dx1*sz+dy2*cz;....d |
24160 | 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 | z3=max(dz2,.01);..x=-(dx3)/dz3*h |
24180 | 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a | w;..y=-(dy3)/dz3;..skip=equal(dz |
241a0 | 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | 3,.01);....drawmode=gmegabuf(100 |
241c0 | 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e | *num+3+flo*6);..c=drawmode-dz3*. |
241e0 | 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a | 18;..red=c;..green=c;..blue=c;.. |
24200 | 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b | ..linesize=4-dz3*.5;....num=num+ |
24220 | 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | 1;..sw=-sw;.......t=t+1;deltatim |
24240 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
24260 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
24280 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
242a0 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
242c0 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | se=getkbmouse(2);xmousec=min(max |
242e0 | 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 | (xmouse,-1),1);ymousec=min(max(y |
24300 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse,-1),1);lmouse.=.getkbmouse |
24320 | 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 | (3);rmouse.=.getkbmouse(4);shift |
24340 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 | .=.getkbmouse(5);control.=.getkb |
24360 | 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse(17);backspace.=.getkbmouse |
24380 | 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 | (8);space.=.getkbmouse(32);right |
243a0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(39);left.=.getkbmo |
243c0 | 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e | use(37);up.=.getkbmouse(38);down |
243e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 | .=.getkbmouse(40);num.=.1;sw.=.1 |
24400 | 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e | ;sizechange=bnot(equal(oh,h))|bn |
24420 | 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 | ot(equal(ow,w));oh=h;ow=w;hw=h/w |
24440 | 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | ;....n=reg82;....ox=reg00;.rx=re |
24460 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
24480 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
244a0 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
244c0 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
244e0 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 | ;..gt.=.gettime(0).....flo=2.... |
24500 | 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 31 3b 0d | .............$............dy=1;. |
24520 | 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dx=gmegabuf(100*num+1+flo*6);.. |
24540 | 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d | dz=gmegabuf(100*num+2+flo*6);... |
24560 | 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 | .dy=dy-oy;dx=-dx+ox;dz=dz-oz;..d |
24580 | 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 | x1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy |
245a0 | 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b | ;..dy2=dy*cx-dz1*sx;..dz2=dy*sx+ |
245c0 | 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 | dz1*cx;..dx3=dx1*cz-dy2*sz;..dy3 |
245e0 | 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e | =dx1*sz+dy2*cz;....dz3=max(dz2,. |
24600 | 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 | 01);..x=-(dx3)/dz3*hw;..y=-(dy3) |
24620 | 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 | /dz3;..skip=equal(dz3,.01);....d |
24640 | 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 | rawmode=gmegabuf(100*num+3+flo*6 |
24660 | 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d | );..c=drawmode-dz3*.18;..red=c;. |
24680 | 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 | .green=c;..blue=c;....linesize=4 |
246a0 | 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d | -dz3*.5;....num=num+1;..sw=-sw;. |
246c0 | 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | ......t=t+1;deltatime.=.gettime( |
246e0 | 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d | time);fr=fr*.9+deltatime*.1;fram |
24700 | 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 | erate=1/fr;time.=.gettime(0);tb. |
24720 | 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 | =.tb+1;timeb.=.gettime(gt);xmous |
24740 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | e=getkbmouse(1);ymouse=getkbmous |
24760 | 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c | e(2);xmousec=min(max(xmouse,-1), |
24780 | 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 1);ymousec=min(max(ymouse,-1),1) |
247a0 | 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d | ;lmouse.=.getkbmouse(3);rmouse.= |
247c0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(4);shift.=.getkbmous |
247e0 | 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 | e(5);control.=.getkbmouse(17);ba |
24800 | 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 | ckspace.=.getkbmouse(8);space.=. |
24820 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(32);right.=.getkbmous |
24840 | 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d | e(39);left.=.getkbmouse(37);up.= |
24860 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(38);down.=.getkbmous |
24880 | 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d | e(40);num.=.1;sw.=.1;sizechange= |
248a0 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c | bnot(equal(oh,h))|bnot(equal(ow, |
248c0 | 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 | w));oh=h;ow=w;hw=h/w;....n=reg82 |
248e0 | 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 | ;....ox=reg00;.rx=reg03;..oy=reg |
24900 | 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 | 01;.ry=reg04;..oz=reg02;.rz=-reg |
24920 | 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 | 05;..sx=sin(rx);sy=sin(ry);sz=si |
24940 | 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a | n(rz);..cx=cos(rx);cy=cos(ry);cz |
24960 | 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 | =cos(rz);.......tb=0;..gt.=.gett |
24980 | 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | ime(0).....flo=2................ |
249a0 | 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 31 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d | .$............dy=1.5+sw*.5;..dx= |
249c0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 | gmegabuf(100*num+1+flo*6);..dz=g |
249e0 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 | megabuf(100*num+2+flo*6);..dxa=d |
24a00 | 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b | x;dza=dz;....dy=dy-oy;dx=-dx+ox; |
24a20 | 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 | dz=dz-oz;..dx1=dx*cy-dz*sy;..dz1 |
24a40 | 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b | =dx*sy+dz*cy;..dy2=dy*cx-dz1*sx; |
24a60 | 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d | ..dz2=dy*sx+dz1*cx;..dx3=dx1*cz- |
24a80 | 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 | dy2*sz;..dy3=dx1*sz+dy2*cz;....d |
24aa0 | 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 | z3=max(dz2,.01);..x=-(dx3)/dz3*h |
24ac0 | 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a | w;..y=-(dy3)/dz3;..skip=equal(dz |
24ae0 | 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d | 3,.01);....ogx=gmegabuf(100*(num |
24b00 | 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | -1)+1+flo*6);..ogz=gmegabuf(100* |
24b20 | 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 | (num-1)+2+flo*6);..ngx=gmegabuf( |
24b40 | 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 | 100*(num+1)+1+flo*6);..ngz=gmega |
24b60 | 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 | buf(100*(num+1)+2+flo*6);....ang |
24b80 | 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d | 1=atan2(dxa-ogx,dza-ogz);..ang2= |
24ba0 | 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 | atan2(-dxa+ngx,-dza+ngz);..corne |
24bc0 | 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 | r=bnot(below(abs(ang1-ang2),.1)) |
24be0 | 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 | ;....drawmode=gmegabuf(100*num+3 |
24c00 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 | +flo*6);..c=drawmode*equal(add,1 |
24c20 | 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e | )*corner-dz3*.18;..red=c;..green |
24c40 | 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e | =c;..blue=c;....linesize=4-dz3*. |
24c60 | 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 | 5;....add=add+1;..if(equal(add,2 |
24c80 | 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 | ),assign(add,0)+assign(num,num+1 |
24ca0 | 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d | ),0);..sw=-sw;..reg99=10;.....t= |
24cc0 | 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 | t+1;deltatime.=.gettime(time);fr |
24ce0 | 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f | =fr*.9+deltatime*.1;framerate=1/ |
24d00 | 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 | fr;time.=.gettime(0);tb.=.tb+1;t |
24d20 | 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | imeb.=.gettime(gt);xmouse=getkbm |
24d40 | 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f | ouse(1);ymouse=getkbmouse(2);xmo |
24d60 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 | usec=min(max(xmouse,-1),1);ymous |
24d80 | 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 | ec=min(max(ymouse,-1),1);lmouse. |
24da0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(3);rmouse.=.getkbmo |
24dc0 | 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e | use(4);shift.=.getkbmouse(5);con |
24de0 | 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 | trol.=.getkbmouse(17);backspace. |
24e00 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(8);space.=.getkbmou |
24e20 | 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 | se(32);right.=.getkbmouse(39);le |
24e40 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f | ft.=.getkbmouse(37);up.=.getkbmo |
24e60 | 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 | use(38);down.=.getkbmouse(40);nu |
24e80 | 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 | m.=.1;sw.=.1;sizechange=bnot(equ |
24ea0 | 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 | al(oh,h))|bnot(equal(ow,w));oh=h |
24ec0 | 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 2a 32 3b 0d 0a 0d 0a 6f | ;ow=w;hw=h/w;....n=reg82*2;....o |
24ee0 | 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 | x=reg00;.rx=reg03;..oy=reg01;.ry |
24f00 | 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 | =reg04;..oz=reg02;.rz=-reg05;..s |
24f20 | 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b | x=sin(rx);sy=sin(ry);sz=sin(rz); |
24f40 | 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 | ..cx=cos(rx);cy=cos(ry);cz=cos(r |
24f60 | 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 | z);....add=0;.....tb=0;..gt.=.ge |
24f80 | 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 | ttime(0).....flo=2.............. |
24fa0 | 00 00 00 24 00 00 00 9b 04 00 00 01 a8 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 | ...$............dy=2;..dx=gmegab |
24fc0 | 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 | uf(100*num+1+flo*6);..dz=gmegabu |
24fe0 | 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b | f(100*num+2+flo*6);....dy=dy-oy; |
25000 | 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 | dx=-dx+ox;dz=dz-oz;..dx1=dx*cy-d |
25020 | 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a | z*sy;..dz1=dx*sy+dz*cy;..dy2=dy* |
25040 | 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 | cx-dz1*sx;..dz2=dy*sx+dz1*cx;..d |
25060 | 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 | x3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy |
25080 | 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 | 2*cz;....dz3=max(dz2,.01);..x=-( |
250a0 | 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 | dx3)/dz3*hw;..y=-(dy3)/dz3;..ski |
250c0 | 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d | p=equal(dz3,.01);....drawmode=gm |
250e0 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 | egabuf(100*num+3+flo*6);..c=draw |
25100 | 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d | mode-dz3*.18;..red=c;..green=c;. |
25120 | 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a | .blue=c;....linesize=4-dz3*.5;.. |
25140 | 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b5 02 00 00 74 3d 74 2b | ..num=num+1;..sw=-sw;.......t=t+ |
25160 | 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 | 1;deltatime.=.gettime(time);fr=f |
25180 | 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 | r*.9+deltatime*.1;framerate=1/fr |
251a0 | 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d | ;time.=.gettime(0);tb.=.tb+1;tim |
251c0 | 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | eb.=.gettime(gt);xmouse=getkbmou |
251e0 | 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 | se(1);ymouse=getkbmouse(2);xmous |
25200 | 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 | ec=min(max(xmouse,-1),1);ymousec |
25220 | 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 | =min(max(ymouse,-1),1);lmouse.=. |
25240 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(3);rmouse.=.getkbmous |
25260 | 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 | e(4);shift.=.getkbmouse(5);contr |
25280 | 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 | ol.=.getkbmouse(17);backspace.=. |
252a0 | 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(8);space.=.getkbmouse |
252c0 | 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 | (32);right.=.getkbmouse(39);left |
252e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .=.getkbmouse(37);up.=.getkbmous |
25300 | 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 | e(38);down.=.getkbmouse(40);num. |
25320 | 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c | =.1;sw.=.1;sizechange=bnot(equal |
25340 | 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f | (oh,h))|bnot(equal(ow,w));oh=h;o |
25360 | 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 | w=w;hw=h/w;....n=reg83;....ox=re |
25380 | 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 | g00;.rx=reg03;..oy=reg01;.ry=reg |
253a0 | 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 67 6c 69 74 63 | 04;..oz=reg02;.rz=-reg05;..glitc |
253c0 | 68 3d 62 69 74 63 68 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b | h=bitch;..sx=sin(rx);sy=sin(ry); |
253e0 | 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 | sz=sin(rz);..cx=cos(rx);cy=cos(r |
25400 | 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d | y);cz=cos(rz);.......tb=0;..gt.= |
25420 | 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff | .gettime(0).....flo=3........... |
25440 | ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 | ......$............dy=3;..dx=gme |
25460 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 | gabuf(100*num+1+flo*6);..dz=gmeg |
25480 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d | abuf(100*num+2+flo*6);....dy=dy- |
254a0 | 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 | oy;dx=-dx+ox;dz=dz-oz;..dx1=dx*c |
254c0 | 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d | y-dz*sy;..dz1=dx*sy+dz*cy;..dy2= |
254e0 | 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b | dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx; |
25500 | 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a | ..dx3=dx1*cz-dy2*sz;..dy3=dx1*sz |
25520 | 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 | +dy2*cz;....dz3=max(dz2,.01);..x |
25540 | 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | =-(dx3)/dz3*hw;..y=-(dy3)/dz3;.. |
25560 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 | skip=equal(dz3,.01);....drawmode |
25580 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 | =gmegabuf(100*num+3+flo*6);..c=d |
255a0 | 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d | rawmode-dz3*.18;..red=c;..green= |
255c0 | 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 | c;..blue=c;....linesize=4-dz3*.5 |
255e0 | 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 | ;....num=num+1;..sw=-sw;.......t |
25600 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
25620 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
25640 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
25660 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
25680 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d | mouse(1);ymouse=getkbmouse(2);xm |
256a0 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 | ousec=min(max(xmouse,-1),1);ymou |
256c0 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 | sec=min(max(ymouse,-1),1);lmouse |
256e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(3);rmouse.=.getkbm |
25700 | 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f | ouse(4);shift.=.getkbmouse(5);co |
25720 | 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 | ntrol.=.getkbmouse(17);backspace |
25740 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(8);space.=.getkbmo |
25760 | 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c | use(32);right.=.getkbmouse(39);l |
25780 | 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d | eft.=.getkbmouse(37);up.=.getkbm |
257a0 | 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e | ouse(38);down.=.getkbmouse(40);n |
257c0 | 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 | um.=.1;sw.=.1;sizechange=bnot(eq |
257e0 | 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d | ual(oh,h))|bnot(equal(ow,w));oh= |
25800 | 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 | h;ow=w;hw=h/w;....n=reg83;....ox |
25820 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
25840 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
25860 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
25880 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
258a0 | 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 | );.......tb=0;..gt.=.gettime(0). |
258c0 | 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 | ....flo=3.................$..... |
258e0 | 00 00 01 0c 03 00 00 64 79 3d 32 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 | .......dy=2.5+sw*.5;..dx=gmegabu |
25900 | 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 | f(100*num+1+flo*6);..dz=gmegabuf |
25920 | 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 | (100*num+2+flo*6);..dxa=dx;dza=d |
25940 | 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f | z;....dy=dy-oy;dx=-dx+ox;dz=dz-o |
25960 | 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b | z;..dx1=dx*cy-dz*sy;..dz1=dx*sy+ |
25980 | 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 | dz*cy;..dy2=dy*cx-dz1*sx;..dz2=d |
259a0 | 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b | y*sx+dz1*cx;..dx3=dx1*cz-dy2*sz; |
259c0 | 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 | ..dy3=dx1*sz+dy2*cz;....dz3=max( |
259e0 | 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d | dz2,.01);..x=-(dx3)/dz3*hw;..y=- |
25a00 | 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b | (dy3)/dz3;..skip=equal(dz3,.01); |
25a20 | 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 | ....ogx=gmegabuf(100*(num-1)+1+f |
25a40 | 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 | lo*6);..ogz=gmegabuf(100*(num-1) |
25a60 | 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 | +2+flo*6);..ngx=gmegabuf(100*(nu |
25a80 | 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | m+1)+1+flo*6);..ngz=gmegabuf(100 |
25aa0 | 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 | *(num+1)+2+flo*6);....ang1=atan2 |
25ac0 | 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d | (dxa-ogx,dza-ogz);..ang2=atan2(- |
25ae0 | 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 | dxa+ngx,-dza+ngz);..corner=bnot( |
25b00 | 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 | below(abs(ang1-ang2),.1));....dr |
25b20 | 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 | awmode=gmegabuf(100*num+3+flo*6) |
25b40 | 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 | ;..c=drawmode*equal(add,1)*corne |
25b60 | 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c | r-dz3*.18;..red=c;..green=c;..bl |
25b80 | 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 | ue=c;....linesize=4-dz3*.5;....a |
25ba0 | 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 | dd=add+1;..if(equal(add,2),assig |
25bc0 | 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a | n(add,0)+assign(num,num+1),0);.. |
25be0 | 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c | sw=-sw;..reg99=10;.....t=t+1;del |
25c00 | 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b | tatime.=.gettime(time);fr=fr*.9+ |
25c20 | 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 | deltatime*.1;framerate=1/fr;time |
25c40 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 | .=.gettime(0);tb.=.tb+1;timeb.=. |
25c60 | 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 | gettime(gt);xmouse=getkbmouse(1) |
25c80 | 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 | ;ymouse=getkbmouse(2);xmousec=mi |
25ca0 | 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 | n(max(xmouse,-1),1);ymousec=min( |
25cc0 | 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | max(ymouse,-1),1);lmouse.=.getkb |
25ce0 | 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b | mouse(3);rmouse.=.getkbmouse(4); |
25d00 | 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 | shift.=.getkbmouse(5);control.=. |
25d20 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | getkbmouse(17);backspace.=.getkb |
25d40 | 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b | mouse(8);space.=.getkbmouse(32); |
25d60 | 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 | right.=.getkbmouse(39);left.=.ge |
25d80 | 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 | tkbmouse(37);up.=.getkbmouse(38) |
25da0 | 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 | ;down.=.getkbmouse(40);num.=.1;s |
25dc0 | 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | w.=.1;sizechange=bnot(equal(oh,h |
25de0 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
25e00 | 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 | w=h/w;....n=reg83*2;....ox=reg00 |
25e20 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
25e40 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
25e60 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
25e80 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a | s(rx);cy=cos(ry);cz=cos(rz);.... |
25ea0 | 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 | add=0;.....tb=0;..gt.=.gettime(0 |
25ec0 | 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 | ).....flo=3.................$... |
25ee0 | 8c 04 00 00 01 a8 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | .........dy=3;..dx=gmegabuf(100* |
25f00 | 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | num+1+flo*6);..dz=gmegabuf(100*n |
25f20 | 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b | um+2+flo*6);....dy=dy-oy;dx=-dx+ |
25f40 | 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a | ox;dz=dz-oz;..dx1=dx*cy-dz*sy;.. |
25f60 | 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a | dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1* |
25f80 | 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a | sx;..dz2=dy*sx+dz1*cx;..dx3=dx1* |
25fa0 | 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a | cz-dy2*sz;..dy3=dx1*sz+dy2*cz;.. |
25fc0 | 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a | ..dz3=max(dz2,.01);..x=-(dx3)/dz |
25fe0 | 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c | 3*hw;..y=-(dy3)/dz3;..skip=equal |
26000 | 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 | (dz3,.01);....drawmode=gmegabuf( |
26020 | 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a | 100*num+3+flo*6);..c=drawmode-dz |
26040 | 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 | 3*.18;..red=c;..green=c;..blue=c |
26060 | 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e | ;....linesize=4-dz3*.5;....num=n |
26080 | 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | um+1;..sw=-sw;.......t=t+1;delta |
260a0 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
260c0 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
260e0 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
26100 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
26120 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
26140 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
26160 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
26180 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
261a0 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
261c0 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
261e0 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
26200 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
26220 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
26240 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
26260 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
26280 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
262a0 | 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 | h/w;....n=reg84;....ox=reg00;.rx |
262c0 | 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a | =reg03;..oy=reg01;.ry=reg04;..oz |
262e0 | 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 | =reg02;.rz=-reg05;..sx=sin(rx);s |
26300 | 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 | y=sin(ry);sz=sin(rz);..cx=cos(rx |
26320 | 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 | );cy=cos(ry);cz=cos(rz);.......t |
26340 | 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 | b=0;..gt.=.gettime(0).....flo=4. |
26360 | 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d | ................$............dy= |
26380 | 34 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 | 4;..dx=gmegabuf(100*num+1+flo*6) |
263a0 | 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b | ;..dz=gmegabuf(100*num+2+flo*6); |
263c0 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
263e0 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
26400 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
26420 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
26440 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
26460 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
26480 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
264a0 | 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c | ..drawmode=gmegabuf(100*num+3+fl |
264c0 | 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d | o*6);..c=drawmode-dz3*.18;..red= |
264e0 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
26500 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 | e=4-dz3*.5;....num=num+1;..sw=-s |
26520 | 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | w;.......t=t+1;deltatime.=.getti |
26540 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
26560 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
26580 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
265a0 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
265c0 | 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d | ouse(2);xmousec=min(max(xmouse,- |
265e0 | 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 | 1),1);ymousec=min(max(ymouse,-1) |
26600 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
26620 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
26640 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
26660 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
26680 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
266a0 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
266c0 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
266e0 | 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e | ouse(40);num.=.1;sw.=.1;sizechan |
26700 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
26720 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 | ow,w));oh=h;ow=w;hw=h/w;....n=re |
26740 | 67 38 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | g84;....ox=reg00;.rx=reg03;..oy= |
26760 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
26780 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
267a0 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
267c0 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | ;cz=cos(rz);.......tb=0;..gt.=.g |
267e0 | 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ettime(0).....flo=4............. |
26800 | 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 33 2e 35 2b 73 77 2a 2e 35 3b 0d 0a | ....$............dy=3.5+sw*.5;.. |
26820 | 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 | dx=gmegabuf(100*num+1+flo*6);..d |
26840 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 | z=gmegabuf(100*num+2+flo*6);..dx |
26860 | 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b | a=dx;dza=dz;....dy=dy-oy;dx=-dx+ |
26880 | 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a | ox;dz=dz-oz;..dx1=dx*cy-dz*sy;.. |
268a0 | 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a | dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1* |
268c0 | 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a | sx;..dz2=dy*sx+dz1*cx;..dx3=dx1* |
268e0 | 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a | cz-dy2*sz;..dy3=dx1*sz+dy2*cz;.. |
26900 | 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a | ..dz3=max(dz2,.01);..x=-(dx3)/dz |
26920 | 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c | 3*hw;..y=-(dy3)/dz3;..skip=equal |
26940 | 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | (dz3,.01);....ogx=gmegabuf(100*( |
26960 | 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 | num-1)+1+flo*6);..ogz=gmegabuf(1 |
26980 | 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 | 00*(num-1)+2+flo*6);..ngx=gmegab |
269a0 | 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d | uf(100*(num+1)+1+flo*6);..ngz=gm |
269c0 | 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a | egabuf(100*(num+1)+2+flo*6);.... |
269e0 | 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e | ang1=atan2(dxa-ogx,dza-ogz);..an |
26a00 | 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f | g2=atan2(-dxa+ngx,-dza+ngz);..co |
26a20 | 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e | rner=bnot(below(abs(ang1-ang2),. |
26a40 | 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | 1));....drawmode=gmegabuf(100*nu |
26a60 | 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 | m+3+flo*6);..c=drawmode*equal(ad |
26a80 | 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 | d,1)*corner-dz3*.18;..red=c;..gr |
26aa0 | 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a | een=c;..blue=c;....linesize=4-dz |
26ac0 | 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 | 3*.5;....add=add+1;..if(equal(ad |
26ae0 | 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 | d,2),assign(add,0)+assign(num,nu |
26b00 | 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 | m+1),0);..sw=-sw;..reg99=10;.... |
26b20 | 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 | .t=t+1;deltatime.=.gettime(time) |
26b40 | 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 | ;fr=fr*.9+deltatime*.1;framerate |
26b60 | 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b | =1/fr;time.=.gettime(0);tb.=.tb+ |
26b80 | 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 | 1;timeb.=.gettime(gt);xmouse=get |
26ba0 | 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b | kbmouse(1);ymouse=getkbmouse(2); |
26bc0 | 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d | xmousec=min(max(xmouse,-1),1);ym |
26be0 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 | ousec=min(max(ymouse,-1),1);lmou |
26c00 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b | se.=.getkbmouse(3);rmouse.=.getk |
26c20 | 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b | bmouse(4);shift.=.getkbmouse(5); |
26c40 | 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 | control.=.getkbmouse(17);backspa |
26c60 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | ce.=.getkbmouse(8);space.=.getkb |
26c80 | 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 | mouse(32);right.=.getkbmouse(39) |
26ca0 | 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b | ;left.=.getkbmouse(37);up.=.getk |
26cc0 | 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 | bmouse(38);down.=.getkbmouse(40) |
26ce0 | 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | ;num.=.1;sw.=.1;sizechange=bnot( |
26d00 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
26d20 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 2a 32 3b 0d 0a | h=h;ow=w;hw=h/w;....n=reg84*2;.. |
26d40 | 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b | ..ox=reg00;.rx=reg03;..oy=reg01; |
26d60 | 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b | .ry=reg04;..oz=reg02;.rz=-reg05; |
26d80 | 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 | ..sx=sin(rx);sy=sin(ry);sz=sin(r |
26da0 | 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f | z);..cx=cos(rx);cy=cos(ry);cz=co |
26dc0 | 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d | s(rz);....add=0;.....tb=0;..gt.= |
26de0 | 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff | .gettime(0).....flo=4........... |
26e00 | ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 34 2e 35 2b 73 77 2a 2e 35 3b | ......$............dy=4.5+sw*.5; |
26e20 | 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d | ..dx=gmegabuf(100*num+1+flo*6);. |
26e40 | 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dz=gmegabuf(100*num+2+flo*6);.. |
26e60 | 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 | dxa=dx;dza=dz;....dy=dy-oy;dx=-d |
26e80 | 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b | x+ox;dz=dz-oz;..dx1=dx*cy-dz*sy; |
26ea0 | 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a | ..dz1=dx*sy+dz*cy;..dy2=dy*cx-dz |
26ec0 | 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 | 1*sx;..dz2=dy*sx+dz1*cx;..dx3=dx |
26ee0 | 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b | 1*cz-dy2*sz;..dy3=dx1*sz+dy2*cz; |
26f00 | 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f | ....dz3=max(dz2,.01);..x=-(dx3)/ |
26f20 | 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 | dz3*hw;..y=-(dy3)/dz3;..skip=equ |
26f40 | 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | al(dz3,.01);....ogx=gmegabuf(100 |
26f60 | 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 | *(num-1)+1+flo*6);..ogz=gmegabuf |
26f80 | 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 | (100*(num-1)+2+flo*6);..ngx=gmeg |
26fa0 | 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d | abuf(100*(num+1)+1+flo*6);..ngz= |
26fc0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | gmegabuf(100*(num+1)+2+flo*6);.. |
26fe0 | 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a | ..ang1=atan2(dxa-ogx,dza-ogz);.. |
27000 | 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a | ang2=atan2(-dxa+ngx,-dza+ngz);.. |
27020 | 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 | corner=bnot(below(abs(ang1-ang2) |
27040 | 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | ,.1));....drawmode=gmegabuf(100* |
27060 | 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 | num+3+flo*6);..c=drawmode*equal( |
27080 | 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a | add,1)*corner-dz3*.18;..red=c;.. |
270a0 | 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d | green=c;..blue=c;....linesize=4- |
270c0 | 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 | dz3*.5;....add=add+1;..if(equal( |
270e0 | 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c | add,2),assign(add,0)+assign(num, |
27100 | 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 | num+1),0);..sw=-sw;..reg99=10;.. |
27120 | 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d | ...t=t+1;deltatime.=.gettime(tim |
27140 | 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 | e);fr=fr*.9+deltatime*.1;framera |
27160 | 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 | te=1/fr;time.=.gettime(0);tb.=.t |
27180 | 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 | b+1;timeb.=.gettime(gt);xmouse=g |
271a0 | 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 | etkbmouse(1);ymouse=getkbmouse(2 |
271c0 | 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );xmousec=min(max(xmouse,-1),1); |
271e0 | 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d | ymousec=min(max(ymouse,-1),1);lm |
27200 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 | ouse.=.getkbmouse(3);rmouse.=.ge |
27220 | 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 | tkbmouse(4);shift.=.getkbmouse(5 |
27240 | 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 | );control.=.getkbmouse(17);backs |
27260 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 | pace.=.getkbmouse(8);space.=.get |
27280 | 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | kbmouse(32);right.=.getkbmouse(3 |
272a0 | 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 | 9);left.=.getkbmouse(37);up.=.ge |
272c0 | 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | tkbmouse(38);down.=.getkbmouse(4 |
272e0 | 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f | 0);num.=.1;sw.=.1;sizechange=bno |
27300 | 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 | t(equal(oh,h))|bnot(equal(ow,w)) |
27320 | 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 2a 32 3b | ;oh=h;ow=w;hw=h/w;....n=reg85*2; |
27340 | 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 | ....ox=reg00;.rx=reg03;..oy=reg0 |
27360 | 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 | 1;.ry=reg04;..oz=reg02;.rz=-reg0 |
27380 | 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e | 5;..sx=sin(rx);sy=sin(ry);sz=sin |
273a0 | 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d | (rz);..cx=cos(rx);cy=cos(ry);cz= |
273c0 | 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 | cos(rz);....add=0;.....tb=0;..gt |
273e0 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 | .=.gettime(0).....flo=5......... |
27400 | ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 | ........$............dy=5;..dx=g |
27420 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d | megabuf(100*num+1+flo*6);..dz=gm |
27440 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 | egabuf(100*num+2+flo*6);....dy=d |
27460 | 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 | y-oy;dx=-dx+ox;dz=dz-oz;..dx1=dx |
27480 | 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 | *cy-dz*sy;..dz1=dx*sy+dz*cy;..dy |
274a0 | 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 | 2=dy*cx-dz1*sx;..dz2=dy*sx+dz1*c |
274c0 | 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a | x;..dx3=dx1*cz-dy2*sz;..dy3=dx1* |
274e0 | 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d | sz+dy2*cz;....dz3=max(dz2,.01);. |
27500 | 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b | .x=-(dx3)/dz3*hw;..y=-(dy3)/dz3; |
27520 | 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f | ..skip=equal(dz3,.01);....drawmo |
27540 | 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 | de=gmegabuf(100*num+3+flo*6);..c |
27560 | 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 | =drawmode-dz3*.18;..red=c;..gree |
27580 | 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a | n=c;..blue=c;....linesize=4-dz3* |
275a0 | 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 | .5;....num=num+1;..sw=-sw;...... |
275c0 | 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 | .t=t+1;deltatime.=.gettime(time) |
275e0 | 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 | ;fr=fr*.9+deltatime*.1;framerate |
27600 | 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b | =1/fr;time.=.gettime(0);tb.=.tb+ |
27620 | 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 | 1;timeb.=.gettime(gt);xmouse=get |
27640 | 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b | kbmouse(1);ymouse=getkbmouse(2); |
27660 | 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d | xmousec=min(max(xmouse,-1),1);ym |
27680 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 | ousec=min(max(ymouse,-1),1);lmou |
276a0 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b | se.=.getkbmouse(3);rmouse.=.getk |
276c0 | 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b | bmouse(4);shift.=.getkbmouse(5); |
276e0 | 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 | control.=.getkbmouse(17);backspa |
27700 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | ce.=.getkbmouse(8);space.=.getkb |
27720 | 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 | mouse(32);right.=.getkbmouse(39) |
27740 | 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b | ;left.=.getkbmouse(37);up.=.getk |
27760 | 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 | bmouse(38);down.=.getkbmouse(40) |
27780 | 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | ;num.=.1;sw.=.1;sizechange=bnot( |
277a0 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
277c0 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a | h=h;ow=w;hw=h/w;....n=reg85;.... |
277e0 | 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 | ox=reg00;.rx=reg03;..oy=reg01;.r |
27800 | 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a | y=reg04;..oz=reg02;.rz=-reg05;.. |
27820 | 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 | sx=sin(rx);sy=sin(ry);sz=sin(rz) |
27840 | 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 | ;..cx=cos(rx);cy=cos(ry);cz=cos( |
27860 | 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 | rz);.......tb=0;..gt.=.gettime(0 |
27880 | 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 | ).....flo=5.................$... |
278a0 | 8c 04 00 00 01 a8 01 00 00 64 79 3d 34 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | .........dy=4;..dx=gmegabuf(100* |
278c0 | 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | num+1+flo*6);..dz=gmegabuf(100*n |
278e0 | 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b | um+2+flo*6);....dy=dy-oy;dx=-dx+ |
27900 | 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a | ox;dz=dz-oz;..dx1=dx*cy-dz*sy;.. |
27920 | 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a | dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1* |
27940 | 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a | sx;..dz2=dy*sx+dz1*cx;..dx3=dx1* |
27960 | 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a | cz-dy2*sz;..dy3=dx1*sz+dy2*cz;.. |
27980 | 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a | ..dz3=max(dz2,.01);..x=-(dx3)/dz |
279a0 | 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c | 3*hw;..y=-(dy3)/dz3;..skip=equal |
279c0 | 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 | (dz3,.01);....drawmode=gmegabuf( |
279e0 | 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a | 100*num+3+flo*6);..c=drawmode-dz |
27a00 | 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 | 3*.18;..red=c;..green=c;..blue=c |
27a20 | 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e | ;....linesize=4-dz3*.5;....num=n |
27a40 | 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | um+1;..sw=-sw;.......t=t+1;delta |
27a60 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
27a80 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
27aa0 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
27ac0 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
27ae0 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
27b00 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
27b20 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
27b40 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
27b60 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
27b80 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
27ba0 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
27bc0 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
27be0 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
27c00 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
27c20 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
27c40 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
27c60 | 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 | h/w;....n=reg85;....ox=reg00;.rx |
27c80 | 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a | =reg03;..oy=reg01;.ry=reg04;..oz |
27ca0 | 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 | =reg02;.rz=-reg05;..sx=sin(rx);s |
27cc0 | 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 | y=sin(ry);sz=sin(rz);..cx=cos(rx |
27ce0 | 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 | );cy=cos(ry);cz=cos(rz);.......t |
27d00 | 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 | b=0;..gt.=.gettime(0).....flo=5. |
27d20 | 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d | ................$............dy= |
27d40 | 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 | 5;..dx=gmegabuf(100*num+1+flo*6) |
27d60 | 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b | ;..dz=gmegabuf(100*num+2+flo*6); |
27d80 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
27da0 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
27dc0 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
27de0 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
27e00 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
27e20 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
27e40 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
27e60 | 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c | ..drawmode=gmegabuf(100*num+3+fl |
27e80 | 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d | o*6);..c=drawmode-dz3*.18;..red= |
27ea0 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
27ec0 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 | e=4-dz3*.5;....num=num+1;..sw=-s |
27ee0 | 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | w;.......t=t+1;deltatime.=.getti |
27f00 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
27f20 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
27f40 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
27f60 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
27f80 | 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d | ouse(2);xmousec=min(max(xmouse,- |
27fa0 | 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 | 1),1);ymousec=min(max(ymouse,-1) |
27fc0 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
27fe0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
28000 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
28020 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
28040 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
28060 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
28080 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
280a0 | 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e | ouse(40);num.=.1;sw.=.1;sizechan |
280c0 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
280e0 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 | ow,w));oh=h;ow=w;hw=h/w;....n=re |
28100 | 67 38 36 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | g86;....ox=reg00;.rx=reg03;..oy= |
28120 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
28140 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
28160 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
28180 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | ;cz=cos(rz);.......tb=0;..gt.=.g |
281a0 | 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ettime(0).....flo=6............. |
281c0 | 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d 67 6d 65 67 61 | ....$............dy=6;..dx=gmega |
281e0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 | buf(100*num+1+flo*6);..dz=gmegab |
28200 | 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 | uf(100*num+2+flo*6);....dy=dy-oy |
28220 | 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d | ;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy- |
28240 | 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 | dz*sy;..dz1=dx*sy+dz*cy;..dy2=dy |
28260 | 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a | *cx-dz1*sx;..dz2=dy*sx+dz1*cx;.. |
28280 | 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 | dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+d |
282a0 | 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d | y2*cz;....dz3=max(dz2,.01);..x=- |
282c0 | 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b | (dx3)/dz3*hw;..y=-(dy3)/dz3;..sk |
282e0 | 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 | ip=equal(dz3,.01);....drawmode=g |
28300 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 | megabuf(100*num+3+flo*6);..c=dra |
28320 | 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b | wmode-dz3*.18;..red=c;..green=c; |
28340 | 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d | ..blue=c;....linesize=4-dz3*.5;. |
28360 | 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 | ...num=num+1;..sw=-sw;.......t=t |
28380 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
283a0 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
283c0 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
283e0 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
28400 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
28420 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
28440 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
28460 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
28480 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
284a0 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
284c0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
284e0 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
28500 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
28520 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
28540 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
28560 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
28580 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 3b 0d 0a 0d 0a 6f 78 3d 72 | ow=w;hw=h/w;....n=reg86;....ox=r |
285a0 | 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 | eg00;.rx=reg03;..oy=reg01;.ry=re |
285c0 | 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 | g04;..oz=reg02;.rz=-reg05;..sx=s |
285e0 | 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 | in(rx);sy=sin(ry);sz=sin(rz);..c |
28600 | 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b | x=cos(rx);cy=cos(ry);cz=cos(rz); |
28620 | 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 | .......tb=0;..gt.=.gettime(0)... |
28640 | 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 | ..flo=6.................$....... |
28660 | 01 0c 03 00 00 64 79 3d 35 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 | .....dy=5.5+sw*.5;..dx=gmegabuf( |
28680 | 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 | 100*num+1+flo*6);..dz=gmegabuf(1 |
286a0 | 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b | 00*num+2+flo*6);..dxa=dx;dza=dz; |
286c0 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
286e0 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
28700 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
28720 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
28740 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
28760 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
28780 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
287a0 | 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f | ..ogx=gmegabuf(100*(num-1)+1+flo |
287c0 | 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 | *6);..ogz=gmegabuf(100*(num-1)+2 |
287e0 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b | +flo*6);..ngx=gmegabuf(100*(num+ |
28800 | 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | 1)+1+flo*6);..ngz=gmegabuf(100*( |
28820 | 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 | num+1)+2+flo*6);....ang1=atan2(d |
28840 | 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 | xa-ogx,dza-ogz);..ang2=atan2(-dx |
28860 | 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 | a+ngx,-dza+ngz);..corner=bnot(be |
28880 | 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 | low(abs(ang1-ang2),.1));....draw |
288a0 | 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d | mode=gmegabuf(100*num+3+flo*6);. |
288c0 | 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d | .c=drawmode*equal(add,1)*corner- |
288e0 | 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 | dz3*.18;..red=c;..green=c;..blue |
28900 | 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 | =c;....linesize=4-dz3*.5;....add |
28920 | 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 | =add+1;..if(equal(add,2),assign( |
28940 | 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 | add,0)+assign(num,num+1),0);..sw |
28960 | 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | =-sw;..reg99=10;.....t=t+1;delta |
28980 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
289a0 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
289c0 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
289e0 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
28a00 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
28a20 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
28a40 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
28a60 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
28a80 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
28aa0 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
28ac0 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
28ae0 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
28b00 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
28b20 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
28b40 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
28b60 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
28b80 | 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | h/w;....n=reg86*2;....ox=reg00;. |
28ba0 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
28bc0 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
28be0 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
28c00 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 | rx);cy=cos(ry);cz=cos(rz);....ad |
28c20 | 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 | d=0;.....tb=0;..gt.=.gettime(0). |
28c40 | 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 | ....flo=6.................$..... |
28c60 | 00 00 01 a8 01 00 00 64 79 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | .......dy=7;..dx=gmegabuf(100*nu |
28c80 | 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | m+1+flo*6);..dz=gmegabuf(100*num |
28ca0 | 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | +2+flo*6);....dy=dy-oy;dx=-dx+ox |
28cc0 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
28ce0 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
28d00 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
28d20 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
28d40 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
28d60 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
28d80 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 | z3,.01);....drawmode=gmegabuf(10 |
28da0 | 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a | 0*num+3+flo*6);..c=drawmode-dz3* |
28dc0 | 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d | .18;..red=c;..green=c;..blue=c;. |
28de0 | 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d | ...linesize=4-dz3*.5;....num=num |
28e00 | 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | +1;..sw=-sw;.......t=t+1;deltati |
28e20 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
28e40 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
28e60 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
28e80 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
28ea0 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
28ec0 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
28ee0 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
28f00 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
28f20 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
28f40 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
28f60 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
28f80 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
28fa0 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
28fc0 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
28fe0 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
29000 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
29020 | 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 | w;....n=reg88;....ox=reg00;.rx=r |
29040 | 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 | eg03;..oy=reg01;.ry=reg04;..oz=r |
29060 | 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d | eg02;.rz=-reg05;..sx=sin(rx);sy= |
29080 | 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b | sin(ry);sz=sin(rz);..cx=cos(rx); |
290a0 | 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d | cy=cos(ry);cz=cos(rz);.......tb= |
290c0 | 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 | 0;..gt.=.gettime(0).....flo=8... |
290e0 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 38 3b | ..............$............dy=8; |
29100 | 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d | ..dx=gmegabuf(100*num+1+flo*6);. |
29120 | 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dz=gmegabuf(100*num+2+flo*6);.. |
29140 | 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a | ..dy=dy-oy;dx=-dx+ox;dz=dz-oz;.. |
29160 | 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 | dx1=dx*cy-dz*sy;..dz1=dx*sy+dz*c |
29180 | 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 | y;..dy2=dy*cx-dz1*sx;..dz2=dy*sx |
291a0 | 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 | +dz1*cx;..dx3=dx1*cz-dy2*sz;..dy |
291c0 | 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c | 3=dx1*sz+dy2*cz;....dz3=max(dz2, |
291e0 | 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 | .01);..x=-(dx3)/dz3*hw;..y=-(dy3 |
29200 | 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a | )/dz3;..skip=equal(dz3,.01);.... |
29220 | 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a | drawmode=gmegabuf(100*num+3+flo* |
29240 | 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b | 6);..c=drawmode-dz3*.18;..red=c; |
29260 | 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d | ..green=c;..blue=c;....linesize= |
29280 | 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | 4-dz3*.5;....num=num+1;..sw=-sw; |
292a0 | 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
292c0 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
292e0 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
29300 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
29320 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
29340 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
29360 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
29380 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
293a0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
293c0 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
293e0 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
29400 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
29420 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
29440 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
29460 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
29480 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
294a0 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
294c0 | 38 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | 8;....ox=reg00;.rx=reg03;..oy=re |
294e0 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
29500 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
29520 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
29540 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 | z=cos(rz);.......tb=0;..gt.=.get |
29560 | 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | time(0).....flo=8............... |
29580 | 00 00 24 00 00 00 fe 05 00 00 01 10 03 00 00 64 79 3d 37 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 | ..$............dy=7.5+sw*.5;..dx |
295a0 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d | =gmegabuf(100*num+1+flo*6);..dz= |
295c0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d | gmegabuf(100*num+2+flo*6);..dxa= |
295e0 | 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | dx;dza=dz;....dy=dy-oy;dx=-dx+ox |
29600 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
29620 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
29640 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
29660 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
29680 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
296a0 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
296c0 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 | z3,.01);....ogx=gmegabuf(100*(nu |
296e0 | 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | m-1)+1+flo*6);..ogz=gmegabuf(100 |
29700 | 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 | *(num-1)+2+flo*6);..ngx=gmegabuf |
29720 | 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 | (100*(num+1)+1+flo*6);..ngz=gmeg |
29740 | 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e | abuf(100*(num+1)+2+flo*6);....an |
29760 | 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 | g1=atan2(dxa-ogx,dza-ogz);..ang2 |
29780 | 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e | =atan2(-dxa+ngx,-dza+ngz);..corn |
297a0 | 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 | er=bnot(below(abs(ang1-ang2),.1) |
297c0 | 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | );....drawmode=gmegabuf(100*num+ |
297e0 | 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 73 76 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 | 3+flo*6);..sv=drawmode*equal(add |
29800 | 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 73 76 3b 0d 0a 67 72 | ,1)*corner-dz3*.18;..red=sv;..gr |
29820 | 65 65 6e 3d 73 76 3b 0d 0a 62 6c 75 65 3d 73 76 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d | een=sv;..blue=sv;....linesize=4- |
29840 | 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 | dz3*.5;....add=add+1;..if(equal( |
29860 | 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c | add,2),assign(add,0)+assign(num, |
29880 | 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 | num+1),0);..sw=-sw;..reg99=10;.. |
298a0 | 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d | ...t=t+1;deltatime.=.gettime(tim |
298c0 | 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 | e);fr=fr*.9+deltatime*.1;framera |
298e0 | 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 | te=1/fr;time.=.gettime(0);tb.=.t |
29900 | 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 | b+1;timeb.=.gettime(gt);xmouse=g |
29920 | 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 | etkbmouse(1);ymouse=getkbmouse(2 |
29940 | 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );xmousec=min(max(xmouse,-1),1); |
29960 | 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d | ymousec=min(max(ymouse,-1),1);lm |
29980 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 | ouse.=.getkbmouse(3);rmouse.=.ge |
299a0 | 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 | tkbmouse(4);shift.=.getkbmouse(5 |
299c0 | 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 | );control.=.getkbmouse(17);backs |
299e0 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 | pace.=.getkbmouse(8);space.=.get |
29a00 | 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | kbmouse(32);right.=.getkbmouse(3 |
29a20 | 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 | 9);left.=.getkbmouse(37);up.=.ge |
29a40 | 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | tkbmouse(38);down.=.getkbmouse(4 |
29a60 | 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f | 0);num.=.1;sw.=.1;sizechange=bno |
29a80 | 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 | t(equal(oh,h))|bnot(equal(ow,w)) |
29aa0 | 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 2a 32 3b | ;oh=h;ow=w;hw=h/w;....n=reg88*2; |
29ac0 | 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 | ....ox=reg00;.rx=reg03;..oy=reg0 |
29ae0 | 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 | 1;.ry=reg04;..oz=reg02;.rz=-reg0 |
29b00 | 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e | 5;..sx=sin(rx);sy=sin(ry);sz=sin |
29b20 | 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d | (rz);..cx=cos(rx);cy=cos(ry);cz= |
29b40 | 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 | cos(rz);....add=0;.....tb=0;..gt |
29b60 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 | .=.gettime(0).....flo=8......... |
29b80 | ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d 67 | ........$............dy=6;..dx=g |
29ba0 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d | megabuf(100*num+1+flo*6);..dz=gm |
29bc0 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 | egabuf(100*num+2+flo*6);....dy=d |
29be0 | 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 | y-oy;dx=-dx+ox;dz=dz-oz;..dx1=dx |
29c00 | 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 | *cy-dz*sy;..dz1=dx*sy+dz*cy;..dy |
29c20 | 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 | 2=dy*cx-dz1*sx;..dz2=dy*sx+dz1*c |
29c40 | 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a | x;..dx3=dx1*cz-dy2*sz;..dy3=dx1* |
29c60 | 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d | sz+dy2*cz;....dz3=max(dz2,.01);. |
29c80 | 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b | .x=-(dx3)/dz3*hw;..y=-(dy3)/dz3; |
29ca0 | 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f | ..skip=equal(dz3,.01);....drawmo |
29cc0 | 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 | de=gmegabuf(100*num+3+flo*6);..c |
29ce0 | 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 | =drawmode-dz3*.18;..red=c;..gree |
29d00 | 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a | n=c;..blue=c;....linesize=4-dz3* |
29d20 | 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 | .5;....num=num+1;..sw=-sw;...... |
29d40 | 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 | .t=t+1;deltatime.=.gettime(time) |
29d60 | 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 | ;fr=fr*.9+deltatime*.1;framerate |
29d80 | 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b | =1/fr;time.=.gettime(0);tb.=.tb+ |
29da0 | 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 | 1;timeb.=.gettime(gt);xmouse=get |
29dc0 | 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b | kbmouse(1);ymouse=getkbmouse(2); |
29de0 | 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d | xmousec=min(max(xmouse,-1),1);ym |
29e00 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 | ousec=min(max(ymouse,-1),1);lmou |
29e20 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b | se.=.getkbmouse(3);rmouse.=.getk |
29e40 | 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b | bmouse(4);shift.=.getkbmouse(5); |
29e60 | 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 | control.=.getkbmouse(17);backspa |
29e80 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | ce.=.getkbmouse(8);space.=.getkb |
29ea0 | 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 | mouse(32);right.=.getkbmouse(39) |
29ec0 | 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b | ;left.=.getkbmouse(37);up.=.getk |
29ee0 | 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 | bmouse(38);down.=.getkbmouse(40) |
29f00 | 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | ;num.=.1;sw.=.1;sizechange=bnot( |
29f20 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
29f40 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a | h=h;ow=w;hw=h/w;....n=reg87;.... |
29f60 | 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 | ox=reg00;.rx=reg03;..oy=reg01;.r |
29f80 | 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a | y=reg04;..oz=reg02;.rz=-reg05;.. |
29fa0 | 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 | sx=sin(rx);sy=sin(ry);sz=sin(rz) |
29fc0 | 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 | ;..cx=cos(rx);cy=cos(ry);cz=cos( |
29fe0 | 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 | rz);.......tb=0;..gt.=.gettime(0 |
2a000 | 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 | ).....flo=7.................$... |
2a020 | 8c 04 00 00 01 a8 01 00 00 64 79 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | .........dy=7;..dx=gmegabuf(100* |
2a040 | 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | num+1+flo*6);..dz=gmegabuf(100*n |
2a060 | 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b | um+2+flo*6);....dy=dy-oy;dx=-dx+ |
2a080 | 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a | ox;dz=dz-oz;..dx1=dx*cy-dz*sy;.. |
2a0a0 | 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a | dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1* |
2a0c0 | 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a | sx;..dz2=dy*sx+dz1*cx;..dx3=dx1* |
2a0e0 | 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a | cz-dy2*sz;..dy3=dx1*sz+dy2*cz;.. |
2a100 | 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a | ..dz3=max(dz2,.01);..x=-(dx3)/dz |
2a120 | 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c | 3*hw;..y=-(dy3)/dz3;..skip=equal |
2a140 | 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 | (dz3,.01);....drawmode=gmegabuf( |
2a160 | 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a | 100*num+3+flo*6);..c=drawmode-dz |
2a180 | 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 | 3*.18;..red=c;..green=c;..blue=c |
2a1a0 | 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e | ;....linesize=4-dz3*.5;....num=n |
2a1c0 | 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | um+1;..sw=-sw;.......t=t+1;delta |
2a1e0 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
2a200 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
2a220 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
2a240 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
2a260 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
2a280 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
2a2a0 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
2a2c0 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
2a2e0 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
2a300 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
2a320 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
2a340 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
2a360 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
2a380 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
2a3a0 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
2a3c0 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
2a3e0 | 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 | h/w;....n=reg87;....ox=reg00;.rx |
2a400 | 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a | =reg03;..oy=reg01;.ry=reg04;..oz |
2a420 | 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 | =reg02;.rz=-reg05;..sx=sin(rx);s |
2a440 | 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 | y=sin(ry);sz=sin(rz);..cx=cos(rx |
2a460 | 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 | );cy=cos(ry);cz=cos(rz);.......t |
2a480 | 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 | b=0;..gt.=.gettime(0).....flo=7. |
2a4a0 | 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 06 06 00 00 01 0c 03 00 00 64 79 3d | ................$............dy= |
2a4c0 | 36 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | 6.5+sw*.5;..dx=gmegabuf(100*num+ |
2a4e0 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 | 1+flo*6);..dz=gmegabuf(100*num+2 |
2a500 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 | +flo*6);..dxa=dx;dza=dz;....dy=d |
2a520 | 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 | y-oy;dx=-dx+ox;dz=dz-oz;..dx1=dx |
2a540 | 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 | *cy-dz*sy;..dz1=dx*sy+dz*cy;..dy |
2a560 | 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 | 2=dy*cx-dz1*sx;..dz2=dy*sx+dz1*c |
2a580 | 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a | x;..dx3=dx1*cz-dy2*sz;..dy3=dx1* |
2a5a0 | 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d | sz+dy2*cz;....dz3=max(dz2,.01);. |
2a5c0 | 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b | .x=-(dx3)/dz3*hw;..y=-(dy3)/dz3; |
2a5e0 | 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d | ..skip=equal(dz3,.01);....ogx=gm |
2a600 | 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 | egabuf(100*(num-1)+1+flo*6);..og |
2a620 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b | z=gmegabuf(100*(num-1)+2+flo*6); |
2a640 | 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f | ..ngx=gmegabuf(100*(num+1)+1+flo |
2a660 | 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 | *6);..ngz=gmegabuf(100*(num+1)+2 |
2a680 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 | +flo*6);....ang1=atan2(dxa-ogx,d |
2a6a0 | 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 | za-ogz);..ang2=atan2(-dxa+ngx,-d |
2a6c0 | 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 | za+ngz);..corner=bnot(below(abs( |
2a6e0 | 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 | ang1-ang2),.1));....drawmode=gme |
2a700 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d | gabuf(100*num+3+flo*6);..c=drawm |
2a720 | 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b | ode*equal(add,1)*corner-dz3*.18; |
2a740 | 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c | ..red=c;..green=c;..blue=c;....l |
2a760 | 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d | inesize=4-dz3*.5;....add=add+1;. |
2a780 | 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 | .if(equal(add,2),assign(add,0)+a |
2a7a0 | 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 | ssign(num,num+1),0);..sw=-sw;..r |
2a7c0 | 65 67 39 39 3d 31 30 3b 00 bc 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 | eg99=10;.....t=t+1;deltatime.=.g |
2a7e0 | 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a | ettime(time);fr=fr*.9+deltatime* |
2a800 | 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .1;framerate=1/fr;time.=.gettime |
2a820 | 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 | (0);tb.=.tb+1;timeb.=.gettime(gt |
2a840 | 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 | );xmouse=getkbmouse(1);ymouse=ge |
2a860 | 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 | tkbmouse(2);xmousec=min(max(xmou |
2a880 | 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 | se,-1),1);ymousec=min(max(ymouse |
2a8a0 | 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 | ,-1),1);lmouse.=.getkbmouse(3);r |
2a8c0 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 | mouse.=.getkbmouse(4);shift.=.ge |
2a8e0 | 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | tkbmouse(5);control.=.getkbmouse |
2a900 | 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 | (17);backspace.=.getkbmouse(8);s |
2a920 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 | pace.=.getkbmouse(32);right.=.ge |
2a940 | 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(39);left.=.getkbmouse(3 |
2a960 | 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 | 7);up.=.getkbmouse(38);down.=.ge |
2a980 | 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 | tkbmouse(40);num.=.1;sw.=.1;size |
2a9a0 | 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 | change=bnot(equal(oh,h))|bnot(eq |
2a9c0 | 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 73 68 6f 63 | ual(ow,w));oh=h;ow=w;hw=h/w;shoc |
2a9e0 | 6b 3d 76 61 6c 75 65 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | k=value;....n=reg87*2;....ox=reg |
2aa00 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
2aa20 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
2aa40 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
2aa60 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
2aa80 | 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 | ..add=0;.....tb=0;..gt.=.gettime |
2aaa0 | 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 12 00 | (0).....flo=7................... |
2aac0 | 00 00 10 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 80 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e | ......................l.P.Holden |
2aae0 | 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 | 03:.Convolution.Filter.......... |
2ab00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ab20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ab40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ab60 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ab80 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2aba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2abc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 12 00 00 00 10 00 | ................................ |
2abe0 | 00 00 00 00 00 00 05 00 00 00 00 00 00 00 80 00 00 00 fe ff ff ff 93 02 00 00 80 00 01 0d 24 23 | ..............................$# |
2ac00 | 00 00 00 80 00 00 00 00 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
2ac20 | 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 | @..AVS.2.8+.Effect.List.Config.. |
2ac40 | 00 00 00 26 00 00 00 00 00 00 00 1a 00 00 00 2f 2f 20 66 6f 63 61 6c 20 62 6c 75 72 20 62 6c 75 | ...&...........//.focal.blur.blu |
2ac60 | 72 72 69 6e 67 20 45 4c 00 00 00 00 00 12 00 00 00 10 00 00 00 01 00 00 00 02 00 00 00 04 00 00 | rring.EL........................ |
2ac80 | 00 80 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 | .....l.P.Holden03:.Convolution.F |
2aca0 | 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ilter........................... |
2acc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ace0 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ad00 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ad20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ad40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
2ad60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ad80 | 00 00 00 00 00 04 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 | .........l.P.Holden03:.Convoluti |
2ada0 | 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | on.Filter....................... |
2adc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ade0 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ae00 | 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
2ae20 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
2ae40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
2ae60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2ae80 | 00 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f | .............l.P.Holden03:.Convo |
2aea0 | 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | lution.Filter................... |
2aec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2aee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2af00 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2af20 | 00 01 00 00 00 0c 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2af40 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2af60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2af80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 | .................l.P.Holden03:.C |
2afa0 | 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 | onvolution.Filter............... |
2afc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2afe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b020 | 00 00 00 00 00 01 00 00 00 0c 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b040 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 17 00 00 00 28 00 00 00 01 00 00 | .........................(...... |
2b0a0 | 00 00 00 00 00 02 00 00 00 1e 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 | ................................ |
2b0c0 | 00 04 00 00 00 fe ff ff ff 3a 08 00 00 81 01 02 0b 24 26 00 00 00 ff 00 00 00 00 00 00 00 00 00 | .........:.......$&............. |
2b0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 | ...................@..AVS.2.8+.E |
2b100 | 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 75 00 00 00 01 00 00 00 0f 00 | ffect.List.Config.....u......... |
2b120 | 00 00 2f 2f 20 68 65 6c 70 20 73 63 72 65 65 6e 00 5a 00 00 00 68 6b 65 79 3d 67 65 74 6b 62 6d | ..//.help.screen.Z...hkey=getkbm |
2b140 | 6f 75 73 65 28 37 32 29 3b 0d 0a 61 61 3d 6d 69 6e 28 6d 61 78 28 61 61 2b 68 6b 65 79 2a 2e 33 | ouse(72);..aa=min(max(aa+hkey*.3 |
2b160 | 2d 2e 31 35 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c | -.15,0),1);..alphaout=aa;..enabl |
2b180 | 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 00 1c 00 00 00 c9 00 00 00 01 00 00 00 ff ff ff 00 00 | ed=above(aa,0).................. |
2b1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f 00 00 00 0f | ................................ |
2b1c0 | 00 00 00 3c 00 00 00 6e 02 c6 01 00 00 00 00 b0 a1 d2 00 b4 00 00 00 41 01 01 00 ff ff ff 00 00 | ...<...n...............A........ |
2b1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 e8 | ....................!........... |
2b200 | ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c | .........................."Arial |
2b220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 00 00 00 48 | ...............................H |
2b240 | 65 6c 70 00 01 00 00 00 00 00 00 00 00 00 00 00 db ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 | elp............................. |
2b260 | 1c 00 00 00 f4 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b280 | 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 | ....................<...n....... |
2b2a0 | f0 3f cd 00 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .?..P...A....................... |
2b2c0 | 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 | .....!.......................... |
2b2e0 | bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..........."Arial............... |
2b300 | 00 00 00 00 00 00 00 00 00 00 00 00 30 00 00 00 43 4c 49 43 4b 20 61 6e 64 20 44 52 41 47 20 2d | ............0...CLICK.and.DRAG.- |
2b320 | 20 4d 6f 76 65 20 63 61 6d 65 72 61 20 61 72 6f 75 6e 64 20 69 74 73 20 74 61 72 67 65 74 2e 00 | .Move.camera.around.its.target.. |
2b340 | 01 00 00 00 00 00 00 00 02 00 00 00 e3 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 | ................................ |
2b360 | ee 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b380 | 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 48 33 cd 00 | ................<...n.......H3.. |
2b3a0 | 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | P...A........................... |
2b3c0 | 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 | .!.............................. |
2b3e0 | 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ......."Arial................... |
2b400 | 00 00 00 00 00 00 00 00 2a 00 00 00 53 48 49 46 54 2f 43 4f 4e 54 52 4f 4c 20 2d 20 4d 6f 76 65 | ........*...SHIFT/CONTROL.-.Move |
2b420 | 20 63 61 6d 65 72 61 20 68 69 67 68 65 72 2f 6c 6f 77 65 72 2e 00 01 00 00 00 00 00 00 00 02 00 | .camera.higher/lower............ |
2b440 | 00 00 e8 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 f2 00 00 00 01 00 00 00 ff ff | ................................ |
2b460 | ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 | ................................ |
2b480 | 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 b0 30 cd 00 50 00 00 00 41 01 01 00 ff ff | ......<...n........0..P...A..... |
2b4a0 | ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 | .......................!........ |
2b4c0 | 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 | ............................."Ar |
2b4e0 | 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2e 00 | ial............................. |
2b500 | 00 00 41 4c 54 20 61 6e 64 20 43 4c 49 43 4b 20 2d 20 4d 6f 76 65 20 74 65 6d 70 6f 72 61 72 79 | ..ALT.and.CLICK.-.Move.temporary |
2b520 | 20 63 61 6d 65 72 61 20 63 65 6e 74 65 72 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 ed ff ff ff | .camera.center.................. |
2b540 | 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 05 01 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 | ................................ |
2b560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 | ................................ |
2b580 | 3c 00 00 00 6e 02 c7 01 00 00 00 00 20 e3 ca 00 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 | <...n...........P...A........... |
2b5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff | .................!.............. |
2b5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 | ......................."Arial... |
2b5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 41 00 00 00 42 41 43 4b | ........................A...BACK |
2b600 | 53 50 41 43 45 20 2d 20 52 65 73 65 74 20 74 68 65 20 63 61 6d 65 72 61 20 61 6e 64 20 69 74 73 | SPACE.-.Reset.the.camera.and.its |
2b620 | 20 74 61 72 67 65 74 20 74 6f 20 64 65 66 61 75 6c 74 20 70 6f 73 69 74 69 6f 6e 2e 00 01 00 00 | .target.to.default.position..... |
2b640 | 00 00 00 00 00 02 00 00 00 f2 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d8 00 00 | ................................ |
2b660 | 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 | ................................ |
2b680 | 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 88 e0 ca 00 50 00 00 | .............<...n...........P.. |
2b6a0 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
2b6c0 | 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
2b6e0 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
2b700 | 00 00 00 00 00 14 00 00 00 48 4f 4d 45 20 2d 20 54 6f 67 67 6c 65 20 67 72 69 64 2e 00 01 00 00 | .........HOME.-.Toggle.grid..... |
2b720 | 00 00 00 00 00 02 00 00 00 f7 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 e1 00 00 | ................................ |
2b740 | 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 | ................................ |
2b760 | 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 f0 dd ca 00 50 00 00 | .............<...n...........P.. |
2b780 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
2b7a0 | 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
2b7c0 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
2b7e0 | 00 00 00 00 00 1d 00 00 00 5b 46 5d 20 4b 45 59 20 2d 20 54 6f 67 67 6c 65 20 66 6f 63 61 6c 20 | .........[F].KEY.-.Toggle.focal. |
2b800 | 62 6c 75 72 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 fc ff ff ff 01 00 00 00 00 00 00 00 00 00 | blur............................ |
2b820 | 00 00 1c 00 00 00 dd 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b840 | 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 | ......................<...n..... |
2b860 | 00 00 60 3e de 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..`>..P...A..................... |
2b880 | 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 | .......!........................ |
2b8a0 | 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 | ............."Arial............. |
2b8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 19 00 00 00 5b 48 5d 20 4b 45 59 20 2d 20 53 68 6f 77 | ..................[H].KEY.-.Show |
2b8e0 | 20 6b 65 79 20 68 65 6c 70 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 02 00 00 00 01 00 00 00 00 | .key.help....................... |
2b900 | 00 00 00 00 00 00 00 1c 00 00 00 cc 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 | ................................ |
2b920 | 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e | ...........................<...n |
2b940 | 02 ed 00 00 00 00 00 f0 c4 c7 00 78 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 | ...........x...A................ |
2b960 | 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 | ............!................... |
2b980 | 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 | .................."Arial........ |
2b9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 33 44 20 56 69 65 77 00 01 | .......................3D.View.. |
2b9c0 | 00 00 00 00 00 00 00 01 00 00 00 a3 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff a1 | ................................ |
2b9e0 | 05 00 00 80 00 00 0d 24 80 00 00 00 80 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 | .......$........................ |
2ba00 | 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 | .........@..AVS.2.8+.Effect.List |
2ba20 | 20 43 6f 6e 66 69 67 00 00 00 00 00 78 00 00 00 01 00 00 00 18 00 00 00 2f 2f 20 67 65 6e 65 72 | .Config.....x...........//.gener |
2ba40 | 69 63 20 73 6f 6e 67 20 64 69 73 70 6c 61 79 00 54 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 | ic.song.display.T...ta=below(get |
2ba60 | 74 69 6d 65 28 2d 31 29 2c 35 29 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e | time(-1),5);..tt=min(max(tt-sign |
2ba80 | 28 74 74 2d 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 | (tt-ta)*.02,0),1);..enabled=abov |
2baa0 | 65 28 74 74 2c 30 29 00 fe ff ff ff fc 01 00 00 81 01 00 00 24 80 00 00 00 80 00 00 00 00 00 00 | e(tt,0).............$........... |
2bac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 | ......................@..AVS.2.8 |
2bae0 | 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 d7 00 00 00 00 00 00 | +.Effect.List.Config............ |
2bb00 | 00 00 00 00 00 cb 00 00 00 6f 6e 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 | .........on=below(gettime(-1),5) |
2bb20 | 3b 0d 0a 6f 66 66 3d 62 6e 6f 74 28 6f 6e 29 3b 0d 0a 69 66 28 6f 66 66 2c 61 73 73 69 67 6e 28 | ;..off=bnot(on);..if(off,assign( |
2bb40 | 64 6f 6e 65 2c 30 29 2b 61 73 73 69 67 6e 28 67 6f 2c 30 29 2c 30 29 3b 0d 0a 69 66 28 6f 6e 26 | done,0)+assign(go,0),0);..if(on& |
2bb60 | 62 6e 6f 74 28 64 6f 6e 65 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2b 61 73 73 69 67 6e 28 64 | bnot(done),assign(go,1)+assign(d |
2bb80 | 6f 6e 65 2c 31 29 2c 61 73 73 69 67 6e 28 67 6f 2c 30 29 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 | one,1),assign(go,0));..if(below( |
2bba0 | 67 65 74 74 69 6d 65 28 2d 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 30 29 3b | gettime(-1),.5),assign(go,1),0); |
2bbc0 | 0d 0a 65 6e 61 62 6c 65 64 3d 67 6f 7c 72 65 67 31 35 3b 00 1c 00 00 00 d0 00 00 00 01 00 00 00 | ..enabled=go|reg15;............. |
2bbe0 | ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 | ................................ |
2bc00 | 0f 00 00 00 0f 00 00 00 3c 00 00 00 52 04 25 01 00 00 00 00 90 1d cf 00 64 00 00 00 41 01 01 00 | ........<...R.%.........d...A... |
2bc20 | ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 | .........................!...... |
2bc40 | 00 00 00 00 f3 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 | ..............................." |
2bc60 | 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | Arial........................... |
2bc80 | 0c 00 00 00 24 28 74 69 74 6c 65 3a 34 36 29 00 00 00 00 00 00 00 00 00 00 00 00 00 2d 00 00 00 | ....$(title:46).............-... |
2bca0 | 01 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff d0 02 00 00 82 02 01 01 24 80 00 00 00 80 00 00 | ........................$....... |
2bcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 | ..........................@..AVS |
2bce0 | 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 af 00 00 | .2.8+.Effect.List.Config........ |
2bd00 | 00 01 00 00 00 00 00 00 00 a3 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 | .............ta=below(gettime(-1 |
2bd20 | 29 2c 35 29 3b 0d 0a 74 6f 3d 74 74 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 | ),5);..to=tt;..tt=min(max(tt-sig |
2bd40 | 6e 28 74 74 2d 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 65 | n(tt-ta)*.02,0),1);..if(below(ge |
2bd60 | 74 74 69 6d 65 28 2d 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 61 73 73 69 67 | ttime(-1),.5),assign(go,1),assig |
2bd80 | 6e 28 67 6f 2c 30 29 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 62 6e 6f 74 28 65 71 75 61 6c 28 74 6f | n(go,0));..enabled=bnot(equal(to |
2bda0 | 2c 74 74 29 29 7c 67 6f 7c 72 65 67 31 35 3b 00 fe ff ff ff cc 01 00 00 81 01 0a 01 24 80 00 00 | ,tt))|go|reg15;.............$... |
2bdc0 | 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 | ..............................@. |
2bde0 | 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 | .AVS.2.8+.Effect.List.Config.... |
2be00 | 00 63 00 00 00 01 00 00 00 00 00 00 00 57 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d | .c...........W...ta=below(gettim |
2be20 | 65 28 2d 31 29 2c 35 29 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 | e(-1),5);..tt=min(max(tt-sign(tt |
2be40 | 2d 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 69 6e 3d 74 74 3b 0d 0a 65 6e | -ta)*.02,0),1);..alphain=tt;..en |
2be60 | 61 62 6c 65 64 3d 31 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f | abled=1.l.P.Holden03:.Convolutio |
2be80 | 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | n.Filter........................ |
2bea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2bec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2bee0 | 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
2bf00 | 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
2bf20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2bf40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
2bf60 | 00 00 00 00 00 00 00 00 01 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 | ................................ |
2bf80 | 80 00 00 00 fe ff ff ff 71 60 01 00 80 00 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 | ........q`......$............... |
2bfa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 | ..................@..AVS.2.8+.Ef |
2bfc0 | 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 38 00 00 00 01 00 00 00 15 00 00 | fect.List.Config.....8.......... |
2bfe0 | 00 2f 2f 20 66 69 72 73 74 20 70 65 72 73 6f 6e 20 76 69 65 77 00 17 00 00 00 65 6e 61 62 6c 65 | .//.first.person.view.....enable |
2c000 | 64 3d 65 71 75 61 6c 28 72 65 67 31 34 2c 33 29 00 24 00 00 00 ab 07 00 00 01 f2 00 00 00 0d 0a | d=equal(reg14,3).$.............. |
2c020 | 2f 2f 20 68 6f 70 65 66 75 6c 6c 79 20 79 6f 75 20 75 6e 64 65 72 73 74 61 6e 64 20 68 6f 77 20 | //.hopefully.you.understand.how. |
2c040 | 74 68 69 73 20 77 6f 72 6b 73 20 61 6e 64 20 77 68 61 74 20 69 74 20 64 6f 65 73 0d 0a 2f 2f 20 | this.works.and.what.it.does..//. |
2c060 | 61 66 74 65 72 20 68 61 76 69 6e 67 20 6c 6f 6f 6b 65 64 20 61 74 20 74 68 65 20 63 61 6d 65 72 | after.having.looked.at.the.camer |
2c080 | 61 20 63 6f 64 65 20 73 63 6f 70 65 20 69 6e 20 74 68 65 20 33 44 0d 0a 2f 2f 20 76 69 65 77 20 | a.code.scope.in.the.3D..//.view. |
2c0a0 | 6d 6f 64 65 2e 20 74 68 69 73 20 69 73 20 61 20 62 69 74 20 64 69 66 66 65 72 65 6e 74 20 73 69 | mode..this.is.a.bit.different.si |
2c0c0 | 6e 63 65 20 69 74 20 69 73 20 61 20 64 69 66 66 65 72 65 6e 74 20 74 79 70 65 0d 0a 2f 2f 20 6f | nce.it.is.a.different.type..//.o |
2c0e0 | 66 20 76 69 65 77 2c 20 62 75 74 20 6d 6f 73 74 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 | f.view,.but.most.of.the.variable |
2c100 | 73 20 61 72 65 20 74 68 65 20 73 61 6d 65 2e 00 0f 06 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 | s.are.the.same......t=t+1;deltat |
2c120 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c | ime.=.gettime(time);fr=fr*.9+del |
2c140 | 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 | tatime*.1;framerate=1/fr;time.=. |
2c160 | 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 | gettime(0);tb.=.tb+1;timeb.=.get |
2c180 | 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d | time(gt);xmouse=getkbmouse(1);ym |
2c1a0 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f | ouse=getkbmouse(2);inbounds=belo |
2c1c0 | 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 | w(abs(xmouse),1)&below(abs(ymous |
2c1e0 | 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | e),1);xmousec=min(max(xmouse,-1) |
2c200 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
2c220 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
2c240 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 6c 6d 6f 75 73 65 3d 6c 6d 6f 75 73 65 7c 72 6d | =.getkbmouse(4);lmouse=lmouse|rm |
2c260 | 6f 75 73 65 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 | ouse;shift.=.getkbmouse(5);contr |
2c280 | 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 | ol.=.getkbmouse(17);backspace.=. |
2c2a0 | 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(8);space.=.getkbmouse |
2c2c0 | 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 | (32);right.=.getkbmouse(39);left |
2c2e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .=.getkbmouse(37);up.=.getkbmous |
2c300 | 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 | e(38);down.=.getkbmouse(40);size |
2c320 | 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 | change=bnot(equal(oh,h))|bnot(eq |
2c340 | 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 | ual(ow,w));oh=h;ow=w;hw=h/w;clic |
2c360 | 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 64 65 | k=bnot(olm)*lmouse;olm=lmouse;de |
2c380 | 6c 65 74 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 34 36 29 3b 61 6c 74 3d 67 65 74 6b 62 6d 6f 75 | lete=getkbmouse(46);alt=getkbmou |
2c3a0 | 73 65 28 31 38 29 3b 68 6f 6d 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 36 29 3b 74 61 62 3d 67 | se(18);home=getkbmouse(36);tab=g |
2c3c0 | 65 74 6b 62 6d 6f 75 73 65 28 39 29 3b 65 6e 64 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 35 29 3b | etkbmouse(9);end=getkbmouse(35); |
2c3e0 | 0d 0a 0d 0a 63 6c 69 63 6b 73 68 69 66 74 3d 62 6e 6f 74 28 6f 6c 73 29 2a 73 68 69 66 74 3b 6f | ....clickshift=bnot(ols)*shift;o |
2c400 | 6c 73 3d 73 68 69 66 74 3b 0d 0a 63 6c 69 63 6b 63 6f 6e 74 72 6f 6c 3d 62 6e 6f 74 28 6f 6c 63 | ls=shift;..clickcontrol=bnot(olc |
2c420 | 29 2a 63 6f 6e 74 72 6f 6c 3b 6f 6c 63 3d 63 6f 6e 74 72 6f 6c 3b 0d 0a 0d 0a 69 66 28 62 61 63 | )*control;olc=control;....if(bac |
2c440 | 6b 73 70 61 63 65 2c 61 73 73 69 67 6e 28 72 65 67 37 31 2c 31 29 2b 61 73 73 69 67 6e 28 66 6f | kspace,assign(reg71,1)+assign(fo |
2c460 | 72 77 61 72 64 2c 30 29 2b 61 73 73 69 67 6e 28 72 69 67 68 74 6c 65 66 74 2c 30 29 2b 61 73 73 | rward,0)+assign(rightleft,0)+ass |
2c480 | 69 67 6e 28 78 70 6f 73 2c 72 65 67 37 36 29 2b 61 73 73 69 67 6e 28 7a 70 6f 73 2c 72 65 67 37 | ign(xpos,reg76)+assign(zpos,reg7 |
2c4a0 | 37 2d 31 29 2c 30 29 3b 0d 0a 0d 0a 72 65 67 37 31 3d 6d 61 78 28 6d 69 6e 28 72 65 67 37 31 2b | 7-1),0);....reg71=max(min(reg71+ |
2c4c0 | 62 6e 6f 74 28 6c 6d 6f 75 73 65 29 2a 28 63 6c 69 63 6b 73 68 69 66 74 2d 63 6c 69 63 6b 63 6f | bnot(lmouse)*(clickshift-clickco |
2c4e0 | 6e 74 72 6f 6c 29 2c 38 29 2c 31 29 3b 0d 0a 66 6c 6f 3d 72 65 67 37 31 3b 0d 0a 0d 0a 0d 0a 76 | ntrol),8),1);..flo=reg71;......v |
2c500 | 65 6c 3d 69 66 28 6c 6d 6f 75 73 65 2c 79 6d 6f 75 73 65 2a 2e 32 2a 6c 6d 6f 75 73 65 2a 69 6e | el=if(lmouse,ymouse*.2*lmouse*in |
2c520 | 62 6f 75 6e 64 73 2a 64 65 6c 74 61 74 69 6d 65 2a 35 30 2c 30 29 2a 28 31 2d 61 6c 74 29 3b 0d | bounds*deltatime*50,0)*(1-alt);. |
2c540 | 0a 72 69 67 68 74 6c 65 66 74 3d 72 69 67 68 74 6c 65 66 74 2d 78 6d 6f 75 73 65 2a 2e 30 35 2a | .rightleft=rightleft-xmouse*.05* |
2c560 | 6c 6d 6f 75 73 65 2a 69 6e 62 6f 75 6e 64 73 2a 64 65 6c 74 61 74 69 6d 65 2a 37 30 3b 0d 0a 0d | lmouse*inbounds*deltatime*70;... |
2c580 | 0a 78 70 6f 73 20 3d 20 78 70 6f 73 2b 76 65 6c 2a 73 69 6e 28 72 69 67 68 74 6c 65 66 74 29 3b | .xpos.=.xpos+vel*sin(rightleft); |
2c5a0 | 0d 0a 79 70 6f 73 20 3d 20 28 79 70 6f 73 2a 2e 37 2b 28 72 65 67 37 31 2d 2e 35 29 2a 2e 33 29 | ..ypos.=.(ypos*.7+(reg71-.5)*.3) |
2c5c0 | 3b 0d 0a 7a 70 6f 73 20 3d 20 7a 70 6f 73 2d 76 65 6c 2a 63 6f 73 28 72 69 67 68 74 6c 65 66 74 | ;..zpos.=.zpos-vel*cos(rightleft |
2c5e0 | 29 3b 0d 0a 78 74 61 72 67 3d 78 74 61 72 67 31 3b 0d 0a 79 74 61 72 67 3d 79 70 6f 73 20 3b 0d | );..xtarg=xtarg1;..ytarg=ypos.;. |
2c600 | 0a 7a 74 61 72 67 3d 7a 74 61 72 67 31 3b 0d 0a 78 70 6f 73 32 3d 78 70 6f 73 2d 78 74 61 72 67 | .ztarg=ztarg1;..xpos2=xpos-xtarg |
2c620 | 3b 0d 0a 79 70 6f 73 32 3d 79 70 6f 73 2d 79 74 61 72 67 3b 0d 0a 7a 70 6f 73 32 3d 7a 70 6f 73 | ;..ypos2=ypos-ytarg;..zpos2=zpos |
2c640 | 2d 7a 74 61 72 67 3b 0d 0a 78 72 6f 74 20 3d 20 78 72 6f 74 2a 2e 39 35 2b 6c 6d 6f 75 73 65 2a | -ztarg;..xrot.=.xrot*.95+lmouse* |
2c660 | 2e 30 34 2a 28 73 68 69 66 74 2d 63 6f 6e 74 72 6f 6c 2a 31 2e 33 29 2a 69 6e 62 6f 75 6e 64 73 | .04*(shift-control*1.3)*inbounds |
2c680 | 3b 0d 0a 79 72 6f 74 20 3d 20 72 69 67 68 74 6c 65 66 74 3b 0d 0a 7a 72 6f 74 20 3d 20 7a 72 6f | ;..yrot.=.rightleft;..zrot.=.zro |
2c6a0 | 74 2a 2e 38 33 35 2b 78 6d 6f 75 73 65 2a 2e 30 35 2a 6c 6d 6f 75 73 65 2a 69 6e 62 6f 75 6e 64 | t*.835+xmouse*.05*lmouse*inbound |
2c6c0 | 73 2a 2e 37 35 3b 0d 0a 0d 0a 72 65 67 30 30 20 3d 20 78 70 6f 73 3b 0d 0a 72 65 67 30 31 20 3d | s*.75;....reg00.=.xpos;..reg01.= |
2c6e0 | 20 79 70 6f 73 3b 0d 0a 72 65 67 30 32 20 3d 20 7a 70 6f 73 3b 0d 0a 72 65 67 30 33 20 3d 20 78 | .ypos;..reg02.=.zpos;..reg03.=.x |
2c700 | 72 6f 74 3b 0d 0a 72 65 67 30 34 20 3d 20 79 72 6f 74 3b 0d 0a 72 65 67 30 35 20 3d 20 7a 72 6f | rot;..reg04.=.yrot;..reg05.=.zro |
2c720 | 74 3b 00 19 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 0d 0a 00 | t;.....tb=0;..gt.=.gettime(0)... |
2c740 | 70 00 00 00 2f 2f 20 43 61 6d 65 72 61 20 43 6f 64 65 0d 0a 0d 0a 61 73 73 69 67 6e 28 66 6f 72 | p...//.Camera.Code....assign(for |
2c760 | 77 61 72 64 2c 30 29 2b 61 73 73 69 67 6e 28 72 69 67 68 74 6c 65 66 74 2c 30 29 2b 61 73 73 69 | ward,0)+assign(rightleft,0)+assi |
2c780 | 67 6e 28 78 70 6f 73 2c 72 65 67 37 36 29 2b 61 73 73 69 67 6e 28 7a 70 6f 73 2c 72 65 67 37 37 | gn(xpos,reg76)+assign(zpos,reg77 |
2c7a0 | 2d 31 29 2b 61 73 73 69 67 6e 28 79 70 6f 73 2c 2e 35 29 00 02 00 00 00 01 00 00 00 ff ff ff 00 | -1)+assign(ypos,.5)............. |
2c7c0 | 00 00 00 00 19 00 00 00 14 00 00 00 01 00 00 00 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................P............... |
2c7e0 | fe ff ff ff e5 04 00 00 82 02 00 0b 24 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ............$................... |
2c800 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 | ..............@..AVS.2.8+.Effect |
2c820 | 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 5f 00 00 00 01 00 00 00 06 00 00 00 61 61 3d | .List.Config....._...........aa= |
2c840 | 31 3b 00 4d 00 00 00 61 61 3d 6d 61 78 28 6d 69 6e 28 61 61 2b 73 69 67 6e 28 72 65 67 35 35 2d | 1;.M...aa=max(min(aa+sign(reg55- |
2c860 | 61 61 29 2a 2e 31 2c 31 29 2c 30 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 | aa)*.1,1),0);..alphaout=aa;..ena |
2c880 | 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 3b 0d 0a 00 19 00 00 00 14 00 00 00 01 00 00 00 | bled=above(aa,0);............... |
2c8a0 | 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2b 00 00 00 15 04 00 00 01 2c 01 00 00 64 78 3d | P...............+........,...dx= |
2c8c0 | 78 2a 69 68 77 3b 64 79 3d 79 3b 64 7a 3d 31 3b 0d 0a 0d 0a 64 78 31 3d 64 78 2a 63 7a 2d 64 79 | x*ihw;dy=y;dz=1;....dx1=dx*cz-dy |
2c8e0 | 2a 73 7a 3b 0d 0a 64 79 31 3d 64 78 2a 73 7a 2b 64 79 2a 63 7a 3b 0d 0a 64 79 33 3d 64 79 31 2a | *sz;..dy1=dx*sz+dy*cz;..dy3=dy1* |
2c900 | 63 78 2d 64 7a 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 31 2a 73 78 2b 64 7a 2a 63 78 3b 0d 0a 64 78 | cx-dz*sx;..dz2=dy1*sx+dz*cx;..dx |
2c920 | 33 3d 64 78 31 2a 63 79 2d 64 7a 32 2a 73 79 3b 0d 0a 64 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 | 3=dx1*cy-dz2*sy;..dz3=dx1*sy+dz2 |
2c940 | 2a 63 79 3b 0d 0a 0d 0a 6b 3d 28 2d 6f 79 29 2f 28 2d 64 79 33 29 3b 0d 0a 6b 3d 69 66 28 62 65 | *cy;....k=(-oy)/(-dy3);..k=if(be |
2c960 | 6c 6f 77 28 6b 2c 30 29 2c 31 30 30 2c 6b 29 3b 0d 0a 0d 0a 78 31 3d 6b 2a 64 78 33 2b 6f 78 3b | low(k,0),100,k);....x1=k*dx3+ox; |
2c980 | 0d 0a 79 31 3d 6b 2a 64 79 33 2b 6f 79 3b 0d 0a 7a 31 3d 6b 2a 64 7a 33 2b 6f 7a 3b 0d 0a 0d 0a | ..y1=k*dy3+oy;..z1=k*dz3+oz;.... |
2c9a0 | 78 3d 78 31 2b 31 3b 0d 0a 79 3d 2d 7a 31 2b 31 3b 0d 0a 0d 0a 61 6c 70 68 61 20 3d 28 31 2e 37 | x=x1+1;..y=-z1+1;....alpha.=(1.7 |
2c9c0 | 35 2d 73 71 72 74 28 78 31 2a 78 31 2b 7a 31 2a 7a 31 29 2a 2e 31 37 35 29 2a 61 62 6f 76 65 28 | 5-sqrt(x1*x1+z1*z1)*.175)*above( |
2c9e0 | 79 31 2c 2d 31 30 30 29 00 b1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 | y1,-100).....t=t+1;deltatime.=.g |
2ca00 | 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a | ettime(time);fr=fr*.9+deltatime* |
2ca20 | 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .1;framerate=1/fr;time.=.gettime |
2ca40 | 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 | (0);tb.=.tb+1;timeb.=.gettime(gt |
2ca60 | 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 | );xmouse=getkbmouse(1);ymouse=ge |
2ca80 | 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 | tkbmouse(2);inbounds=below(abs(x |
2caa0 | 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 6c | mouse),1)&below(abs(ymouse),1);l |
2cac0 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 | mouse.=.getkbmouse(3);rmouse.=.g |
2cae0 | 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(4);shift.=.getkbmouse( |
2cb00 | 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b | 5);control.=.getkbmouse(17);back |
2cb20 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 | space.=.getkbmouse(8);space.=.ge |
2cb40 | 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(32);right.=.getkbmouse( |
2cb60 | 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 | 39);left.=.getkbmouse(37);up.=.g |
2cb80 | 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(38);down.=.getkbmouse( |
2cba0 | 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | 40);sizechange=bnot(equal(oh,h)) |
2cbc0 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
2cbe0 | 68 2f 77 3b 0d 0a 72 65 67 33 33 3d 66 72 61 6d 65 72 61 74 65 3b 0d 0a 6f 78 3d 72 65 67 30 30 | h/w;..reg33=framerate;..ox=reg00 |
2cc00 | 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 0d 0a 0d 0a 78 72 6f 74 3d | ;..oy=reg01;..oz=reg02;....xrot= |
2cc20 | 72 65 67 30 33 3b 0d 0a 79 72 6f 74 3d 72 65 67 30 34 3b 0d 0a 7a 72 6f 74 3d 72 65 67 30 35 3b | reg03;..yrot=reg04;..zrot=reg05; |
2cc40 | 0d 0a 0d 0a 73 78 3d 73 69 6e 28 78 72 6f 74 29 3b 73 79 3d 73 69 6e 28 79 72 6f 74 29 3b 73 7a | ....sx=sin(xrot);sy=sin(yrot);sz |
2cc60 | 3d 73 69 6e 28 7a 72 6f 74 29 3b 0d 0a 63 78 3d 63 6f 73 28 78 72 6f 74 29 3b 63 79 3d 63 6f 73 | =sin(zrot);..cx=cos(xrot);cy=cos |
2cc80 | 28 79 72 6f 74 29 3b 63 7a 3d 63 6f 73 28 7a 72 6f 74 29 3b 20 69 68 77 3d 31 2f 68 77 00 00 00 | (yrot);cz=cos(zrot);.ihw=1/hw... |
2cca0 | 00 00 07 00 00 00 70 69 3d 24 70 69 00 00 00 00 00 01 00 00 00 10 00 00 00 30 00 00 00 01 00 00 | ......pi=$pi.............0...... |
2ccc0 | 00 01 00 00 00 01 00 00 00 00 00 00 00 fe ff ff ff ec 9d 00 00 81 01 00 05 24 80 00 00 00 80 00 | .........................$...... |
2cce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 | ...........................@..AV |
2cd00 | 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 0c 00 | S.2.8+.Effect.List.Config....... |
2cd20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 28 00 00 00 04 00 00 00 02 00 01 80 24 00 00 00 95 04 | ..............(...........$..... |
2cd40 | 00 00 01 a5 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a | .......dy=abs(getosc(asin(sin(i* |
2cd60 | 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 3b 0d 0a 64 78 3d 31 30 2a | $pi))/$pi,.1,alt*.5)*1);..dx=10* |
2cd80 | 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 | sin(i*2*$pi);..dz=-10*cos(i*2*$p |
2cda0 | 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d | i);....dy=dy-oy;dx=-dx+ox;dz=dz- |
2cdc0 | 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 | oz;..dx1=dx*cy-dz*sy;..dz1=dx*sy |
2cde0 | 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d | +dz*cy;..dy2=dy*cx-dz1*sx;..dz2= |
2ce00 | 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a | dy*sx+dz1*cx;..dx3=dx1*cz-dy2*sz |
2ce20 | 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 | ;..dy3=dx1*sz+dy2*cz;....dz3=max |
2ce40 | 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d | (dz2,.01);..x=-(dx3)/dz3*hw;..y= |
2ce60 | 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 | -(dy3)/dz3;..skip=equal(dz3,.01) |
2ce80 | 3b 0d 0a 0d 0a 66 75 63 6b 79 6f 75 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 66 75 63 | ;....fuckyou=1-dz3*.04;..red=fuc |
2cea0 | 6b 79 6f 75 3b 0d 0a 67 72 65 65 6e 3d 66 75 63 6b 79 6f 75 3b 0d 0a 62 6c 75 65 3d 66 75 63 6b | kyou;..green=fuckyou;..blue=fuck |
2cec0 | 79 6f 75 2b 6a 75 73 74 6b 69 64 64 69 6e 67 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a | you+justkidding;....num=num+1;.. |
2cee0 | 73 77 3d 2d 73 77 3b 0d 0a 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 | sw=-sw;.........t=t+1;deltatime. |
2cf00 | 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 | =.gettime(time);fr=fr*.9+deltati |
2cf20 | 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 | me*.1;framerate=1/fr;time.=.gett |
2cf40 | 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 | ime(0);tb.=.tb+1;timeb.=.gettime |
2cf60 | 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 | (gt);xmouse=getkbmouse(1);ymouse |
2cf80 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 | =getkbmouse(2);xmousec=min(max(x |
2cfa0 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f | mouse,-1),1);ymousec=min(max(ymo |
2cfc0 | 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | use,-1),1);lmouse.=.getkbmouse(3 |
2cfe0 | 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d | );rmouse.=.getkbmouse(4);shift.= |
2d000 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f | .getkbmouse(5);control.=.getkbmo |
2d020 | 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 | use(17);backspace.=.getkbmouse(8 |
2d040 | 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d | );space.=.getkbmouse(32);right.= |
2d060 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(39);left.=.getkbmous |
2d080 | 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d | e(37);up.=.getkbmouse(38);down.= |
2d0a0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 | .getkbmouse(40);num.=.1;sw.=.1;s |
2d0c0 | 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 | izechange=bnot(equal(oh,h))|bnot |
2d0e0 | 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d | (equal(ow,w));oh=h;ow=w;hw=h/w;. |
2d100 | 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d | ...n=sqrt(h*w)*.5;..linesize=1;. |
2d120 | 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 | .ox=reg00;.rx=reg03;..oy=reg01;. |
2d140 | 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d | ry=reg04;..oz=reg02;.rz=-reg05;. |
2d160 | 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a | .sx=sin(rx);sy=sin(ry);sz=sin(rz |
2d180 | 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 | );..cx=cos(rx);cy=cos(ry);cz=cos |
2d1a0 | 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 | (rz);.......tb=0;..gt.=.gettime( |
2d1c0 | 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 7d 04 00 00 01 | 0).....................$...}.... |
2d1e0 | 8d 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 | ....dy=abs(getosc(asin(sin(i*$pi |
2d200 | 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a 32 3b 0d 0a 64 78 3d 31 30 2a 73 | ))/$pi,.1,alt*.5)*1)*2;..dx=10*s |
2d220 | 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 | in(i*2*$pi);..dz=-10*cos(i*2*$pi |
2d240 | 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f | );....dy=dy-oy;dx=-dx+ox;dz=dz-o |
2d260 | 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b | z;..dx1=dx*cy-dz*sy;..dz1=dx*sy+ |
2d280 | 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 | dz*cy;..dy2=dy*cx-dz1*sx;..dz2=d |
2d2a0 | 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b | y*sx+dz1*cx;..dx3=dx1*cz-dy2*sz; |
2d2c0 | 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 | ..dy3=dx1*sz+dy2*cz;....dz3=max( |
2d2e0 | 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d | dz2,.01);..x=-(dx3)/dz3*hw;..y=- |
2d300 | 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b | (dy3)/dz3;..skip=equal(dz3,.01); |
2d320 | 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 2a 2e 36 36 3b 0d 0a 67 72 | ....c=1-dz3*.04;..red=c*.66;..gr |
2d340 | 65 65 6e 3d 63 2a 2e 36 36 3b 0d 0a 62 6c 75 65 3d 63 2a 2e 36 36 3b 0d 0a 0d 0a 6e 75 6d 3d 6e | een=c*.66;..blue=c*.66;....num=n |
2d360 | 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | um+1;..sw=-sw;.......t=t+1;delta |
2d380 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
2d3a0 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
2d3c0 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
2d3e0 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
2d400 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
2d420 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
2d440 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
2d460 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
2d480 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
2d4a0 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
2d4c0 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
2d4e0 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
2d500 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
2d520 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
2d540 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
2d560 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
2d580 | 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a | h/w;....n=sqrt(h*w)*.5;..linesiz |
2d5a0 | 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | e=1;..ox=reg00;.rx=reg03;..oy=re |
2d5c0 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
2d5e0 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
2d600 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
2d620 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 | z=cos(rz);.......tb=0;..gt.=.get |
2d640 | 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 | time(0).....................$... |
2d660 | 7d 04 00 00 01 8d 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 | }........dy=abs(getosc(asin(sin( |
2d680 | 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a 33 3b 0d 0a 64 78 | i*$pi))/$pi,.1,alt*.5)*1)*3;..dx |
2d6a0 | 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a | =10*sin(i*2*$pi);..dz=-10*cos(i* |
2d6c0 | 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a | 2*$pi);....dy=dy-oy;dx=-dx+ox;dz |
2d6e0 | 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 | =dz-oz;..dx1=dx*cy-dz*sy;..dz1=d |
2d700 | 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a | x*sy+dz*cy;..dy2=dy*cx-dz1*sx;.. |
2d720 | 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 | dz2=dy*sx+dz1*cx;..dx3=dx1*cz-dy |
2d740 | 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 | 2*sz;..dy3=dx1*sz+dy2*cz;....dz3 |
2d760 | 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b | =max(dz2,.01);..x=-(dx3)/dz3*hw; |
2d780 | 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c | ..y=-(dy3)/dz3;..skip=equal(dz3, |
2d7a0 | 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 2a 2e 33 33 | .01);....c=1-dz3*.04;..red=c*.33 |
2d7c0 | 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 33 33 3b 0d 0a 62 6c 75 65 3d 63 2a 2e 33 33 3b 0d 0a 0d 0a | ;..green=c*.33;..blue=c*.33;.... |
2d7e0 | 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b | num=num+1;..sw=-sw;.......t=t+1; |
2d800 | 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a | deltatime.=.gettime(time);fr=fr* |
2d820 | 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 | .9+deltatime*.1;framerate=1/fr;t |
2d840 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 | ime.=.gettime(0);tb.=.tb+1;timeb |
2d860 | 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | .=.gettime(gt);xmouse=getkbmouse |
2d880 | 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 | (1);ymouse=getkbmouse(2);xmousec |
2d8a0 | 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d | =min(max(xmouse,-1),1);ymousec=m |
2d8c0 | 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 | in(max(ymouse,-1),1);lmouse.=.ge |
2d8e0 | 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(3);rmouse.=.getkbmouse( |
2d900 | 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c | 4);shift.=.getkbmouse(5);control |
2d920 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 | .=.getkbmouse(17);backspace.=.ge |
2d940 | 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(8);space.=.getkbmouse(3 |
2d960 | 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d | 2);right.=.getkbmouse(39);left.= |
2d980 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | .getkbmouse(37);up.=.getkbmouse( |
2d9a0 | 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 | 38);down.=.getkbmouse(40);num.=. |
2d9c0 | 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f | 1;sw.=.1;sizechange=bnot(equal(o |
2d9e0 | 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d | h,h))|bnot(equal(ow,w));oh=h;ow= |
2da00 | 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 | w;hw=h/w;....n=sqrt(h*w)*.5;..li |
2da20 | 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a | nesize=1;..ox=reg00;.rx=reg03;.. |
2da40 | 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 | oy=reg01;.ry=reg04;..oz=reg02;.r |
2da60 | 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 | z=-reg05;..sx=sin(rx);sy=sin(ry) |
2da80 | 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 | ;sz=sin(rz);..cx=cos(rx);cy=cos( |
2daa0 | 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 | ry);cz=cos(rz);.......tb=0;..gt. |
2dac0 | 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | =.gettime(0).................... |
2dae0 | 00 24 00 00 00 43 04 00 00 01 53 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 | .$...C....S...dy=0;..dx=10*sin(i |
2db00 | 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a | *2*$pi);..dz=-10*cos(i*2*$pi);.. |
2db20 | 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a | ..dy=dy-oy;dx=-dx+ox;dz=dz-oz;.. |
2db40 | 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 | dx1=dx*cy-dz*sy;..dz1=dx*sy+dz*c |
2db60 | 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 | y;..dy2=dy*cx-dz1*sx;..dz2=dy*sx |
2db80 | 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 | +dz1*cx;..dx3=dx1*cz-dy2*sz;..dy |
2dba0 | 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c | 3=dx1*sz+dy2*cz;....dz3=max(dz2, |
2dbc0 | 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 | .01);..x=-(dx3)/dz3*hw;..y=-(dy3 |
2dbe0 | 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a | )/dz3;..skip=equal(dz3,.01);.... |
2dc00 | 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | c=1-dz3*.04;..red=c;..green=c;.. |
2dc20 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a | blue=c;....num=num+1;..sw=-sw;.. |
2dc40 | 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
2dc60 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
2dc80 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
2dca0 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
2dcc0 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
2dce0 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
2dd00 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
2dd20 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
2dd40 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
2dd60 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
2dd80 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
2dda0 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
2ddc0 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
2dde0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
2de00 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
2de20 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
2de40 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 | ));oh=h;ow=w;hw=h/w;....n=sqrt(h |
2de60 | 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | *w)*.5;..linesize=1;..ox=reg00;. |
2de80 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
2dea0 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
2dec0 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
2dee0 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 | rx);cy=cos(ry);cz=cos(rz);...... |
2df00 | 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 | .tb=0;..gt.=.gettime(0)......... |
2df20 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 58 04 00 00 01 74 01 00 00 64 79 3d 30 3b 0d 0a | ............$...X....t...dy=0;.. |
2df40 | 64 78 3d 2e 35 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 2e 35 | dx=.5*sin(i*2*$pi)+reg76;..dz=.5 |
2df60 | 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 2b 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 | *cos(i*2*$pi)+reg77;....dy=dy-oy |
2df80 | 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d | ;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy- |
2dfa0 | 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 | dz*sy;..dz1=dx*sy+dz*cy;..dy2=dy |
2dfc0 | 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a | *cx-dz1*sx;..dz2=dy*sx+dz1*cx;.. |
2dfe0 | 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 | dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+d |
2e000 | 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d | y2*cz;....dz3=max(dz2,.01);..x=- |
2e020 | 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b | (dx3)/dz3*hw;..y=-(dy3)/dz3;..sk |
2e040 | 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 | ip=equal(dz3,.01);....c=1-dz3*.0 |
2e060 | 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d | 4;..red=c;..green=c;..blue=c;... |
2e080 | 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 | .linesize=4-dz3*.5;....num=num+1 |
2e0a0 | 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 ac 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 | ;..sw=-sw;.......t=t+1;deltatime |
2e0c0 | 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 | .=.gettime(time);fr=fr*.9+deltat |
2e0e0 | 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 | ime*.1;framerate=1/fr;time.=.get |
2e100 | 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d | time(0);tb.=.tb+1;timeb.=.gettim |
2e120 | 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 | e(gt);xmouse=getkbmouse(1);ymous |
2e140 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | e=getkbmouse(2);xmousec=min(max( |
2e160 | 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d | xmouse,-1),1);ymousec=min(max(ym |
2e180 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | ouse,-1),1);lmouse.=.getkbmouse( |
2e1a0 | 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 | 3);rmouse.=.getkbmouse(4);shift. |
2e1c0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d | =.getkbmouse(5);control.=.getkbm |
2e1e0 | 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | ouse(17);backspace.=.getkbmouse( |
2e200 | 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 | 8);space.=.getkbmouse(32);right. |
2e220 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(39);left.=.getkbmou |
2e240 | 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 | se(37);up.=.getkbmouse(38);down. |
2e260 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b | =.getkbmouse(40);num.=.1;sw.=.1; |
2e280 | 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f | sizechange=bnot(equal(oh,h))|bno |
2e2a0 | 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b | t(equal(ow,w));oh=h;ow=w;hw=h/w; |
2e2c0 | 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 31 35 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | ....n=sqrt(h*w)*.15;..ox=reg00;. |
2e2e0 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
2e300 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
2e320 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
2e340 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 | rx);cy=cos(ry);cz=cos(rz);...... |
2e360 | 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 | .tb=0;..gt.=.gettime(0)......... |
2e380 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4c 04 00 00 01 66 01 00 00 64 79 3d 30 3b 0d 0a | ............$...L....f...dy=0;.. |
2e3a0 | 64 78 3d 28 69 2a 2e 35 2d 2e 35 29 2a 2e 35 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 69 2a 2e 35 2b | dx=(i*.5-.5)*.5+reg76;..dz=i*.5+ |
2e3c0 | 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d | reg77;....dy=dy-oy;dx=-dx+ox;dz= |
2e3e0 | 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 | dz-oz;..dx1=dx*cy-dz*sy;..dz1=dx |
2e400 | 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 | *sy+dz*cy;..dy2=dy*cx-dz1*sx;..d |
2e420 | 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 | z2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2 |
2e440 | 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d | *sz;..dy3=dx1*sz+dy2*cz;....dz3= |
2e460 | 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d | max(dz2,.01);..x=-(dx3)/dz3*hw;. |
2e480 | 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e | .y=-(dy3)/dz3;..skip=equal(dz3,. |
2e4a0 | 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 | 01);....c=1-dz3*.04;..red=c;..gr |
2e4c0 | 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a | een=c;..blue=c;....linesize=4-dz |
2e4e0 | 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 ae | 3*.5;....num=num+1;..sw=-sw;.... |
2e500 | 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d | ...t=t+1;deltatime.=.gettime(tim |
2e520 | 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 | e);fr=fr*.9+deltatime*.1;framera |
2e540 | 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 | te=1/fr;time.=.gettime(0);tb.=.t |
2e560 | 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 | b+1;timeb.=.gettime(gt);xmouse=g |
2e580 | 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 | etkbmouse(1);ymouse=getkbmouse(2 |
2e5a0 | 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );xmousec=min(max(xmouse,-1),1); |
2e5c0 | 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d | ymousec=min(max(ymouse,-1),1);lm |
2e5e0 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 | ouse.=.getkbmouse(3);rmouse.=.ge |
2e600 | 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 | tkbmouse(4);shift.=.getkbmouse(5 |
2e620 | 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 | );control.=.getkbmouse(17);backs |
2e640 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 | pace.=.getkbmouse(8);space.=.get |
2e660 | 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | kbmouse(32);right.=.getkbmouse(3 |
2e680 | 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 | 9);left.=.getkbmouse(37);up.=.ge |
2e6a0 | 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | tkbmouse(38);down.=.getkbmouse(4 |
2e6c0 | 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f | 0);num.=.1;sw.=.1;sizechange=bno |
2e6e0 | 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 | t(equal(oh,h))|bnot(equal(ow,w)) |
2e700 | 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 | ;oh=h;ow=w;hw=h/w;....n=sqrt(h*w |
2e720 | 29 2a 2e 30 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f | )*.05;....ox=reg00;.rx=reg03;..o |
2e740 | 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a | y=reg01;.ry=reg04;..oz=reg02;.rz |
2e760 | 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b | =-reg05;..sx=sin(rx);sy=sin(ry); |
2e780 | 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 | sz=sin(rz);..cx=cos(rx);cy=cos(r |
2e7a0 | 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d | y);cz=cos(rz);.......tb=0;..gt.= |
2e7c0 | 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 | .gettime(0)..................... |
2e7e0 | 24 00 00 00 4d 04 00 00 01 67 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 28 2d 69 2a 2e 35 2b 2e 35 | $...M....g...dy=0;..dx=(-i*.5+.5 |
2e800 | 29 2a 2e 35 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 69 2a 2e 35 2b 72 65 67 37 37 3b 0d 0a 0d 0a 64 | )*.5+reg76;..dz=i*.5+reg77;....d |
2e820 | 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 | y=dy-oy;dx=-dx+ox;dz=dz-oz;..dx1 |
2e840 | 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d | =dx*cy-dz*sy;..dz1=dx*sy+dz*cy;. |
2e860 | 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a | .dy2=dy*cx-dz1*sx;..dz2=dy*sx+dz |
2e880 | 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 | 1*cx;..dx3=dx1*cz-dy2*sz;..dy3=d |
2e8a0 | 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 | x1*sz+dy2*cz;....dz3=max(dz2,.01 |
2e8c0 | 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 | );..x=-(dx3)/dz3*hw;..y=-(dy3)/d |
2e8e0 | 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 | z3;..skip=equal(dz3,.01);....c=1 |
2e900 | 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 | -dz3*.04;..red=c;..green=c;..blu |
2e920 | 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 | e=c;....linesize=4-dz3*.5;....nu |
2e940 | 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 ae 02 00 00 74 3d 74 2b 31 3b 64 65 | m=num+1;..sw=-sw;.......t=t+1;de |
2e960 | 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 | ltatime.=.gettime(time);fr=fr*.9 |
2e980 | 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d | +deltatime*.1;framerate=1/fr;tim |
2e9a0 | 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d | e.=.gettime(0);tb.=.tb+1;timeb.= |
2e9c0 | 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 | .gettime(gt);xmouse=getkbmouse(1 |
2e9e0 | 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d | );ymouse=getkbmouse(2);xmousec=m |
2ea00 | 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e | in(max(xmouse,-1),1);ymousec=min |
2ea20 | 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b | (max(ymouse,-1),1);lmouse.=.getk |
2ea40 | 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 | bmouse(3);rmouse.=.getkbmouse(4) |
2ea60 | 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d | ;shift.=.getkbmouse(5);control.= |
2ea80 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b | .getkbmouse(17);backspace.=.getk |
2eaa0 | 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 | bmouse(8);space.=.getkbmouse(32) |
2eac0 | 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 | ;right.=.getkbmouse(39);left.=.g |
2eae0 | 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 | etkbmouse(37);up.=.getkbmouse(38 |
2eb00 | 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b | );down.=.getkbmouse(40);num.=.1; |
2eb20 | 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c | sw.=.1;sizechange=bnot(equal(oh, |
2eb40 | 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b | h))|bnot(equal(ow,w));oh=h;ow=w; |
2eb60 | 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 30 35 3b 0d 0a 0d 0a 6f | hw=h/w;....n=sqrt(h*w)*.05;....o |
2eb80 | 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 | x=reg00;.rx=reg03;..oy=reg01;.ry |
2eba0 | 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 | =reg04;..oz=reg02;.rz=-reg05;..s |
2ebc0 | 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b | x=sin(rx);sy=sin(ry);sz=sin(rz); |
2ebe0 | 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 | ..cx=cos(rx);cy=cos(ry);cz=cos(r |
2ec00 | 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | z);.......tb=0;..gt.=.gettime(0) |
2ec20 | 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 | .....................$.......... |
2ec40 | 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 | ..dy=0;..dx=gmegabuf(100*num+1+f |
2ec60 | 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c | lo*6);..dz=gmegabuf(100*num+2+fl |
2ec80 | 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 | o*6);....dy=dy-oy;dx=-dx+ox;dz=d |
2eca0 | 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a | z-oz;..dx1=dx*cy-dz*sy;..dz1=dx* |
2ecc0 | 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a | sy+dz*cy;..dy2=dy*cx-dz1*sx;..dz |
2ece0 | 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a | 2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2* |
2ed00 | 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d | sz;..dy3=dx1*sz+dy2*cz;....dz3=m |
2ed20 | 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a | ax(dz2,.01);..x=-(dx3)/dz3*hw;.. |
2ed40 | 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 | y=-(dy3)/dz3;..skip=equal(dz3,.0 |
2ed60 | 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | 1);....drawmode=gmegabuf(100*num |
2ed80 | 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 | +3+flo*6);..c=drawmode-view;..re |
2eda0 | 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 | d=c;..green=c;..blue=c;....lines |
2edc0 | 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d | ize=4-dz3*.5;....num=num+1;..sw= |
2ede0 | 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 | -sw;.......t=t+1;deltatime.=.get |
2ee00 | 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 | time(time);fr=fr*.9+deltatime*.1 |
2ee20 | 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 | ;framerate=1/fr;time.=.gettime(0 |
2ee40 | 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b | );tb.=.tb+1;timeb.=.gettime(gt); |
2ee60 | 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b | xmouse=getkbmouse(1);ymouse=getk |
2ee80 | 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 | bmouse(2);xmousec=min(max(xmouse |
2eea0 | 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d | ,-1),1);ymousec=min(max(ymouse,- |
2eec0 | 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f | 1),1);lmouse.=.getkbmouse(3);rmo |
2eee0 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b | use.=.getkbmouse(4);shift.=.getk |
2ef00 | 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 | bmouse(5);control.=.getkbmouse(1 |
2ef20 | 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 | 7);backspace.=.getkbmouse(8);spa |
2ef40 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b | ce.=.getkbmouse(32);right.=.getk |
2ef60 | 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 | bmouse(39);left.=.getkbmouse(37) |
2ef80 | 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b | ;up.=.getkbmouse(38);down.=.getk |
2efa0 | 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 | bmouse(40);num.=.1;sw.=.1;sizech |
2efc0 | 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 | ange=bnot(equal(oh,h))|bnot(equa |
2efe0 | 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d | l(ow,w));oh=h;ow=w;hw=h/w;....n= |
2f000 | 72 65 67 38 31 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f | reg81;....ox=reg00;.rx=reg03;..o |
2f020 | 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a | y=reg01;.ry=reg04;..oz=reg02;.rz |
2f040 | 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b | =-reg05;..sx=sin(rx);sy=sin(ry); |
2f060 | 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 | sz=sin(rz);..cx=cos(rx);cy=cos(r |
2f080 | 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 | y);cz=cos(rz);....view=bnot(equa |
2f0a0 | 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 | l(flo,reg71))*.5*min(max(1-abs(r |
2f0c0 | 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 | x)*2,0),1);.....tb=0;..gt.=.gett |
2f0e0 | 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | ime(0).....flo=1................ |
2f100 | 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 | .$............dy=1;..dx=gmegabuf |
2f120 | 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 | (100*num+1+flo*6);..dz=gmegabuf( |
2f140 | 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 | 100*num+2+flo*6);....dy=dy-oy;dx |
2f160 | 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a | =-dx+ox;dz=dz-oz;..dx1=dx*cy-dz* |
2f180 | 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 | sy;..dz1=dx*sy+dz*cy;..dy2=dy*cx |
2f1a0 | 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 | -dz1*sx;..dz2=dy*sx+dz1*cx;..dx3 |
2f1c0 | 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a | =dx1*cz-dy2*sz;..dy3=dx1*sz+dy2* |
2f1e0 | 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 | cz;....dz3=max(dz2,.01);..x=-(dx |
2f200 | 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d | 3)/dz3*hw;..y=-(dy3)/dz3;..skip= |
2f220 | 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 | equal(dz3,.01);....drawmode=gmeg |
2f240 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f | abuf(100*num+3+flo*6);..c=drawmo |
2f260 | 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 | de-view;..red=c;..green=c;..blue |
2f280 | 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d | =c;....linesize=4-dz3*.5;....num |
2f2a0 | 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c | =num+1;..sw=-sw;.......t=t+1;del |
2f2c0 | 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b | tatime.=.gettime(time);fr=fr*.9+ |
2f2e0 | 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 | deltatime*.1;framerate=1/fr;time |
2f300 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 | .=.gettime(0);tb.=.tb+1;timeb.=. |
2f320 | 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 | gettime(gt);xmouse=getkbmouse(1) |
2f340 | 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 | ;ymouse=getkbmouse(2);xmousec=mi |
2f360 | 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 | n(max(xmouse,-1),1);ymousec=min( |
2f380 | 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | max(ymouse,-1),1);lmouse.=.getkb |
2f3a0 | 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b | mouse(3);rmouse.=.getkbmouse(4); |
2f3c0 | 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 | shift.=.getkbmouse(5);control.=. |
2f3e0 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | getkbmouse(17);backspace.=.getkb |
2f400 | 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b | mouse(8);space.=.getkbmouse(32); |
2f420 | 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 | right.=.getkbmouse(39);left.=.ge |
2f440 | 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 | tkbmouse(37);up.=.getkbmouse(38) |
2f460 | 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 | ;down.=.getkbmouse(40);num.=.1;s |
2f480 | 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | w.=.1;sizechange=bnot(equal(oh,h |
2f4a0 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
2f4c0 | 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | w=h/w;....n=reg81;....ox=reg00;. |
2f4e0 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
2f500 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
2f520 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
2f540 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 | rx);cy=cos(ry);cz=cos(rz);....vi |
2f560 | 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e | ew=bnot(equal(flo,reg71))*.5*min |
2f580 | 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 | (max(1-abs(rx)*2,0),1);.....tb=0 |
2f5a0 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 | ;..gt.=.gettime(0).....flo=1.... |
2f5c0 | 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 32 06 00 00 01 09 03 00 00 64 79 3d 2e 35 2b | .............$...2........dy=.5+ |
2f5e0 | 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c | sw*.5;..dx=gmegabuf(100*num+1+fl |
2f600 | 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f | o*6);..dz=gmegabuf(100*num+2+flo |
2f620 | 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 | *6);..dxa=dx;dza=dz;....dy=dy-oy |
2f640 | 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d | ;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy- |
2f660 | 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 | dz*sy;..dz1=dx*sy+dz*cy;..dy2=dy |
2f680 | 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a | *cx-dz1*sx;..dz2=dy*sx+dz1*cx;.. |
2f6a0 | 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 | dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+d |
2f6c0 | 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d | y2*cz;....dz3=max(dz2,.01);..x=- |
2f6e0 | 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b | (dx3)/dz3*hw;..y=-(dy3)/dz3;..sk |
2f700 | 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 | ip=equal(dz3,.01);....ogx=gmegab |
2f720 | 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d | uf(100*(num-1)+1+flo*6);..ogz=gm |
2f740 | 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 | egabuf(100*(num-1)+2+flo*6);..ng |
2f760 | 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b | x=gmegabuf(100*(num+1)+1+flo*6); |
2f780 | 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f | ..ngz=gmegabuf(100*(num+1)+2+flo |
2f7a0 | 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f | *6);....ang1=atan2(dxa-ogx,dza-o |
2f7c0 | 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e | gz);..ang2=atan2(-dxa+ngx,-dza+n |
2f7e0 | 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 | gz);..corner=bnot(below(abs(ang1 |
2f800 | 2d 61 6e 67 32 29 2c 2e 31 29 20 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 | -ang2),.1).);....drawmode=gmegab |
2f820 | 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 | uf(100*num+3+flo*6);..c=drawmode |
2f840 | 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 76 69 65 77 3b 0d 0a 72 65 64 3d | *equal(add,1)*corner-view;..red= |
2f860 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
2f880 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 | e=4-dz3*.5;....add=add+1;..if(eq |
2f8a0 | 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 | ual(add,2),assign(add,0)+assign( |
2f8c0 | 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 | num,num+1),0);..sw=-sw;..reg99=1 |
2f8e0 | 30 3b 00 eb 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | 0;.....t=t+1;deltatime.=.gettime |
2f900 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
2f920 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
2f940 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
2f960 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
2f980 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
2f9a0 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
2f9c0 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
2f9e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
2fa00 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
2fa20 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
2fa40 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
2fa60 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
2fa80 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
2faa0 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
2fac0 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
2fae0 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
2fb00 | 31 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | 1*2;....ox=reg00;.rx=reg03;..oy= |
2fb20 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
2fb40 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
2fb60 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
2fb80 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 0d 0a 76 69 65 77 3d 62 6e 6f | ;cz=cos(rz);....add=0;..view=bno |
2fba0 | 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 | t(equal(flo,reg71))*.5*min(max(1 |
2fbc0 | 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 | -abs(rx)*2,0),1);.....tb=0;..gt. |
2fbe0 | 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff | =.gettime(0).....flo=1.......... |
2fc00 | ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d | .......$............dy=2;..dx=gm |
2fc20 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 | egabuf(100*num+1+flo*6);..dz=gme |
2fc40 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 | gabuf(100*num+2+flo*6);....dy=dy |
2fc60 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
2fc80 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
2fca0 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
2fcc0 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
2fce0 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
2fd00 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
2fd20 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 | .skip=equal(dz3,.01);....drawmod |
2fd40 | 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d | e=gmegabuf(100*num+3+flo*6);..c= |
2fd60 | 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b | drawmode-view;..red=c;..green=c; |
2fd80 | 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d | ..blue=c;....linesize=4-dz3*.5;. |
2fda0 | 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 | ...num=num+1;..sw=-sw;.......t=t |
2fdc0 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
2fde0 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
2fe00 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
2fe20 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
2fe40 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
2fe60 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
2fe80 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
2fea0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
2fec0 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
2fee0 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
2ff00 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
2ff20 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
2ff40 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
2ff60 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
2ff80 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
2ffa0 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
2ffc0 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 | ow=w;hw=h/w;....n=reg82;....ox=r |
2ffe0 | 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 | eg00;.rx=reg03;..oy=reg01;.ry=re |
30000 | 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 | g04;..oz=reg02;.rz=-reg05;..sx=s |
30020 | 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 | in(rx);sy=sin(ry);sz=sin(rz);..c |
30040 | 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b | x=cos(rx);cy=cos(ry);cz=cos(rz); |
30060 | 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a | ....view=bnot(equal(flo,reg71))* |
30080 | 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 | .5*min(max(1-abs(rx)*2,0),1);... |
300a0 | 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f | ..tb=0;..gt.=.gettime(0).....flo |
300c0 | 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 | =2.................$............ |
300e0 | 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f | dy=1;..dx=gmegabuf(100*num+1+flo |
30100 | 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a | *6);..dz=gmegabuf(100*num+2+flo* |
30120 | 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d | 6);....dy=dy-oy;dx=-dx+ox;dz=dz- |
30140 | 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 | oz;..dx1=dx*cy-dz*sy;..dz1=dx*sy |
30160 | 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d | +dz*cy;..dy2=dy*cx-dz1*sx;..dz2= |
30180 | 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a | dy*sx+dz1*cx;..dx3=dx1*cz-dy2*sz |
301a0 | 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 | ;..dy3=dx1*sz+dy2*cz;....dz3=max |
301c0 | 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d | (dz2,.01);..x=-(dx3)/dz3*hw;..y= |
301e0 | 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 | -(dy3)/dz3;..skip=equal(dz3,.01) |
30200 | 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 | ;....drawmode=gmegabuf(100*num+3 |
30220 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d | +flo*6);..c=drawmode-view;..red= |
30240 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
30260 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 | e=4-dz3*.5;....num=num+1;..sw=-s |
30280 | 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | w;.......t=t+1;deltatime.=.getti |
302a0 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
302c0 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
302e0 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
30300 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
30320 | 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d | ouse(2);xmousec=min(max(xmouse,- |
30340 | 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 | 1),1);ymousec=min(max(ymouse,-1) |
30360 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
30380 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
303a0 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
303c0 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
303e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
30400 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
30420 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
30440 | 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e | ouse(40);num.=.1;sw.=.1;sizechan |
30460 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
30480 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 | ow,w));oh=h;ow=w;hw=h/w;....n=re |
304a0 | 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | g82;....ox=reg00;.rx=reg03;..oy= |
304c0 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
304e0 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
30500 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
30520 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | ;cz=cos(rz);....view=bnot(equal( |
30540 | 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 | flo,reg71))*.5*min(max(1-abs(rx) |
30560 | 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d | *2,0),1);.....tb=0;..gt.=.gettim |
30580 | 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 | e(0).....flo=2.................$ |
305a0 | 00 00 00 32 06 00 00 01 09 03 00 00 64 79 3d 31 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d | ...2........dy=1.5+sw*.5;..dx=gm |
305c0 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 | egabuf(100*num+1+flo*6);..dz=gme |
305e0 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b | gabuf(100*num+2+flo*6);..dxa=dx; |
30600 | 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a | dza=dz;....dy=dy-oy;dx=-dx+ox;dz |
30620 | 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 | =dz-oz;..dx1=dx*cy-dz*sy;..dz1=d |
30640 | 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a | x*sy+dz*cy;..dy2=dy*cx-dz1*sx;.. |
30660 | 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 | dz2=dy*sx+dz1*cx;..dx3=dx1*cz-dy |
30680 | 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 | 2*sz;..dy3=dx1*sz+dy2*cz;....dz3 |
306a0 | 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b | =max(dz2,.01);..x=-(dx3)/dz3*hw; |
306c0 | 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c | ..y=-(dy3)/dz3;..skip=equal(dz3, |
306e0 | 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 | .01);....ogx=gmegabuf(100*(num-1 |
30700 | 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e | )+1+flo*6);..ogz=gmegabuf(100*(n |
30720 | 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 | um-1)+2+flo*6);..ngx=gmegabuf(10 |
30740 | 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 | 0*(num+1)+1+flo*6);..ngz=gmegabu |
30760 | 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d | f(100*(num+1)+2+flo*6);....ang1= |
30780 | 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 | atan2(dxa-ogx,dza-ogz);..ang2=at |
307a0 | 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d | an2(-dxa+ngx,-dza+ngz);..corner= |
307c0 | 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d | bnot(below(abs(ang1-ang2),.1));. |
307e0 | 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 | ...drawmode=gmegabuf(100*num+3+f |
30800 | 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a | lo*6);..c=drawmode*equal(add,1)* |
30820 | 63 6f 72 6e 65 72 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | corner-view;..red=c;..green=c;.. |
30840 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d | blue=c;....linesize=4-dz3*.5;... |
30860 | 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 | .add=add+1;..if(equal(add,2),ass |
30880 | 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b | ign(add,0)+assign(num,num+1),0); |
308a0 | 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 eb 02 00 00 74 3d 74 2b 31 3b 64 | ..sw=-sw;..reg99=10;.....t=t+1;d |
308c0 | 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e | eltatime.=.gettime(time);fr=fr*. |
308e0 | 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 | 9+deltatime*.1;framerate=1/fr;ti |
30900 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 | me.=.gettime(0);tb.=.tb+1;timeb. |
30920 | 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | =.gettime(gt);xmouse=getkbmouse( |
30940 | 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d | 1);ymouse=getkbmouse(2);xmousec= |
30960 | 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 | min(max(xmouse,-1),1);ymousec=mi |
30980 | 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 | n(max(ymouse,-1),1);lmouse.=.get |
309a0 | 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | kbmouse(3);rmouse.=.getkbmouse(4 |
309c0 | 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 | );shift.=.getkbmouse(5);control. |
309e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 | =.getkbmouse(17);backspace.=.get |
30a00 | 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 | kbmouse(8);space.=.getkbmouse(32 |
30a20 | 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 | );right.=.getkbmouse(39);left.=. |
30a40 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | getkbmouse(37);up.=.getkbmouse(3 |
30a60 | 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 | 8);down.=.getkbmouse(40);num.=.1 |
30a80 | 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 | ;sw.=.1;sizechange=bnot(equal(oh |
30aa0 | 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 | ,h))|bnot(equal(ow,w));oh=h;ow=w |
30ac0 | 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | ;hw=h/w;....n=reg82*2;....ox=reg |
30ae0 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
30b00 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
30b20 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
30b40 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
30b60 | 0d 0a 61 64 64 3d 30 3b 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 | ..add=0;..view=bnot(equal(flo,re |
30b80 | 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c | g71))*.5*min(max(1-abs(rx)*2,0), |
30ba0 | 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 | 1);.....tb=0;..gt.=.gettime(0).. |
30bc0 | 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 | ...flo=2.................$...... |
30be0 | 00 01 a5 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | ......dy=2;..dx=gmegabuf(100*num |
30c00 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | +1+flo*6);..dz=gmegabuf(100*num+ |
30c20 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b | 2+flo*6);....dy=dy-oy;dx=-dx+ox; |
30c40 | 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 | dz=dz-oz;..dx1=dx*cy-dz*sy;..dz1 |
30c60 | 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b | =dx*sy+dz*cy;..dy2=dy*cx-dz1*sx; |
30c80 | 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d | ..dz2=dy*sx+dz1*cx;..dx3=dx1*cz- |
30ca0 | 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 | dy2*sz;..dy3=dx1*sz+dy2*cz;....d |
30cc0 | 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 | z3=max(dz2,.01);..x=-(dx3)/dz3*h |
30ce0 | 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a | w;..y=-(dy3)/dz3;..skip=equal(dz |
30d00 | 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | 3,.01);....drawmode=gmegabuf(100 |
30d20 | 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b | *num+3+flo*6);..c=drawmode-view; |
30d40 | 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c | ..red=c;..green=c;..blue=c;....l |
30d60 | 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d | inesize=4-dz3*.5;....num=num+1;. |
30d80 | 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d | .sw=-sw;.......t=t+1;deltatime.= |
30da0 | 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d | .gettime(time);fr=fr*.9+deltatim |
30dc0 | 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 | e*.1;framerate=1/fr;time.=.getti |
30de0 | 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 | me(0);tb.=.tb+1;timeb.=.gettime( |
30e00 | 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d | gt);xmouse=getkbmouse(1);ymouse= |
30e20 | 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d | getkbmouse(2);xmousec=min(max(xm |
30e40 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 | ouse,-1),1);ymousec=min(max(ymou |
30e60 | 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 | se,-1),1);lmouse.=.getkbmouse(3) |
30e80 | 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 | ;rmouse.=.getkbmouse(4);shift.=. |
30ea0 | 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 | getkbmouse(5);control.=.getkbmou |
30ec0 | 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 | se(17);backspace.=.getkbmouse(8) |
30ee0 | 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 | ;space.=.getkbmouse(32);right.=. |
30f00 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(39);left.=.getkbmouse |
30f20 | 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 | (37);up.=.getkbmouse(38);down.=. |
30f40 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 | getkbmouse(40);num.=.1;sw.=.1;si |
30f60 | 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 | zechange=bnot(equal(oh,h))|bnot( |
30f80 | 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a | equal(ow,w));oh=h;ow=w;hw=h/w;.. |
30fa0 | 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 | ..n=reg83;....ox=reg00;.rx=reg03 |
30fc0 | 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 | ;..oy=reg01;.ry=reg04;..oz=reg02 |
30fe0 | 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 | ;.rz=-reg05;..sx=sin(rx);sy=sin( |
31000 | 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 | ry);sz=sin(rz);..cx=cos(rx);cy=c |
31020 | 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 | os(ry);cz=cos(rz);....view=bnot( |
31040 | 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 | equal(flo,reg71))*.5*min(max(1-a |
31060 | 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 | bs(rx)*2,0),1);.....tb=0;..gt.=. |
31080 | 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff | gettime(0).....flo=3............ |
310a0 | 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 | .....$............dy=3;..dx=gmeg |
310c0 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 | abuf(100*num+1+flo*6);..dz=gmega |
310e0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f | buf(100*num+2+flo*6);....dy=dy-o |
31100 | 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 | y;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy |
31120 | 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 | -dz*sy;..dz1=dx*sy+dz*cy;..dy2=d |
31140 | 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d | y*cx-dz1*sx;..dz2=dy*sx+dz1*cx;. |
31160 | 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b | .dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+ |
31180 | 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d | dy2*cz;....dz3=max(dz2,.01);..x= |
311a0 | 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 | -(dx3)/dz3*hw;..y=-(dy3)/dz3;..s |
311c0 | 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d | kip=equal(dz3,.01);....drawmode= |
311e0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 | gmegabuf(100*num+3+flo*6);..c=dr |
31200 | 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | awmode-view;..red=c;..green=c;.. |
31220 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d | blue=c;....linesize=4-dz3*.5;... |
31240 | 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 | .num=num+1;..sw=-sw;.......t=t+1 |
31260 | 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 | ;deltatime.=.gettime(time);fr=fr |
31280 | 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b | *.9+deltatime*.1;framerate=1/fr; |
312a0 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 | time.=.gettime(0);tb.=.tb+1;time |
312c0 | 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | b.=.gettime(gt);xmouse=getkbmous |
312e0 | 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 | e(1);ymouse=getkbmouse(2);xmouse |
31300 | 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d | c=min(max(xmouse,-1),1);ymousec= |
31320 | 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | min(max(ymouse,-1),1);lmouse.=.g |
31340 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
31360 | 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f | (4);shift.=.getkbmouse(5);contro |
31380 | 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 | l.=.getkbmouse(17);backspace.=.g |
313a0 | 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(8);space.=.getkbmouse( |
313c0 | 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 | 32);right.=.getkbmouse(39);left. |
313e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | =.getkbmouse(37);up.=.getkbmouse |
31400 | 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d | (38);down.=.getkbmouse(40);num.= |
31420 | 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | .1;sw.=.1;sizechange=bnot(equal( |
31440 | 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 | oh,h))|bnot(equal(ow,w));oh=h;ow |
31460 | 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | =w;hw=h/w;....n=reg83;....ox=reg |
31480 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
314a0 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
314c0 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
314e0 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
31500 | 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 | ..view=bnot(equal(flo,reg71))*.5 |
31520 | 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 | *min(max(1-abs(rx)*2,0),1);..... |
31540 | 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 | tb=0;..gt.=.gettime(0).....flo=3 |
31560 | 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 32 06 00 00 01 09 03 00 00 64 79 | .................$...2........dy |
31580 | 3d 32 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | =2.5+sw*.5;..dx=gmegabuf(100*num |
315a0 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | +1+flo*6);..dz=gmegabuf(100*num+ |
315c0 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d | 2+flo*6);..dxa=dx;dza=dz;....dy= |
315e0 | 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 | dy-oy;dx=-dx+ox;dz=dz-oz;..dx1=d |
31600 | 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 | x*cy-dz*sy;..dz1=dx*sy+dz*cy;..d |
31620 | 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a | y2=dy*cx-dz1*sx;..dz2=dy*sx+dz1* |
31640 | 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 | cx;..dx3=dx1*cz-dy2*sz;..dy3=dx1 |
31660 | 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b | *sz+dy2*cz;....dz3=max(dz2,.01); |
31680 | 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 | ..x=-(dx3)/dz3*hw;..y=-(dy3)/dz3 |
316a0 | 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 | ;..skip=equal(dz3,.01);....ogx=g |
316c0 | 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f | megabuf(100*(num-1)+1+flo*6);..o |
316e0 | 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 | gz=gmegabuf(100*(num-1)+2+flo*6) |
31700 | 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c | ;..ngx=gmegabuf(100*(num+1)+1+fl |
31720 | 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b | o*6);..ngz=gmegabuf(100*(num+1)+ |
31740 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c | 2+flo*6);....ang1=atan2(dxa-ogx, |
31760 | 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d | dza-ogz);..ang2=atan2(-dxa+ngx,- |
31780 | 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 | dza+ngz);..corner=bnot(below(abs |
317a0 | 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d | (ang1-ang2),.1));....drawmode=gm |
317c0 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 | egabuf(100*num+3+flo*6);..c=draw |
317e0 | 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 76 69 65 77 3b 0d 0a | mode*equal(add,1)*corner-view;.. |
31800 | 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e | red=c;..green=c;..blue=c;....lin |
31820 | 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 | esize=4-dz3*.5;....add=add+1;..i |
31840 | 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 | f(equal(add,2),assign(add,0)+ass |
31860 | 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 | ign(num,num+1),0);..sw=-sw;..reg |
31880 | 39 39 3d 31 30 3b 00 eb 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 | 99=10;.....t=t+1;deltatime.=.get |
318a0 | 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 | time(time);fr=fr*.9+deltatime*.1 |
318c0 | 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 | ;framerate=1/fr;time.=.gettime(0 |
318e0 | 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b | );tb.=.tb+1;timeb.=.gettime(gt); |
31900 | 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b | xmouse=getkbmouse(1);ymouse=getk |
31920 | 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 | bmouse(2);xmousec=min(max(xmouse |
31940 | 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d | ,-1),1);ymousec=min(max(ymouse,- |
31960 | 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f | 1),1);lmouse.=.getkbmouse(3);rmo |
31980 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b | use.=.getkbmouse(4);shift.=.getk |
319a0 | 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 | bmouse(5);control.=.getkbmouse(1 |
319c0 | 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 | 7);backspace.=.getkbmouse(8);spa |
319e0 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b | ce.=.getkbmouse(32);right.=.getk |
31a00 | 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 | bmouse(39);left.=.getkbmouse(37) |
31a20 | 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b | ;up.=.getkbmouse(38);down.=.getk |
31a40 | 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 | bmouse(40);num.=.1;sw.=.1;sizech |
31a60 | 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 | ange=bnot(equal(oh,h))|bnot(equa |
31a80 | 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d | l(ow,w));oh=h;ow=w;hw=h/w;....n= |
31aa0 | 72 65 67 38 33 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d | reg83*2;....ox=reg00;.rx=reg03;. |
31ac0 | 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 | .oy=reg01;.ry=reg04;..oz=reg02;. |
31ae0 | 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 | rz=-reg05;..sx=sin(rx);sy=sin(ry |
31b00 | 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 | );sz=sin(rz);..cx=cos(rx);cy=cos |
31b20 | 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 0d 0a 76 69 65 77 | (ry);cz=cos(rz);....add=0;..view |
31b40 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d | =bnot(equal(flo,reg71))*.5*min(m |
31b60 | 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d | ax(1-abs(rx)*2,0),1);.....tb=0;. |
31b80 | 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 | .gt.=.gettime(0).....flo=3...... |
31ba0 | 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 33 3b 0d 0a 64 | ...........$............dy=3;..d |
31bc0 | 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a | x=gmegabuf(100*num+1+flo*6);..dz |
31be0 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 | =gmegabuf(100*num+2+flo*6);....d |
31c00 | 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 | y=dy-oy;dx=-dx+ox;dz=dz-oz;..dx1 |
31c20 | 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d | =dx*cy-dz*sy;..dz1=dx*sy+dz*cy;. |
31c40 | 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a | .dy2=dy*cx-dz1*sx;..dz2=dy*sx+dz |
31c60 | 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 | 1*cx;..dx3=dx1*cz-dy2*sz;..dy3=d |
31c80 | 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 | x1*sz+dy2*cz;....dz3=max(dz2,.01 |
31ca0 | 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 | );..x=-(dx3)/dz3*hw;..y=-(dy3)/d |
31cc0 | 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 | z3;..skip=equal(dz3,.01);....dra |
31ce0 | 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b | wmode=gmegabuf(100*num+3+flo*6); |
31d00 | 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 | ..c=drawmode-view;..red=c;..gree |
31d20 | 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a | n=c;..blue=c;....linesize=4-dz3* |
31d40 | 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 | .5;....num=num+1;..sw=-sw;...... |
31d60 | 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 | .t=t+1;deltatime.=.gettime(time) |
31d80 | 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 | ;fr=fr*.9+deltatime*.1;framerate |
31da0 | 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b | =1/fr;time.=.gettime(0);tb.=.tb+ |
31dc0 | 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 | 1;timeb.=.gettime(gt);xmouse=get |
31de0 | 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b | kbmouse(1);ymouse=getkbmouse(2); |
31e00 | 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d | xmousec=min(max(xmouse,-1),1);ym |
31e20 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 | ousec=min(max(ymouse,-1),1);lmou |
31e40 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b | se.=.getkbmouse(3);rmouse.=.getk |
31e60 | 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b | bmouse(4);shift.=.getkbmouse(5); |
31e80 | 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 | control.=.getkbmouse(17);backspa |
31ea0 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | ce.=.getkbmouse(8);space.=.getkb |
31ec0 | 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 | mouse(32);right.=.getkbmouse(39) |
31ee0 | 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b | ;left.=.getkbmouse(37);up.=.getk |
31f00 | 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 | bmouse(38);down.=.getkbmouse(40) |
31f20 | 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | ;num.=.1;sw.=.1;sizechange=bnot( |
31f40 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
31f60 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a | h=h;ow=w;hw=h/w;....n=reg84;.... |
31f80 | 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 | ox=reg00;.rx=reg03;..oy=reg01;.r |
31fa0 | 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a | y=reg04;..oz=reg02;.rz=-reg05;.. |
31fc0 | 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 | sx=sin(rx);sy=sin(ry);sz=sin(rz) |
31fe0 | 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 | ;..cx=cos(rx);cy=cos(ry);cz=cos( |
32000 | 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 | rz);....view=bnot(equal(flo,reg7 |
32020 | 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 | 1))*.5*min(max(1-abs(rx)*2,0),1) |
32040 | 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 | ;.....tb=0;..gt.=.gettime(0).... |
32060 | 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 | .flo=4.................$........ |
32080 | a5 01 00 00 64 79 3d 34 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 | ....dy=4;..dx=gmegabuf(100*num+1 |
320a0 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b | +flo*6);..dz=gmegabuf(100*num+2+ |
320c0 | 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a | flo*6);....dy=dy-oy;dx=-dx+ox;dz |
320e0 | 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 | =dz-oz;..dx1=dx*cy-dz*sy;..dz1=d |
32100 | 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a | x*sy+dz*cy;..dy2=dy*cx-dz1*sx;.. |
32120 | 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 | dz2=dy*sx+dz1*cx;..dx3=dx1*cz-dy |
32140 | 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 | 2*sz;..dy3=dx1*sz+dy2*cz;....dz3 |
32160 | 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b | =max(dz2,.01);..x=-(dx3)/dz3*hw; |
32180 | 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c | ..y=-(dy3)/dz3;..skip=equal(dz3, |
321a0 | 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | .01);....drawmode=gmegabuf(100*n |
321c0 | 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a | um+3+flo*6);..c=drawmode-view;.. |
321e0 | 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e | red=c;..green=c;..blue=c;....lin |
32200 | 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 | esize=4-dz3*.5;....num=num+1;..s |
32220 | 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 | w=-sw;.......t=t+1;deltatime.=.g |
32240 | 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a | ettime(time);fr=fr*.9+deltatime* |
32260 | 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .1;framerate=1/fr;time.=.gettime |
32280 | 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 | (0);tb.=.tb+1;timeb.=.gettime(gt |
322a0 | 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 | );xmouse=getkbmouse(1);ymouse=ge |
322c0 | 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 | tkbmouse(2);xmousec=min(max(xmou |
322e0 | 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 | se,-1),1);ymousec=min(max(ymouse |
32300 | 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 | ,-1),1);lmouse.=.getkbmouse(3);r |
32320 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 | mouse.=.getkbmouse(4);shift.=.ge |
32340 | 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | tkbmouse(5);control.=.getkbmouse |
32360 | 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 | (17);backspace.=.getkbmouse(8);s |
32380 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 | pace.=.getkbmouse(32);right.=.ge |
323a0 | 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(39);left.=.getkbmouse(3 |
323c0 | 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 | 7);up.=.getkbmouse(38);down.=.ge |
323e0 | 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 | tkbmouse(40);num.=.1;sw.=.1;size |
32400 | 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 | change=bnot(equal(oh,h))|bnot(eq |
32420 | 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a | ual(ow,w));oh=h;ow=w;hw=h/w;.... |
32440 | 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d | n=reg84;....ox=reg00;.rx=reg03;. |
32460 | 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 | .oy=reg01;.ry=reg04;..oz=reg02;. |
32480 | 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 | rz=-reg05;..sx=sin(rx);sy=sin(ry |
324a0 | 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 | );sz=sin(rz);..cx=cos(rx);cy=cos |
324c0 | 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 | (ry);cz=cos(rz);....view=bnot(eq |
324e0 | 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 | ual(flo,reg71))*.5*min(max(1-abs |
32500 | 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 | (rx)*2,0),1);.....tb=0;..gt.=.ge |
32520 | 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 | ttime(0).....flo=4.............. |
32540 | 00 00 00 24 00 00 00 32 06 00 00 01 09 03 00 00 64 79 3d 33 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 | ...$...2........dy=3.5+sw*.5;..d |
32560 | 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a | x=gmegabuf(100*num+1+flo*6);..dz |
32580 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 | =gmegabuf(100*num+2+flo*6);..dxa |
325a0 | 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f | =dx;dza=dz;....dy=dy-oy;dx=-dx+o |
325c0 | 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 | x;dz=dz-oz;..dx1=dx*cy-dz*sy;..d |
325e0 | 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 | z1=dx*sy+dz*cy;..dy2=dy*cx-dz1*s |
32600 | 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 | x;..dz2=dy*sx+dz1*cx;..dx3=dx1*c |
32620 | 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d | z-dy2*sz;..dy3=dx1*sz+dy2*cz;... |
32640 | 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 | .dz3=max(dz2,.01);..x=-(dx3)/dz3 |
32660 | 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 | *hw;..y=-(dy3)/dz3;..skip=equal( |
32680 | 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e | dz3,.01);....ogx=gmegabuf(100*(n |
326a0 | 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 | um-1)+1+flo*6);..ogz=gmegabuf(10 |
326c0 | 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 | 0*(num-1)+2+flo*6);..ngx=gmegabu |
326e0 | 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 | f(100*(num+1)+1+flo*6);..ngz=gme |
32700 | 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 | gabuf(100*(num+1)+2+flo*6);....a |
32720 | 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 | ng1=atan2(dxa-ogx,dza-ogz);..ang |
32740 | 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 | 2=atan2(-dxa+ngx,-dza+ngz);..cor |
32760 | 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 | ner=bnot(below(abs(ang1-ang2),.1 |
32780 | 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | ));....drawmode=gmegabuf(100*num |
327a0 | 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 | +3+flo*6);..c=drawmode*equal(add |
327c0 | 2c 31 29 2a 63 6f 72 6e 65 72 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d | ,1)*corner-view;..red=c;..green= |
327e0 | 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 | c;..blue=c;....linesize=4-dz3*.5 |
32800 | 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 | ;....add=add+1;..if(equal(add,2) |
32820 | 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 | ,assign(add,0)+assign(num,num+1) |
32840 | 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 eb 02 00 00 74 3d 74 | ,0);..sw=-sw;..reg99=10;.....t=t |
32860 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
32880 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
328a0 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
328c0 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
328e0 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
32900 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
32920 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
32940 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
32960 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
32980 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
329a0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
329c0 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
329e0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
32a00 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
32a20 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
32a40 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
32a60 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 2a 32 3b 0d 0a 0d 0a 6f 78 | ow=w;hw=h/w;....n=reg84*2;....ox |
32a80 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
32aa0 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
32ac0 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
32ae0 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
32b00 | 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c | );....add=0;..view=bnot(equal(fl |
32b20 | 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 | o,reg71))*.5*min(max(1-abs(rx)*2 |
32b40 | 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 | ,0),1);.....tb=0;..gt.=.gettime( |
32b60 | 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 | 0).....flo=4.................$.. |
32b80 | 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | ..........dy=5;..dx=gmegabuf(100 |
32ba0 | 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | *num+1+flo*6);..dz=gmegabuf(100* |
32bc0 | 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 | num+2+flo*6);....dy=dy-oy;dx=-dx |
32be0 | 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d | +ox;dz=dz-oz;..dx1=dx*cy-dz*sy;. |
32c00 | 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 | .dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1 |
32c20 | 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 | *sx;..dz2=dy*sx+dz1*cx;..dx3=dx1 |
32c40 | 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d | *cz-dy2*sz;..dy3=dx1*sz+dy2*cz;. |
32c60 | 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 | ...dz3=max(dz2,.01);..x=-(dx3)/d |
32c80 | 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 | z3*hw;..y=-(dy3)/dz3;..skip=equa |
32ca0 | 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 | l(dz3,.01);....drawmode=gmegabuf |
32cc0 | 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 | (100*num+3+flo*6);..c=drawmode-v |
32ce0 | 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d | iew;..red=c;..green=c;..blue=c;. |
32d00 | 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d | ...linesize=4-dz3*.5;....num=num |
32d20 | 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | +1;..sw=-sw;.......t=t+1;deltati |
32d40 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
32d60 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
32d80 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
32da0 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
32dc0 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
32de0 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
32e00 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
32e20 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
32e40 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
32e60 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
32e80 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
32ea0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
32ec0 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
32ee0 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
32f00 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
32f20 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
32f40 | 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 | w;....n=reg85;....ox=reg00;.rx=r |
32f60 | 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 | eg03;..oy=reg01;.ry=reg04;..oz=r |
32f80 | 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d | eg02;.rz=-reg05;..sx=sin(rx);sy= |
32fa0 | 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b | sin(ry);sz=sin(rz);..cx=cos(rx); |
32fc0 | 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 | cy=cos(ry);cz=cos(rz);....view=b |
32fe0 | 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 | not(equal(flo,reg71))*.5*min(max |
33000 | 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 | (1-abs(rx)*2,0),1);.....tb=0;..g |
33020 | 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 | t.=.gettime(0).....flo=5........ |
33040 | 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 34 3b 0d 0a 64 78 3d | .........$............dy=4;..dx= |
33060 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 | gmegabuf(100*num+1+flo*6);..dz=g |
33080 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d | megabuf(100*num+2+flo*6);....dy= |
330a0 | 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 | dy-oy;dx=-dx+ox;dz=dz-oz;..dx1=d |
330c0 | 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 | x*cy-dz*sy;..dz1=dx*sy+dz*cy;..d |
330e0 | 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a | y2=dy*cx-dz1*sx;..dz2=dy*sx+dz1* |
33100 | 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 | cx;..dx3=dx1*cz-dy2*sz;..dy3=dx1 |
33120 | 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b | *sz+dy2*cz;....dz3=max(dz2,.01); |
33140 | 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 | ..x=-(dx3)/dz3*hw;..y=-(dy3)/dz3 |
33160 | 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d | ;..skip=equal(dz3,.01);....drawm |
33180 | 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a | ode=gmegabuf(100*num+3+flo*6);.. |
331a0 | 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d | c=drawmode-view;..red=c;..green= |
331c0 | 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 | c;..blue=c;....linesize=4-dz3*.5 |
331e0 | 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 | ;....num=num+1;..sw=-sw;.......t |
33200 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
33220 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
33240 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
33260 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
33280 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d | mouse(1);ymouse=getkbmouse(2);xm |
332a0 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 | ousec=min(max(xmouse,-1),1);ymou |
332c0 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 | sec=min(max(ymouse,-1),1);lmouse |
332e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(3);rmouse.=.getkbm |
33300 | 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f | ouse(4);shift.=.getkbmouse(5);co |
33320 | 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 | ntrol.=.getkbmouse(17);backspace |
33340 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(8);space.=.getkbmo |
33360 | 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c | use(32);right.=.getkbmouse(39);l |
33380 | 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d | eft.=.getkbmouse(37);up.=.getkbm |
333a0 | 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e | ouse(38);down.=.getkbmouse(40);n |
333c0 | 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 | um.=.1;sw.=.1;sizechange=bnot(eq |
333e0 | 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d | ual(oh,h))|bnot(equal(ow,w));oh= |
33400 | 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 | h;ow=w;hw=h/w;....n=reg85;....ox |
33420 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
33440 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
33460 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
33480 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
334a0 | 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 | );....view=bnot(equal(flo,reg71) |
334c0 | 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 | )*.5*min(max(1-abs(rx)*2,0),1);. |
334e0 | 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 | ....tb=0;..gt.=.gettime(0).....f |
33500 | 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 32 06 00 00 01 09 03 | lo=5.................$...2...... |
33520 | 00 00 64 79 3d 34 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | ..dy=4.5+sw*.5;..dx=gmegabuf(100 |
33540 | 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | *num+1+flo*6);..dz=gmegabuf(100* |
33560 | 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d | num+2+flo*6);..dxa=dx;dza=dz;... |
33580 | 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 | .dy=dy-oy;dx=-dx+ox;dz=dz-oz;..d |
335a0 | 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 | x1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy |
335c0 | 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b | ;..dy2=dy*cx-dz1*sx;..dz2=dy*sx+ |
335e0 | 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 | dz1*cx;..dx3=dx1*cz-dy2*sz;..dy3 |
33600 | 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e | =dx1*sz+dy2*cz;....dz3=max(dz2,. |
33620 | 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 | 01);..x=-(dx3)/dz3*hw;..y=-(dy3) |
33640 | 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f | /dz3;..skip=equal(dz3,.01);....o |
33660 | 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 | gx=gmegabuf(100*(num-1)+1+flo*6) |
33680 | 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c | ;..ogz=gmegabuf(100*(num-1)+2+fl |
336a0 | 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b | o*6);..ngx=gmegabuf(100*(num+1)+ |
336c0 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d | 1+flo*6);..ngz=gmegabuf(100*(num |
336e0 | 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d | +1)+2+flo*6);....ang1=atan2(dxa- |
33700 | 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e | ogx,dza-ogz);..ang2=atan2(-dxa+n |
33720 | 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 | gx,-dza+ngz);..corner=bnot(below |
33740 | 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 | (abs(ang1-ang2),.1));....drawmod |
33760 | 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d | e=gmegabuf(100*num+3+flo*6);..c= |
33780 | 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 76 69 65 | drawmode*equal(add,1)*corner-vie |
337a0 | 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d | w;..red=c;..green=c;..blue=c;... |
337c0 | 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 | .linesize=4-dz3*.5;....add=add+1 |
337e0 | 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 | ;..if(equal(add,2),assign(add,0) |
33800 | 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d | +assign(num,num+1),0);..sw=-sw;. |
33820 | 0a 72 65 67 39 39 3d 31 30 3b 00 eb 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d | .reg99=10;.....t=t+1;deltatime.= |
33840 | 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d | .gettime(time);fr=fr*.9+deltatim |
33860 | 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 | e*.1;framerate=1/fr;time.=.getti |
33880 | 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 | me(0);tb.=.tb+1;timeb.=.gettime( |
338a0 | 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d | gt);xmouse=getkbmouse(1);ymouse= |
338c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d | getkbmouse(2);xmousec=min(max(xm |
338e0 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 | ouse,-1),1);ymousec=min(max(ymou |
33900 | 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 | se,-1),1);lmouse.=.getkbmouse(3) |
33920 | 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 | ;rmouse.=.getkbmouse(4);shift.=. |
33940 | 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 | getkbmouse(5);control.=.getkbmou |
33960 | 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 | se(17);backspace.=.getkbmouse(8) |
33980 | 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 | ;space.=.getkbmouse(32);right.=. |
339a0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(39);left.=.getkbmouse |
339c0 | 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 | (37);up.=.getkbmouse(38);down.=. |
339e0 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 | getkbmouse(40);num.=.1;sw.=.1;si |
33a00 | 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 | zechange=bnot(equal(oh,h))|bnot( |
33a20 | 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a | equal(ow,w));oh=h;ow=w;hw=h/w;.. |
33a40 | 0d 0a 6e 3d 72 65 67 38 35 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 | ..n=reg85*2;....ox=reg00;.rx=reg |
33a60 | 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 | 03;..oy=reg01;.ry=reg04;..oz=reg |
33a80 | 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 | 02;.rz=-reg05;..sx=sin(rx);sy=si |
33aa0 | 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 | n(ry);sz=sin(rz);..cx=cos(rx);cy |
33ac0 | 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 0d 0a | =cos(ry);cz=cos(rz);....add=0;.. |
33ae0 | 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d | view=bnot(equal(flo,reg71))*.5*m |
33b00 | 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 | in(max(1-abs(rx)*2,0),1);.....tb |
33b20 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 | =0;..gt.=.gettime(0).....flo=5.. |
33b40 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 32 06 00 00 01 09 03 00 00 64 79 3d 35 | ...............$...2........dy=5 |
33b60 | 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 | .5+sw*.5;..dx=gmegabuf(100*num+1 |
33b80 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b | +flo*6);..dz=gmegabuf(100*num+2+ |
33ba0 | 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 | flo*6);..dxa=dx;dza=dz;....dy=dy |
33bc0 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
33be0 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
33c00 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
33c20 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
33c40 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
33c60 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
33c80 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 | .skip=equal(dz3,.01);....ogx=gme |
33ca0 | 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a | gabuf(100*(num-1)+1+flo*6);..ogz |
33cc0 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | =gmegabuf(100*(num-1)+2+flo*6);. |
33ce0 | 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a | .ngx=gmegabuf(100*(num+1)+1+flo* |
33d00 | 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b | 6);..ngz=gmegabuf(100*(num+1)+2+ |
33d20 | 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a | flo*6);....ang1=atan2(dxa-ogx,dz |
33d40 | 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a | a-ogz);..ang2=atan2(-dxa+ngx,-dz |
33d60 | 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 | a+ngz);..corner=bnot(below(abs(a |
33d80 | 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 | ng1-ang2),.1));....drawmode=gmeg |
33da0 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f | abuf(100*num+3+flo*6);..c=drawmo |
33dc0 | 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 76 69 65 77 3b 0d 0a 72 65 | de*equal(add,1)*corner-view;..re |
33de0 | 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 | d=c;..green=c;..blue=c;....lines |
33e00 | 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 | ize=4-dz3*.5;....add=add+1;..if( |
33e20 | 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 | equal(add,2),assign(add,0)+assig |
33e40 | 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 | n(num,num+1),0);..sw=-sw;..reg99 |
33e60 | 3d 31 30 3b 00 eb 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | =10;.....t=t+1;deltatime.=.getti |
33e80 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
33ea0 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
33ec0 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
33ee0 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
33f00 | 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d | ouse(2);xmousec=min(max(xmouse,- |
33f20 | 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 | 1),1);ymousec=min(max(ymouse,-1) |
33f40 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
33f60 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
33f80 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
33fa0 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
33fc0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
33fe0 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
34000 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
34020 | 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e | ouse(40);num.=.1;sw.=.1;sizechan |
34040 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
34060 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 | ow,w));oh=h;ow=w;hw=h/w;....n=re |
34080 | 67 38 36 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f | g86*2;....ox=reg00;.rx=reg03;..o |
340a0 | 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a | y=reg01;.ry=reg04;..oz=reg02;.rz |
340c0 | 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b | =-reg05;..sx=sin(rx);sy=sin(ry); |
340e0 | 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 | sz=sin(rz);..cx=cos(rx);cy=cos(r |
34100 | 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 0d 0a 76 69 65 77 3d 62 | y);cz=cos(rz);....add=0;..view=b |
34120 | 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 | not(equal(flo,reg71))*.5*min(max |
34140 | 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 | (1-abs(rx)*2,0),1);.....tb=0;..g |
34160 | 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 | t.=.gettime(0).....flo=6........ |
34180 | 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d | .........$............dy=6;..dx= |
341a0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 | gmegabuf(100*num+1+flo*6);..dz=g |
341c0 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d | megabuf(100*num+2+flo*6);....dy= |
341e0 | 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 | dy-oy;dx=-dx+ox;dz=dz-oz;..dx1=d |
34200 | 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 | x*cy-dz*sy;..dz1=dx*sy+dz*cy;..d |
34220 | 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a | y2=dy*cx-dz1*sx;..dz2=dy*sx+dz1* |
34240 | 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 | cx;..dx3=dx1*cz-dy2*sz;..dy3=dx1 |
34260 | 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b | *sz+dy2*cz;....dz3=max(dz2,.01); |
34280 | 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 | ..x=-(dx3)/dz3*hw;..y=-(dy3)/dz3 |
342a0 | 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d | ;..skip=equal(dz3,.01);....drawm |
342c0 | 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a | ode=gmegabuf(100*num+3+flo*6);.. |
342e0 | 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d | c=drawmode-view;..red=c;..green= |
34300 | 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 | c;..blue=c;....linesize=4-dz3*.5 |
34320 | 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 | ;....num=num+1;..sw=-sw;.......t |
34340 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
34360 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
34380 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
343a0 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
343c0 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d | mouse(1);ymouse=getkbmouse(2);xm |
343e0 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 | ousec=min(max(xmouse,-1),1);ymou |
34400 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 | sec=min(max(ymouse,-1),1);lmouse |
34420 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(3);rmouse.=.getkbm |
34440 | 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f | ouse(4);shift.=.getkbmouse(5);co |
34460 | 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 | ntrol.=.getkbmouse(17);backspace |
34480 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(8);space.=.getkbmo |
344a0 | 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c | use(32);right.=.getkbmouse(39);l |
344c0 | 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d | eft.=.getkbmouse(37);up.=.getkbm |
344e0 | 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e | ouse(38);down.=.getkbmouse(40);n |
34500 | 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 | um.=.1;sw.=.1;sizechange=bnot(eq |
34520 | 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d | ual(oh,h))|bnot(equal(ow,w));oh= |
34540 | 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 3b 0d 0a 0d 0a 6f 78 | h;ow=w;hw=h/w;....n=reg86;....ox |
34560 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
34580 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
345a0 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
345c0 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
345e0 | 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 | );....view=bnot(equal(flo,reg71) |
34600 | 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 | )*.5*min(max(1-abs(rx)*2,0),1);. |
34620 | 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 | ....tb=0;..gt.=.gettime(0).....f |
34640 | 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c0 04 00 00 01 a1 01 | lo=6.................$.......... |
34660 | 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 | ..dy=5;..dx=gmegabuf(100*num+1+f |
34680 | 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c | lo*6);..dz=gmegabuf(100*num+2+fl |
346a0 | 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 | o*6);....dy=dy-oy;dx=-dx+ox;dz=d |
346c0 | 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a | z-oz;..dx1=dx*cy-dz*sy;..dz1=dx* |
346e0 | 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a | sy+dz*cy;..dy2=dy*cx-dz1*sx;..dz |
34700 | 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a | 2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2* |
34720 | 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d | sz;..dy3=dx1*sz+dy2*cz;....dz3=m |
34740 | 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a | ax(dz2,.01);..x=-(dx3)/dz3*hw;.. |
34760 | 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 | y=-(dy3)/dz3;..skip=equal(dz3,.0 |
34780 | 31 29 3b 0d 0a 0d 0a 73 68 6f 63 6b 61 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 | 1);....shocka=gmegabuf(100*num+3 |
347a0 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 73 68 6f 63 6b 61 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b | +flo*6);..c=shocka-view;..red=c; |
347c0 | 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d | ..green=c;..blue=c;....linesize= |
347e0 | 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | 4-dz3*.5;....num=num+1;..sw=-sw; |
34800 | 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
34820 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
34840 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
34860 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
34880 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
348a0 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
348c0 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
348e0 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
34900 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
34920 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
34940 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
34960 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
34980 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
349a0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
349c0 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
349e0 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
34a00 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
34a20 | 36 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | 6;....ox=reg00;.rx=reg03;..oy=re |
34a40 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
34a60 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
34a80 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
34aa0 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c | z=cos(rz);....view=bnot(equal(fl |
34ac0 | 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 | o,reg71))*.5*min(max(1-abs(rx)*2 |
34ae0 | 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 | ,0),1);.....tb=0;..gt.=.gettime( |
34b00 | 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 | 0).....flo=6.................$.. |
34b20 | 00 32 06 00 00 01 09 03 00 00 64 79 3d 36 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 | .2........dy=6.5+sw*.5;..dx=gmeg |
34b40 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 | abuf(100*num+1+flo*6);..dz=gmega |
34b60 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a | buf(100*num+2+flo*6);..dxa=dx;dz |
34b80 | 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 | a=dz;....dy=dy-oy;dx=-dx+ox;dz=d |
34ba0 | 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a | z-oz;..dx1=dx*cy-dz*sy;..dz1=dx* |
34bc0 | 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a | sy+dz*cy;..dy2=dy*cx-dz1*sx;..dz |
34be0 | 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a | 2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2* |
34c00 | 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d | sz;..dy3=dx1*sz+dy2*cz;....dz3=m |
34c20 | 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a | ax(dz2,.01);..x=-(dx3)/dz3*hw;.. |
34c40 | 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 | y=-(dy3)/dz3;..skip=equal(dz3,.0 |
34c60 | 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b | 1);....ogx=gmegabuf(100*(num-1)+ |
34c80 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d | 1+flo*6);..ogz=gmegabuf(100*(num |
34ca0 | 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | -1)+2+flo*6);..ngx=gmegabuf(100* |
34cc0 | 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 | (num+1)+1+flo*6);..ngz=gmegabuf( |
34ce0 | 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 | 100*(num+1)+2+flo*6);....ang1=at |
34d00 | 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e | an2(dxa-ogx,dza-ogz);..ang2=atan |
34d20 | 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e | 2(-dxa+ngx,-dza+ngz);..corner=bn |
34d40 | 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d | ot(below(abs(ang1-ang2),.1));... |
34d60 | 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f | .drawmode=gmegabuf(100*num+3+flo |
34d80 | 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f | *6);..c=drawmode*equal(add,1)*co |
34da0 | 72 6e 65 72 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c | rner-view;..red=c;..green=c;..bl |
34dc0 | 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 | ue=c;....linesize=4-dz3*.5;....a |
34de0 | 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 | dd=add+1;..if(equal(add,2),assig |
34e00 | 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a | n(add,0)+assign(num,num+1),0);.. |
34e20 | 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 eb 02 00 00 74 3d 74 2b 31 3b 64 65 6c | sw=-sw;..reg99=10;.....t=t+1;del |
34e40 | 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b | tatime.=.gettime(time);fr=fr*.9+ |
34e60 | 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 | deltatime*.1;framerate=1/fr;time |
34e80 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 | .=.gettime(0);tb.=.tb+1;timeb.=. |
34ea0 | 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 | gettime(gt);xmouse=getkbmouse(1) |
34ec0 | 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 | ;ymouse=getkbmouse(2);xmousec=mi |
34ee0 | 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 | n(max(xmouse,-1),1);ymousec=min( |
34f00 | 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | max(ymouse,-1),1);lmouse.=.getkb |
34f20 | 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b | mouse(3);rmouse.=.getkbmouse(4); |
34f40 | 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 | shift.=.getkbmouse(5);control.=. |
34f60 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | getkbmouse(17);backspace.=.getkb |
34f80 | 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b | mouse(8);space.=.getkbmouse(32); |
34fa0 | 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 | right.=.getkbmouse(39);left.=.ge |
34fc0 | 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 | tkbmouse(37);up.=.getkbmouse(38) |
34fe0 | 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 | ;down.=.getkbmouse(40);num.=.1;s |
35000 | 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | w.=.1;sizechange=bnot(equal(oh,h |
35020 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
35040 | 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 | w=h/w;....n=reg87*2;....ox=reg00 |
35060 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
35080 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
350a0 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
350c0 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a | s(rx);cy=cos(ry);cz=cos(rz);.... |
350e0 | 61 64 64 3d 30 3b 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 | add=0;..view=bnot(equal(flo,reg7 |
35100 | 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 | 1))*.5*min(max(1-abs(rx)*2,0),1) |
35120 | 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 | ;.....tb=0;..gt.=.gettime(0).... |
35140 | 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 | .flo=7.................$........ |
35160 | a5 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 | ....dy=6;..dx=gmegabuf(100*num+1 |
35180 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b | +flo*6);..dz=gmegabuf(100*num+2+ |
351a0 | 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a | flo*6);....dy=dy-oy;dx=-dx+ox;dz |
351c0 | 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 | =dz-oz;..dx1=dx*cy-dz*sy;..dz1=d |
351e0 | 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a | x*sy+dz*cy;..dy2=dy*cx-dz1*sx;.. |
35200 | 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 | dz2=dy*sx+dz1*cx;..dx3=dx1*cz-dy |
35220 | 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 | 2*sz;..dy3=dx1*sz+dy2*cz;....dz3 |
35240 | 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b | =max(dz2,.01);..x=-(dx3)/dz3*hw; |
35260 | 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c | ..y=-(dy3)/dz3;..skip=equal(dz3, |
35280 | 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | .01);....drawmode=gmegabuf(100*n |
352a0 | 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a | um+3+flo*6);..c=drawmode-view;.. |
352c0 | 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e | red=c;..green=c;..blue=c;....lin |
352e0 | 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 | esize=4-dz3*.5;....num=num+1;..s |
35300 | 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 | w=-sw;.......t=t+1;deltatime.=.g |
35320 | 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a | ettime(time);fr=fr*.9+deltatime* |
35340 | 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .1;framerate=1/fr;time.=.gettime |
35360 | 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 | (0);tb.=.tb+1;timeb.=.gettime(gt |
35380 | 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 | );xmouse=getkbmouse(1);ymouse=ge |
353a0 | 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 | tkbmouse(2);xmousec=min(max(xmou |
353c0 | 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 | se,-1),1);ymousec=min(max(ymouse |
353e0 | 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 | ,-1),1);lmouse.=.getkbmouse(3);r |
35400 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 | mouse.=.getkbmouse(4);shift.=.ge |
35420 | 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | tkbmouse(5);control.=.getkbmouse |
35440 | 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 | (17);backspace.=.getkbmouse(8);s |
35460 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 | pace.=.getkbmouse(32);right.=.ge |
35480 | 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(39);left.=.getkbmouse(3 |
354a0 | 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 | 7);up.=.getkbmouse(38);down.=.ge |
354c0 | 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 | tkbmouse(40);num.=.1;sw.=.1;size |
354e0 | 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 | change=bnot(equal(oh,h))|bnot(eq |
35500 | 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a | ual(ow,w));oh=h;ow=w;hw=h/w;.... |
35520 | 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d | n=reg87;....ox=reg00;.rx=reg03;. |
35540 | 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 | .oy=reg01;.ry=reg04;..oz=reg02;. |
35560 | 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 | rz=-reg05;..sx=sin(rx);sy=sin(ry |
35580 | 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 | );sz=sin(rz);..cx=cos(rx);cy=cos |
355a0 | 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 | (ry);cz=cos(rz);....view=bnot(eq |
355c0 | 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 | ual(flo,reg71))*.5*min(max(1-abs |
355e0 | 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 | (rx)*2,0),1);.....tb=0;..gt.=.ge |
35600 | 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 | ttime(0).....flo=7.............. |
35620 | 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 | ...$............dy=7;..dx=gmegab |
35640 | 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 | uf(100*num+1+flo*6);..dz=gmegabu |
35660 | 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b | f(100*num+2+flo*6);....dy=dy-oy; |
35680 | 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 | dx=-dx+ox;dz=dz-oz;..dx1=dx*cy-d |
356a0 | 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a | z*sy;..dz1=dx*sy+dz*cy;..dy2=dy* |
356c0 | 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 | cx-dz1*sx;..dz2=dy*sx+dz1*cx;..d |
356e0 | 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 | x3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy |
35700 | 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 | 2*cz;....dz3=max(dz2,.01);..x=-( |
35720 | 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 | dx3)/dz3*hw;..y=-(dy3)/dz3;..ski |
35740 | 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d | p=equal(dz3,.01);....drawmode=gm |
35760 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 | egabuf(100*num+3+flo*6);..c=draw |
35780 | 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c | mode-view;..red=c;..green=c;..bl |
357a0 | 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e | ue=c;....linesize=4-dz3*.5;....n |
357c0 | 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 | um=num+1;..sw=-sw;.......t=t+1;d |
357e0 | 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e | eltatime.=.gettime(time);fr=fr*. |
35800 | 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 | 9+deltatime*.1;framerate=1/fr;ti |
35820 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 | me.=.gettime(0);tb.=.tb+1;timeb. |
35840 | 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | =.gettime(gt);xmouse=getkbmouse( |
35860 | 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d | 1);ymouse=getkbmouse(2);xmousec= |
35880 | 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 | min(max(xmouse,-1),1);ymousec=mi |
358a0 | 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 | n(max(ymouse,-1),1);lmouse.=.get |
358c0 | 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | kbmouse(3);rmouse.=.getkbmouse(4 |
358e0 | 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 | );shift.=.getkbmouse(5);control. |
35900 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 | =.getkbmouse(17);backspace.=.get |
35920 | 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 | kbmouse(8);space.=.getkbmouse(32 |
35940 | 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 | );right.=.getkbmouse(39);left.=. |
35960 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | getkbmouse(37);up.=.getkbmouse(3 |
35980 | 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 | 8);down.=.getkbmouse(40);num.=.1 |
359a0 | 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 | ;sw.=.1;sizechange=bnot(equal(oh |
359c0 | 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 | ,h))|bnot(equal(ow,w));oh=h;ow=w |
359e0 | 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 | ;hw=h/w;....n=reg87;....ox=reg00 |
35a00 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
35a20 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
35a40 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
35a60 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a | s(rx);cy=cos(ry);cz=cos(rz);.... |
35a80 | 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d | view=bnot(equal(flo,reg71))*.5*m |
35aa0 | 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 | in(max(1-abs(rx)*2,0),1);.....tb |
35ac0 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 | =0;..gt.=.gettime(0).....flo=7.. |
35ae0 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 04 00 00 01 a5 01 00 00 64 79 3d 37 | ...............$............dy=7 |
35b00 | 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b | ;..dx=gmegabuf(100*num+1+flo*6); |
35b20 | 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | ..dz=gmegabuf(100*num+2+flo*6);. |
35b40 | 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d | ...dy=dy-oy;dx=-dx+ox;dz=dz-oz;. |
35b60 | 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a | .dx1=dx*cy-dz*sy;..dz1=dx*sy+dz* |
35b80 | 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 | cy;..dy2=dy*cx-dz1*sx;..dz2=dy*s |
35ba0 | 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 | x+dz1*cx;..dx3=dx1*cz-dy2*sz;..d |
35bc0 | 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 | y3=dx1*sz+dy2*cz;....dz3=max(dz2 |
35be0 | 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 | ,.01);..x=-(dx3)/dz3*hw;..y=-(dy |
35c00 | 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d | 3)/dz3;..skip=equal(dz3,.01);... |
35c20 | 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f | .drawmode=gmegabuf(100*num+3+flo |
35c40 | 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a | *6);..c=drawmode-view;..red=c;.. |
35c60 | 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d | green=c;..blue=c;....linesize=4- |
35c80 | 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a | dz3*.5;....num=num+1;..sw=-sw;.. |
35ca0 | 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
35cc0 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
35ce0 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
35d00 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
35d20 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
35d40 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
35d60 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
35d80 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
35da0 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
35dc0 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
35de0 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
35e00 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
35e20 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
35e40 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
35e60 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
35e80 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
35ea0 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 3b | ));oh=h;ow=w;hw=h/w;....n=reg88; |
35ec0 | 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 | ....ox=reg00;.rx=reg03;..oy=reg0 |
35ee0 | 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 | 1;.ry=reg04;..oz=reg02;.rz=-reg0 |
35f00 | 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e | 5;..sx=sin(rx);sy=sin(ry);sz=sin |
35f20 | 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d | (rz);..cx=cos(rx);cy=cos(ry);cz= |
35f40 | 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 6c 28 66 6c 6f 2c | cos(rz);....view=bnot(equal(flo, |
35f60 | 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 78 29 2a 32 2c 30 | reg71))*.5*min(max(1-abs(rx)*2,0 |
35f80 | 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | ),1);.....tb=0;..gt.=.gettime(0) |
35fa0 | 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 c4 | .....flo=8.................$.... |
35fc0 | 04 00 00 01 a5 01 00 00 64 79 3d 38 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | ........dy=8;..dx=gmegabuf(100*n |
35fe0 | 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | um+1+flo*6);..dz=gmegabuf(100*nu |
36000 | 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f | m+2+flo*6);....dy=dy-oy;dx=-dx+o |
36020 | 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 | x;dz=dz-oz;..dx1=dx*cy-dz*sy;..d |
36040 | 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 | z1=dx*sy+dz*cy;..dy2=dy*cx-dz1*s |
36060 | 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 | x;..dz2=dy*sx+dz1*cx;..dx3=dx1*c |
36080 | 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d | z-dy2*sz;..dy3=dx1*sz+dy2*cz;... |
360a0 | 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 | .dz3=max(dz2,.01);..x=-(dx3)/dz3 |
360c0 | 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 | *hw;..y=-(dy3)/dz3;..skip=equal( |
360e0 | 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 | dz3,.01);....drawmode=gmegabuf(1 |
36100 | 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 76 69 65 | 00*num+3+flo*6);..c=drawmode-vie |
36120 | 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d | w;..red=c;..green=c;..blue=c;... |
36140 | 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 | .linesize=4-dz3*.5;....num=num+1 |
36160 | 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 e1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 | ;..sw=-sw;.......t=t+1;deltatime |
36180 | 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 | .=.gettime(time);fr=fr*.9+deltat |
361a0 | 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 | ime*.1;framerate=1/fr;time.=.get |
361c0 | 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d | time(0);tb.=.tb+1;timeb.=.gettim |
361e0 | 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 | e(gt);xmouse=getkbmouse(1);ymous |
36200 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | e=getkbmouse(2);xmousec=min(max( |
36220 | 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d | xmouse,-1),1);ymousec=min(max(ym |
36240 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | ouse,-1),1);lmouse.=.getkbmouse( |
36260 | 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 | 3);rmouse.=.getkbmouse(4);shift. |
36280 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d | =.getkbmouse(5);control.=.getkbm |
362a0 | 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | ouse(17);backspace.=.getkbmouse( |
362c0 | 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 | 8);space.=.getkbmouse(32);right. |
362e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(39);left.=.getkbmou |
36300 | 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 | se(37);up.=.getkbmouse(38);down. |
36320 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b | =.getkbmouse(40);num.=.1;sw.=.1; |
36340 | 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f | sizechange=bnot(equal(oh,h))|bno |
36360 | 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b | t(equal(ow,w));oh=h;ow=w;hw=h/w; |
36380 | 0d 0a 0d 0a 6e 3d 72 65 67 38 38 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 | ....n=reg88;....ox=reg00;.rx=reg |
363a0 | 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 | 03;..oy=reg01;.ry=reg04;..oz=reg |
363c0 | 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 | 02;.rz=-reg05;..sx=sin(rx);sy=si |
363e0 | 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 | n(ry);sz=sin(rz);..cx=cos(rx);cy |
36400 | 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 76 69 65 77 3d 62 6e 6f | =cos(ry);cz=cos(rz);....view=bno |
36420 | 74 28 65 71 75 61 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 | t(equal(flo,reg71))*.5*min(max(1 |
36440 | 2d 61 62 73 28 72 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 | -abs(rx)*2,0),1);.....tb=0;..gt. |
36460 | 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff | =.gettime(0).....flo=8.......... |
36480 | ff ff 00 01 00 00 00 24 00 00 00 32 06 00 00 01 09 03 00 00 64 79 3d 37 2e 35 2b 73 77 2a 2e 35 | .......$...2........dy=7.5+sw*.5 |
364a0 | 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b | ;..dx=gmegabuf(100*num+1+flo*6); |
364c0 | 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | ..dz=gmegabuf(100*num+2+flo*6);. |
364e0 | 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d | .dxa=dx;dza=dz;....dy=dy-oy;dx=- |
36500 | 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 | dx+ox;dz=dz-oz;..dx1=dx*cy-dz*sy |
36520 | 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 | ;..dz1=dx*sy+dz*cy;..dy2=dy*cx-d |
36540 | 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 | z1*sx;..dz2=dy*sx+dz1*cx;..dx3=d |
36560 | 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a | x1*cz-dy2*sz;..dy3=dx1*sz+dy2*cz |
36580 | 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 | ;....dz3=max(dz2,.01);..x=-(dx3) |
365a0 | 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 | /dz3*hw;..y=-(dy3)/dz3;..skip=eq |
365c0 | 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 | ual(dz3,.01);....ogx=gmegabuf(10 |
365e0 | 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 | 0*(num-1)+1+flo*6);..ogz=gmegabu |
36600 | 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 | f(100*(num-1)+2+flo*6);..ngx=gme |
36620 | 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a | gabuf(100*(num+1)+1+flo*6);..ngz |
36640 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | =gmegabuf(100*(num+1)+2+flo*6);. |
36660 | 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d | ...ang1=atan2(dxa-ogx,dza-ogz);. |
36680 | 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d | .ang2=atan2(-dxa+ngx,-dza+ngz);. |
366a0 | 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 | .corner=bnot(below(abs(ang1-ang2 |
366c0 | 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | ),.1));....drawmode=gmegabuf(100 |
366e0 | 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c | *num+3+flo*6);..c=drawmode*equal |
36700 | 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 76 69 65 77 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 | (add,1)*corner-view;..red=c;..gr |
36720 | 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a | een=c;..blue=c;....linesize=4-dz |
36740 | 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 | 3*.5;....add=add+1;..if(equal(ad |
36760 | 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 | d,2),assign(add,0)+assign(num,nu |
36780 | 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 eb 02 00 | m+1),0);..sw=-sw;..reg99=10;.... |
367a0 | 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 | .t=t+1;deltatime.=.gettime(time) |
367c0 | 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 | ;fr=fr*.9+deltatime*.1;framerate |
367e0 | 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b | =1/fr;time.=.gettime(0);tb.=.tb+ |
36800 | 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 | 1;timeb.=.gettime(gt);xmouse=get |
36820 | 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b | kbmouse(1);ymouse=getkbmouse(2); |
36840 | 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d | xmousec=min(max(xmouse,-1),1);ym |
36860 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 | ousec=min(max(ymouse,-1),1);lmou |
36880 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b | se.=.getkbmouse(3);rmouse.=.getk |
368a0 | 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b | bmouse(4);shift.=.getkbmouse(5); |
368c0 | 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 | control.=.getkbmouse(17);backspa |
368e0 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | ce.=.getkbmouse(8);space.=.getkb |
36900 | 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 | mouse(32);right.=.getkbmouse(39) |
36920 | 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b | ;left.=.getkbmouse(37);up.=.getk |
36940 | 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 | bmouse(38);down.=.getkbmouse(40) |
36960 | 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | ;num.=.1;sw.=.1;sizechange=bnot( |
36980 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
369a0 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 2a 32 3b 0d 0a | h=h;ow=w;hw=h/w;....n=reg88*2;.. |
369c0 | 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b | ..ox=reg00;.rx=reg03;..oy=reg01; |
369e0 | 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b | .ry=reg04;..oz=reg02;.rz=-reg05; |
36a00 | 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 | ..sx=sin(rx);sy=sin(ry);sz=sin(r |
36a20 | 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f | z);..cx=cos(rx);cy=cos(ry);cz=co |
36a40 | 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 0d 0a 76 69 65 77 3d 62 6e 6f 74 28 65 71 75 61 | s(rz);....add=0;..view=bnot(equa |
36a60 | 6c 28 66 6c 6f 2c 72 65 67 37 31 29 29 2a 2e 35 2a 6d 69 6e 28 6d 61 78 28 31 2d 61 62 73 28 72 | l(flo,reg71))*.5*min(max(1-abs(r |
36a80 | 78 29 2a 32 2c 30 29 2c 31 29 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 | x)*2,0),1);.....tb=0;..gt.=.gett |
36aa0 | 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | ime(0).....flo=8................ |
36ac0 | 00 fe ff ff ff 9b a2 00 00 80 00 01 0b 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 | .............$.................. |
36ae0 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 | ...............@..AVS.2.8+.Effec |
36b00 | 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 64 00 00 00 01 00 00 00 0e 00 00 00 2f 2f | t.List.Config.....d...........// |
36b20 | 20 66 6f 63 61 6c 20 62 6c 75 72 00 4a 00 00 00 61 61 3d 6d 69 6e 28 6d 61 78 28 61 61 2b 73 69 | .focal.blur.J...aa=min(max(aa+si |
36b40 | 67 6e 28 72 65 67 35 39 2d 61 61 29 2a 2e 31 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 | gn(reg59-aa)*.1,0),1);..alphaout |
36b60 | 3d 61 61 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 00 fe ff ff ff 47 9f | =aa;..enabled=above(aa,0).....G. |
36b80 | 00 00 81 01 00 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ......$......................... |
36ba0 | 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 | ........@..AVS.2.8+.Effect.List. |
36bc0 | 43 6f 6e 66 69 67 00 00 00 00 00 29 00 00 00 00 00 00 00 1d 00 00 00 2f 2f 20 66 6f 63 61 6c 20 | Config.....)...........//.focal. |
36be0 | 62 6c 75 72 20 64 72 61 77 20 62 75 66 66 65 72 20 45 4c 00 00 00 00 00 fe ff ff ff c9 04 00 00 | blur.draw.buffer.EL............. |
36c00 | 82 02 00 0b 24 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ....$........................... |
36c20 | 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f | ......@..AVS.2.8+.Effect.List.Co |
36c40 | 6e 66 69 67 00 00 00 00 00 59 00 00 00 01 00 00 00 00 00 00 00 4d 00 00 00 61 61 3d 6d 61 78 28 | nfig.....Y...........M...aa=max( |
36c60 | 6d 69 6e 28 61 61 2b 73 69 67 6e 28 72 65 67 35 35 2d 61 61 29 2a 2e 31 2c 31 29 2c 30 29 3b 0d | min(aa+sign(reg55-aa)*.1,1),0);. |
36c80 | 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c | .alphaout=aa;..enabled=above(aa, |
36ca0 | 30 29 3b 0d 0a 00 19 00 00 00 14 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 | 0);............................. |
36cc0 | 00 00 2b 00 00 00 ff 03 00 00 01 16 01 00 00 64 78 3d 78 2a 69 68 77 3b 64 79 3d 79 3b 64 7a 3d | ..+............dx=x*ihw;dy=y;dz= |
36ce0 | 31 3b 0d 0a 0d 0a 64 78 31 3d 64 78 2a 63 7a 2d 64 79 2a 73 7a 3b 0d 0a 64 79 31 3d 64 78 2a 73 | 1;....dx1=dx*cz-dy*sz;..dy1=dx*s |
36d00 | 7a 2b 64 79 2a 63 7a 3b 0d 0a 64 79 33 3d 64 79 31 2a 63 78 2d 64 7a 2a 73 78 3b 0d 0a 64 7a 32 | z+dy*cz;..dy3=dy1*cx-dz*sx;..dz2 |
36d20 | 3d 64 79 31 2a 73 78 2b 64 7a 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 79 2d 64 7a 32 2a 73 | =dy1*sx+dz*cx;..dx3=dx1*cy-dz2*s |
36d40 | 79 3b 0d 0a 64 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d 0a 0d 0a 6b 3d 28 2d 6f 79 | y;..dz3=dx1*sy+dz2*cy;....k=(-oy |
36d60 | 29 2f 28 2d 64 79 33 29 3b 0d 0a 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 2c 30 29 2c 31 30 30 2c 6b | )/(-dy3);..k=if(below(k,0),100,k |
36d80 | 29 3b 0d 0a 0d 0a 78 31 3d 6b 2a 64 78 33 2b 6f 78 3b 0d 0a 79 31 3d 6b 2a 64 79 33 2b 6f 79 3b | );....x1=k*dx3+ox;..y1=k*dy3+oy; |
36da0 | 0d 0a 7a 31 3d 6b 2a 64 7a 33 2b 6f 7a 3b 0d 0a 0d 0a 78 3d 78 31 2b 31 3b 0d 0a 79 3d 2d 7a 31 | ..z1=k*dz3+oz;....x=x1+1;..y=-z1 |
36dc0 | 2b 31 3b 0d 0a 0d 0a 61 6c 70 68 61 20 3d 2e 31 38 2a 6b 2a 61 62 6f 76 65 28 79 31 2c 2d 31 30 | +1;....alpha.=.18*k*above(y1,-10 |
36de0 | 30 30 30 29 00 b1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | 000).....t=t+1;deltatime.=.getti |
36e00 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
36e20 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
36e40 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
36e60 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
36e80 | 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 | ouse(2);inbounds=below(abs(xmous |
36ea0 | 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 6c 6d 6f 75 73 | e),1)&below(abs(ymouse),1);lmous |
36ec0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
36ee0 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
36f00 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
36f20 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
36f40 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
36f60 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
36f80 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
36fa0 | 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f | sizechange=bnot(equal(oh,h))|bno |
36fc0 | 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b | t(equal(ow,w));oh=h;ow=w;hw=h/w; |
36fe0 | 0d 0a 72 65 67 33 33 3d 66 72 61 6d 65 72 61 74 65 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 0d 0a 6f | ..reg33=framerate;..ox=reg00;..o |
37000 | 79 3d 72 65 67 30 31 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 0d 0a 0d 0a 78 72 6f 74 3d 72 65 67 30 | y=reg01;..oz=reg02;....xrot=reg0 |
37020 | 33 3b 0d 0a 79 72 6f 74 3d 72 65 67 30 34 3b 0d 0a 7a 72 6f 74 3d 72 65 67 30 35 3b 0d 0a 0d 0a | 3;..yrot=reg04;..zrot=reg05;.... |
37040 | 73 78 3d 73 69 6e 28 78 72 6f 74 29 3b 73 79 3d 73 69 6e 28 79 72 6f 74 29 3b 73 7a 3d 73 69 6e | sx=sin(xrot);sy=sin(yrot);sz=sin |
37060 | 28 7a 72 6f 74 29 3b 0d 0a 63 78 3d 63 6f 73 28 78 72 6f 74 29 3b 63 79 3d 63 6f 73 28 79 72 6f | (zrot);..cx=cos(xrot);cy=cos(yro |
37080 | 74 29 3b 63 7a 3d 63 6f 73 28 7a 72 6f 74 29 3b 20 69 68 77 3d 31 2f 68 77 00 00 00 00 00 07 00 | t);cz=cos(zrot);.ihw=1/hw....... |
370a0 | 00 00 70 69 3d 24 70 69 00 00 00 00 00 00 00 00 00 04 00 00 00 18 00 00 00 00 00 00 00 00 00 00 | ..pi=$pi........................ |
370c0 | 00 00 00 00 00 01 00 00 00 fe ff ff ff dc 98 00 00 81 01 00 02 24 80 00 00 00 80 00 00 00 00 00 | .....................$.......... |
370e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e | .......................@..AVS.2. |
37100 | 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 0c 00 00 00 00 00 | 8+.Effect.List.Config........... |
37120 | 00 00 00 00 00 00 00 00 00 00 28 00 00 00 04 00 00 00 02 00 01 80 24 00 00 00 84 04 00 00 01 94 | ..........(...........$......... |
37140 | 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 | ...dy=abs(getosc(asin(sin(i*$pi) |
37160 | 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a 32 3b 0d 0a 64 78 3d 31 30 2a 73 69 | )/$pi,.1,alt*.5)*1)*2;..dx=10*si |
37180 | 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 | n(i*2*$pi);..dz=-10*cos(i*2*$pi) |
371a0 | 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a | ;....dy=dy-oy;dx=-dx+ox;dz=dz-oz |
371c0 | 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 | ;..dx1=dx*cy-dz*sy;..dz1=dx*sy+d |
371e0 | 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 | z*cy;..dy2=dy*cx-dz1*sx;..dz2=dy |
37200 | 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d | *sx+dz1*cx;..dx3=dx1*cz-dy2*sz;. |
37220 | 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 | .dy3=dx1*sz+dy2*cz;....dz3=max(d |
37240 | 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 | z2,.01);..x=-(dx3)/dz3*hw;..y=-( |
37260 | 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d | dy3)/dz3;..skip=equal(dz3,.01);. |
37280 | 0a 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 2a 2e 36 | ...c=drawmode-dz3*.18;..red=c*.6 |
372a0 | 36 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 36 36 3b 0d 0a 62 6c 75 65 3d 63 2a 2e 36 36 3b 0d 0a 0d | 6;..green=c*.66;..blue=c*.66;... |
372c0 | 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 | .num=num+1;..sw=-sw;.......t=t+1 |
372e0 | 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 | ;deltatime.=.gettime(time);fr=fr |
37300 | 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b | *.9+deltatime*.1;framerate=1/fr; |
37320 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 | time.=.gettime(0);tb.=.tb+1;time |
37340 | 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | b.=.gettime(gt);xmouse=getkbmous |
37360 | 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 | e(1);ymouse=getkbmouse(2);xmouse |
37380 | 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d | c=min(max(xmouse,-1),1);ymousec= |
373a0 | 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | min(max(ymouse,-1),1);lmouse.=.g |
373c0 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
373e0 | 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f | (4);shift.=.getkbmouse(5);contro |
37400 | 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 | l.=.getkbmouse(17);backspace.=.g |
37420 | 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(8);space.=.getkbmouse( |
37440 | 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 | 32);right.=.getkbmouse(39);left. |
37460 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | =.getkbmouse(37);up.=.getkbmouse |
37480 | 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d | (38);down.=.getkbmouse(40);num.= |
374a0 | 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | .1;sw.=.1;sizechange=bnot(equal( |
374c0 | 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 | oh,h))|bnot(equal(ow,w));oh=h;ow |
374e0 | 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c | =w;hw=h/w;....n=sqrt(h*w)*.5;..l |
37500 | 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d | inesize=1;..ox=reg00;.rx=reg03;. |
37520 | 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 | .oy=reg01;.ry=reg04;..oz=reg02;. |
37540 | 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 | rz=-reg05;..sx=sin(rx);sy=sin(ry |
37560 | 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 | );sz=sin(rz);..cx=cos(rx);cy=cos |
37580 | 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 | (ry);cz=cos(rz);.......tb=0;..gt |
375a0 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | .=.gettime(0)................... |
375c0 | 00 00 24 00 00 00 84 04 00 00 01 94 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 | ..$............dy=abs(getosc(asi |
375e0 | 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a | n(sin(i*$pi))/$pi,.1,alt*.5)*1)* |
37600 | 33 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a | 3;..dx=10*sin(i*2*$pi);..dz=-10* |
37620 | 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 | cos(i*2*$pi);....dy=dy-oy;dx=-dx |
37640 | 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d | +ox;dz=dz-oz;..dx1=dx*cy-dz*sy;. |
37660 | 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 | .dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1 |
37680 | 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 | *sx;..dz2=dy*sx+dz1*cx;..dx3=dx1 |
376a0 | 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d | *cz-dy2*sz;..dy3=dx1*sz+dy2*cz;. |
376c0 | 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 | ...dz3=max(dz2,.01);..x=-(dx3)/d |
376e0 | 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 | z3*hw;..y=-(dy3)/dz3;..skip=equa |
37700 | 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 | l(dz3,.01);....c=drawmode-dz3*.1 |
37720 | 38 3b 0d 0a 72 65 64 3d 63 2a 2e 33 33 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 33 33 3b 0d 0a 62 6c | 8;..red=c*.33;..green=c*.33;..bl |
37740 | 75 65 3d 63 2a 2e 33 33 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | ue=c*.33;....num=num+1;..sw=-sw; |
37760 | 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
37780 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
377a0 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
377c0 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
377e0 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
37800 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
37820 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
37840 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
37860 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
37880 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
378a0 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
378c0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
378e0 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
37900 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
37920 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
37940 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
37960 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 | ,w));oh=h;ow=w;hw=h/w;....n=sqrt |
37980 | 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 | (h*w)*.5;..linesize=1;..ox=reg00 |
379a0 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
379c0 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
379e0 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
37a00 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 | s(rx);cy=cos(ry);cz=cos(rz);.... |
37a20 | 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 | ...tb=0;..gt.=.gettime(0)....... |
37a40 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 76 04 00 00 01 86 01 00 00 64 79 3d 61 62 | ..............$...v........dy=ab |
37a60 | 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 | s(getosc(asin(sin(i*$pi))/$pi,.1 |
37a80 | 2c 61 6c 74 2a 2e 35 29 2a 31 29 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 | ,alt*.5)*1);..dx=10*sin(i*2*$pi) |
37aa0 | 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 | ;..dz=-10*cos(i*2*$pi);....dy=dy |
37ac0 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
37ae0 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
37b00 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
37b20 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
37b40 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
37b60 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
37b80 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d | .skip=equal(dz3,.01);....c=drawm |
37ba0 | 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | ode-dz3*.18;..red=c;..green=c;.. |
37bc0 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a | blue=c;....num=num+1;..sw=-sw;.. |
37be0 | 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
37c00 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
37c20 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
37c40 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
37c60 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
37c80 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
37ca0 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
37cc0 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
37ce0 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
37d00 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
37d20 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
37d40 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
37d60 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
37d80 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
37da0 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
37dc0 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
37de0 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 | ));oh=h;ow=w;hw=h/w;....n=sqrt(h |
37e00 | 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | *w)*.5;..linesize=1;..ox=reg00;. |
37e20 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
37e40 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
37e60 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
37e80 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 | rx);cy=cos(ry);cz=cos(rz);...... |
37ea0 | 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 | .tb=0;..gt.=.gettime(0)......... |
37ec0 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4a 04 00 00 01 5a 01 00 00 64 79 3d 30 3b 0d 0a | ............$...J....Z...dy=0;.. |
37ee0 | 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 | dx=10*sin(i*2*$pi);..dz=-10*cos( |
37f00 | 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b | i*2*$pi);....dy=dy-oy;dx=-dx+ox; |
37f20 | 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 | dz=dz-oz;..dx1=dx*cy-dz*sy;..dz1 |
37f40 | 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b | =dx*sy+dz*cy;..dy2=dy*cx-dz1*sx; |
37f60 | 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d | ..dz2=dy*sx+dz1*cx;..dx3=dx1*cz- |
37f80 | 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 | dy2*sz;..dy3=dx1*sz+dy2*cz;....d |
37fa0 | 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 | z3=max(dz2,.01);..x=-(dx3)/dz3*h |
37fc0 | 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a | w;..y=-(dy3)/dz3;..skip=equal(dz |
37fe0 | 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a | 3,.01);....c=drawmode-dz3*.18;.. |
38000 | 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6e 75 6d | red=c;..green=c;..blue=c;....num |
38020 | 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c | =num+1;..sw=-sw;.......t=t+1;del |
38040 | 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b | tatime.=.gettime(time);fr=fr*.9+ |
38060 | 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 | deltatime*.1;framerate=1/fr;time |
38080 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 | .=.gettime(0);tb.=.tb+1;timeb.=. |
380a0 | 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 | gettime(gt);xmouse=getkbmouse(1) |
380c0 | 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 | ;ymouse=getkbmouse(2);xmousec=mi |
380e0 | 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 | n(max(xmouse,-1),1);ymousec=min( |
38100 | 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | max(ymouse,-1),1);lmouse.=.getkb |
38120 | 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b | mouse(3);rmouse.=.getkbmouse(4); |
38140 | 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 | shift.=.getkbmouse(5);control.=. |
38160 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | getkbmouse(17);backspace.=.getkb |
38180 | 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b | mouse(8);space.=.getkbmouse(32); |
381a0 | 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 | right.=.getkbmouse(39);left.=.ge |
381c0 | 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 | tkbmouse(37);up.=.getkbmouse(38) |
381e0 | 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 | ;down.=.getkbmouse(40);num.=.1;s |
38200 | 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | w.=.1;sizechange=bnot(equal(oh,h |
38220 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
38240 | 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 | w=h/w;....n=sqrt(h*w)*.5;..lines |
38260 | 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | ize=1;..ox=reg00;.rx=reg03;..oy= |
38280 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
382a0 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
382c0 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
382e0 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | ;cz=cos(rz);.......tb=0;..gt.=.g |
38300 | 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 | ettime(0).....................$. |
38320 | 00 00 58 04 00 00 01 74 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 2e 35 2a 73 69 6e 28 69 2a 32 2a | ..X....t...dy=0;..dx=.5*sin(i*2* |
38340 | 24 70 69 29 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 2e 35 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 2b | $pi)+reg76;..dz=.5*cos(i*2*$pi)+ |
38360 | 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d | reg77;....dy=dy-oy;dx=-dx+ox;dz= |
38380 | 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 | dz-oz;..dx1=dx*cy-dz*sy;..dz1=dx |
383a0 | 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 | *sy+dz*cy;..dy2=dy*cx-dz1*sx;..d |
383c0 | 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 | z2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2 |
383e0 | 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d | *sz;..dy3=dx1*sz+dy2*cz;....dz3= |
38400 | 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d | max(dz2,.01);..x=-(dx3)/dz3*hw;. |
38420 | 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e | .y=-(dy3)/dz3;..skip=equal(dz3,. |
38440 | 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 | 01);....c=1-dz3*.18;..red=c;..gr |
38460 | 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a | een=c;..blue=c;....linesize=4-dz |
38480 | 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 ac | 3*.5;....num=num+1;..sw=-sw;.... |
384a0 | 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d | ...t=t+1;deltatime.=.gettime(tim |
384c0 | 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 | e);fr=fr*.9+deltatime*.1;framera |
384e0 | 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 | te=1/fr;time.=.gettime(0);tb.=.t |
38500 | 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 | b+1;timeb.=.gettime(gt);xmouse=g |
38520 | 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 | etkbmouse(1);ymouse=getkbmouse(2 |
38540 | 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );xmousec=min(max(xmouse,-1),1); |
38560 | 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d | ymousec=min(max(ymouse,-1),1);lm |
38580 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 | ouse.=.getkbmouse(3);rmouse.=.ge |
385a0 | 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 | tkbmouse(4);shift.=.getkbmouse(5 |
385c0 | 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 | );control.=.getkbmouse(17);backs |
385e0 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 | pace.=.getkbmouse(8);space.=.get |
38600 | 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | kbmouse(32);right.=.getkbmouse(3 |
38620 | 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 | 9);left.=.getkbmouse(37);up.=.ge |
38640 | 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | tkbmouse(38);down.=.getkbmouse(4 |
38660 | 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f | 0);num.=.1;sw.=.1;sizechange=bno |
38680 | 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 | t(equal(oh,h))|bnot(equal(ow,w)) |
386a0 | 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 | ;oh=h;ow=w;hw=h/w;....n=sqrt(h*w |
386c0 | 29 2a 2e 31 35 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | )*.15;..ox=reg00;.rx=reg03;..oy= |
386e0 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
38700 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
38720 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
38740 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | ;cz=cos(rz);.......tb=0;..gt.=.g |
38760 | 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 | ettime(0).....................$. |
38780 | 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 | ...........dy=0;..dx=gmegabuf(10 |
387a0 | 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | 0*num+1+flo*6);..dz=gmegabuf(100 |
387c0 | 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 | *num+2+flo*6);....dy=dy-oy;dx=-d |
387e0 | 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b | x+ox;dz=dz-oz;..dx1=dx*cy-dz*sy; |
38800 | 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a | ..dz1=dx*sy+dz*cy;..dy2=dy*cx-dz |
38820 | 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 | 1*sx;..dz2=dy*sx+dz1*cx;..dx3=dx |
38840 | 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b | 1*cz-dy2*sz;..dy3=dx1*sz+dy2*cz; |
38860 | 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f | ....dz3=max(dz2,.01);..x=-(dx3)/ |
38880 | 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 | dz3*hw;..y=-(dy3)/dz3;..skip=equ |
388a0 | 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 | al(dz3,.01);....drawmode=gmegabu |
388c0 | 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d | f(100*num+3+flo*6);..c=drawmode- |
388e0 | 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 | dz3*.18;..red=c;..green=c;..blue |
38900 | 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d | =c;....linesize=4-dz3*.5;....num |
38920 | 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c | =num+1;..sw=-sw;.......t=t+1;del |
38940 | 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b | tatime.=.gettime(time);fr=fr*.9+ |
38960 | 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 | deltatime*.1;framerate=1/fr;time |
38980 | 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 | .=.gettime(0);tb.=.tb+1;timeb.=. |
389a0 | 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 | gettime(gt);xmouse=getkbmouse(1) |
389c0 | 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 | ;ymouse=getkbmouse(2);xmousec=mi |
389e0 | 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 | n(max(xmouse,-1),1);ymousec=min( |
38a00 | 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | max(ymouse,-1),1);lmouse.=.getkb |
38a20 | 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b | mouse(3);rmouse.=.getkbmouse(4); |
38a40 | 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 | shift.=.getkbmouse(5);control.=. |
38a60 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | getkbmouse(17);backspace.=.getkb |
38a80 | 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b | mouse(8);space.=.getkbmouse(32); |
38aa0 | 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 | right.=.getkbmouse(39);left.=.ge |
38ac0 | 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 | tkbmouse(37);up.=.getkbmouse(38) |
38ae0 | 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 | ;down.=.getkbmouse(40);num.=.1;s |
38b00 | 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 | w.=.1;sizechange=bnot(equal(oh,h |
38b20 | 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 | ))|bnot(equal(ow,w));oh=h;ow=w;h |
38b40 | 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | w=h/w;....n=reg81;....ox=reg00;. |
38b60 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
38b80 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
38ba0 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
38bc0 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 | rx);cy=cos(ry);cz=cos(rz);...... |
38be0 | 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d | .tb=0;..gt.=.gettime(0).....flo= |
38c00 | 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 4d 04 00 00 01 67 01 00 00 64 | 1.................$...M....g...d |
38c20 | 79 3d 30 3b 0d 0a 64 78 3d 28 2d 69 2a 2e 35 2b 2e 35 29 2a 2e 35 2b 72 65 67 37 36 3b 0d 0a 64 | y=0;..dx=(-i*.5+.5)*.5+reg76;..d |
38c40 | 7a 3d 69 2a 2e 35 2b 72 65 67 37 37 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 | z=i*.5+reg77;....dy=dy-oy;dx=-dx |
38c60 | 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d | +ox;dz=dz-oz;..dx1=dx*cy-dz*sy;. |
38c80 | 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 | .dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1 |
38ca0 | 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 | *sx;..dz2=dy*sx+dz1*cx;..dx3=dx1 |
38cc0 | 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d | *cz-dy2*sz;..dy3=dx1*sz+dy2*cz;. |
38ce0 | 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 | ...dz3=max(dz2,.01);..x=-(dx3)/d |
38d00 | 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 | z3*hw;..y=-(dy3)/dz3;..skip=equa |
38d20 | 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 | l(dz3,.01);....c=1-dz3*.18;..red |
38d40 | 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 | =c;..green=c;..blue=c;....linesi |
38d60 | 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d | ze=4-dz3*.5;....num=num+1;..sw=- |
38d80 | 73 77 3b 0d 0a 00 ae 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 | sw;.......t=t+1;deltatime.=.gett |
38da0 | 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b | ime(time);fr=fr*.9+deltatime*.1; |
38dc0 | 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | framerate=1/fr;time.=.gettime(0) |
38de0 | 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 | ;tb.=.tb+1;timeb.=.gettime(gt);x |
38e00 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 | mouse=getkbmouse(1);ymouse=getkb |
38e20 | 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c | mouse(2);xmousec=min(max(xmouse, |
38e40 | 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 | -1),1);ymousec=min(max(ymouse,-1 |
38e60 | 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 | ),1);lmouse.=.getkbmouse(3);rmou |
38e80 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 | se.=.getkbmouse(4);shift.=.getkb |
38ea0 | 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 | mouse(5);control.=.getkbmouse(17 |
38ec0 | 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 | );backspace.=.getkbmouse(8);spac |
38ee0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(32);right.=.getkb |
38f00 | 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b | mouse(39);left.=.getkbmouse(37); |
38f20 | 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 | up.=.getkbmouse(38);down.=.getkb |
38f40 | 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 | mouse(40);num.=.1;sw.=.1;sizecha |
38f60 | 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c | nge=bnot(equal(oh,h))|bnot(equal |
38f80 | 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 | (ow,w));oh=h;ow=w;hw=h/w;....n=s |
38fa0 | 71 72 74 28 68 2a 77 29 2a 2e 30 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | qrt(h*w)*.05;....ox=reg00;.rx=re |
38fc0 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
38fe0 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
39000 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
39020 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
39040 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff | ;..gt.=.gettime(0).............. |
39060 | ff ff 00 01 00 00 00 24 00 00 00 4c 04 00 00 01 66 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 28 69 | .......$...L....f...dy=0;..dx=(i |
39080 | 2a 2e 35 2d 2e 35 29 2a 2e 35 2b 72 65 67 37 36 3b 0d 0a 64 7a 3d 69 2a 2e 35 2b 72 65 67 37 37 | *.5-.5)*.5+reg76;..dz=i*.5+reg77 |
390a0 | 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a | ;....dy=dy-oy;dx=-dx+ox;dz=dz-oz |
390c0 | 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 | ;..dx1=dx*cy-dz*sy;..dz1=dx*sy+d |
390e0 | 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 | z*cy;..dy2=dy*cx-dz1*sx;..dz2=dy |
39100 | 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d | *sx+dz1*cx;..dx3=dx1*cz-dy2*sz;. |
39120 | 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 | .dy3=dx1*sz+dy2*cz;....dz3=max(d |
39140 | 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 | z2,.01);..x=-(dx3)/dz3*hw;..y=-( |
39160 | 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d | dy3)/dz3;..skip=equal(dz3,.01);. |
39180 | 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 | ...c=1-dz3*.18;..red=c;..green=c |
391a0 | 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b | ;..blue=c;....linesize=4-dz3*.5; |
391c0 | 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 ae 02 00 00 74 3d | ....num=num+1;..sw=-sw;.......t= |
391e0 | 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 | t+1;deltatime.=.gettime(time);fr |
39200 | 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f | =fr*.9+deltatime*.1;framerate=1/ |
39220 | 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 | fr;time.=.gettime(0);tb.=.tb+1;t |
39240 | 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | imeb.=.gettime(gt);xmouse=getkbm |
39260 | 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f | ouse(1);ymouse=getkbmouse(2);xmo |
39280 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 | usec=min(max(xmouse,-1),1);ymous |
392a0 | 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 | ec=min(max(ymouse,-1),1);lmouse. |
392c0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(3);rmouse.=.getkbmo |
392e0 | 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e | use(4);shift.=.getkbmouse(5);con |
39300 | 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 | trol.=.getkbmouse(17);backspace. |
39320 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(8);space.=.getkbmou |
39340 | 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 | se(32);right.=.getkbmouse(39);le |
39360 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f | ft.=.getkbmouse(37);up.=.getkbmo |
39380 | 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 | use(38);down.=.getkbmouse(40);nu |
393a0 | 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 | m.=.1;sw.=.1;sizechange=bnot(equ |
393c0 | 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 | al(oh,h))|bnot(equal(ow,w));oh=h |
393e0 | 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 30 35 | ;ow=w;hw=h/w;....n=sqrt(h*w)*.05 |
39400 | 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 | ;....ox=reg00;.rx=reg03;..oy=reg |
39420 | 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 | 01;.ry=reg04;..oz=reg02;.rz=-reg |
39440 | 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 | 05;..sx=sin(rx);sy=sin(ry);sz=si |
39460 | 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a | n(rz);..cx=cos(rx);cy=cos(ry);cz |
39480 | 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 | =cos(rz);.......tb=0;..gt.=.gett |
394a0 | 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c | ime(0).....................$.... |
394c0 | 04 00 00 01 a8 01 00 00 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | ........dy=1;..dx=gmegabuf(100*n |
394e0 | 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | um+1+flo*6);..dz=gmegabuf(100*nu |
39500 | 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f | m+2+flo*6);....dy=dy-oy;dx=-dx+o |
39520 | 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 | x;dz=dz-oz;..dx1=dx*cy-dz*sy;..d |
39540 | 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 | z1=dx*sy+dz*cy;..dy2=dy*cx-dz1*s |
39560 | 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 | x;..dz2=dy*sx+dz1*cx;..dx3=dx1*c |
39580 | 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d | z-dy2*sz;..dy3=dx1*sz+dy2*cz;... |
395a0 | 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 | .dz3=max(dz2,.01);..x=-(dx3)/dz3 |
395c0 | 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 | *hw;..y=-(dy3)/dz3;..skip=equal( |
395e0 | 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 | dz3,.01);....drawmode=gmegabuf(1 |
39600 | 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 | 00*num+3+flo*6);..c=drawmode-dz3 |
39620 | 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b | *.18;..red=c;..green=c;..blue=c; |
39640 | 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 | ....linesize=4-dz3*.5;....num=nu |
39660 | 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 | m+1;..sw=-sw;.......t=t+1;deltat |
39680 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c | ime.=.gettime(time);fr=fr*.9+del |
396a0 | 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 | tatime*.1;framerate=1/fr;time.=. |
396c0 | 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 | gettime(0);tb.=.tb+1;timeb.=.get |
396e0 | 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d | time(gt);xmouse=getkbmouse(1);ym |
39700 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d | ouse=getkbmouse(2);xmousec=min(m |
39720 | 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | ax(xmouse,-1),1);ymousec=min(max |
39740 | 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | (ymouse,-1),1);lmouse.=.getkbmou |
39760 | 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 | se(3);rmouse.=.getkbmouse(4);shi |
39780 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 | ft.=.getkbmouse(5);control.=.get |
397a0 | 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | kbmouse(17);backspace.=.getkbmou |
397c0 | 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 | se(8);space.=.getkbmouse(32);rig |
397e0 | 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 | ht.=.getkbmouse(39);left.=.getkb |
39800 | 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f | mouse(37);up.=.getkbmouse(38);do |
39820 | 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d | wn.=.getkbmouse(40);num.=.1;sw.= |
39840 | 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c | .1;sizechange=bnot(equal(oh,h))| |
39860 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 | bnot(equal(ow,w));oh=h;ow=w;hw=h |
39880 | 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d | /w;....n=reg81;....ox=reg00;.rx= |
398a0 | 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d | reg03;..oy=reg01;.ry=reg04;..oz= |
398c0 | 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 | reg02;.rz=-reg05;..sx=sin(rx);sy |
398e0 | 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 | =sin(ry);sz=sin(rz);..cx=cos(rx) |
39900 | 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 | ;cy=cos(ry);cz=cos(rz);.......tb |
39920 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 | =0;..gt.=.gettime(0).....flo=1.. |
39940 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 f9 05 00 00 01 0b 03 00 00 64 79 3d 2e | ...............$............dy=. |
39960 | 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b | 5+sw*.5;..dx=gmegabuf(100*num+1+ |
39980 | 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 | flo*6);..dz=gmegabuf(100*num+2+f |
399a0 | 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d | lo*6);..dxa=dx;dza=dz;....dy=dy- |
399c0 | 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 | oy;dx=-dx+ox;dz=dz-oz;..dx1=dx*c |
399e0 | 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d | y-dz*sy;..dz1=dx*sy+dz*cy;..dy2= |
39a00 | 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b | dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx; |
39a20 | 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a | ..dx3=dx1*cz-dy2*sz;..dy3=dx1*sz |
39a40 | 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 | +dy2*cz;....dz3=max(dz2,.01);..x |
39a60 | 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | =-(dx3)/dz3*hw;..y=-(dy3)/dz3;.. |
39a80 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 | skip=equal(dz3,.01);....ogx=gmeg |
39aa0 | 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d | abuf(100*(num-1)+1+flo*6);..ogz= |
39ac0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | gmegabuf(100*(num-1)+2+flo*6);.. |
39ae0 | 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 | ngx=gmegabuf(100*(num+1)+1+flo*6 |
39b00 | 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 | );..ngz=gmegabuf(100*(num+1)+2+f |
39b20 | 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 | lo*6);....ang1=atan2(dxa-ogx,dza |
39b40 | 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 | -ogz);..ang2=atan2(-dxa+ngx,-dza |
39b60 | 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e | +ngz);..corner=bnot(below(abs(an |
39b80 | 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 | g1-ang2),.1));....drawmode=gmega |
39ba0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 | buf(100*num+3+flo*6);..c=drawmod |
39bc0 | 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a | e*equal(add,1)*corner-dz3*.18;.. |
39be0 | 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e | red=c;..green=c;..blue=c;....lin |
39c00 | 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 | esize=4-dz3*.5;....add=add+1;..i |
39c20 | 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 | f(equal(add,2),assign(add,0)+ass |
39c40 | 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 | ign(num,num+1),0);..sw=-sw;..reg |
39c60 | 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 | 99=10;.....t=t+1;deltatime.=.get |
39c80 | 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 | time(time);fr=fr*.9+deltatime*.1 |
39ca0 | 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 | ;framerate=1/fr;time.=.gettime(0 |
39cc0 | 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b | );tb.=.tb+1;timeb.=.gettime(gt); |
39ce0 | 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b | xmouse=getkbmouse(1);ymouse=getk |
39d00 | 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 | bmouse(2);xmousec=min(max(xmouse |
39d20 | 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d | ,-1),1);ymousec=min(max(ymouse,- |
39d40 | 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f | 1),1);lmouse.=.getkbmouse(3);rmo |
39d60 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b | use.=.getkbmouse(4);shift.=.getk |
39d80 | 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 | bmouse(5);control.=.getkbmouse(1 |
39da0 | 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 | 7);backspace.=.getkbmouse(8);spa |
39dc0 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b | ce.=.getkbmouse(32);right.=.getk |
39de0 | 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 | bmouse(39);left.=.getkbmouse(37) |
39e00 | 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b | ;up.=.getkbmouse(38);down.=.getk |
39e20 | 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 | bmouse(40);num.=.1;sw.=.1;sizech |
39e40 | 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 | ange=bnot(equal(oh,h))|bnot(equa |
39e60 | 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d | l(ow,w));oh=h;ow=w;hw=h/w;....n= |
39e80 | 72 65 67 38 31 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d | reg81*2;....ox=reg00;.rx=reg03;. |
39ea0 | 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 | .oy=reg01;.ry=reg04;..oz=reg02;. |
39ec0 | 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 | rz=-reg05;..sx=sin(rx);sy=sin(ry |
39ee0 | 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 | );sz=sin(rz);..cx=cos(rx);cy=cos |
39f00 | 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 | (ry);cz=cos(rz);....add=0;.....t |
39f20 | 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 | b=0;..gt.=.gettime(0).....flo=1. |
39f40 | 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d | ................$............dy= |
39f60 | 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 | 2;..dx=gmegabuf(100*num+1+flo*6) |
39f80 | 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b | ;..dz=gmegabuf(100*num+2+flo*6); |
39fa0 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
39fc0 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
39fe0 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
3a000 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
3a020 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
3a040 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
3a060 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
3a080 | 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c | ..drawmode=gmegabuf(100*num+3+fl |
3a0a0 | 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d | o*6);..c=drawmode-dz3*.18;..red= |
3a0c0 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
3a0e0 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 | e=4-dz3*.5;....num=num+1;..sw=-s |
3a100 | 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 | w;.......t=t+1;deltatime.=.getti |
3a120 | 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 | me(time);fr=fr*.9+deltatime*.1;f |
3a140 | 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b | ramerate=1/fr;time.=.gettime(0); |
3a160 | 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d | tb.=.tb+1;timeb.=.gettime(gt);xm |
3a180 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | ouse=getkbmouse(1);ymouse=getkbm |
3a1a0 | 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d | ouse(2);xmousec=min(max(xmouse,- |
3a1c0 | 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 | 1),1);ymousec=min(max(ymouse,-1) |
3a1e0 | 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 | ,1);lmouse.=.getkbmouse(3);rmous |
3a200 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(4);shift.=.getkbm |
3a220 | 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 | ouse(5);control.=.getkbmouse(17) |
3a240 | 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 | ;backspace.=.getkbmouse(8);space |
3a260 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(32);right.=.getkbm |
3a280 | 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 | ouse(39);left.=.getkbmouse(37);u |
3a2a0 | 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d | p.=.getkbmouse(38);down.=.getkbm |
3a2c0 | 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e | ouse(40);num.=.1;sw.=.1;sizechan |
3a2e0 | 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 | ge=bnot(equal(oh,h))|bnot(equal( |
3a300 | 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 | ow,w));oh=h;ow=w;hw=h/w;....n=re |
3a320 | 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | g82;....ox=reg00;.rx=reg03;..oy= |
3a340 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
3a360 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
3a380 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
3a3a0 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | ;cz=cos(rz);.......tb=0;..gt.=.g |
3a3c0 | 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ettime(0).....flo=2............. |
3a3e0 | 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 | ....$............dy=1;..dx=gmega |
3a400 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 | buf(100*num+1+flo*6);..dz=gmegab |
3a420 | 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 | uf(100*num+2+flo*6);....dy=dy-oy |
3a440 | 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d | ;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy- |
3a460 | 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 | dz*sy;..dz1=dx*sy+dz*cy;..dy2=dy |
3a480 | 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a | *cx-dz1*sx;..dz2=dy*sx+dz1*cx;.. |
3a4a0 | 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 | dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+d |
3a4c0 | 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d | y2*cz;....dz3=max(dz2,.01);..x=- |
3a4e0 | 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b | (dx3)/dz3*hw;..y=-(dy3)/dz3;..sk |
3a500 | 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 | ip=equal(dz3,.01);....drawmode=g |
3a520 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 | megabuf(100*num+3+flo*6);..c=dra |
3a540 | 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b | wmode-dz3*.18;..red=c;..green=c; |
3a560 | 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d | ..blue=c;....linesize=4-dz3*.5;. |
3a580 | 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 | ...num=num+1;..sw=-sw;.......t=t |
3a5a0 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
3a5c0 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
3a5e0 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
3a600 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
3a620 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
3a640 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
3a660 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
3a680 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
3a6a0 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
3a6c0 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
3a6e0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
3a700 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
3a720 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
3a740 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
3a760 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
3a780 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
3a7a0 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 | ow=w;hw=h/w;....n=reg82;....ox=r |
3a7c0 | 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 | eg00;.rx=reg03;..oy=reg01;.ry=re |
3a7e0 | 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 | g04;..oz=reg02;.rz=-reg05;..sx=s |
3a800 | 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 | in(rx);sy=sin(ry);sz=sin(rz);..c |
3a820 | 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b | x=cos(rx);cy=cos(ry);cz=cos(rz); |
3a840 | 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 | .......tb=0;..gt.=.gettime(0)... |
3a860 | 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 | ..flo=2.................$....... |
3a880 | 01 0c 03 00 00 64 79 3d 31 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 | .....dy=1.5+sw*.5;..dx=gmegabuf( |
3a8a0 | 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 | 100*num+1+flo*6);..dz=gmegabuf(1 |
3a8c0 | 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b | 00*num+2+flo*6);..dxa=dx;dza=dz; |
3a8e0 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
3a900 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
3a920 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
3a940 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
3a960 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
3a980 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
3a9a0 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
3a9c0 | 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f | ..ogx=gmegabuf(100*(num-1)+1+flo |
3a9e0 | 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 | *6);..ogz=gmegabuf(100*(num-1)+2 |
3aa00 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b | +flo*6);..ngx=gmegabuf(100*(num+ |
3aa20 | 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | 1)+1+flo*6);..ngz=gmegabuf(100*( |
3aa40 | 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 | num+1)+2+flo*6);....ang1=atan2(d |
3aa60 | 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 | xa-ogx,dza-ogz);..ang2=atan2(-dx |
3aa80 | 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 | a+ngx,-dza+ngz);..corner=bnot(be |
3aaa0 | 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 | low(abs(ang1-ang2),.1));....draw |
3aac0 | 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d | mode=gmegabuf(100*num+3+flo*6);. |
3aae0 | 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d | .c=drawmode*equal(add,1)*corner- |
3ab00 | 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 | dz3*.18;..red=c;..green=c;..blue |
3ab20 | 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 | =c;....linesize=4-dz3*.5;....add |
3ab40 | 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 | =add+1;..if(equal(add,2),assign( |
3ab60 | 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 | add,0)+assign(num,num+1),0);..sw |
3ab80 | 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | =-sw;..reg99=10;.....t=t+1;delta |
3aba0 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
3abc0 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
3abe0 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
3ac00 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
3ac20 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
3ac40 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
3ac60 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
3ac80 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
3aca0 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
3acc0 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
3ace0 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
3ad00 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
3ad20 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
3ad40 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
3ad60 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
3ad80 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
3ada0 | 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | h/w;....n=reg82*2;....ox=reg00;. |
3adc0 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
3ade0 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
3ae00 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
3ae20 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 | rx);cy=cos(ry);cz=cos(rz);....ad |
3ae40 | 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 | d=0;.....tb=0;..gt.=.gettime(0). |
3ae60 | 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 9b 04 | ....flo=2.................$..... |
3ae80 | 00 00 01 a8 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | .......dy=2;..dx=gmegabuf(100*nu |
3aea0 | 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | m+1+flo*6);..dz=gmegabuf(100*num |
3aec0 | 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | +2+flo*6);....dy=dy-oy;dx=-dx+ox |
3aee0 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
3af00 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
3af20 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
3af40 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
3af60 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
3af80 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
3afa0 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 | z3,.01);....drawmode=gmegabuf(10 |
3afc0 | 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a | 0*num+3+flo*6);..c=drawmode-dz3* |
3afe0 | 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d | .18;..red=c;..green=c;..blue=c;. |
3b000 | 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d | ...linesize=4-dz3*.5;....num=num |
3b020 | 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b5 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | +1;..sw=-sw;.......t=t+1;deltati |
3b040 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
3b060 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
3b080 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
3b0a0 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
3b0c0 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
3b0e0 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
3b100 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
3b120 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
3b140 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
3b160 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
3b180 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
3b1a0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
3b1c0 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
3b1e0 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
3b200 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
3b220 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
3b240 | 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 | w;....n=reg83;....ox=reg00;.rx=r |
3b260 | 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 | eg03;..oy=reg01;.ry=reg04;..oz=r |
3b280 | 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 67 6c 69 74 63 68 3d 62 69 74 63 68 3b 0d | eg02;.rz=-reg05;..glitch=bitch;. |
3b2a0 | 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a | .sx=sin(rx);sy=sin(ry);sz=sin(rz |
3b2c0 | 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 | );..cx=cos(rx);cy=cos(ry);cz=cos |
3b2e0 | 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 | (rz);.......tb=0;..gt.=.gettime( |
3b300 | 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 | 0).....flo=3.................$.. |
3b320 | 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | ..........dy=3;..dx=gmegabuf(100 |
3b340 | 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | *num+1+flo*6);..dz=gmegabuf(100* |
3b360 | 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 | num+2+flo*6);....dy=dy-oy;dx=-dx |
3b380 | 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d | +ox;dz=dz-oz;..dx1=dx*cy-dz*sy;. |
3b3a0 | 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 | .dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1 |
3b3c0 | 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 | *sx;..dz2=dy*sx+dz1*cx;..dx3=dx1 |
3b3e0 | 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d | *cz-dy2*sz;..dy3=dx1*sz+dy2*cz;. |
3b400 | 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 | ...dz3=max(dz2,.01);..x=-(dx3)/d |
3b420 | 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 | z3*hw;..y=-(dy3)/dz3;..skip=equa |
3b440 | 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 | l(dz3,.01);....drawmode=gmegabuf |
3b460 | 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 | (100*num+3+flo*6);..c=drawmode-d |
3b480 | 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d | z3*.18;..red=c;..green=c;..blue= |
3b4a0 | 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d | c;....linesize=4-dz3*.5;....num= |
3b4c0 | 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 | num+1;..sw=-sw;.......t=t+1;delt |
3b4e0 | 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 | atime.=.gettime(time);fr=fr*.9+d |
3b500 | 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 | eltatime*.1;framerate=1/fr;time. |
3b520 | 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 | =.gettime(0);tb.=.tb+1;timeb.=.g |
3b540 | 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b | ettime(gt);xmouse=getkbmouse(1); |
3b560 | 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e | ymouse=getkbmouse(2);xmousec=min |
3b580 | 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d | (max(xmouse,-1),1);ymousec=min(m |
3b5a0 | 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | ax(ymouse,-1),1);lmouse.=.getkbm |
3b5c0 | 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 | ouse(3);rmouse.=.getkbmouse(4);s |
3b5e0 | 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 | hift.=.getkbmouse(5);control.=.g |
3b600 | 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | etkbmouse(17);backspace.=.getkbm |
3b620 | 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 | ouse(8);space.=.getkbmouse(32);r |
3b640 | 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 | ight.=.getkbmouse(39);left.=.get |
3b660 | 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b | kbmouse(37);up.=.getkbmouse(38); |
3b680 | 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 | down.=.getkbmouse(40);num.=.1;sw |
3b6a0 | 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 | .=.1;sizechange=bnot(equal(oh,h) |
3b6c0 | 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 | )|bnot(equal(ow,w));oh=h;ow=w;hw |
3b6e0 | 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 | =h/w;....n=reg83;....ox=reg00;.r |
3b700 | 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f | x=reg03;..oy=reg01;.ry=reg04;..o |
3b720 | 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b | z=reg02;.rz=-reg05;..sx=sin(rx); |
3b740 | 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 | sy=sin(ry);sz=sin(rz);..cx=cos(r |
3b760 | 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 | x);cy=cos(ry);cz=cos(rz);....... |
3b780 | 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 | tb=0;..gt.=.gettime(0).....flo=3 |
3b7a0 | 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 | .................$............dy |
3b7c0 | 3d 32 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | =2.5+sw*.5;..dx=gmegabuf(100*num |
3b7e0 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | +1+flo*6);..dz=gmegabuf(100*num+ |
3b800 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d | 2+flo*6);..dxa=dx;dza=dz;....dy= |
3b820 | 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 | dy-oy;dx=-dx+ox;dz=dz-oz;..dx1=d |
3b840 | 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 | x*cy-dz*sy;..dz1=dx*sy+dz*cy;..d |
3b860 | 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a | y2=dy*cx-dz1*sx;..dz2=dy*sx+dz1* |
3b880 | 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 | cx;..dx3=dx1*cz-dy2*sz;..dy3=dx1 |
3b8a0 | 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b | *sz+dy2*cz;....dz3=max(dz2,.01); |
3b8c0 | 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 | ..x=-(dx3)/dz3*hw;..y=-(dy3)/dz3 |
3b8e0 | 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 | ;..skip=equal(dz3,.01);....ogx=g |
3b900 | 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f | megabuf(100*(num-1)+1+flo*6);..o |
3b920 | 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 | gz=gmegabuf(100*(num-1)+2+flo*6) |
3b940 | 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c | ;..ngx=gmegabuf(100*(num+1)+1+fl |
3b960 | 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b | o*6);..ngz=gmegabuf(100*(num+1)+ |
3b980 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c | 2+flo*6);....ang1=atan2(dxa-ogx, |
3b9a0 | 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d | dza-ogz);..ang2=atan2(-dxa+ngx,- |
3b9c0 | 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 | dza+ngz);..corner=bnot(below(abs |
3b9e0 | 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d | (ang1-ang2),.1));....drawmode=gm |
3ba00 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 | egabuf(100*num+3+flo*6);..c=draw |
3ba20 | 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 | mode*equal(add,1)*corner-dz3*.18 |
3ba40 | 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a | ;..red=c;..green=c;..blue=c;.... |
3ba60 | 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b | linesize=4-dz3*.5;....add=add+1; |
3ba80 | 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b | ..if(equal(add,2),assign(add,0)+ |
3baa0 | 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a | assign(num,num+1),0);..sw=-sw;.. |
3bac0 | 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 | reg99=10;.....t=t+1;deltatime.=. |
3bae0 | 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 | gettime(time);fr=fr*.9+deltatime |
3bb00 | 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d | *.1;framerate=1/fr;time.=.gettim |
3bb20 | 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 | e(0);tb.=.tb+1;timeb.=.gettime(g |
3bb40 | 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 | t);xmouse=getkbmouse(1);ymouse=g |
3bb60 | 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f | etkbmouse(2);xmousec=min(max(xmo |
3bb80 | 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 | use,-1),1);ymousec=min(max(ymous |
3bba0 | 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b | e,-1),1);lmouse.=.getkbmouse(3); |
3bbc0 | 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 | rmouse.=.getkbmouse(4);shift.=.g |
3bbe0 | 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | etkbmouse(5);control.=.getkbmous |
3bc00 | 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b | e(17);backspace.=.getkbmouse(8); |
3bc20 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 | space.=.getkbmouse(32);right.=.g |
3bc40 | 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(39);left.=.getkbmouse( |
3bc60 | 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 | 37);up.=.getkbmouse(38);down.=.g |
3bc80 | 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a | etkbmouse(40);num.=.1;sw.=.1;siz |
3bca0 | 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 | echange=bnot(equal(oh,h))|bnot(e |
3bcc0 | 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d | qual(ow,w));oh=h;ow=w;hw=h/w;... |
3bce0 | 0a 6e 3d 72 65 67 38 33 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 | .n=reg83*2;....ox=reg00;.rx=reg0 |
3bd00 | 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 | 3;..oy=reg01;.ry=reg04;..oz=reg0 |
3bd20 | 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e | 2;.rz=-reg05;..sx=sin(rx);sy=sin |
3bd40 | 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d | (ry);sz=sin(rz);..cx=cos(rx);cy= |
3bd60 | 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 | cos(ry);cz=cos(rz);....add=0;... |
3bd80 | 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f | ..tb=0;..gt.=.gettime(0).....flo |
3bda0 | 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 | =3.................$............ |
3bdc0 | 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f | dy=3;..dx=gmegabuf(100*num+1+flo |
3bde0 | 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a | *6);..dz=gmegabuf(100*num+2+flo* |
3be00 | 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d | 6);....dy=dy-oy;dx=-dx+ox;dz=dz- |
3be20 | 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 | oz;..dx1=dx*cy-dz*sy;..dz1=dx*sy |
3be40 | 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d | +dz*cy;..dy2=dy*cx-dz1*sx;..dz2= |
3be60 | 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a | dy*sx+dz1*cx;..dx3=dx1*cz-dy2*sz |
3be80 | 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 | ;..dy3=dx1*sz+dy2*cz;....dz3=max |
3bea0 | 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d | (dz2,.01);..x=-(dx3)/dz3*hw;..y= |
3bec0 | 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 | -(dy3)/dz3;..skip=equal(dz3,.01) |
3bee0 | 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 | ;....drawmode=gmegabuf(100*num+3 |
3bf00 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 | +flo*6);..c=drawmode-dz3*.18;..r |
3bf20 | 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 | ed=c;..green=c;..blue=c;....line |
3bf40 | 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 | size=4-dz3*.5;....num=num+1;..sw |
3bf60 | 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | =-sw;.......t=t+1;deltatime.=.ge |
3bf80 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
3bfa0 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
3bfc0 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
3bfe0 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
3c000 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
3c020 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
3c040 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
3c060 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
3c080 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
3c0a0 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
3c0c0 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
3c0e0 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
3c100 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
3c120 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
3c140 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
3c160 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e | al(ow,w));oh=h;ow=w;hw=h/w;....n |
3c180 | 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a | =reg84;....ox=reg00;.rx=reg03;.. |
3c1a0 | 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 | oy=reg01;.ry=reg04;..oz=reg02;.r |
3c1c0 | 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 | z=-reg05;..sx=sin(rx);sy=sin(ry) |
3c1e0 | 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 | ;sz=sin(rz);..cx=cos(rx);cy=cos( |
3c200 | 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 | ry);cz=cos(rz);.......tb=0;..gt. |
3c220 | 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff | =.gettime(0).....flo=4.......... |
3c240 | ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 34 3b 0d 0a 64 78 3d 67 6d | .......$............dy=4;..dx=gm |
3c260 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 | egabuf(100*num+1+flo*6);..dz=gme |
3c280 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 | gabuf(100*num+2+flo*6);....dy=dy |
3c2a0 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
3c2c0 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
3c2e0 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
3c300 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
3c320 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
3c340 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
3c360 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 | .skip=equal(dz3,.01);....drawmod |
3c380 | 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d | e=gmegabuf(100*num+3+flo*6);..c= |
3c3a0 | 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e | drawmode-dz3*.18;..red=c;..green |
3c3c0 | 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e | =c;..blue=c;....linesize=4-dz3*. |
3c3e0 | 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 | 5;....num=num+1;..sw=-sw;....... |
3c400 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
3c420 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
3c440 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
3c460 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
3c480 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
3c4a0 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
3c4c0 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
3c4e0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
3c500 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
3c520 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
3c540 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
3c560 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
3c580 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
3c5a0 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
3c5c0 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
3c5e0 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
3c600 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f | =h;ow=w;hw=h/w;....n=reg84;....o |
3c620 | 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 | x=reg00;.rx=reg03;..oy=reg01;.ry |
3c640 | 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 | =reg04;..oz=reg02;.rz=-reg05;..s |
3c660 | 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b | x=sin(rx);sy=sin(ry);sz=sin(rz); |
3c680 | 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 | ..cx=cos(rx);cy=cos(ry);cz=cos(r |
3c6a0 | 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | z);.......tb=0;..gt.=.gettime(0) |
3c6c0 | 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa | .....flo=4.................$.... |
3c6e0 | 05 00 00 01 0c 03 00 00 64 79 3d 33 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 | ........dy=3.5+sw*.5;..dx=gmegab |
3c700 | 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 | uf(100*num+1+flo*6);..dz=gmegabu |
3c720 | 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d | f(100*num+2+flo*6);..dxa=dx;dza= |
3c740 | 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d | dz;....dy=dy-oy;dx=-dx+ox;dz=dz- |
3c760 | 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 | oz;..dx1=dx*cy-dz*sy;..dz1=dx*sy |
3c780 | 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d | +dz*cy;..dy2=dy*cx-dz1*sx;..dz2= |
3c7a0 | 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a | dy*sx+dz1*cx;..dx3=dx1*cz-dy2*sz |
3c7c0 | 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 | ;..dy3=dx1*sz+dy2*cz;....dz3=max |
3c7e0 | 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d | (dz2,.01);..x=-(dx3)/dz3*hw;..y= |
3c800 | 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 | -(dy3)/dz3;..skip=equal(dz3,.01) |
3c820 | 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b | ;....ogx=gmegabuf(100*(num-1)+1+ |
3c840 | 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 | flo*6);..ogz=gmegabuf(100*(num-1 |
3c860 | 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e | )+2+flo*6);..ngx=gmegabuf(100*(n |
3c880 | 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 | um+1)+1+flo*6);..ngz=gmegabuf(10 |
3c8a0 | 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e | 0*(num+1)+2+flo*6);....ang1=atan |
3c8c0 | 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 | 2(dxa-ogx,dza-ogz);..ang2=atan2( |
3c8e0 | 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 | -dxa+ngx,-dza+ngz);..corner=bnot |
3c900 | 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 | (below(abs(ang1-ang2),.1));....d |
3c920 | 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 | rawmode=gmegabuf(100*num+3+flo*6 |
3c940 | 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e | );..c=drawmode*equal(add,1)*corn |
3c960 | 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 | er-dz3*.18;..red=c;..green=c;..b |
3c980 | 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a | lue=c;....linesize=4-dz3*.5;.... |
3c9a0 | 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 | add=add+1;..if(equal(add,2),assi |
3c9c0 | 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d | gn(add,0)+assign(num,num+1),0);. |
3c9e0 | 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 | .sw=-sw;..reg99=10;.....t=t+1;de |
3ca00 | 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 | ltatime.=.gettime(time);fr=fr*.9 |
3ca20 | 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d | +deltatime*.1;framerate=1/fr;tim |
3ca40 | 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d | e.=.gettime(0);tb.=.tb+1;timeb.= |
3ca60 | 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 | .gettime(gt);xmouse=getkbmouse(1 |
3ca80 | 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d | );ymouse=getkbmouse(2);xmousec=m |
3caa0 | 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e | in(max(xmouse,-1),1);ymousec=min |
3cac0 | 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b | (max(ymouse,-1),1);lmouse.=.getk |
3cae0 | 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 | bmouse(3);rmouse.=.getkbmouse(4) |
3cb00 | 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d | ;shift.=.getkbmouse(5);control.= |
3cb20 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b | .getkbmouse(17);backspace.=.getk |
3cb40 | 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 | bmouse(8);space.=.getkbmouse(32) |
3cb60 | 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 | ;right.=.getkbmouse(39);left.=.g |
3cb80 | 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 | etkbmouse(37);up.=.getkbmouse(38 |
3cba0 | 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b | );down.=.getkbmouse(40);num.=.1; |
3cbc0 | 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c | sw.=.1;sizechange=bnot(equal(oh, |
3cbe0 | 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b | h))|bnot(equal(ow,w));oh=h;ow=w; |
3cc00 | 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 | hw=h/w;....n=reg84*2;....ox=reg0 |
3cc20 | 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 | 0;.rx=reg03;..oy=reg01;.ry=reg04 |
3cc40 | 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 | ;..oz=reg02;.rz=-reg05;..sx=sin( |
3cc60 | 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 | rx);sy=sin(ry);sz=sin(rz);..cx=c |
3cc80 | 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d | os(rx);cy=cos(ry);cz=cos(rz);... |
3cca0 | 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 | .add=0;.....tb=0;..gt.=.gettime( |
3ccc0 | 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 | 0).....flo=4.................$.. |
3cce0 | 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 34 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 | ..........dy=4.5+sw*.5;..dx=gmeg |
3cd00 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 | abuf(100*num+1+flo*6);..dz=gmega |
3cd20 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a | buf(100*num+2+flo*6);..dxa=dx;dz |
3cd40 | 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 | a=dz;....dy=dy-oy;dx=-dx+ox;dz=d |
3cd60 | 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a | z-oz;..dx1=dx*cy-dz*sy;..dz1=dx* |
3cd80 | 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a | sy+dz*cy;..dy2=dy*cx-dz1*sx;..dz |
3cda0 | 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a | 2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2* |
3cdc0 | 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d | sz;..dy3=dx1*sz+dy2*cz;....dz3=m |
3cde0 | 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a | ax(dz2,.01);..x=-(dx3)/dz3*hw;.. |
3ce00 | 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 | y=-(dy3)/dz3;..skip=equal(dz3,.0 |
3ce20 | 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b | 1);....ogx=gmegabuf(100*(num-1)+ |
3ce40 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d | 1+flo*6);..ogz=gmegabuf(100*(num |
3ce60 | 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | -1)+2+flo*6);..ngx=gmegabuf(100* |
3ce80 | 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 | (num+1)+1+flo*6);..ngz=gmegabuf( |
3cea0 | 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 | 100*(num+1)+2+flo*6);....ang1=at |
3cec0 | 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e | an2(dxa-ogx,dza-ogz);..ang2=atan |
3cee0 | 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e | 2(-dxa+ngx,-dza+ngz);..corner=bn |
3cf00 | 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d | ot(below(abs(ang1-ang2),.1));... |
3cf20 | 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f | .drawmode=gmegabuf(100*num+3+flo |
3cf40 | 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f | *6);..c=drawmode*equal(add,1)*co |
3cf60 | 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d | rner-dz3*.18;..red=c;..green=c;. |
3cf80 | 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a | .blue=c;....linesize=4-dz3*.5;.. |
3cfa0 | 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 | ..add=add+1;..if(equal(add,2),as |
3cfc0 | 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 | sign(add,0)+assign(num,num+1),0) |
3cfe0 | 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b | ;..sw=-sw;..reg99=10;.....t=t+1; |
3d000 | 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a | deltatime.=.gettime(time);fr=fr* |
3d020 | 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 | .9+deltatime*.1;framerate=1/fr;t |
3d040 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 | ime.=.gettime(0);tb.=.tb+1;timeb |
3d060 | 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | .=.gettime(gt);xmouse=getkbmouse |
3d080 | 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 | (1);ymouse=getkbmouse(2);xmousec |
3d0a0 | 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d | =min(max(xmouse,-1),1);ymousec=m |
3d0c0 | 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 | in(max(ymouse,-1),1);lmouse.=.ge |
3d0e0 | 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(3);rmouse.=.getkbmouse( |
3d100 | 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c | 4);shift.=.getkbmouse(5);control |
3d120 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 | .=.getkbmouse(17);backspace.=.ge |
3d140 | 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(8);space.=.getkbmouse(3 |
3d160 | 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d | 2);right.=.getkbmouse(39);left.= |
3d180 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | .getkbmouse(37);up.=.getkbmouse( |
3d1a0 | 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 | 38);down.=.getkbmouse(40);num.=. |
3d1c0 | 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f | 1;sw.=.1;sizechange=bnot(equal(o |
3d1e0 | 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d | h,h))|bnot(equal(ow,w));oh=h;ow= |
3d200 | 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 | w;hw=h/w;....n=reg85*2;....ox=re |
3d220 | 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 | g00;.rx=reg03;..oy=reg01;.ry=reg |
3d240 | 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 | 04;..oz=reg02;.rz=-reg05;..sx=si |
3d260 | 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 | n(rx);sy=sin(ry);sz=sin(rz);..cx |
3d280 | 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d | =cos(rx);cy=cos(ry);cz=cos(rz);. |
3d2a0 | 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d | ...add=0;.....tb=0;..gt.=.gettim |
3d2c0 | 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 | e(0).....flo=5.................$ |
3d2e0 | 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 | ............dy=5;..dx=gmegabuf(1 |
3d300 | 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 | 00*num+1+flo*6);..dz=gmegabuf(10 |
3d320 | 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d | 0*num+2+flo*6);....dy=dy-oy;dx=- |
3d340 | 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 | dx+ox;dz=dz-oz;..dx1=dx*cy-dz*sy |
3d360 | 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 | ;..dz1=dx*sy+dz*cy;..dy2=dy*cx-d |
3d380 | 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 | z1*sx;..dz2=dy*sx+dz1*cx;..dx3=d |
3d3a0 | 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a | x1*cz-dy2*sz;..dy3=dx1*sz+dy2*cz |
3d3c0 | 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 | ;....dz3=max(dz2,.01);..x=-(dx3) |
3d3e0 | 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 | /dz3*hw;..y=-(dy3)/dz3;..skip=eq |
3d400 | 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 | ual(dz3,.01);....drawmode=gmegab |
3d420 | 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 | uf(100*num+3+flo*6);..c=drawmode |
3d440 | 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 | -dz3*.18;..red=c;..green=c;..blu |
3d460 | 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 | e=c;....linesize=4-dz3*.5;....nu |
3d480 | 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 | m=num+1;..sw=-sw;.......t=t+1;de |
3d4a0 | 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 | ltatime.=.gettime(time);fr=fr*.9 |
3d4c0 | 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d | +deltatime*.1;framerate=1/fr;tim |
3d4e0 | 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d | e.=.gettime(0);tb.=.tb+1;timeb.= |
3d500 | 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 | .gettime(gt);xmouse=getkbmouse(1 |
3d520 | 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d | );ymouse=getkbmouse(2);xmousec=m |
3d540 | 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e | in(max(xmouse,-1),1);ymousec=min |
3d560 | 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b | (max(ymouse,-1),1);lmouse.=.getk |
3d580 | 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 | bmouse(3);rmouse.=.getkbmouse(4) |
3d5a0 | 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d | ;shift.=.getkbmouse(5);control.= |
3d5c0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b | .getkbmouse(17);backspace.=.getk |
3d5e0 | 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 | bmouse(8);space.=.getkbmouse(32) |
3d600 | 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 | ;right.=.getkbmouse(39);left.=.g |
3d620 | 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 | etkbmouse(37);up.=.getkbmouse(38 |
3d640 | 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b | );down.=.getkbmouse(40);num.=.1; |
3d660 | 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c | sw.=.1;sizechange=bnot(equal(oh, |
3d680 | 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b | h))|bnot(equal(ow,w));oh=h;ow=w; |
3d6a0 | 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b | hw=h/w;....n=reg85;....ox=reg00; |
3d6c0 | 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d | .rx=reg03;..oy=reg01;.ry=reg04;. |
3d6e0 | 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 | .oz=reg02;.rz=-reg05;..sx=sin(rx |
3d700 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 | );sy=sin(ry);sz=sin(rz);..cx=cos |
3d720 | 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 | (rx);cy=cos(ry);cz=cos(rz);..... |
3d740 | 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f | ..tb=0;..gt.=.gettime(0).....flo |
3d760 | 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 | =5.................$............ |
3d780 | 64 79 3d 34 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f | dy=4;..dx=gmegabuf(100*num+1+flo |
3d7a0 | 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a | *6);..dz=gmegabuf(100*num+2+flo* |
3d7c0 | 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d | 6);....dy=dy-oy;dx=-dx+ox;dz=dz- |
3d7e0 | 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 | oz;..dx1=dx*cy-dz*sy;..dz1=dx*sy |
3d800 | 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d | +dz*cy;..dy2=dy*cx-dz1*sx;..dz2= |
3d820 | 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a | dy*sx+dz1*cx;..dx3=dx1*cz-dy2*sz |
3d840 | 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 | ;..dy3=dx1*sz+dy2*cz;....dz3=max |
3d860 | 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d | (dz2,.01);..x=-(dx3)/dz3*hw;..y= |
3d880 | 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 | -(dy3)/dz3;..skip=equal(dz3,.01) |
3d8a0 | 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 | ;....drawmode=gmegabuf(100*num+3 |
3d8c0 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 | +flo*6);..c=drawmode-dz3*.18;..r |
3d8e0 | 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 | ed=c;..green=c;..blue=c;....line |
3d900 | 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 | size=4-dz3*.5;....num=num+1;..sw |
3d920 | 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | =-sw;.......t=t+1;deltatime.=.ge |
3d940 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
3d960 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
3d980 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
3d9a0 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
3d9c0 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
3d9e0 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
3da00 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
3da20 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
3da40 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
3da60 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
3da80 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
3daa0 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
3dac0 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
3dae0 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
3db00 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
3db20 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e | al(ow,w));oh=h;ow=w;hw=h/w;....n |
3db40 | 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a | =reg85;....ox=reg00;.rx=reg03;.. |
3db60 | 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 | oy=reg01;.ry=reg04;..oz=reg02;.r |
3db80 | 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 | z=-reg05;..sx=sin(rx);sy=sin(ry) |
3dba0 | 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 | ;sz=sin(rz);..cx=cos(rx);cy=cos( |
3dbc0 | 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 | ry);cz=cos(rz);.......tb=0;..gt. |
3dbe0 | 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff | =.gettime(0).....flo=5.......... |
3dc00 | ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 6d | .......$............dy=5;..dx=gm |
3dc20 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 | egabuf(100*num+1+flo*6);..dz=gme |
3dc40 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 | gabuf(100*num+2+flo*6);....dy=dy |
3dc60 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
3dc80 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
3dca0 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
3dcc0 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
3dce0 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
3dd00 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
3dd20 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 | .skip=equal(dz3,.01);....drawmod |
3dd40 | 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d | e=gmegabuf(100*num+3+flo*6);..c= |
3dd60 | 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e | drawmode-dz3*.18;..red=c;..green |
3dd80 | 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e | =c;..blue=c;....linesize=4-dz3*. |
3dda0 | 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 | 5;....num=num+1;..sw=-sw;....... |
3ddc0 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
3dde0 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
3de00 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
3de20 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
3de40 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
3de60 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
3de80 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
3dea0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
3dec0 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
3dee0 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
3df00 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
3df20 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
3df40 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
3df60 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
3df80 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
3dfa0 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
3dfc0 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 3b 0d 0a 0d 0a 6f | =h;ow=w;hw=h/w;....n=reg86;....o |
3dfe0 | 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 | x=reg00;.rx=reg03;..oy=reg01;.ry |
3e000 | 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 | =reg04;..oz=reg02;.rz=-reg05;..s |
3e020 | 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b | x=sin(rx);sy=sin(ry);sz=sin(rz); |
3e040 | 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 | ..cx=cos(rx);cy=cos(ry);cz=cos(r |
3e060 | 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | z);.......tb=0;..gt.=.gettime(0) |
3e080 | 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c | .....flo=6.................$.... |
3e0a0 | 04 00 00 01 a8 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | ........dy=6;..dx=gmegabuf(100*n |
3e0c0 | 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | um+1+flo*6);..dz=gmegabuf(100*nu |
3e0e0 | 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f | m+2+flo*6);....dy=dy-oy;dx=-dx+o |
3e100 | 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 | x;dz=dz-oz;..dx1=dx*cy-dz*sy;..d |
3e120 | 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 | z1=dx*sy+dz*cy;..dy2=dy*cx-dz1*s |
3e140 | 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 | x;..dz2=dy*sx+dz1*cx;..dx3=dx1*c |
3e160 | 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d | z-dy2*sz;..dy3=dx1*sz+dy2*cz;... |
3e180 | 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 | .dz3=max(dz2,.01);..x=-(dx3)/dz3 |
3e1a0 | 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 | *hw;..y=-(dy3)/dz3;..skip=equal( |
3e1c0 | 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 | dz3,.01);....drawmode=gmegabuf(1 |
3e1e0 | 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 | 00*num+3+flo*6);..c=drawmode-dz3 |
3e200 | 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b | *.18;..red=c;..green=c;..blue=c; |
3e220 | 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 | ....linesize=4-dz3*.5;....num=nu |
3e240 | 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 | m+1;..sw=-sw;.......t=t+1;deltat |
3e260 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c | ime.=.gettime(time);fr=fr*.9+del |
3e280 | 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 | tatime*.1;framerate=1/fr;time.=. |
3e2a0 | 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 | gettime(0);tb.=.tb+1;timeb.=.get |
3e2c0 | 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d | time(gt);xmouse=getkbmouse(1);ym |
3e2e0 | 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d | ouse=getkbmouse(2);xmousec=min(m |
3e300 | 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | ax(xmouse,-1),1);ymousec=min(max |
3e320 | 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | (ymouse,-1),1);lmouse.=.getkbmou |
3e340 | 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 | se(3);rmouse.=.getkbmouse(4);shi |
3e360 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 | ft.=.getkbmouse(5);control.=.get |
3e380 | 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | kbmouse(17);backspace.=.getkbmou |
3e3a0 | 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 | se(8);space.=.getkbmouse(32);rig |
3e3c0 | 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 | ht.=.getkbmouse(39);left.=.getkb |
3e3e0 | 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f | mouse(37);up.=.getkbmouse(38);do |
3e400 | 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d | wn.=.getkbmouse(40);num.=.1;sw.= |
3e420 | 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c | .1;sizechange=bnot(equal(oh,h))| |
3e440 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 | bnot(equal(ow,w));oh=h;ow=w;hw=h |
3e460 | 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d | /w;....n=reg86;....ox=reg00;.rx= |
3e480 | 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d | reg03;..oy=reg01;.ry=reg04;..oz= |
3e4a0 | 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 | reg02;.rz=-reg05;..sx=sin(rx);sy |
3e4c0 | 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 | =sin(ry);sz=sin(rz);..cx=cos(rx) |
3e4e0 | 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 | ;cy=cos(ry);cz=cos(rz);.......tb |
3e500 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 | =0;..gt.=.gettime(0).....flo=6.. |
3e520 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 35 | ...............$............dy=5 |
3e540 | 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 | .5+sw*.5;..dx=gmegabuf(100*num+1 |
3e560 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b | +flo*6);..dz=gmegabuf(100*num+2+ |
3e580 | 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 | flo*6);..dxa=dx;dza=dz;....dy=dy |
3e5a0 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
3e5c0 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
3e5e0 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
3e600 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
3e620 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
3e640 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
3e660 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 | .skip=equal(dz3,.01);....ogx=gme |
3e680 | 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a | gabuf(100*(num-1)+1+flo*6);..ogz |
3e6a0 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | =gmegabuf(100*(num-1)+2+flo*6);. |
3e6c0 | 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a | .ngx=gmegabuf(100*(num+1)+1+flo* |
3e6e0 | 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b | 6);..ngz=gmegabuf(100*(num+1)+2+ |
3e700 | 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a | flo*6);....ang1=atan2(dxa-ogx,dz |
3e720 | 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a | a-ogz);..ang2=atan2(-dxa+ngx,-dz |
3e740 | 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 | a+ngz);..corner=bnot(below(abs(a |
3e760 | 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 | ng1-ang2),.1));....drawmode=gmeg |
3e780 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f | abuf(100*num+3+flo*6);..c=drawmo |
3e7a0 | 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d | de*equal(add,1)*corner-dz3*.18;. |
3e7c0 | 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 | .red=c;..green=c;..blue=c;....li |
3e7e0 | 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a | nesize=4-dz3*.5;....add=add+1;.. |
3e800 | 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 | if(equal(add,2),assign(add,0)+as |
3e820 | 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 | sign(num,num+1),0);..sw=-sw;..re |
3e840 | 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | g99=10;.....t=t+1;deltatime.=.ge |
3e860 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
3e880 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
3e8a0 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
3e8c0 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
3e8e0 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
3e900 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
3e920 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
3e940 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
3e960 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
3e980 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
3e9a0 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
3e9c0 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
3e9e0 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
3ea00 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
3ea20 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
3ea40 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e | al(ow,w));oh=h;ow=w;hw=h/w;....n |
3ea60 | 3d 72 65 67 38 36 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b | =reg86*2;....ox=reg00;.rx=reg03; |
3ea80 | 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b | ..oy=reg01;.ry=reg04;..oz=reg02; |
3eaa0 | 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 | .rz=-reg05;..sx=sin(rx);sy=sin(r |
3eac0 | 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f | y);sz=sin(rz);..cx=cos(rx);cy=co |
3eae0 | 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 | s(ry);cz=cos(rz);....add=0;..... |
3eb00 | 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 | tb=0;..gt.=.gettime(0).....flo=6 |
3eb20 | 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 | .................$............dy |
3eb40 | 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 | =7;..dx=gmegabuf(100*num+1+flo*6 |
3eb60 | 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 | );..dz=gmegabuf(100*num+2+flo*6) |
3eb80 | 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a | ;....dy=dy-oy;dx=-dx+ox;dz=dz-oz |
3eba0 | 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 | ;..dx1=dx*cy-dz*sy;..dz1=dx*sy+d |
3ebc0 | 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 | z*cy;..dy2=dy*cx-dz1*sx;..dz2=dy |
3ebe0 | 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d | *sx+dz1*cx;..dx3=dx1*cz-dy2*sz;. |
3ec00 | 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 | .dy3=dx1*sz+dy2*cz;....dz3=max(d |
3ec20 | 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 | z2,.01);..x=-(dx3)/dz3*hw;..y=-( |
3ec40 | 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d | dy3)/dz3;..skip=equal(dz3,.01);. |
3ec60 | 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 | ...drawmode=gmegabuf(100*num+3+f |
3ec80 | 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 | lo*6);..c=drawmode-dz3*.18;..red |
3eca0 | 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 | =c;..green=c;..blue=c;....linesi |
3ecc0 | 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d | ze=4-dz3*.5;....num=num+1;..sw=- |
3ece0 | 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 | sw;.......t=t+1;deltatime.=.gett |
3ed00 | 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b | ime(time);fr=fr*.9+deltatime*.1; |
3ed20 | 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | framerate=1/fr;time.=.gettime(0) |
3ed40 | 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 | ;tb.=.tb+1;timeb.=.gettime(gt);x |
3ed60 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 | mouse=getkbmouse(1);ymouse=getkb |
3ed80 | 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c | mouse(2);xmousec=min(max(xmouse, |
3eda0 | 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 | -1),1);ymousec=min(max(ymouse,-1 |
3edc0 | 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 | ),1);lmouse.=.getkbmouse(3);rmou |
3ede0 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 | se.=.getkbmouse(4);shift.=.getkb |
3ee00 | 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 | mouse(5);control.=.getkbmouse(17 |
3ee20 | 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 | );backspace.=.getkbmouse(8);spac |
3ee40 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(32);right.=.getkb |
3ee60 | 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b | mouse(39);left.=.getkbmouse(37); |
3ee80 | 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 | up.=.getkbmouse(38);down.=.getkb |
3eea0 | 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 | mouse(40);num.=.1;sw.=.1;sizecha |
3eec0 | 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c | nge=bnot(equal(oh,h))|bnot(equal |
3eee0 | 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 | (ow,w));oh=h;ow=w;hw=h/w;....n=r |
3ef00 | 65 67 38 38 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 | eg88;....ox=reg00;.rx=reg03;..oy |
3ef20 | 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d | =reg01;.ry=reg04;..oz=reg02;.rz= |
3ef40 | 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 | -reg05;..sx=sin(rx);sy=sin(ry);s |
3ef60 | 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 | z=sin(rz);..cx=cos(rx);cy=cos(ry |
3ef80 | 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 | );cz=cos(rz);.......tb=0;..gt.=. |
3efa0 | 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff | gettime(0).....flo=8............ |
3efc0 | 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 38 3b 0d 0a 64 78 3d 67 6d 65 67 | .....$............dy=8;..dx=gmeg |
3efe0 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 | abuf(100*num+1+flo*6);..dz=gmega |
3f000 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f | buf(100*num+2+flo*6);....dy=dy-o |
3f020 | 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 | y;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy |
3f040 | 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 | -dz*sy;..dz1=dx*sy+dz*cy;..dy2=d |
3f060 | 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d | y*cx-dz1*sx;..dz2=dy*sx+dz1*cx;. |
3f080 | 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b | .dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+ |
3f0a0 | 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d | dy2*cz;....dz3=max(dz2,.01);..x= |
3f0c0 | 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 | -(dx3)/dz3*hw;..y=-(dy3)/dz3;..s |
3f0e0 | 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d | kip=equal(dz3,.01);....drawmode= |
3f100 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 | gmegabuf(100*num+3+flo*6);..c=dr |
3f120 | 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 | awmode-dz3*.18;..red=c;..green=c |
3f140 | 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b | ;..blue=c;....linesize=4-dz3*.5; |
3f160 | 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d | ....num=num+1;..sw=-sw;.......t= |
3f180 | 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 | t+1;deltatime.=.gettime(time);fr |
3f1a0 | 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f | =fr*.9+deltatime*.1;framerate=1/ |
3f1c0 | 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 | fr;time.=.gettime(0);tb.=.tb+1;t |
3f1e0 | 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | imeb.=.gettime(gt);xmouse=getkbm |
3f200 | 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f | ouse(1);ymouse=getkbmouse(2);xmo |
3f220 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 | usec=min(max(xmouse,-1),1);ymous |
3f240 | 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 | ec=min(max(ymouse,-1),1);lmouse. |
3f260 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(3);rmouse.=.getkbmo |
3f280 | 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e | use(4);shift.=.getkbmouse(5);con |
3f2a0 | 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 | trol.=.getkbmouse(17);backspace. |
3f2c0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(8);space.=.getkbmou |
3f2e0 | 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 | se(32);right.=.getkbmouse(39);le |
3f300 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f | ft.=.getkbmouse(37);up.=.getkbmo |
3f320 | 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 | use(38);down.=.getkbmouse(40);nu |
3f340 | 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 | m.=.1;sw.=.1;sizechange=bnot(equ |
3f360 | 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 | al(oh,h))|bnot(equal(ow,w));oh=h |
3f380 | 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 3b 0d 0a 0d 0a 6f 78 3d | ;ow=w;hw=h/w;....n=reg88;....ox= |
3f3a0 | 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 | reg00;.rx=reg03;..oy=reg01;.ry=r |
3f3c0 | 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d | eg04;..oz=reg02;.rz=-reg05;..sx= |
3f3e0 | 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a | sin(rx);sy=sin(ry);sz=sin(rz);.. |
3f400 | 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 | cx=cos(rx);cy=cos(ry);cz=cos(rz) |
3f420 | 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 | ;.......tb=0;..gt.=.gettime(0).. |
3f440 | 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fe 05 00 | ...flo=8.................$...... |
3f460 | 00 01 10 03 00 00 64 79 3d 37 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 | ......dy=7.5+sw*.5;..dx=gmegabuf |
3f480 | 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 | (100*num+1+flo*6);..dz=gmegabuf( |
3f4a0 | 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a | 100*num+2+flo*6);..dxa=dx;dza=dz |
3f4c0 | 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a | ;....dy=dy-oy;dx=-dx+ox;dz=dz-oz |
3f4e0 | 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 | ;..dx1=dx*cy-dz*sy;..dz1=dx*sy+d |
3f500 | 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 | z*cy;..dy2=dy*cx-dz1*sx;..dz2=dy |
3f520 | 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d | *sx+dz1*cx;..dx3=dx1*cz-dy2*sz;. |
3f540 | 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 | .dy3=dx1*sz+dy2*cz;....dz3=max(d |
3f560 | 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 | z2,.01);..x=-(dx3)/dz3*hw;..y=-( |
3f580 | 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d | dy3)/dz3;..skip=equal(dz3,.01);. |
3f5a0 | 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c | ...ogx=gmegabuf(100*(num-1)+1+fl |
3f5c0 | 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b | o*6);..ogz=gmegabuf(100*(num-1)+ |
3f5e0 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d | 2+flo*6);..ngx=gmegabuf(100*(num |
3f600 | 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | +1)+1+flo*6);..ngz=gmegabuf(100* |
3f620 | 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 | (num+1)+2+flo*6);....ang1=atan2( |
3f640 | 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 | dxa-ogx,dza-ogz);..ang2=atan2(-d |
3f660 | 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 | xa+ngx,-dza+ngz);..corner=bnot(b |
3f680 | 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 | elow(abs(ang1-ang2),.1));....dra |
3f6a0 | 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b | wmode=gmegabuf(100*num+3+flo*6); |
3f6c0 | 0d 0a 73 76 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 | ..sv=drawmode*equal(add,1)*corne |
3f6e0 | 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 73 76 3b 0d 0a 67 72 65 65 6e 3d 73 76 3b 0d 0a | r-dz3*.18;..red=sv;..green=sv;.. |
3f700 | 62 6c 75 65 3d 73 76 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a | blue=sv;....linesize=4-dz3*.5;.. |
3f720 | 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 | ..add=add+1;..if(equal(add,2),as |
3f740 | 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 | sign(add,0)+assign(num,num+1),0) |
3f760 | 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b | ;..sw=-sw;..reg99=10;.....t=t+1; |
3f780 | 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a | deltatime.=.gettime(time);fr=fr* |
3f7a0 | 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 | .9+deltatime*.1;framerate=1/fr;t |
3f7c0 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 | ime.=.gettime(0);tb.=.tb+1;timeb |
3f7e0 | 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | .=.gettime(gt);xmouse=getkbmouse |
3f800 | 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 | (1);ymouse=getkbmouse(2);xmousec |
3f820 | 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d | =min(max(xmouse,-1),1);ymousec=m |
3f840 | 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 | in(max(ymouse,-1),1);lmouse.=.ge |
3f860 | 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(3);rmouse.=.getkbmouse( |
3f880 | 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c | 4);shift.=.getkbmouse(5);control |
3f8a0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 | .=.getkbmouse(17);backspace.=.ge |
3f8c0 | 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(8);space.=.getkbmouse(3 |
3f8e0 | 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d | 2);right.=.getkbmouse(39);left.= |
3f900 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | .getkbmouse(37);up.=.getkbmouse( |
3f920 | 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 | 38);down.=.getkbmouse(40);num.=. |
3f940 | 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f | 1;sw.=.1;sizechange=bnot(equal(o |
3f960 | 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d | h,h))|bnot(equal(ow,w));oh=h;ow= |
3f980 | 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 | w;hw=h/w;....n=reg88*2;....ox=re |
3f9a0 | 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 | g00;.rx=reg03;..oy=reg01;.ry=reg |
3f9c0 | 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 | 04;..oz=reg02;.rz=-reg05;..sx=si |
3f9e0 | 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 | n(rx);sy=sin(ry);sz=sin(rz);..cx |
3fa00 | 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d | =cos(rx);cy=cos(ry);cz=cos(rz);. |
3fa20 | 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d | ...add=0;.....tb=0;..gt.=.gettim |
3fa40 | 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 | e(0).....flo=8.................$ |
3fa60 | 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 | ............dy=6;..dx=gmegabuf(1 |
3fa80 | 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 | 00*num+1+flo*6);..dz=gmegabuf(10 |
3faa0 | 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d | 0*num+2+flo*6);....dy=dy-oy;dx=- |
3fac0 | 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 | dx+ox;dz=dz-oz;..dx1=dx*cy-dz*sy |
3fae0 | 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 | ;..dz1=dx*sy+dz*cy;..dy2=dy*cx-d |
3fb00 | 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 | z1*sx;..dz2=dy*sx+dz1*cx;..dx3=d |
3fb20 | 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a | x1*cz-dy2*sz;..dy3=dx1*sz+dy2*cz |
3fb40 | 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 | ;....dz3=max(dz2,.01);..x=-(dx3) |
3fb60 | 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 | /dz3*hw;..y=-(dy3)/dz3;..skip=eq |
3fb80 | 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 | ual(dz3,.01);....drawmode=gmegab |
3fba0 | 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 | uf(100*num+3+flo*6);..c=drawmode |
3fbc0 | 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 | -dz3*.18;..red=c;..green=c;..blu |
3fbe0 | 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 | e=c;....linesize=4-dz3*.5;....nu |
3fc00 | 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 | m=num+1;..sw=-sw;.......t=t+1;de |
3fc20 | 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 | ltatime.=.gettime(time);fr=fr*.9 |
3fc40 | 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d | +deltatime*.1;framerate=1/fr;tim |
3fc60 | 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d | e.=.gettime(0);tb.=.tb+1;timeb.= |
3fc80 | 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 | .gettime(gt);xmouse=getkbmouse(1 |
3fca0 | 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d | );ymouse=getkbmouse(2);xmousec=m |
3fcc0 | 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e | in(max(xmouse,-1),1);ymousec=min |
3fce0 | 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b | (max(ymouse,-1),1);lmouse.=.getk |
3fd00 | 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 | bmouse(3);rmouse.=.getkbmouse(4) |
3fd20 | 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d | ;shift.=.getkbmouse(5);control.= |
3fd40 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b | .getkbmouse(17);backspace.=.getk |
3fd60 | 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 | bmouse(8);space.=.getkbmouse(32) |
3fd80 | 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 | ;right.=.getkbmouse(39);left.=.g |
3fda0 | 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 | etkbmouse(37);up.=.getkbmouse(38 |
3fdc0 | 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b | );down.=.getkbmouse(40);num.=.1; |
3fde0 | 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c | sw.=.1;sizechange=bnot(equal(oh, |
3fe00 | 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b | h))|bnot(equal(ow,w));oh=h;ow=w; |
3fe20 | 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b | hw=h/w;....n=reg87;....ox=reg00; |
3fe40 | 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d | .rx=reg03;..oy=reg01;.ry=reg04;. |
3fe60 | 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 | .oz=reg02;.rz=-reg05;..sx=sin(rx |
3fe80 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 | );sy=sin(ry);sz=sin(rz);..cx=cos |
3fea0 | 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 | (rx);cy=cos(ry);cz=cos(rz);..... |
3fec0 | 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f | ..tb=0;..gt.=.gettime(0).....flo |
3fee0 | 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 | =7.................$............ |
3ff00 | 64 79 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f | dy=7;..dx=gmegabuf(100*num+1+flo |
3ff20 | 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a | *6);..dz=gmegabuf(100*num+2+flo* |
3ff40 | 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d | 6);....dy=dy-oy;dx=-dx+ox;dz=dz- |
3ff60 | 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 | oz;..dx1=dx*cy-dz*sy;..dz1=dx*sy |
3ff80 | 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d | +dz*cy;..dy2=dy*cx-dz1*sx;..dz2= |
3ffa0 | 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a | dy*sx+dz1*cx;..dx3=dx1*cz-dy2*sz |
3ffc0 | 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 | ;..dy3=dx1*sz+dy2*cz;....dz3=max |
3ffe0 | 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d | (dz2,.01);..x=-(dx3)/dz3*hw;..y= |
40000 | 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 | -(dy3)/dz3;..skip=equal(dz3,.01) |
40020 | 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 | ;....drawmode=gmegabuf(100*num+3 |
40040 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 | +flo*6);..c=drawmode-dz3*.18;..r |
40060 | 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 | ed=c;..green=c;..blue=c;....line |
40080 | 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 | size=4-dz3*.5;....num=num+1;..sw |
400a0 | 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | =-sw;.......t=t+1;deltatime.=.ge |
400c0 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
400e0 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
40100 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
40120 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
40140 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
40160 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
40180 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
401a0 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
401c0 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
401e0 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
40200 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
40220 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
40240 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
40260 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
40280 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
402a0 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e | al(ow,w));oh=h;ow=w;hw=h/w;....n |
402c0 | 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a | =reg87;....ox=reg00;.rx=reg03;.. |
402e0 | 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 | oy=reg01;.ry=reg04;..oz=reg02;.r |
40300 | 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 | z=-reg05;..sx=sin(rx);sy=sin(ry) |
40320 | 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 | ;sz=sin(rz);..cx=cos(rx);cy=cos( |
40340 | 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 | ry);cz=cos(rz);.......tb=0;..gt. |
40360 | 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff | =.gettime(0).....flo=7.......... |
40380 | ff ff 00 01 00 00 00 24 00 00 00 06 06 00 00 01 0c 03 00 00 64 79 3d 36 2e 35 2b 73 77 2a 2e 35 | .......$............dy=6.5+sw*.5 |
403a0 | 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b | ;..dx=gmegabuf(100*num+1+flo*6); |
403c0 | 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | ..dz=gmegabuf(100*num+2+flo*6);. |
403e0 | 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d | .dxa=dx;dza=dz;....dy=dy-oy;dx=- |
40400 | 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 | dx+ox;dz=dz-oz;..dx1=dx*cy-dz*sy |
40420 | 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 | ;..dz1=dx*sy+dz*cy;..dy2=dy*cx-d |
40440 | 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 | z1*sx;..dz2=dy*sx+dz1*cx;..dx3=d |
40460 | 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a | x1*cz-dy2*sz;..dy3=dx1*sz+dy2*cz |
40480 | 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 | ;....dz3=max(dz2,.01);..x=-(dx3) |
404a0 | 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 | /dz3*hw;..y=-(dy3)/dz3;..skip=eq |
404c0 | 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 | ual(dz3,.01);....ogx=gmegabuf(10 |
404e0 | 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 | 0*(num-1)+1+flo*6);..ogz=gmegabu |
40500 | 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 | f(100*(num-1)+2+flo*6);..ngx=gme |
40520 | 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a | gabuf(100*(num+1)+1+flo*6);..ngz |
40540 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | =gmegabuf(100*(num+1)+2+flo*6);. |
40560 | 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d | ...ang1=atan2(dxa-ogx,dza-ogz);. |
40580 | 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d | .ang2=atan2(-dxa+ngx,-dza+ngz);. |
405a0 | 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 | .corner=bnot(below(abs(ang1-ang2 |
405c0 | 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | ),.1));....drawmode=gmegabuf(100 |
405e0 | 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c | *num+3+flo*6);..c=drawmode*equal |
40600 | 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d | (add,1)*corner-dz3*.18;..red=c;. |
40620 | 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 | .green=c;..blue=c;....linesize=4 |
40640 | 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c | -dz3*.5;....add=add+1;..if(equal |
40660 | 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d | (add,2),assign(add,0)+assign(num |
40680 | 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 | ,num+1),0);..sw=-sw;..reg99=10;. |
406a0 | bc 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 | ....t=t+1;deltatime.=.gettime(ti |
406c0 | 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 | me);fr=fr*.9+deltatime*.1;framer |
406e0 | 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 | ate=1/fr;time.=.gettime(0);tb.=. |
40700 | 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d | tb+1;timeb.=.gettime(gt);xmouse= |
40720 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | getkbmouse(1);ymouse=getkbmouse( |
40740 | 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 2);xmousec=min(max(xmouse,-1),1) |
40760 | 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c | ;ymousec=min(max(ymouse,-1),1);l |
40780 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 | mouse.=.getkbmouse(3);rmouse.=.g |
407a0 | 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(4);shift.=.getkbmouse( |
407c0 | 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b | 5);control.=.getkbmouse(17);back |
407e0 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 | space.=.getkbmouse(8);space.=.ge |
40800 | 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(32);right.=.getkbmouse( |
40820 | 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 | 39);left.=.getkbmouse(37);up.=.g |
40840 | 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(38);down.=.getkbmouse( |
40860 | 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e | 40);num.=.1;sw.=.1;sizechange=bn |
40880 | 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 | ot(equal(oh,h))|bnot(equal(ow,w) |
408a0 | 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 73 68 6f 63 6b 3d 76 61 6c 75 65 3b 0d | );oh=h;ow=w;hw=h/w;shock=value;. |
408c0 | 0a 0d 0a 6e 3d 72 65 67 38 37 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | ...n=reg87*2;....ox=reg00;.rx=re |
408e0 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
40900 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
40920 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
40940 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 | y=cos(ry);cz=cos(rz);....add=0;. |
40960 | 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 | ....tb=0;..gt.=.gettime(0).....f |
40980 | 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 12 00 00 00 10 00 00 00 00 00 00 | lo=7............................ |
409a0 | 00 02 00 00 00 00 00 00 00 80 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f | .............l.P.Holden03:.Convo |
409c0 | 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | lution.Filter................... |
409e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40a20 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40a40 | 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40a60 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 05 00 00 | ................................ |
40ac0 | 00 00 00 00 00 80 00 00 00 fe ff ff ff 93 02 00 00 80 00 01 0d 24 23 00 00 00 80 00 00 00 00 00 | .....................$#......... |
40ae0 | 00 00 05 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e | .......................@..AVS.2. |
40b00 | 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 26 00 00 00 00 00 | 8+.Effect.List.Config.....&..... |
40b20 | 00 00 1a 00 00 00 2f 2f 20 66 6f 63 61 6c 20 62 6c 75 72 20 62 6c 75 72 72 69 6e 67 20 45 4c 00 | ......//.focal.blur.blurring.EL. |
40b40 | 00 00 00 00 12 00 00 00 10 00 00 00 01 00 00 00 02 00 00 00 04 00 00 00 80 00 00 00 6c bb 50 02 | ............................l.P. |
40b60 | 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 | Holden03:.Convolution.Filter.... |
40b80 | dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 | ................................ |
40bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40be0 | 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40c00 | 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 | ................................ |
40c60 | 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 | l.P.Holden03:.Convolution.Filter |
40c80 | 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
40cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
40ce0 | 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
40d00 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40d60 | 08 00 00 00 17 00 00 00 28 00 00 00 01 00 00 00 00 00 00 00 02 00 00 00 1e 00 00 00 01 00 00 00 | ........(....................... |
40d80 | 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 04 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 | ....................l.P.Holden03 |
40da0 | 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 | :.Convolution.Filter............ |
40dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40e20 | 00 00 00 00 00 00 00 00 01 00 00 00 0c 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40e40 | 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 6c bb 50 02 48 6f 6c 64 | ........................l.P.Hold |
40ea0 | 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 | en03:.Convolution.Filter........ |
40ec0 | 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40f20 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 0c 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40f40 | 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
40f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 fe ff ff ff | ................................ |
40fa0 | 0b 09 00 00 81 01 02 0b 24 26 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ........$&...................... |
40fc0 | 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 | ..........@..AVS.2.8+.Effect.Lis |
40fe0 | 74 20 43 6f 6e 66 69 67 00 00 00 00 00 66 00 00 00 01 00 00 00 00 00 00 00 5a 00 00 00 68 6b 65 | t.Config.....f...........Z...hke |
41000 | 79 3d 67 65 74 6b 62 6d 6f 75 73 65 28 37 32 29 3b 0d 0a 61 61 3d 6d 69 6e 28 6d 61 78 28 61 61 | y=getkbmouse(72);..aa=min(max(aa |
41020 | 2b 68 6b 65 79 2a 2e 33 2d 2e 31 35 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 | +hkey*.3-.15,0),1);..alphaout=aa |
41040 | 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 00 1c 00 00 00 c9 00 00 00 01 | ;..enabled=above(aa,0).......... |
41060 | 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 | ................................ |
41080 | 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c6 01 00 00 00 00 18 34 c7 00 b4 00 00 00 41 | ...........<...n........4......A |
410a0 | 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 | ............................!... |
410c0 | 00 00 00 00 00 00 00 e8 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 | ................................ |
410e0 | 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .."Arial........................ |
41100 | 00 00 00 05 00 00 00 48 65 6c 70 00 01 00 00 00 00 00 00 00 00 00 00 00 db ff ff ff 01 00 00 00 | .......Help..................... |
41120 | 00 00 00 00 00 00 00 00 1c 00 00 00 fa 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 | ................................ |
41140 | 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 | ............................<... |
41160 | 6e 02 c7 01 00 00 00 00 68 b7 da 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 | n.......h...P...A............... |
41180 | 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 | .............!.................. |
411a0 | 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 | ..................."Arial....... |
411c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 36 00 00 00 43 4c 49 43 4b 20 61 6e | ....................6...CLICK.an |
411e0 | 64 20 44 52 41 47 20 28 59 20 41 58 49 53 29 20 2d 20 4d 6f 76 65 20 66 6f 72 65 77 61 72 64 20 | d.DRAG.(Y.AXIS).-.Move.foreward. |
41200 | 61 6e 64 20 62 61 63 6b 77 61 72 64 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 e3 ff ff ff 01 00 | and.backward.................... |
41220 | 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 f3 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 | ................................ |
41240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 | ..............................<. |
41260 | 00 00 6e 02 c7 01 00 00 00 00 10 e4 cd 00 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 | ..n...........P...A............. |
41280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 | ...............!................ |
412a0 | 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 | ....................."Arial..... |
412c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2f 00 00 00 43 4c 49 43 4b 20 | ....................../...CLICK. |
412e0 | 61 6e 64 20 44 52 41 47 20 28 58 20 41 58 49 53 29 20 2d 20 54 75 72 6e 20 72 69 67 68 74 20 61 | and.DRAG.(X.AXIS).-.Turn.right.a |
41300 | 6e 64 20 6c 65 66 74 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 e8 ff ff ff 01 00 00 00 00 00 00 | nd.left......................... |
41320 | 00 00 00 00 00 1c 00 00 00 f7 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
41340 | 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 | .........................<...n.. |
41360 | 01 00 00 00 00 40 fd e6 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 | .....@...P...A.................. |
41380 | 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 | ..........!..................... |
413a0 | 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 | ................"Arial.......... |
413c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 33 00 00 00 53 48 49 46 54 2f 43 4f 4e 54 52 | .................3...SHIFT/CONTR |
413e0 | 4f 4c 20 28 6e 6f 20 43 4c 49 43 4b 29 20 2d 20 4d 6f 76 65 20 6f 6e 65 20 66 6c 6f 6f 72 20 75 | OL.(no.CLICK).-.Move.one.floor.u |
41400 | 70 2f 64 6f 77 6e 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 ed ff ff ff 01 00 00 00 00 00 00 00 | p/down.......................... |
41420 | 00 00 00 00 1c 00 00 00 f3 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
41440 | 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 | ........................<...n... |
41460 | 00 00 00 00 a8 fa e6 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 | ........P...A................... |
41480 | 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 | .........!...................... |
414a0 | 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 | ..............."Arial........... |
414c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2f 00 00 00 53 48 49 46 54 2f 43 4f 4e 54 52 4f | ................/...SHIFT/CONTRO |
414e0 | 4c 20 28 77 68 69 6c 65 20 43 4c 49 43 4b 49 4e 47 29 20 2d 20 4c 6f 6f 6b 20 75 70 2f 64 6f 77 | L.(while.CLICKING).-.Look.up/dow |
41500 | 6e 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 f2 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c | n............................... |
41520 | 00 00 00 da 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
41540 | 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 10 | ...................<...n........ |
41560 | f8 e6 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...P...A........................ |
41580 | 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc | ....!........................... |
415a0 | 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........."Arial................ |
415c0 | 00 00 00 00 00 00 00 00 00 00 00 16 00 00 00 41 4c 54 20 2d 20 43 6c 61 6d 70 20 70 6f 73 69 74 | ...............ALT.-.Clamp.posit |
415e0 | 69 6f 6e 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 f7 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 | ion............................. |
41600 | 00 1c 00 00 00 d8 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
41620 | 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 | .....................<...n...... |
41640 | 00 78 f5 e6 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .x...P...A...................... |
41660 | 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 | ......!......................... |
41680 | 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ............"Arial.............. |
416a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 14 00 00 00 48 4f 4d 45 20 2d 20 54 6f 67 67 6c 65 20 67 | .................HOME.-.Toggle.g |
416c0 | 72 69 64 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 fc ff ff ff 01 00 00 00 00 00 00 00 00 00 00 | rid............................. |
416e0 | 00 1c 00 00 00 e1 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
41700 | 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 | .....................<...n...... |
41720 | 00 e0 f2 e6 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .....P...A...................... |
41740 | 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 | ......!......................... |
41760 | 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ............"Arial.............. |
41780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 1d 00 00 00 5b 46 5d 20 4b 45 59 20 2d 20 54 6f 67 67 6c | .................[F].KEY.-.Toggl |
417a0 | 65 20 66 6f 63 61 6c 20 62 6c 75 72 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 01 00 00 00 01 00 | e.focal.blur.................... |
417c0 | 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 dd 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 | ................................ |
417e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 | ..............................<. |
41800 | 00 00 6e 02 c7 01 00 00 00 00 48 f0 e6 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 | ..n.......H...P...A............. |
41820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 | ...............!................ |
41840 | 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 | ....................."Arial..... |
41860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 19 00 00 00 5b 48 5d 20 4b 45 | ..........................[H].KE |
41880 | 59 20 2d 20 53 68 6f 77 20 6b 65 79 20 68 65 6c 70 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 06 | Y.-.Show.key.help............... |
418a0 | 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d6 00 00 00 01 00 00 00 ff ff ff 00 00 | ................................ |
418c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 0f 00 00 00 0f | ................................ |
418e0 | 00 00 00 3c 00 00 00 6e 02 ed 00 00 00 00 00 d8 8f cf 00 78 00 00 00 41 01 01 00 ff ff ff 00 00 | ...<...n...........x...A........ |
41900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f0 | ....................!........... |
41920 | ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c | .........................."Arial |
41940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 00 00 00 46 | ...............................F |
41960 | 69 72 73 74 20 50 65 72 73 6f 6e 20 56 69 65 77 00 01 00 00 00 00 00 00 00 01 00 00 00 a3 ff ff | irst.Person.View................ |
41980 | ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d7 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 | ................................ |
419a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 | ................................ |
419c0 | 00 3c 00 00 00 6e 02 ed 00 00 00 00 00 40 8d cf 00 78 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 | .<...n.......@...x...A.......... |
419e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f0 ff ff | ..................!............. |
41a00 | ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 | ........................"Arial.. |
41a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 00 00 00 46 6c 6f | .............................Flo |
41a40 | 6f 72 20 24 28 72 65 67 37 31 3a 31 2e 30 29 00 01 00 00 00 00 00 00 00 01 00 00 00 ff ff ff ff | or.$(reg71:1.0)................. |
41a60 | 01 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff 89 05 00 00 80 00 00 0d 24 80 00 00 00 80 00 00 | ........................$....... |
41a80 | 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 | ..........................@..AVS |
41aa0 | 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 60 00 00 | .2.8+.Effect.List.Config.....`.. |
41ac0 | 00 01 00 00 00 00 00 00 00 54 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 | .........T...ta=below(gettime(-1 |
41ae0 | 29 2c 35 29 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d 74 61 29 | ),5);..tt=min(max(tt-sign(tt-ta) |
41b00 | 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 74 74 2c 30 29 | *.02,0),1);..enabled=above(tt,0) |
41b20 | 00 fe ff ff ff fc 01 00 00 81 01 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 | .............$.................. |
41b40 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 | ...............@..AVS.2.8+.Effec |
41b60 | 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 d7 00 00 00 00 00 00 00 00 00 00 00 cb 00 | t.List.Config................... |
41b80 | 00 00 6f 6e 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b 0d 0a 6f 66 66 3d | ..on=below(gettime(-1),5);..off= |
41ba0 | 62 6e 6f 74 28 6f 6e 29 3b 0d 0a 69 66 28 6f 66 66 2c 61 73 73 69 67 6e 28 64 6f 6e 65 2c 30 29 | bnot(on);..if(off,assign(done,0) |
41bc0 | 2b 61 73 73 69 67 6e 28 67 6f 2c 30 29 2c 30 29 3b 0d 0a 69 66 28 6f 6e 26 62 6e 6f 74 28 64 6f | +assign(go,0),0);..if(on&bnot(do |
41be0 | 6e 65 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2b 61 73 73 69 67 6e 28 64 6f 6e 65 2c 31 29 2c | ne),assign(go,1)+assign(done,1), |
41c00 | 61 73 73 69 67 6e 28 67 6f 2c 30 29 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 | assign(go,0));..if(below(gettime |
41c20 | 28 2d 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 30 29 3b 0d 0a 65 6e 61 62 6c | (-1),.5),assign(go,1),0);..enabl |
41c40 | 65 64 3d 67 6f 7c 72 65 67 31 35 3b 00 1c 00 00 00 d0 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 | ed=go|reg15;.................... |
41c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f 00 00 00 0f 00 00 | ................................ |
41c80 | 00 3c 00 00 00 d4 02 ca 00 00 00 00 00 a8 8a cf 00 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 | .<...............P...A.......... |
41ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff | ..................!............. |
41cc0 | ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 | ........................"Arial.. |
41ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 00 00 00 24 28 74 | .............................$(t |
41d00 | 69 74 6c 65 3a 34 36 29 00 00 00 00 00 00 00 00 00 0a 00 00 00 2e 00 00 00 01 00 00 00 00 00 00 | itle:46)........................ |
41d20 | 00 00 00 00 00 fe ff ff ff d0 02 00 00 82 02 01 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 | .................$.............. |
41d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 | ...................@..AVS.2.8+.E |
41d60 | 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 af 00 00 00 01 00 00 00 00 00 | ffect.List.Config............... |
41d80 | 00 00 a3 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b 0d 0a | ......ta=below(gettime(-1),5);.. |
41da0 | 74 6f 3d 74 74 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d 74 61 | to=tt;..tt=min(max(tt-sign(tt-ta |
41dc0 | 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d | )*.02,0),1);..if(below(gettime(- |
41de0 | 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 61 73 73 69 67 6e 28 67 6f 2c 30 29 | 1),.5),assign(go,1),assign(go,0) |
41e00 | 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 62 6e 6f 74 28 65 71 75 61 6c 28 74 6f 2c 74 74 29 29 7c 67 | );..enabled=bnot(equal(to,tt))|g |
41e20 | 6f 7c 72 65 67 31 35 3b 00 fe ff ff ff cc 01 00 00 81 01 0a 01 24 80 00 00 00 80 00 00 00 00 00 | o|reg15;.............$.......... |
41e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e | .......................@..AVS.2. |
41e60 | 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 63 00 00 00 01 00 | 8+.Effect.List.Config.....c..... |
41e80 | 00 00 00 00 00 00 57 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 | ......W...ta=below(gettime(-1),5 |
41ea0 | 29 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d 74 61 29 2a 2e 30 | );..tt=min(max(tt-sign(tt-ta)*.0 |
41ec0 | 32 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 69 6e 3d 74 74 3b 0d 0a 65 6e 61 62 6c 65 64 3d 31 | 2,0),1);..alphain=tt;..enabled=1 |
41ee0 | 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 | .l.P.Holden03:.Convolution.Filte |
41f00 | 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | r............................... |
41f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
41f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
41f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 | ................................ |
41f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
41fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
41fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
41fe0 | 00 01 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 80 00 00 00 fe ff ff | ................................ |
42000 | ff 1f 4d 01 00 80 00 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..M......$...................... |
42020 | 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 | ...........@..AVS.2.8+.Effect.Li |
42040 | 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 35 00 00 00 01 00 00 00 12 00 00 00 2f 2f 20 61 75 74 | st.Config.....5...........//.aut |
42060 | 6f 6d 61 74 65 64 20 76 69 65 77 00 17 00 00 00 65 6e 61 62 6c 65 64 3d 65 71 75 61 6c 28 72 65 | omated.view.....enabled=equal(re |
42080 | 67 31 34 2c 34 29 00 24 00 00 00 13 0c 00 00 01 27 01 00 00 2f 2f 20 6f 6e 63 65 20 61 67 61 69 | g14,4).$........'...//.once.agai |
420a0 | 6e 2c 20 74 68 65 20 63 61 6d 65 72 61 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 6d 6f 73 74 | n,.the.camera.variables.are.most |
420c0 | 6c 79 20 74 68 65 20 73 61 6d 65 2c 0d 0a 2f 2f 20 62 75 74 20 61 20 62 69 74 20 6d 6f 72 65 20 | ly.the.same,..//.but.a.bit.more. |
420e0 | 69 73 20 67 6f 69 6e 67 20 6f 6e 20 68 65 72 65 20 73 69 6e 63 65 20 74 68 69 73 20 69 73 20 74 | is.going.on.here.since.this.is.t |
42100 | 68 65 20 63 6f 64 65 20 66 6f 72 0d 0a 2f 2f 20 74 68 65 20 41 75 74 6f 6d 61 74 65 20 56 69 65 | he.code.for..//.the.Automate.Vie |
42120 | 77 2e 20 74 68 65 72 65 20 61 72 65 20 61 20 62 75 6e 63 68 20 6f 66 20 65 78 74 72 61 20 76 61 | w..there.are.a.bunch.of.extra.va |
42140 | 72 69 61 62 6c 65 73 20 66 6f 72 0d 0a 2f 2f 20 73 6d 6f 6f 74 68 69 6e 67 20 70 75 72 70 6f 73 | riables.for..//.smoothing.purpos |
42160 | 65 73 2c 20 62 75 74 20 69 74 20 69 73 6e 27 74 20 72 65 61 6c 6c 79 20 6d 75 63 68 20 6d 6f 72 | es,.but.it.isn't.really.much.mor |
42180 | 65 0d 0a 2f 2f 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 74 68 61 6e 20 74 68 65 20 6f 74 68 65 72 | e..//.complicated.than.the.other |
421a0 | 20 63 61 6d 65 72 61 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 73 63 6f 70 65 73 2e 00 8f 07 00 00 74 | .camera.controller.scopes......t |
421c0 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
421e0 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
42200 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
42220 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
42240 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e | mouse(1);ymouse=getkbmouse(2);in |
42260 | 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f | bounds=below(abs(xmouse),1)&belo |
42280 | 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | w(abs(ymouse),1);xmousec=min(max |
422a0 | 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 | (xmouse,-1),1);ymousec=min(max(y |
422c0 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse,-1),1);lmouse.=.getkbmouse |
422e0 | 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 6c 6d 6f 75 73 | (3);rmouse.=.getkbmouse(4);lmous |
42300 | 65 3d 6c 6d 6f 75 73 65 7c 72 6d 6f 75 73 65 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | e=lmouse|rmouse;shift.=.getkbmou |
42320 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
42340 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
42360 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
42380 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
423a0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
423c0 | 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c | se(40);sizechange=bnot(equal(oh, |
423e0 | 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b | h))|bnot(equal(ow,w));oh=h;ow=w; |
42400 | 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c | hw=h/w;click=bnot(olm)*lmouse;ol |
42420 | 6d 3d 6c 6d 6f 75 73 65 3b 64 65 6c 65 74 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 34 36 29 3b 61 | m=lmouse;delete=getkbmouse(46);a |
42440 | 6c 74 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 29 3b 68 6f 6d 65 3d 67 65 74 6b 62 6d 6f 75 73 | lt=getkbmouse(18);home=getkbmous |
42460 | 65 28 33 36 29 3b 74 61 62 3d 67 65 74 6b 62 6d 6f 75 73 65 28 39 29 3b 65 6e 64 3d 67 65 74 6b | e(36);tab=getkbmouse(9);end=getk |
42480 | 62 6d 6f 75 73 65 28 33 35 29 3b 0d 0a 0d 0a 69 66 28 72 65 67 34 32 2c 61 73 73 69 67 6e 28 64 | bmouse(35);....if(reg42,assign(d |
424a0 | 65 6c 74 61 74 69 6d 65 2c 30 29 2c 30 29 3b 0d 0a 6d 76 3d 70 6f 77 28 6d 61 78 28 72 65 67 39 | eltatime,0),0);..mv=pow(max(reg9 |
424c0 | 35 2d 2e 30 32 2c 30 29 2c 2e 32 29 3b 0d 0a 72 65 67 39 35 3d 6d 61 78 28 6d 69 6e 28 72 65 67 | 5-.02,0),.2);..reg95=max(min(reg |
424e0 | 39 35 2b 73 68 69 66 74 2a 2e 30 31 2d 63 6f 6e 74 72 6f 6c 2a 2e 30 31 2c 31 29 2c 30 29 3b 0d | 95+shift*.01-control*.01,1),0);. |
42500 | 0a 72 65 67 32 35 3d 6d 61 78 28 6d 69 6e 28 72 65 67 32 35 2b 65 6e 64 2a 2e 30 31 2d 64 65 6c | .reg25=max(min(reg25+end*.01-del |
42520 | 65 74 65 2a 2e 30 31 2c 31 29 2c 30 29 3b 0d 0a 0d 0a 69 66 28 65 71 75 61 6c 28 67 65 74 74 69 | ete*.01,1),0);....if(equal(getti |
42540 | 6d 65 28 2d 31 29 2c 6f 67 74 29 2c 61 73 73 69 67 6e 28 61 75 74 6f 32 2c 61 75 74 6f 32 2b 31 | me(-1),ogt),assign(auto2,auto2+1 |
42560 | 29 2c 61 73 73 69 67 6e 28 61 75 74 6f 32 2c 30 29 29 3b 0d 0a 61 75 74 6f 3d 61 62 6f 76 65 28 | ),assign(auto2,0));..auto=above( |
42580 | 61 75 74 6f 32 2c 31 35 29 3b 6f 67 74 3d 67 65 74 74 69 6d 65 28 2d 31 29 3b 0d 0a 0d 0a 78 69 | auto2,15);ogt=gettime(-1);....xi |
425a0 | 3d 78 69 2a 2e 39 2b 78 6d 6f 75 73 65 2a 2e 31 2a 69 6e 62 6f 75 6e 64 73 2a 6c 6d 6f 75 73 65 | =xi*.9+xmouse*.1*inbounds*lmouse |
425c0 | 3b 0d 0a 79 69 3d 79 69 2a 2e 39 2b 79 6d 6f 75 73 65 2a 2e 31 2a 69 6e 62 6f 75 6e 64 73 2a 6c | ;..yi=yi*.9+ymouse*.1*inbounds*l |
425e0 | 6d 6f 75 73 65 3b 0d 0a 0d 0a 78 70 6f 73 3d 78 70 6f 73 2a 6d 76 2b 78 70 6f 73 74 2a 28 31 2d | mouse;....xpos=xpos*mv+xpost*(1- |
42600 | 6d 76 29 3b 0d 0a 79 70 6f 73 3d 79 70 6f 73 2a 6d 76 2b 79 70 6f 73 74 2a 28 31 2d 6d 76 29 3b | mv);..ypos=ypos*mv+ypost*(1-mv); |
42620 | 0d 0a 7a 70 6f 73 3d 7a 70 6f 73 2a 6d 76 2b 7a 70 6f 73 74 2a 28 31 2d 6d 76 29 3b 0d 0a 78 76 | ..zpos=zpos*mv+zpost*(1-mv);..xv |
42640 | 3d 78 76 2a 6d 76 2b 78 76 74 2a 28 31 2d 6d 76 29 3b 0d 0a 79 76 3d 79 76 2a 6d 76 2b 79 76 74 | =xv*mv+xvt*(1-mv);..yv=yv*mv+yvt |
42660 | 2a 28 31 2d 6d 76 29 3b 0d 0a 7a 76 3d 7a 76 2a 6d 76 2b 7a 76 74 2a 28 31 2d 6d 76 29 3b 0d 0a | *(1-mv);..zv=zv*mv+zvt*(1-mv);.. |
42680 | 0d 0a 78 74 61 72 67 3d 78 74 61 72 67 2a 6d 76 2b 78 74 61 72 67 74 2a 28 31 2d 6d 76 29 3b 0d | ..xtarg=xtarg*mv+xtargt*(1-mv);. |
426a0 | 0a 79 74 61 72 67 3d 79 74 61 72 67 2a 6d 76 2b 79 74 61 72 67 74 2a 28 31 2d 6d 76 29 3b 0d 0a | .ytarg=ytarg*mv+ytargt*(1-mv);.. |
426c0 | 7a 74 61 72 67 3d 7a 74 61 72 67 2a 6d 76 2b 7a 74 61 72 67 74 2a 28 31 2d 6d 76 29 3b 0d 0a 78 | ztarg=ztarg*mv+ztargt*(1-mv);..x |
426e0 | 70 6f 73 74 3d 78 70 6f 73 74 2b 78 76 2a 64 65 6c 74 61 74 69 6d 65 2a 35 30 3b 0d 0a 79 70 6f | post=xpost+xv*deltatime*50;..ypo |
42700 | 73 74 3d 79 70 6f 73 74 2b 79 76 2a 64 65 6c 74 61 74 69 6d 65 2a 35 30 3b 0d 0a 7a 70 6f 73 74 | st=ypost+yv*deltatime*50;..zpost |
42720 | 3d 7a 70 6f 73 74 2b 7a 76 2a 64 65 6c 74 61 74 69 6d 65 2a 35 30 3b 0d 0a 0d 0a 78 70 6f 73 20 | =zpost+zv*deltatime*50;....xpos. |
42740 | 3d 20 78 70 6f 73 2b 78 76 3b 0d 0a 79 70 6f 73 20 3d 20 79 70 6f 73 2b 79 76 3b 0d 0a 7a 70 6f | =.xpos+xv;..ypos.=.ypos+yv;..zpo |
42760 | 73 20 3d 20 7a 70 6f 73 2b 7a 76 3b 0d 0a 69 66 28 61 75 74 6f 2c 0d 0a 61 73 73 69 67 6e 28 78 | s.=.zpos+zv;..if(auto,..assign(x |
42780 | 74 61 72 67 2c 72 65 67 37 36 29 2b 0d 0a 61 73 73 69 67 6e 28 7a 74 61 72 67 2c 2d 72 65 67 37 | targ,reg76)+..assign(ztarg,-reg7 |
427a0 | 37 29 2b 0d 0a 61 73 73 69 67 6e 28 79 74 61 72 67 2c 73 69 6e 28 74 69 6d 65 2a 2e 33 34 33 29 | 7)+..assign(ytarg,sin(time*.343) |
427c0 | 2a 32 2b 32 2e 35 29 2b 0d 0a 61 73 73 69 67 6e 28 78 70 6f 73 2c 78 74 61 72 67 2b 73 69 6e 28 | *2+2.5)+..assign(xpos,xtarg+sin( |
427e0 | 74 69 6d 65 2a 2e 35 29 2a 35 29 2b 0d 0a 61 73 73 69 67 6e 28 79 70 6f 73 2c 73 69 6e 28 74 69 | time*.5)*5)+..assign(ypos,sin(ti |
42800 | 6d 65 2a 2e 32 37 29 2a 33 2b 33 2e 35 29 2b 0d 0a 61 73 73 69 67 6e 28 7a 70 6f 73 2c 7a 74 61 | me*.27)*3+3.5)+..assign(zpos,zta |
42820 | 72 67 2b 63 6f 73 28 74 69 6d 65 2a 2e 35 29 2a 35 29 2c 30 29 3b 0d 0a 78 70 6f 73 32 3d 78 70 | rg+cos(time*.5)*5),0);..xpos2=xp |
42840 | 6f 73 2d 78 74 61 72 67 3b 0d 0a 79 70 6f 73 32 3d 79 70 6f 73 2d 79 74 61 72 67 3b 0d 0a 7a 70 | os-xtarg;..ypos2=ypos-ytarg;..zp |
42860 | 6f 73 32 3d 7a 70 6f 73 2d 7a 74 61 72 67 3b 0d 0a 79 70 6f 73 3d 6d 61 78 28 79 70 6f 73 2c 2e | os2=zpos-ztarg;..ypos=max(ypos,. |
42880 | 33 35 29 3b 0d 0a 78 72 6f 74 20 3d 20 61 74 61 6e 32 28 73 71 72 74 28 78 70 6f 73 32 2a 78 70 | 35);..xrot.=.atan2(sqrt(xpos2*xp |
428a0 | 6f 73 32 2b 7a 70 6f 73 32 2a 7a 70 6f 73 32 29 2c 79 70 6f 73 32 29 2d 24 70 69 2f 32 2d 79 69 | os2+zpos2*zpos2),ypos2)-$pi/2-yi |
428c0 | 3b 0d 0a 79 72 6f 74 20 3d 20 61 74 61 6e 32 28 7a 70 6f 73 32 2c 78 70 6f 73 32 29 2b 24 70 69 | ;..yrot.=.atan2(zpos2,xpos2)+$pi |
428e0 | 2f 32 2d 78 69 3b 0d 0a 7a 72 6f 74 20 3d 20 30 3b 0d 0a 0d 0a 72 65 67 30 30 20 3d 20 78 70 6f | /2-xi;..zrot.=.0;....reg00.=.xpo |
42900 | 73 3b 0d 0a 72 65 67 30 31 20 3d 20 79 70 6f 73 3b 0d 0a 72 65 67 30 32 20 3d 20 7a 70 6f 73 3b | s;..reg01.=.ypos;..reg02.=.zpos; |
42920 | 0d 0a 72 65 67 30 33 20 3d 20 78 72 6f 74 3b 0d 0a 72 65 67 30 34 20 3d 20 79 72 6f 74 3b 0d 0a | ..reg03.=.xrot;..reg04.=.yrot;.. |
42940 | 72 65 67 30 35 20 3d 20 7a 72 6f 74 3b 00 b9 01 00 00 62 62 3d 62 62 2b 31 3b 0d 0a 68 69 74 69 | reg05.=.zrot;.....bb=bb+1;..hiti |
42960 | 74 3d 61 62 6f 76 65 28 74 69 6d 65 62 2c 2e 32 35 29 26 28 62 62 25 32 29 3b 0d 0a 74 62 3d 30 | t=above(timeb,.25)&(bb%2);..tb=0 |
42980 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 0d 0a 69 66 28 68 69 74 69 74 2c 0d 0a | ;..gt.=.gettime(0);..if(hitit,.. |
429a0 | 61 73 73 69 67 6e 28 78 70 6f 73 74 2c 28 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 29 2a 31 | assign(xpost,(rand(1024)/1024)*1 |
429c0 | 30 2d 35 29 2b 0d 0a 61 73 73 69 67 6e 28 7a 70 6f 73 74 2c 28 72 61 6e 64 28 31 30 32 34 29 2f | 0-5)+..assign(zpost,(rand(1024)/ |
429e0 | 31 30 32 34 29 2a 31 30 2d 35 29 2b 0d 0a 61 73 73 69 67 6e 28 79 70 6f 73 74 2c 28 72 61 6e 64 | 1024)*10-5)+..assign(ypost,(rand |
42a00 | 28 31 30 32 34 29 2f 31 30 32 34 29 2a 36 2b 2e 31 35 29 2b 0d 0a 61 73 73 69 67 6e 28 78 76 74 | (1024)/1024)*6+.15)+..assign(xvt |
42a20 | 2c 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 2a 2e 31 2d 2e 30 35 29 2b 0d 0a 61 73 73 69 67 | ,rand(1024)/1024*.1-.05)+..assig |
42a40 | 6e 28 7a 76 74 2c 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 2a 2e 31 2d 2e 30 35 29 2b 0d 0a | n(zvt,rand(1024)/1024*.1-.05)+.. |
42a60 | 61 73 73 69 67 6e 28 79 76 74 2c 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 2a 2e 30 35 2d 2e | assign(yvt,rand(1024)/1024*.05-. |
42a80 | 30 30 32 35 29 2b 0d 0a 61 73 73 69 67 6e 28 78 74 61 72 67 74 2c 28 72 61 6e 64 28 31 30 32 34 | 0025)+..assign(xtargt,(rand(1024 |
42aa0 | 29 2f 31 30 32 34 29 2a 36 2d 33 2b 72 65 67 37 36 29 2b 0d 0a 61 73 73 69 67 6e 28 7a 74 61 72 | )/1024)*6-3+reg76)+..assign(ztar |
42ac0 | 67 74 2c 28 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 29 2a 36 2d 33 2b 72 65 67 37 37 29 2b | gt,(rand(1024)/1024)*6-3+reg77)+ |
42ae0 | 0d 0a 61 73 73 69 67 6e 28 79 74 61 72 67 74 2c 28 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 | ..assign(ytargt,(rand(1024)/1024 |
42b00 | 29 2a 33 29 2c 30 29 3b 0d 0a 00 83 01 00 00 2f 2f 20 43 61 6d 65 72 61 20 43 6f 64 65 0d 0a 61 | )*3),0);.......//.Camera.Code..a |
42b20 | 75 74 6f 3d 31 3b 6d 76 3d 30 3b 0d 0a 61 73 73 69 67 6e 28 78 70 6f 73 74 2c 28 72 61 6e 64 28 | uto=1;mv=0;..assign(xpost,(rand( |
42b40 | 31 30 32 34 29 2f 31 30 32 34 29 2a 31 30 2d 35 29 2b 0d 0a 61 73 73 69 67 6e 28 7a 70 6f 73 74 | 1024)/1024)*10-5)+..assign(zpost |
42b60 | 2c 28 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 29 2a 31 30 2d 35 29 2b 0d 0a 61 73 73 69 67 | ,(rand(1024)/1024)*10-5)+..assig |
42b80 | 6e 28 79 70 6f 73 74 2c 28 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 29 2a 38 2b 2e 31 35 29 | n(ypost,(rand(1024)/1024)*8+.15) |
42ba0 | 2b 0d 0a 61 73 73 69 67 6e 28 78 76 74 2c 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 2a 2e 31 | +..assign(xvt,rand(1024)/1024*.1 |
42bc0 | 2d 2e 30 35 29 2b 0d 0a 61 73 73 69 67 6e 28 7a 76 74 2c 72 61 6e 64 28 31 30 32 34 29 2f 31 30 | -.05)+..assign(zvt,rand(1024)/10 |
42be0 | 32 34 2a 2e 31 2d 2e 30 35 29 2b 0d 0a 61 73 73 69 67 6e 28 79 76 74 2c 72 61 6e 64 28 31 30 32 | 24*.1-.05)+..assign(yvt,rand(102 |
42c00 | 34 29 2f 31 30 32 34 2a 2e 30 35 2d 2e 30 30 32 35 29 2b 0d 0a 61 73 73 69 67 6e 28 78 74 61 72 | 4)/1024*.05-.0025)+..assign(xtar |
42c20 | 67 74 2c 28 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 29 2a 38 2d 34 2b 72 65 67 37 36 29 2b | gt,(rand(1024)/1024)*8-4+reg76)+ |
42c40 | 0d 0a 61 73 73 69 67 6e 28 7a 74 61 72 67 74 2c 28 72 61 6e 64 28 31 30 32 34 29 2f 31 30 32 34 | ..assign(ztargt,(rand(1024)/1024 |
42c60 | 29 2a 38 2d 34 2d 72 65 67 37 37 29 2b 0d 0a 61 73 73 69 67 6e 28 79 74 61 72 67 74 2c 28 72 61 | )*8-4-reg77)+..assign(ytargt,(ra |
42c80 | 6e 64 28 31 30 32 34 29 2f 31 30 32 34 29 2a 33 29 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 | nd(1024)/1024)*3)............... |
42ca0 | 00 00 19 00 00 00 14 00 00 00 01 00 00 00 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 fe ff | ..............P................. |
42cc0 | ff ff e5 04 00 00 82 02 00 0b 24 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..........$..................... |
42ce0 | 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c | ............@..AVS.2.8+.Effect.L |
42d00 | 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 5f 00 00 00 01 00 00 00 06 00 00 00 61 61 3d 31 3b | ist.Config....._...........aa=1; |
42d20 | 00 4d 00 00 00 61 61 3d 6d 61 78 28 6d 69 6e 28 61 61 2b 73 69 67 6e 28 72 65 67 35 35 2d 61 61 | .M...aa=max(min(aa+sign(reg55-aa |
42d40 | 29 2a 2e 31 2c 31 29 2c 30 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c | )*.1,1),0);..alphaout=aa;..enabl |
42d60 | 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 3b 0d 0a 00 19 00 00 00 14 00 00 00 01 00 00 00 50 00 | ed=above(aa,0);...............P. |
42d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2b 00 00 00 15 04 00 00 01 2c 01 00 00 64 78 3d 78 2a | ..............+........,...dx=x* |
42da0 | 69 68 77 3b 64 79 3d 79 3b 64 7a 3d 31 3b 0d 0a 0d 0a 64 78 31 3d 64 78 2a 63 7a 2d 64 79 2a 73 | ihw;dy=y;dz=1;....dx1=dx*cz-dy*s |
42dc0 | 7a 3b 0d 0a 64 79 31 3d 64 78 2a 73 7a 2b 64 79 2a 63 7a 3b 0d 0a 64 79 33 3d 64 79 31 2a 63 78 | z;..dy1=dx*sz+dy*cz;..dy3=dy1*cx |
42de0 | 2d 64 7a 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 31 2a 73 78 2b 64 7a 2a 63 78 3b 0d 0a 64 78 33 3d | -dz*sx;..dz2=dy1*sx+dz*cx;..dx3= |
42e00 | 64 78 31 2a 63 79 2d 64 7a 32 2a 73 79 3b 0d 0a 64 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 | dx1*cy-dz2*sy;..dz3=dx1*sy+dz2*c |
42e20 | 79 3b 0d 0a 0d 0a 6b 3d 28 2d 6f 79 29 2f 28 2d 64 79 33 29 3b 0d 0a 6b 3d 69 66 28 62 65 6c 6f | y;....k=(-oy)/(-dy3);..k=if(belo |
42e40 | 77 28 6b 2c 30 29 2c 31 30 30 2c 6b 29 3b 0d 0a 0d 0a 78 31 3d 6b 2a 64 78 33 2b 6f 78 3b 0d 0a | w(k,0),100,k);....x1=k*dx3+ox;.. |
42e60 | 79 31 3d 6b 2a 64 79 33 2b 6f 79 3b 0d 0a 7a 31 3d 6b 2a 64 7a 33 2b 6f 7a 3b 0d 0a 0d 0a 78 3d | y1=k*dy3+oy;..z1=k*dz3+oz;....x= |
42e80 | 78 31 2b 31 3b 0d 0a 79 3d 2d 7a 31 2b 31 3b 0d 0a 0d 0a 61 6c 70 68 61 20 3d 28 31 2e 37 35 2d | x1+1;..y=-z1+1;....alpha.=(1.75- |
42ea0 | 73 71 72 74 28 78 31 2a 78 31 2b 7a 31 2a 7a 31 29 2a 2e 31 37 35 29 2a 61 62 6f 76 65 28 79 31 | sqrt(x1*x1+z1*z1)*.175)*above(y1 |
42ec0 | 2c 2d 31 30 30 29 00 b1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 | ,-100).....t=t+1;deltatime.=.get |
42ee0 | 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 | time(time);fr=fr*.9+deltatime*.1 |
42f00 | 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 | ;framerate=1/fr;time.=.gettime(0 |
42f20 | 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b | );tb.=.tb+1;timeb.=.gettime(gt); |
42f40 | 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b | xmouse=getkbmouse(1);ymouse=getk |
42f60 | 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f | bmouse(2);inbounds=below(abs(xmo |
42f80 | 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 6c 6d 6f | use),1)&below(abs(ymouse),1);lmo |
42fa0 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 | use.=.getkbmouse(3);rmouse.=.get |
42fc0 | 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 | kbmouse(4);shift.=.getkbmouse(5) |
42fe0 | 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 | ;control.=.getkbmouse(17);backsp |
43000 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b | ace.=.getkbmouse(8);space.=.getk |
43020 | 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 | bmouse(32);right.=.getkbmouse(39 |
43040 | 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 | );left.=.getkbmouse(37);up.=.get |
43060 | 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 | kbmouse(38);down.=.getkbmouse(40 |
43080 | 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | );sizechange=bnot(equal(oh,h))|b |
430a0 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
430c0 | 77 3b 0d 0a 72 65 67 33 33 3d 66 72 61 6d 65 72 61 74 65 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 0d | w;..reg33=framerate;..ox=reg00;. |
430e0 | 0a 6f 79 3d 72 65 67 30 31 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 0d 0a 0d 0a 78 72 6f 74 3d 72 65 | .oy=reg01;..oz=reg02;....xrot=re |
43100 | 67 30 33 3b 0d 0a 79 72 6f 74 3d 72 65 67 30 34 3b 0d 0a 7a 72 6f 74 3d 72 65 67 30 35 3b 0d 0a | g03;..yrot=reg04;..zrot=reg05;.. |
43120 | 0d 0a 73 78 3d 73 69 6e 28 78 72 6f 74 29 3b 73 79 3d 73 69 6e 28 79 72 6f 74 29 3b 73 7a 3d 73 | ..sx=sin(xrot);sy=sin(yrot);sz=s |
43140 | 69 6e 28 7a 72 6f 74 29 3b 0d 0a 63 78 3d 63 6f 73 28 78 72 6f 74 29 3b 63 79 3d 63 6f 73 28 79 | in(zrot);..cx=cos(xrot);cy=cos(y |
43160 | 72 6f 74 29 3b 63 7a 3d 63 6f 73 28 7a 72 6f 74 29 3b 20 69 68 77 3d 31 2f 68 77 00 00 00 00 00 | rot);cz=cos(zrot);.ihw=1/hw..... |
43180 | 07 00 00 00 70 69 3d 24 70 69 00 00 00 00 00 01 00 00 00 0c 00 00 00 28 00 00 00 01 00 00 00 01 | ....pi=$pi.............(........ |
431a0 | 00 00 00 01 00 00 00 00 00 00 00 fe ff ff ff 22 06 00 00 82 02 00 0a 24 80 00 00 00 80 00 00 00 | ...............".......$........ |
431c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 | .........................@..AVS. |
431e0 | 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 be 02 00 00 | 2.8+.Effect.List.Config......... |
43200 | 01 00 00 00 00 00 00 00 b2 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | ............t=t+1;deltatime.=.ge |
43220 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
43240 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
43260 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
43280 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
432a0 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
432c0 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
432e0 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
43300 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
43320 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
43340 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
43360 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
43380 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
433a0 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
433c0 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
433e0 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
43400 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 70 61 67 65 75 | al(ow,w));oh=h;ow=w;hw=h/w;pageu |
43420 | 70 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 33 29 3b 0d 0a 0d 0a 69 66 28 62 6e 6f 74 28 6f 6e 29 | p=getkbmouse(33);....if(bnot(on) |
43440 | 26 61 62 6f 76 65 28 72 65 67 33 34 2c 31 36 29 2c 61 73 73 69 67 6e 28 6f 6e 2c 31 29 2c 30 29 | &above(reg34,16),assign(on,1),0) |
43460 | 3b 0d 0a 69 66 28 6f 6e 26 62 65 6c 6f 77 28 72 65 67 33 34 2c 31 32 29 2c 61 73 73 69 67 6e 28 | ;..if(on&below(reg34,12),assign( |
43480 | 6f 6e 2c 30 29 2c 30 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 74 2c 31 35 30 29 2c 61 73 73 69 67 | on,0),0);..if(below(t,150),assig |
434a0 | 6e 28 6f 6e 2c 31 29 2c 30 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 6f 6e 2b 72 65 67 33 33 00 fe ff | n(on,1),0);..enabled=on+reg33... |
434c0 | ff ff 0f 03 00 00 80 00 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..........$..................... |
434e0 | 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c | ............@..AVS.2.8+.Effect.L |
43500 | 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 21 02 00 00 01 00 00 00 00 00 00 00 15 02 00 00 74 | ist.Config.....!...............t |
43520 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
43540 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
43560 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
43580 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
435a0 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e | mouse(1);ymouse=getkbmouse(2);in |
435c0 | 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f | bounds=below(abs(xmouse),1)&belo |
435e0 | 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | w(abs(ymouse),1);lmouse.=.getkbm |
43600 | 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 | ouse(3);rmouse.=.getkbmouse(4);s |
43620 | 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 | hift.=.getkbmouse(5);control.=.g |
43640 | 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | etkbmouse(17);backspace.=.getkbm |
43660 | 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 | ouse(8);space.=.getkbmouse(32);r |
43680 | 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 | ight.=.getkbmouse(39);left.=.get |
436a0 | 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b | kbmouse(37);up.=.getkbmouse(38); |
436c0 | 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 | down.=.getkbmouse(40);sizechange |
436e0 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
43700 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 65 6e 61 62 6c 65 | ,w));oh=h;ow=w;hw=h/w;....enable |
43720 | 64 3d 6f 6e 3b 6f 6e 3d 73 69 7a 65 63 68 61 6e 67 65 3b 00 24 00 00 00 6a 00 00 00 01 3d 00 00 | d=on;on=sizechange;.$...j....=.. |
43740 | 00 78 3d 30 3b 79 3d 69 2a 32 2d 31 3b 0d 0a 63 3d 73 69 6e 28 69 2a 24 70 69 29 2a 2e 33 2b 2e | .x=0;y=i*2-1;..c=sin(i*$pi)*.3+. |
43760 | 37 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 00 06 00 | 7;..red=c;..green=c;..blue=c;... |
43780 | 00 00 6e 3d 68 2f 32 00 00 00 00 00 06 00 00 00 6e 3d 68 2f 32 00 02 00 00 00 01 00 00 00 ff ff | ..n=h/2.........n=h/2........... |
437a0 | ff 00 01 00 00 00 0f 00 00 00 27 00 00 00 ff 7f 00 00 01 0a 00 00 00 78 3d 30 3b 0d 0a 79 3d 64 | ..........'............x=0;..y=d |
437c0 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 fe ff ff ff 9f 8b 00 00 81 01 00 | ................................ |
437e0 | 05 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 | .$.............................. |
43800 | 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 | ...@..AVS.2.8+.Effect.List.Confi |
43820 | 67 00 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 28 00 00 00 04 00 00 00 02 00 | g.....................(......... |
43840 | 01 80 24 00 00 00 7d 04 00 00 01 8d 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 | ..$...}........dy=abs(getosc(asi |
43860 | 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a | n(sin(i*$pi))/$pi,.1,alt*.5)*1)* |
43880 | 32 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a | 2;..dx=10*sin(i*2*$pi);..dz=-10* |
438a0 | 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 | cos(i*2*$pi);....dy=dy-oy;dx=-dx |
438c0 | 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d | +ox;dz=dz-oz;..dx1=dx*cy-dz*sy;. |
438e0 | 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 | .dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1 |
43900 | 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 | *sx;..dz2=dy*sx+dz1*cx;..dx3=dx1 |
43920 | 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d | *cz-dy2*sz;..dy3=dx1*sz+dy2*cz;. |
43940 | 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 | ...dz3=max(dz2,.01);..x=-(dx3)/d |
43960 | 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 | z3*hw;..y=-(dy3)/dz3;..skip=equa |
43980 | 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 | l(dz3,.01);....c=1-dz3*.04;..red |
439a0 | 3d 63 2a 2e 36 36 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 36 36 3b 0d 0a 62 6c 75 65 3d 63 2a 2e 36 | =c*.66;..green=c*.66;..blue=c*.6 |
439c0 | 36 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 | 6;....num=num+1;..sw=-sw;....... |
439e0 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
43a00 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
43a20 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
43a40 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
43a60 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
43a80 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
43aa0 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
43ac0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
43ae0 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
43b00 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
43b20 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
43b40 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
43b60 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
43b80 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
43ba0 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
43bc0 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
43be0 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e | =h;ow=w;hw=h/w;....n=sqrt(h*w)*. |
43c00 | 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | 5;..linesize=1;..ox=reg00;.rx=re |
43c20 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
43c40 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
43c60 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
43c80 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
43ca0 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff | ;..gt.=.gettime(0).............. |
43cc0 | ff ff 00 01 00 00 00 24 00 00 00 7d 04 00 00 01 8d 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 | .......$...}........dy=abs(getos |
43ce0 | 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 | c(asin(sin(i*$pi))/$pi,.1,alt*.5 |
43d00 | 29 2a 31 29 2a 33 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a | )*1)*3;..dx=10*sin(i*2*$pi);..dz |
43d20 | 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 | =-10*cos(i*2*$pi);....dy=dy-oy;d |
43d40 | 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a | x=-dx+ox;dz=dz-oz;..dx1=dx*cy-dz |
43d60 | 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 | *sy;..dz1=dx*sy+dz*cy;..dy2=dy*c |
43d80 | 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 | x-dz1*sx;..dz2=dy*sx+dz1*cx;..dx |
43da0 | 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 | 3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy2 |
43dc0 | 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 | *cz;....dz3=max(dz2,.01);..x=-(d |
43de0 | 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 | x3)/dz3*hw;..y=-(dy3)/dz3;..skip |
43e00 | 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b | =equal(dz3,.01);....c=1-dz3*.04; |
43e20 | 0d 0a 72 65 64 3d 63 2a 2e 33 33 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 33 33 3b 0d 0a 62 6c 75 65 | ..red=c*.33;..green=c*.33;..blue |
43e40 | 3d 63 2a 2e 33 33 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a | =c*.33;....num=num+1;..sw=-sw;.. |
43e60 | 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
43e80 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
43ea0 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
43ec0 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
43ee0 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
43f00 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
43f20 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
43f40 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
43f60 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
43f80 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
43fa0 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
43fc0 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
43fe0 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
44000 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
44020 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
44040 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
44060 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 | ));oh=h;ow=w;hw=h/w;....n=sqrt(h |
44080 | 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | *w)*.5;..linesize=1;..ox=reg00;. |
440a0 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
440c0 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
440e0 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
44100 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 | rx);cy=cos(ry);cz=cos(rz);...... |
44120 | 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 | .tb=0;..gt.=.gettime(0)......... |
44140 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 6f 04 00 00 01 7f 01 00 00 64 79 3d 61 62 73 28 | ............$...o........dy=abs( |
44160 | 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 | getosc(asin(sin(i*$pi))/$pi,.1,a |
44180 | 6c 74 2a 2e 35 29 2a 31 29 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d | lt*.5)*1);..dx=10*sin(i*2*$pi);. |
441a0 | 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f | .dz=-10*cos(i*2*$pi);....dy=dy-o |
441c0 | 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 | y;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy |
441e0 | 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 | -dz*sy;..dz1=dx*sy+dz*cy;..dy2=d |
44200 | 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d | y*cx-dz1*sx;..dz2=dy*sx+dz1*cx;. |
44220 | 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b | .dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+ |
44240 | 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d | dy2*cz;....dz3=max(dz2,.01);..x= |
44260 | 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 | -(dx3)/dz3*hw;..y=-(dy3)/dz3;..s |
44280 | 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 31 2d 64 7a 33 2a 2e | kip=equal(dz3,.01);....c=1-dz3*. |
442a0 | 30 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a | 04;..red=c;..green=c;..blue=c;.. |
442c0 | 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b | ..num=num+1;..sw=-sw;.......t=t+ |
442e0 | 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 | 1;deltatime.=.gettime(time);fr=f |
44300 | 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 | r*.9+deltatime*.1;framerate=1/fr |
44320 | 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d | ;time.=.gettime(0);tb.=.tb+1;tim |
44340 | 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | eb.=.gettime(gt);xmouse=getkbmou |
44360 | 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 | se(1);ymouse=getkbmouse(2);xmous |
44380 | 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 | ec=min(max(xmouse,-1),1);ymousec |
443a0 | 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 | =min(max(ymouse,-1),1);lmouse.=. |
443c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(3);rmouse.=.getkbmous |
443e0 | 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 | e(4);shift.=.getkbmouse(5);contr |
44400 | 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 | ol.=.getkbmouse(17);backspace.=. |
44420 | 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(8);space.=.getkbmouse |
44440 | 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 | (32);right.=.getkbmouse(39);left |
44460 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .=.getkbmouse(37);up.=.getkbmous |
44480 | 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 | e(38);down.=.getkbmouse(40);num. |
444a0 | 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c | =.1;sw.=.1;sizechange=bnot(equal |
444c0 | 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f | (oh,h))|bnot(equal(ow,w));oh=h;o |
444e0 | 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a | w=w;hw=h/w;....n=sqrt(h*w)*.5;.. |
44500 | 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b | linesize=1;..ox=reg00;.rx=reg03; |
44520 | 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b | ..oy=reg01;.ry=reg04;..oz=reg02; |
44540 | 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 | .rz=-reg05;..sx=sin(rx);sy=sin(r |
44560 | 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f | y);sz=sin(rz);..cx=cos(rx);cy=co |
44580 | 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 | s(ry);cz=cos(rz);.......tb=0;..g |
445a0 | 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 | t.=.gettime(0).................. |
445c0 | 00 00 00 24 00 00 00 43 04 00 00 01 53 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e | ...$...C....S...dy=0;..dx=10*sin |
445e0 | 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b | (i*2*$pi);..dz=-10*cos(i*2*$pi); |
44600 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
44620 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
44640 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
44660 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
44680 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
446a0 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
446c0 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
446e0 | 0d 0a 63 3d 31 2d 64 7a 33 2a 2e 30 34 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b | ..c=1-dz3*.04;..red=c;..green=c; |
44700 | 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | ..blue=c;....num=num+1;..sw=-sw; |
44720 | 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
44740 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
44760 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
44780 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
447a0 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
447c0 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
447e0 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
44800 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
44820 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
44840 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
44860 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
44880 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
448a0 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
448c0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
448e0 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
44900 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
44920 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 | ,w));oh=h;ow=w;hw=h/w;....n=sqrt |
44940 | 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 | (h*w)*.5;..linesize=1;..ox=reg00 |
44960 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
44980 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
449a0 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
449c0 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 | s(rx);cy=cos(ry);cz=cos(rz);.... |
449e0 | 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 | ...tb=0;..gt.=.gettime(0)....... |
44a00 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 30 3b | ..............$............dy=0; |
44a20 | 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d | ..dx=gmegabuf(100*num+1+flo*6);. |
44a40 | 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dz=gmegabuf(100*num+2+flo*6);.. |
44a60 | 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a | ..dy=dy-oy;dx=-dx+ox;dz=dz-oz;.. |
44a80 | 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 | dx1=dx*cy-dz*sy;..dz1=dx*sy+dz*c |
44aa0 | 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 | y;..dy2=dy*cx-dz1*sx;..dz2=dy*sx |
44ac0 | 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 | +dz1*cx;..dx3=dx1*cz-dy2*sz;..dy |
44ae0 | 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c | 3=dx1*sz+dy2*cz;....dz3=max(dz2, |
44b00 | 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 | .01);..x=-(dx3)/dz3*hw;..y=-(dy3 |
44b20 | 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a | )/dz3;..skip=equal(dz3,.01);.... |
44b40 | 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a | drawmode=gmegabuf(100*num+3+flo* |
44b60 | 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b | 6);..c=drawmode-dz3*.03;..red=c; |
44b80 | 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d | ..green=c;..blue=c;....linesize= |
44ba0 | 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | 4-dz3*.5;....num=num+1;..sw=-sw; |
44bc0 | 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
44be0 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
44c00 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
44c20 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
44c40 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
44c60 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
44c80 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
44ca0 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
44cc0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
44ce0 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
44d00 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
44d20 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
44d40 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
44d60 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
44d80 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
44da0 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
44dc0 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
44de0 | 31 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | 1;....ox=reg00;.rx=reg03;..oy=re |
44e00 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
44e20 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
44e40 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
44e60 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 | z=cos(rz);.......tb=0;..gt.=.get |
44e80 | 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | time(0).....flo=1............... |
44ea0 | 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 | ..$............dy=1;..dx=gmegabu |
44ec0 | 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 | f(100*num+1+flo*6);..dz=gmegabuf |
44ee0 | 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 | (100*num+2+flo*6);....dy=dy-oy;d |
44f00 | 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a | x=-dx+ox;dz=dz-oz;..dx1=dx*cy-dz |
44f20 | 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 | *sy;..dz1=dx*sy+dz*cy;..dy2=dy*c |
44f40 | 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 | x-dz1*sx;..dz2=dy*sx+dz1*cx;..dx |
44f60 | 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 | 3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy2 |
44f80 | 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 | *cz;....dz3=max(dz2,.01);..x=-(d |
44fa0 | 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 | x3)/dz3*hw;..y=-(dy3)/dz3;..skip |
44fc0 | 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 | =equal(dz3,.01);....drawmode=gme |
44fe0 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d | gabuf(100*num+3+flo*6);..c=drawm |
45000 | 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | ode-dz3*.03;..red=c;..green=c;.. |
45020 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d | blue=c;....linesize=4-dz3*.5;... |
45040 | 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 | .num=num+1;..sw=-sw;.......t=t+1 |
45060 | 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 | ;deltatime.=.gettime(time);fr=fr |
45080 | 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b | *.9+deltatime*.1;framerate=1/fr; |
450a0 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 | time.=.gettime(0);tb.=.tb+1;time |
450c0 | 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | b.=.gettime(gt);xmouse=getkbmous |
450e0 | 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 | e(1);ymouse=getkbmouse(2);xmouse |
45100 | 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d | c=min(max(xmouse,-1),1);ymousec= |
45120 | 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | min(max(ymouse,-1),1);lmouse.=.g |
45140 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
45160 | 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f | (4);shift.=.getkbmouse(5);contro |
45180 | 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 | l.=.getkbmouse(17);backspace.=.g |
451a0 | 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(8);space.=.getkbmouse( |
451c0 | 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 | 32);right.=.getkbmouse(39);left. |
451e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | =.getkbmouse(37);up.=.getkbmouse |
45200 | 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d | (38);down.=.getkbmouse(40);num.= |
45220 | 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | .1;sw.=.1;sizechange=bnot(equal( |
45240 | 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 | oh,h))|bnot(equal(ow,w));oh=h;ow |
45260 | 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | =w;hw=h/w;....n=reg81;....ox=reg |
45280 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
452a0 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
452c0 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
452e0 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
45300 | 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 | .....tb=0;..gt.=.gettime(0)..... |
45320 | 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 f9 05 00 00 01 0b | flo=1.................$......... |
45340 | 03 00 00 64 79 3d 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | ...dy=.5+sw*.5;..dx=gmegabuf(100 |
45360 | 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | *num+1+flo*6);..dz=gmegabuf(100* |
45380 | 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d | num+2+flo*6);..dxa=dx;dza=dz;... |
453a0 | 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 | .dy=dy-oy;dx=-dx+ox;dz=dz-oz;..d |
453c0 | 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 | x1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy |
453e0 | 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b | ;..dy2=dy*cx-dz1*sx;..dz2=dy*sx+ |
45400 | 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 | dz1*cx;..dx3=dx1*cz-dy2*sz;..dy3 |
45420 | 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e | =dx1*sz+dy2*cz;....dz3=max(dz2,. |
45440 | 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 | 01);..x=-(dx3)/dz3*hw;..y=-(dy3) |
45460 | 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f | /dz3;..skip=equal(dz3,.01);....o |
45480 | 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 | gx=gmegabuf(100*(num-1)+1+flo*6) |
454a0 | 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c | ;..ogz=gmegabuf(100*(num-1)+2+fl |
454c0 | 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b | o*6);..ngx=gmegabuf(100*(num+1)+ |
454e0 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d | 1+flo*6);..ngz=gmegabuf(100*(num |
45500 | 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d | +1)+2+flo*6);....ang1=atan2(dxa- |
45520 | 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e | ogx,dza-ogz);..ang2=atan2(-dxa+n |
45540 | 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 | gx,-dza+ngz);..corner=bnot(below |
45560 | 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 | (abs(ang1-ang2),.1));....drawmod |
45580 | 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d | e=gmegabuf(100*num+3+flo*6);..c= |
455a0 | 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 | drawmode*equal(add,1)*corner-dz3 |
455c0 | 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b | *.03;..red=c;..green=c;..blue=c; |
455e0 | 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 | ....linesize=4-dz3*.5;....add=ad |
45600 | 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 | d+1;..if(equal(add,2),assign(add |
45620 | 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 | ,0)+assign(num,num+1),0);..sw=-s |
45640 | 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | w;..reg99=10;.....t=t+1;deltatim |
45660 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
45680 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
456a0 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
456c0 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
456e0 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | se=getkbmouse(2);xmousec=min(max |
45700 | 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 | (xmouse,-1),1);ymousec=min(max(y |
45720 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse,-1),1);lmouse.=.getkbmouse |
45740 | 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 | (3);rmouse.=.getkbmouse(4);shift |
45760 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 | .=.getkbmouse(5);control.=.getkb |
45780 | 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse(17);backspace.=.getkbmouse |
457a0 | 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 | (8);space.=.getkbmouse(32);right |
457c0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(39);left.=.getkbmo |
457e0 | 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e | use(37);up.=.getkbmouse(38);down |
45800 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 | .=.getkbmouse(40);num.=.1;sw.=.1 |
45820 | 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e | ;sizechange=bnot(equal(oh,h))|bn |
45840 | 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 | ot(equal(ow,w));oh=h;ow=w;hw=h/w |
45860 | 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d | ;....n=reg81*2;....ox=reg00;.rx= |
45880 | 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d | reg03;..oy=reg01;.ry=reg04;..oz= |
458a0 | 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 | reg02;.rz=-reg05;..sx=sin(rx);sy |
458c0 | 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 | =sin(ry);sz=sin(rz);..cx=cos(rx) |
458e0 | 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 | ;cy=cos(ry);cz=cos(rz);....add=0 |
45900 | 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 | ;.....tb=0;..gt.=.gettime(0).... |
45920 | 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 | .flo=1.................$........ |
45940 | a8 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 | ....dy=2;..dx=gmegabuf(100*num+1 |
45960 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b | +flo*6);..dz=gmegabuf(100*num+2+ |
45980 | 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a | flo*6);....dy=dy-oy;dx=-dx+ox;dz |
459a0 | 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 | =dz-oz;..dx1=dx*cy-dz*sy;..dz1=d |
459c0 | 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a | x*sy+dz*cy;..dy2=dy*cx-dz1*sx;.. |
459e0 | 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 | dz2=dy*sx+dz1*cx;..dx3=dx1*cz-dy |
45a00 | 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 | 2*sz;..dy3=dx1*sz+dy2*cz;....dz3 |
45a20 | 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b | =max(dz2,.01);..x=-(dx3)/dz3*hw; |
45a40 | 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c | ..y=-(dy3)/dz3;..skip=equal(dz3, |
45a60 | 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | .01);....drawmode=gmegabuf(100*n |
45a80 | 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 | um+3+flo*6);..c=drawmode-dz3*.03 |
45aa0 | 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a | ;..red=c;..green=c;..blue=c;.... |
45ac0 | 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b | linesize=4-dz3*.5;....num=num+1; |
45ae0 | 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 | ..sw=-sw;.......t=t+1;deltatime. |
45b00 | 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 | =.gettime(time);fr=fr*.9+deltati |
45b20 | 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 | me*.1;framerate=1/fr;time.=.gett |
45b40 | 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 | ime(0);tb.=.tb+1;timeb.=.gettime |
45b60 | 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 | (gt);xmouse=getkbmouse(1);ymouse |
45b80 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 | =getkbmouse(2);xmousec=min(max(x |
45ba0 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f | mouse,-1),1);ymousec=min(max(ymo |
45bc0 | 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | use,-1),1);lmouse.=.getkbmouse(3 |
45be0 | 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d | );rmouse.=.getkbmouse(4);shift.= |
45c00 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f | .getkbmouse(5);control.=.getkbmo |
45c20 | 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 | use(17);backspace.=.getkbmouse(8 |
45c40 | 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d | );space.=.getkbmouse(32);right.= |
45c60 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(39);left.=.getkbmous |
45c80 | 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d | e(37);up.=.getkbmouse(38);down.= |
45ca0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 | .getkbmouse(40);num.=.1;sw.=.1;s |
45cc0 | 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 | izechange=bnot(equal(oh,h))|bnot |
45ce0 | 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d | (equal(ow,w));oh=h;ow=w;hw=h/w;. |
45d00 | 0a 0d 0a 6e 3d 72 65 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 | ...n=reg82;....ox=reg00;.rx=reg0 |
45d20 | 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 | 3;..oy=reg01;.ry=reg04;..oz=reg0 |
45d40 | 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e | 2;.rz=-reg05;..sx=sin(rx);sy=sin |
45d60 | 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d | (ry);sz=sin(rz);..cx=cos(rx);cy= |
45d80 | 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d | cos(ry);cz=cos(rz);.......tb=0;. |
45da0 | 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 | .gt.=.gettime(0).....flo=2...... |
45dc0 | 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 31 3b 0d 0a 64 | ...........$............dy=1;..d |
45de0 | 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a | x=gmegabuf(100*num+1+flo*6);..dz |
45e00 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 | =gmegabuf(100*num+2+flo*6);....d |
45e20 | 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 | y=dy-oy;dx=-dx+ox;dz=dz-oz;..dx1 |
45e40 | 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d | =dx*cy-dz*sy;..dz1=dx*sy+dz*cy;. |
45e60 | 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a | .dy2=dy*cx-dz1*sx;..dz2=dy*sx+dz |
45e80 | 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 | 1*cx;..dx3=dx1*cz-dy2*sz;..dy3=d |
45ea0 | 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 | x1*sz+dy2*cz;....dz3=max(dz2,.01 |
45ec0 | 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 | );..x=-(dx3)/dz3*hw;..y=-(dy3)/d |
45ee0 | 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 | z3;..skip=equal(dz3,.01);....dra |
45f00 | 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b | wmode=gmegabuf(100*num+3+flo*6); |
45f20 | 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 | ..c=drawmode-dz3*.03;..red=c;..g |
45f40 | 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 | reen=c;..blue=c;....linesize=4-d |
45f60 | 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 | z3*.5;....num=num+1;..sw=-sw;... |
45f80 | a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 | ....t=t+1;deltatime.=.gettime(ti |
45fa0 | 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 | me);fr=fr*.9+deltatime*.1;framer |
45fc0 | 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 | ate=1/fr;time.=.gettime(0);tb.=. |
45fe0 | 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d | tb+1;timeb.=.gettime(gt);xmouse= |
46000 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | getkbmouse(1);ymouse=getkbmouse( |
46020 | 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 2);xmousec=min(max(xmouse,-1),1) |
46040 | 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c | ;ymousec=min(max(ymouse,-1),1);l |
46060 | 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 | mouse.=.getkbmouse(3);rmouse.=.g |
46080 | 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(4);shift.=.getkbmouse( |
460a0 | 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b | 5);control.=.getkbmouse(17);back |
460c0 | 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 | space.=.getkbmouse(8);space.=.ge |
460e0 | 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(32);right.=.getkbmouse( |
46100 | 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 | 39);left.=.getkbmouse(37);up.=.g |
46120 | 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(38);down.=.getkbmouse( |
46140 | 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e | 40);num.=.1;sw.=.1;sizechange=bn |
46160 | 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 | ot(equal(oh,h))|bnot(equal(ow,w) |
46180 | 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 3b 0d | );oh=h;ow=w;hw=h/w;....n=reg82;. |
461a0 | 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 | ...ox=reg00;.rx=reg03;..oy=reg01 |
461c0 | 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 | ;.ry=reg04;..oz=reg02;.rz=-reg05 |
461e0 | 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 | ;..sx=sin(rx);sy=sin(ry);sz=sin( |
46200 | 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 | rz);..cx=cos(rx);cy=cos(ry);cz=c |
46220 | 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d | os(rz);.......tb=0;..gt.=.gettim |
46240 | 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 | e(0).....flo=2.................$ |
46260 | 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 31 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d | ............dy=1.5+sw*.5;..dx=gm |
46280 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 | egabuf(100*num+1+flo*6);..dz=gme |
462a0 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b | gabuf(100*num+2+flo*6);..dxa=dx; |
462c0 | 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a | dza=dz;....dy=dy-oy;dx=-dx+ox;dz |
462e0 | 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 | =dz-oz;..dx1=dx*cy-dz*sy;..dz1=d |
46300 | 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a | x*sy+dz*cy;..dy2=dy*cx-dz1*sx;.. |
46320 | 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 | dz2=dy*sx+dz1*cx;..dx3=dx1*cz-dy |
46340 | 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 | 2*sz;..dy3=dx1*sz+dy2*cz;....dz3 |
46360 | 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b | =max(dz2,.01);..x=-(dx3)/dz3*hw; |
46380 | 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c | ..y=-(dy3)/dz3;..skip=equal(dz3, |
463a0 | 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 | .01);....ogx=gmegabuf(100*(num-1 |
463c0 | 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e | )+1+flo*6);..ogz=gmegabuf(100*(n |
463e0 | 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 | um-1)+2+flo*6);..ngx=gmegabuf(10 |
46400 | 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 | 0*(num+1)+1+flo*6);..ngz=gmegabu |
46420 | 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d | f(100*(num+1)+2+flo*6);....ang1= |
46440 | 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 | atan2(dxa-ogx,dza-ogz);..ang2=at |
46460 | 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d | an2(-dxa+ngx,-dza+ngz);..corner= |
46480 | 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d | bnot(below(abs(ang1-ang2),.1));. |
464a0 | 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 | ...drawmode=gmegabuf(100*num+3+f |
464c0 | 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a | lo*6);..c=drawmode*equal(add,1)* |
464e0 | 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 | corner-dz3*.03;..red=c;..green=c |
46500 | 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b | ;..blue=c;....linesize=4-dz3*.5; |
46520 | 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c | ....add=add+1;..if(equal(add,2), |
46540 | 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c | assign(add,0)+assign(num,num+1), |
46560 | 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b | 0);..sw=-sw;..reg99=10;.....t=t+ |
46580 | 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 | 1;deltatime.=.gettime(time);fr=f |
465a0 | 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 | r*.9+deltatime*.1;framerate=1/fr |
465c0 | 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d | ;time.=.gettime(0);tb.=.tb+1;tim |
465e0 | 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | eb.=.gettime(gt);xmouse=getkbmou |
46600 | 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 | se(1);ymouse=getkbmouse(2);xmous |
46620 | 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 | ec=min(max(xmouse,-1),1);ymousec |
46640 | 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 | =min(max(ymouse,-1),1);lmouse.=. |
46660 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(3);rmouse.=.getkbmous |
46680 | 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 | e(4);shift.=.getkbmouse(5);contr |
466a0 | 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 | ol.=.getkbmouse(17);backspace.=. |
466c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(8);space.=.getkbmouse |
466e0 | 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 | (32);right.=.getkbmouse(39);left |
46700 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .=.getkbmouse(37);up.=.getkbmous |
46720 | 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 | e(38);down.=.getkbmouse(40);num. |
46740 | 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c | =.1;sw.=.1;sizechange=bnot(equal |
46760 | 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f | (oh,h))|bnot(equal(ow,w));oh=h;o |
46780 | 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 2a 32 3b 0d 0a 0d 0a 6f 78 3d | w=w;hw=h/w;....n=reg82*2;....ox= |
467a0 | 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 | reg00;.rx=reg03;..oy=reg01;.ry=r |
467c0 | 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d | eg04;..oz=reg02;.rz=-reg05;..sx= |
467e0 | 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a | sin(rx);sy=sin(ry);sz=sin(rz);.. |
46800 | 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 | cx=cos(rx);cy=cos(ry);cz=cos(rz) |
46820 | 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 | ;....add=0;.....tb=0;..gt.=.gett |
46840 | 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | ime(0).....flo=2................ |
46860 | 00 24 00 00 00 9b 04 00 00 01 a8 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 | .$............dy=2;..dx=gmegabuf |
46880 | 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 | (100*num+1+flo*6);..dz=gmegabuf( |
468a0 | 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 | 100*num+2+flo*6);....dy=dy-oy;dx |
468c0 | 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a | =-dx+ox;dz=dz-oz;..dx1=dx*cy-dz* |
468e0 | 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 | sy;..dz1=dx*sy+dz*cy;..dy2=dy*cx |
46900 | 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 | -dz1*sx;..dz2=dy*sx+dz1*cx;..dx3 |
46920 | 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a | =dx1*cz-dy2*sz;..dy3=dx1*sz+dy2* |
46940 | 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 | cz;....dz3=max(dz2,.01);..x=-(dx |
46960 | 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d | 3)/dz3*hw;..y=-(dy3)/dz3;..skip= |
46980 | 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 | equal(dz3,.01);....drawmode=gmeg |
469a0 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f | abuf(100*num+3+flo*6);..c=drawmo |
469c0 | 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 | de-dz3*.03;..red=c;..green=c;..b |
469e0 | 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a | lue=c;....linesize=4-dz3*.5;.... |
46a00 | 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b5 02 00 00 74 3d 74 2b 31 3b | num=num+1;..sw=-sw;.......t=t+1; |
46a20 | 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a | deltatime.=.gettime(time);fr=fr* |
46a40 | 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 | .9+deltatime*.1;framerate=1/fr;t |
46a60 | 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 | ime.=.gettime(0);tb.=.tb+1;timeb |
46a80 | 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | .=.gettime(gt);xmouse=getkbmouse |
46aa0 | 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 | (1);ymouse=getkbmouse(2);xmousec |
46ac0 | 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d | =min(max(xmouse,-1),1);ymousec=m |
46ae0 | 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 | in(max(ymouse,-1),1);lmouse.=.ge |
46b00 | 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | tkbmouse(3);rmouse.=.getkbmouse( |
46b20 | 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c | 4);shift.=.getkbmouse(5);control |
46b40 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 | .=.getkbmouse(17);backspace.=.ge |
46b60 | 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(8);space.=.getkbmouse(3 |
46b80 | 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d | 2);right.=.getkbmouse(39);left.= |
46ba0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | .getkbmouse(37);up.=.getkbmouse( |
46bc0 | 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 | 38);down.=.getkbmouse(40);num.=. |
46be0 | 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f | 1;sw.=.1;sizechange=bnot(equal(o |
46c00 | 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d | h,h))|bnot(equal(ow,w));oh=h;ow= |
46c20 | 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 | w;hw=h/w;....n=reg83;....ox=reg0 |
46c40 | 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 | 0;.rx=reg03;..oy=reg01;.ry=reg04 |
46c60 | 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 67 6c 69 74 63 68 3d | ;..oz=reg02;.rz=-reg05;..glitch= |
46c80 | 62 69 74 63 68 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | bitch;..sx=sin(rx);sy=sin(ry);sz |
46ca0 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
46cc0 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | ;cz=cos(rz);.......tb=0;..gt.=.g |
46ce0 | 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ettime(0).....flo=3............. |
46d00 | 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 61 | ....$............dy=3;..dx=gmega |
46d20 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 | buf(100*num+1+flo*6);..dz=gmegab |
46d40 | 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 | uf(100*num+2+flo*6);....dy=dy-oy |
46d60 | 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d | ;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy- |
46d80 | 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 | dz*sy;..dz1=dx*sy+dz*cy;..dy2=dy |
46da0 | 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a | *cx-dz1*sx;..dz2=dy*sx+dz1*cx;.. |
46dc0 | 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 | dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+d |
46de0 | 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d | y2*cz;....dz3=max(dz2,.01);..x=- |
46e00 | 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b | (dx3)/dz3*hw;..y=-(dy3)/dz3;..sk |
46e20 | 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 | ip=equal(dz3,.01);....drawmode=g |
46e40 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 | megabuf(100*num+3+flo*6);..c=dra |
46e60 | 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b | wmode-dz3*.03;..red=c;..green=c; |
46e80 | 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d | ..blue=c;....linesize=4-dz3*.5;. |
46ea0 | 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 | ...num=num+1;..sw=-sw;.......t=t |
46ec0 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
46ee0 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
46f00 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
46f20 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
46f40 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
46f60 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
46f80 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
46fa0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
46fc0 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
46fe0 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
47000 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
47020 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
47040 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
47060 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
47080 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
470a0 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
470c0 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 | ow=w;hw=h/w;....n=reg83;....ox=r |
470e0 | 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 | eg00;.rx=reg03;..oy=reg01;.ry=re |
47100 | 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 | g04;..oz=reg02;.rz=-reg05;..sx=s |
47120 | 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 | in(rx);sy=sin(ry);sz=sin(rz);..c |
47140 | 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b | x=cos(rx);cy=cos(ry);cz=cos(rz); |
47160 | 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 | .......tb=0;..gt.=.gettime(0)... |
47180 | 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 | ..flo=3.................$....... |
471a0 | 01 0c 03 00 00 64 79 3d 32 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 | .....dy=2.5+sw*.5;..dx=gmegabuf( |
471c0 | 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 | 100*num+1+flo*6);..dz=gmegabuf(1 |
471e0 | 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b | 00*num+2+flo*6);..dxa=dx;dza=dz; |
47200 | 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b | ....dy=dy-oy;dx=-dx+ox;dz=dz-oz; |
47220 | 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a | ..dx1=dx*cy-dz*sy;..dz1=dx*sy+dz |
47240 | 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a | *cy;..dy2=dy*cx-dz1*sx;..dz2=dy* |
47260 | 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a | sx+dz1*cx;..dx3=dx1*cz-dy2*sz;.. |
47280 | 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a | dy3=dx1*sz+dy2*cz;....dz3=max(dz |
472a0 | 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 | 2,.01);..x=-(dx3)/dz3*hw;..y=-(d |
472c0 | 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a | y3)/dz3;..skip=equal(dz3,.01);.. |
472e0 | 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f | ..ogx=gmegabuf(100*(num-1)+1+flo |
47300 | 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 | *6);..ogz=gmegabuf(100*(num-1)+2 |
47320 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b | +flo*6);..ngx=gmegabuf(100*(num+ |
47340 | 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | 1)+1+flo*6);..ngz=gmegabuf(100*( |
47360 | 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 | num+1)+2+flo*6);....ang1=atan2(d |
47380 | 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 | xa-ogx,dza-ogz);..ang2=atan2(-dx |
473a0 | 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 | a+ngx,-dza+ngz);..corner=bnot(be |
473c0 | 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 | low(abs(ang1-ang2),.1));....draw |
473e0 | 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d | mode=gmegabuf(100*num+3+flo*6);. |
47400 | 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d | .c=drawmode*equal(add,1)*corner- |
47420 | 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 | dz3*.03;..red=c;..green=c;..blue |
47440 | 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 | =c;....linesize=4-dz3*.5;....add |
47460 | 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 | =add+1;..if(equal(add,2),assign( |
47480 | 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 | add,0)+assign(num,num+1),0);..sw |
474a0 | 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 | =-sw;..reg99=10;.....t=t+1;delta |
474c0 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 | time.=.gettime(time);fr=fr*.9+de |
474e0 | 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d | ltatime*.1;framerate=1/fr;time.= |
47500 | 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 | .gettime(0);tb.=.tb+1;timeb.=.ge |
47520 | 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 | ttime(gt);xmouse=getkbmouse(1);y |
47540 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 | mouse=getkbmouse(2);xmousec=min( |
47560 | 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | max(xmouse,-1),1);ymousec=min(ma |
47580 | 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | x(ymouse,-1),1);lmouse.=.getkbmo |
475a0 | 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 | use(3);rmouse.=.getkbmouse(4);sh |
475c0 | 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 | ift.=.getkbmouse(5);control.=.ge |
475e0 | 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | tkbmouse(17);backspace.=.getkbmo |
47600 | 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 | use(8);space.=.getkbmouse(32);ri |
47620 | 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b | ght.=.getkbmouse(39);left.=.getk |
47640 | 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 | bmouse(37);up.=.getkbmouse(38);d |
47660 | 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 | own.=.getkbmouse(40);num.=.1;sw. |
47680 | 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 | =.1;sizechange=bnot(equal(oh,h)) |
476a0 | 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d | |bnot(equal(ow,w));oh=h;ow=w;hw= |
476c0 | 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 | h/w;....n=reg83*2;....ox=reg00;. |
476e0 | 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a | rx=reg03;..oy=reg01;.ry=reg04;.. |
47700 | 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 | oz=reg02;.rz=-reg05;..sx=sin(rx) |
47720 | 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 | ;sy=sin(ry);sz=sin(rz);..cx=cos( |
47740 | 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 | rx);cy=cos(ry);cz=cos(rz);....ad |
47760 | 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 | d=0;.....tb=0;..gt.=.gettime(0). |
47780 | 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 | ....flo=3.................$..... |
477a0 | 00 00 01 a8 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | .......dy=3;..dx=gmegabuf(100*nu |
477c0 | 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | m+1+flo*6);..dz=gmegabuf(100*num |
477e0 | 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | +2+flo*6);....dy=dy-oy;dx=-dx+ox |
47800 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
47820 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
47840 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
47860 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
47880 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
478a0 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
478c0 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 | z3,.01);....drawmode=gmegabuf(10 |
478e0 | 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a | 0*num+3+flo*6);..c=drawmode-dz3* |
47900 | 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d | .03;..red=c;..green=c;..blue=c;. |
47920 | 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d | ...linesize=4-dz3*.5;....num=num |
47940 | 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | +1;..sw=-sw;.......t=t+1;deltati |
47960 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
47980 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
479a0 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
479c0 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
479e0 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
47a00 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
47a20 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
47a40 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
47a60 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
47a80 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
47aa0 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
47ac0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
47ae0 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
47b00 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
47b20 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
47b40 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
47b60 | 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 | w;....n=reg84;....ox=reg00;.rx=r |
47b80 | 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 | eg03;..oy=reg01;.ry=reg04;..oz=r |
47ba0 | 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d | eg02;.rz=-reg05;..sx=sin(rx);sy= |
47bc0 | 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b | sin(ry);sz=sin(rz);..cx=cos(rx); |
47be0 | 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d | cy=cos(ry);cz=cos(rz);.......tb= |
47c00 | 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 | 0;..gt.=.gettime(0).....flo=4... |
47c20 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 34 3b | ..............$............dy=4; |
47c40 | 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d | ..dx=gmegabuf(100*num+1+flo*6);. |
47c60 | 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dz=gmegabuf(100*num+2+flo*6);.. |
47c80 | 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a | ..dy=dy-oy;dx=-dx+ox;dz=dz-oz;.. |
47ca0 | 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 | dx1=dx*cy-dz*sy;..dz1=dx*sy+dz*c |
47cc0 | 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 | y;..dy2=dy*cx-dz1*sx;..dz2=dy*sx |
47ce0 | 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 | +dz1*cx;..dx3=dx1*cz-dy2*sz;..dy |
47d00 | 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c | 3=dx1*sz+dy2*cz;....dz3=max(dz2, |
47d20 | 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 | .01);..x=-(dx3)/dz3*hw;..y=-(dy3 |
47d40 | 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a | )/dz3;..skip=equal(dz3,.01);.... |
47d60 | 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a | drawmode=gmegabuf(100*num+3+flo* |
47d80 | 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b | 6);..c=drawmode-dz3*.03;..red=c; |
47da0 | 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d | ..green=c;..blue=c;....linesize= |
47dc0 | 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | 4-dz3*.5;....num=num+1;..sw=-sw; |
47de0 | 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
47e00 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
47e20 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
47e40 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
47e60 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
47e80 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
47ea0 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
47ec0 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
47ee0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
47f00 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
47f20 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
47f40 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
47f60 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
47f80 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
47fa0 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
47fc0 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
47fe0 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
48000 | 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | 4;....ox=reg00;.rx=reg03;..oy=re |
48020 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
48040 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
48060 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
48080 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 | z=cos(rz);.......tb=0;..gt.=.get |
480a0 | 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | time(0).....flo=4............... |
480c0 | 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 33 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 | ..$............dy=3.5+sw*.5;..dx |
480e0 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d | =gmegabuf(100*num+1+flo*6);..dz= |
48100 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d | gmegabuf(100*num+2+flo*6);..dxa= |
48120 | 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | dx;dza=dz;....dy=dy-oy;dx=-dx+ox |
48140 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
48160 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
48180 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
481a0 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
481c0 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
481e0 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
48200 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 | z3,.01);....ogx=gmegabuf(100*(nu |
48220 | 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | m-1)+1+flo*6);..ogz=gmegabuf(100 |
48240 | 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 | *(num-1)+2+flo*6);..ngx=gmegabuf |
48260 | 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 | (100*(num+1)+1+flo*6);..ngz=gmeg |
48280 | 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e | abuf(100*(num+1)+2+flo*6);....an |
482a0 | 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 | g1=atan2(dxa-ogx,dza-ogz);..ang2 |
482c0 | 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e | =atan2(-dxa+ngx,-dza+ngz);..corn |
482e0 | 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 | er=bnot(below(abs(ang1-ang2),.1) |
48300 | 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | );....drawmode=gmegabuf(100*num+ |
48320 | 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c | 3+flo*6);..c=drawmode*equal(add, |
48340 | 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 | 1)*corner-dz3*.03;..red=c;..gree |
48360 | 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a | n=c;..blue=c;....linesize=4-dz3* |
48380 | 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c | .5;....add=add+1;..if(equal(add, |
483a0 | 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b | 2),assign(add,0)+assign(num,num+ |
483c0 | 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 | 1),0);..sw=-sw;..reg99=10;.....t |
483e0 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
48400 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
48420 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
48440 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
48460 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d | mouse(1);ymouse=getkbmouse(2);xm |
48480 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 | ousec=min(max(xmouse,-1),1);ymou |
484a0 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 | sec=min(max(ymouse,-1),1);lmouse |
484c0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(3);rmouse.=.getkbm |
484e0 | 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f | ouse(4);shift.=.getkbmouse(5);co |
48500 | 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 | ntrol.=.getkbmouse(17);backspace |
48520 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(8);space.=.getkbmo |
48540 | 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c | use(32);right.=.getkbmouse(39);l |
48560 | 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d | eft.=.getkbmouse(37);up.=.getkbm |
48580 | 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e | ouse(38);down.=.getkbmouse(40);n |
485a0 | 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 | um.=.1;sw.=.1;sizechange=bnot(eq |
485c0 | 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d | ual(oh,h))|bnot(equal(ow,w));oh= |
485e0 | 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 2a 32 3b 0d 0a 0d 0a | h;ow=w;hw=h/w;....n=reg84*2;.... |
48600 | 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 | ox=reg00;.rx=reg03;..oy=reg01;.r |
48620 | 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a | y=reg04;..oz=reg02;.rz=-reg05;.. |
48640 | 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 | sx=sin(rx);sy=sin(ry);sz=sin(rz) |
48660 | 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 | ;..cx=cos(rx);cy=cos(ry);cz=cos( |
48680 | 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 | rz);....add=0;.....tb=0;..gt.=.g |
486a0 | 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 | ettime(0).....flo=4............. |
486c0 | 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 34 2e 35 2b 73 77 2a 2e 35 3b 0d 0a | ....$............dy=4.5+sw*.5;.. |
486e0 | 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 | dx=gmegabuf(100*num+1+flo*6);..d |
48700 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 | z=gmegabuf(100*num+2+flo*6);..dx |
48720 | 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b | a=dx;dza=dz;....dy=dy-oy;dx=-dx+ |
48740 | 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a | ox;dz=dz-oz;..dx1=dx*cy-dz*sy;.. |
48760 | 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a | dz1=dx*sy+dz*cy;..dy2=dy*cx-dz1* |
48780 | 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a | sx;..dz2=dy*sx+dz1*cx;..dx3=dx1* |
487a0 | 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a | cz-dy2*sz;..dy3=dx1*sz+dy2*cz;.. |
487c0 | 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a | ..dz3=max(dz2,.01);..x=-(dx3)/dz |
487e0 | 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c | 3*hw;..y=-(dy3)/dz3;..skip=equal |
48800 | 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | (dz3,.01);....ogx=gmegabuf(100*( |
48820 | 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 | num-1)+1+flo*6);..ogz=gmegabuf(1 |
48840 | 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 | 00*(num-1)+2+flo*6);..ngx=gmegab |
48860 | 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d | uf(100*(num+1)+1+flo*6);..ngz=gm |
48880 | 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a | egabuf(100*(num+1)+2+flo*6);.... |
488a0 | 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e | ang1=atan2(dxa-ogx,dza-ogz);..an |
488c0 | 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f | g2=atan2(-dxa+ngx,-dza+ngz);..co |
488e0 | 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e | rner=bnot(below(abs(ang1-ang2),. |
48900 | 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | 1));....drawmode=gmegabuf(100*nu |
48920 | 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 | m+3+flo*6);..c=drawmode*equal(ad |
48940 | 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 | d,1)*corner-dz3*.03;..red=c;..gr |
48960 | 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a | een=c;..blue=c;....linesize=4-dz |
48980 | 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 | 3*.5;....add=add+1;..if(equal(ad |
489a0 | 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 | d,2),assign(add,0)+assign(num,nu |
489c0 | 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 | m+1),0);..sw=-sw;..reg99=10;.... |
489e0 | 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 | .t=t+1;deltatime.=.gettime(time) |
48a00 | 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 | ;fr=fr*.9+deltatime*.1;framerate |
48a20 | 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b | =1/fr;time.=.gettime(0);tb.=.tb+ |
48a40 | 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 | 1;timeb.=.gettime(gt);xmouse=get |
48a60 | 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b | kbmouse(1);ymouse=getkbmouse(2); |
48a80 | 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d | xmousec=min(max(xmouse,-1),1);ym |
48aa0 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 | ousec=min(max(ymouse,-1),1);lmou |
48ac0 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b | se.=.getkbmouse(3);rmouse.=.getk |
48ae0 | 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b | bmouse(4);shift.=.getkbmouse(5); |
48b00 | 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 | control.=.getkbmouse(17);backspa |
48b20 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | ce.=.getkbmouse(8);space.=.getkb |
48b40 | 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 | mouse(32);right.=.getkbmouse(39) |
48b60 | 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b | ;left.=.getkbmouse(37);up.=.getk |
48b80 | 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 | bmouse(38);down.=.getkbmouse(40) |
48ba0 | 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | ;num.=.1;sw.=.1;sizechange=bnot( |
48bc0 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
48be0 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 2a 32 3b 0d 0a | h=h;ow=w;hw=h/w;....n=reg85*2;.. |
48c00 | 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b | ..ox=reg00;.rx=reg03;..oy=reg01; |
48c20 | 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b | .ry=reg04;..oz=reg02;.rz=-reg05; |
48c40 | 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 | ..sx=sin(rx);sy=sin(ry);sz=sin(r |
48c60 | 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f | z);..cx=cos(rx);cy=cos(ry);cz=co |
48c80 | 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d | s(rz);....add=0;.....tb=0;..gt.= |
48ca0 | 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff | .gettime(0).....flo=5........... |
48cc0 | ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 6d 65 | ......$............dy=5;..dx=gme |
48ce0 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 | gabuf(100*num+1+flo*6);..dz=gmeg |
48d00 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d | abuf(100*num+2+flo*6);....dy=dy- |
48d20 | 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 | oy;dx=-dx+ox;dz=dz-oz;..dx1=dx*c |
48d40 | 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d | y-dz*sy;..dz1=dx*sy+dz*cy;..dy2= |
48d60 | 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b | dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx; |
48d80 | 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a | ..dx3=dx1*cz-dy2*sz;..dy3=dx1*sz |
48da0 | 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 | +dy2*cz;....dz3=max(dz2,.01);..x |
48dc0 | 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | =-(dx3)/dz3*hw;..y=-(dy3)/dz3;.. |
48de0 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 | skip=equal(dz3,.01);....drawmode |
48e00 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 | =gmegabuf(100*num+3+flo*6);..c=d |
48e20 | 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d | rawmode-dz3*.03;..red=c;..green= |
48e40 | 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 | c;..blue=c;....linesize=4-dz3*.5 |
48e60 | 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 | ;....num=num+1;..sw=-sw;.......t |
48e80 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
48ea0 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
48ec0 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
48ee0 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
48f00 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d | mouse(1);ymouse=getkbmouse(2);xm |
48f20 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 | ousec=min(max(xmouse,-1),1);ymou |
48f40 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 | sec=min(max(ymouse,-1),1);lmouse |
48f60 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(3);rmouse.=.getkbm |
48f80 | 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f | ouse(4);shift.=.getkbmouse(5);co |
48fa0 | 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 | ntrol.=.getkbmouse(17);backspace |
48fc0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(8);space.=.getkbmo |
48fe0 | 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c | use(32);right.=.getkbmouse(39);l |
49000 | 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d | eft.=.getkbmouse(37);up.=.getkbm |
49020 | 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e | ouse(38);down.=.getkbmouse(40);n |
49040 | 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 | um.=.1;sw.=.1;sizechange=bnot(eq |
49060 | 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d | ual(oh,h))|bnot(equal(ow,w));oh= |
49080 | 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 | h;ow=w;hw=h/w;....n=reg85;....ox |
490a0 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
490c0 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
490e0 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
49100 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
49120 | 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 | );.......tb=0;..gt.=.gettime(0). |
49140 | 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 | ....flo=5.................$..... |
49160 | 00 00 01 a8 01 00 00 64 79 3d 34 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | .......dy=4;..dx=gmegabuf(100*nu |
49180 | 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | m+1+flo*6);..dz=gmegabuf(100*num |
491a0 | 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | +2+flo*6);....dy=dy-oy;dx=-dx+ox |
491c0 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
491e0 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
49200 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
49220 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
49240 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
49260 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
49280 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 | z3,.01);....drawmode=gmegabuf(10 |
492a0 | 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a | 0*num+3+flo*6);..c=drawmode-dz3* |
492c0 | 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d | .03;..red=c;..green=c;..blue=c;. |
492e0 | 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d | ...linesize=4-dz3*.5;....num=num |
49300 | 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | +1;..sw=-sw;.......t=t+1;deltati |
49320 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
49340 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
49360 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
49380 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
493a0 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
493c0 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
493e0 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
49400 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
49420 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
49440 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
49460 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
49480 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
494a0 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
494c0 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
494e0 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
49500 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
49520 | 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 | w;....n=reg85;....ox=reg00;.rx=r |
49540 | 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 | eg03;..oy=reg01;.ry=reg04;..oz=r |
49560 | 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d | eg02;.rz=-reg05;..sx=sin(rx);sy= |
49580 | 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b | sin(ry);sz=sin(rz);..cx=cos(rx); |
495a0 | 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d | cy=cos(ry);cz=cos(rz);.......tb= |
495c0 | 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 | 0;..gt.=.gettime(0).....flo=5... |
495e0 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 35 3b | ..............$............dy=5; |
49600 | 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d | ..dx=gmegabuf(100*num+1+flo*6);. |
49620 | 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dz=gmegabuf(100*num+2+flo*6);.. |
49640 | 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a | ..dy=dy-oy;dx=-dx+ox;dz=dz-oz;.. |
49660 | 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 | dx1=dx*cy-dz*sy;..dz1=dx*sy+dz*c |
49680 | 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 | y;..dy2=dy*cx-dz1*sx;..dz2=dy*sx |
496a0 | 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 | +dz1*cx;..dx3=dx1*cz-dy2*sz;..dy |
496c0 | 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c | 3=dx1*sz+dy2*cz;....dz3=max(dz2, |
496e0 | 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 | .01);..x=-(dx3)/dz3*hw;..y=-(dy3 |
49700 | 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a | )/dz3;..skip=equal(dz3,.01);.... |
49720 | 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a | drawmode=gmegabuf(100*num+3+flo* |
49740 | 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b | 6);..c=drawmode-dz3*.03;..red=c; |
49760 | 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d | ..green=c;..blue=c;....linesize= |
49780 | 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b | 4-dz3*.5;....num=num+1;..sw=-sw; |
497a0 | 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | .......t=t+1;deltatime.=.gettime |
497c0 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
497e0 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
49800 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
49820 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
49840 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
49860 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
49880 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
498a0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
498c0 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
498e0 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
49900 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
49920 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
49940 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
49960 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
49980 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
499a0 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
499c0 | 36 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 | 6;....ox=reg00;.rx=reg03;..oy=re |
499e0 | 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 | g01;.ry=reg04;..oz=reg02;.rz=-re |
49a00 | 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 | g05;..sx=sin(rx);sy=sin(ry);sz=s |
49a20 | 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 | in(rz);..cx=cos(rx);cy=cos(ry);c |
49a40 | 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 | z=cos(rz);.......tb=0;..gt.=.get |
49a60 | 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | time(0).....flo=6............... |
49a80 | 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 | ..$............dy=6;..dx=gmegabu |
49aa0 | 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 | f(100*num+1+flo*6);..dz=gmegabuf |
49ac0 | 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 | (100*num+2+flo*6);....dy=dy-oy;d |
49ae0 | 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a | x=-dx+ox;dz=dz-oz;..dx1=dx*cy-dz |
49b00 | 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 | *sy;..dz1=dx*sy+dz*cy;..dy2=dy*c |
49b20 | 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 | x-dz1*sx;..dz2=dy*sx+dz1*cx;..dx |
49b40 | 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 | 3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy2 |
49b60 | 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 | *cz;....dz3=max(dz2,.01);..x=-(d |
49b80 | 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 | x3)/dz3*hw;..y=-(dy3)/dz3;..skip |
49ba0 | 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 | =equal(dz3,.01);....drawmode=gme |
49bc0 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d | gabuf(100*num+3+flo*6);..c=drawm |
49be0 | 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | ode-dz3*.03;..red=c;..green=c;.. |
49c00 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d | blue=c;....linesize=4-dz3*.5;... |
49c20 | 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 | .num=num+1;..sw=-sw;.......t=t+1 |
49c40 | 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 | ;deltatime.=.gettime(time);fr=fr |
49c60 | 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b | *.9+deltatime*.1;framerate=1/fr; |
49c80 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 | time.=.gettime(0);tb.=.tb+1;time |
49ca0 | 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | b.=.gettime(gt);xmouse=getkbmous |
49cc0 | 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 | e(1);ymouse=getkbmouse(2);xmouse |
49ce0 | 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d | c=min(max(xmouse,-1),1);ymousec= |
49d00 | 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | min(max(ymouse,-1),1);lmouse.=.g |
49d20 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
49d40 | 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f | (4);shift.=.getkbmouse(5);contro |
49d60 | 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 | l.=.getkbmouse(17);backspace.=.g |
49d80 | 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(8);space.=.getkbmouse( |
49da0 | 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 | 32);right.=.getkbmouse(39);left. |
49dc0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | =.getkbmouse(37);up.=.getkbmouse |
49de0 | 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d | (38);down.=.getkbmouse(40);num.= |
49e00 | 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | .1;sw.=.1;sizechange=bnot(equal( |
49e20 | 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 | oh,h))|bnot(equal(ow,w));oh=h;ow |
49e40 | 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | =w;hw=h/w;....n=reg86;....ox=reg |
49e60 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
49e80 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
49ea0 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
49ec0 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
49ee0 | 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 | .....tb=0;..gt.=.gettime(0)..... |
49f00 | 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c | flo=6.................$......... |
49f20 | 03 00 00 64 79 3d 35 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 | ...dy=5.5+sw*.5;..dx=gmegabuf(10 |
49f40 | 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | 0*num+1+flo*6);..dz=gmegabuf(100 |
49f60 | 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a | *num+2+flo*6);..dxa=dx;dza=dz;.. |
49f80 | 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a | ..dy=dy-oy;dx=-dx+ox;dz=dz-oz;.. |
49fa0 | 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 | dx1=dx*cy-dz*sy;..dz1=dx*sy+dz*c |
49fc0 | 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 | y;..dy2=dy*cx-dz1*sx;..dz2=dy*sx |
49fe0 | 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 | +dz1*cx;..dx3=dx1*cz-dy2*sz;..dy |
4a000 | 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c | 3=dx1*sz+dy2*cz;....dz3=max(dz2, |
4a020 | 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 | .01);..x=-(dx3)/dz3*hw;..y=-(dy3 |
4a040 | 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a | )/dz3;..skip=equal(dz3,.01);.... |
4a060 | 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 | ogx=gmegabuf(100*(num-1)+1+flo*6 |
4a080 | 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 | );..ogz=gmegabuf(100*(num-1)+2+f |
4a0a0 | 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 | lo*6);..ngx=gmegabuf(100*(num+1) |
4a0c0 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 | +1+flo*6);..ngz=gmegabuf(100*(nu |
4a0e0 | 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 | m+1)+2+flo*6);....ang1=atan2(dxa |
4a100 | 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b | -ogx,dza-ogz);..ang2=atan2(-dxa+ |
4a120 | 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f | ngx,-dza+ngz);..corner=bnot(belo |
4a140 | 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f | w(abs(ang1-ang2),.1));....drawmo |
4a160 | 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 | de=gmegabuf(100*num+3+flo*6);..c |
4a180 | 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a | =drawmode*equal(add,1)*corner-dz |
4a1a0 | 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 | 3*.03;..red=c;..green=c;..blue=c |
4a1c0 | 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 | ;....linesize=4-dz3*.5;....add=a |
4a1e0 | 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 | dd+1;..if(equal(add,2),assign(ad |
4a200 | 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d | d,0)+assign(num,num+1),0);..sw=- |
4a220 | 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | sw;..reg99=10;.....t=t+1;deltati |
4a240 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
4a260 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
4a280 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
4a2a0 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
4a2c0 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
4a2e0 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
4a300 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
4a320 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
4a340 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
4a360 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
4a380 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
4a3a0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
4a3c0 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
4a3e0 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
4a400 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
4a420 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
4a440 | 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 | w;....n=reg86*2;....ox=reg00;.rx |
4a460 | 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a | =reg03;..oy=reg01;.ry=reg04;..oz |
4a480 | 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 | =reg02;.rz=-reg05;..sx=sin(rx);s |
4a4a0 | 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 | y=sin(ry);sz=sin(rz);..cx=cos(rx |
4a4c0 | 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d | );cy=cos(ry);cz=cos(rz);....add= |
4a4e0 | 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 | 0;.....tb=0;..gt.=.gettime(0)... |
4a500 | 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 | ..flo=6.................$....... |
4a520 | 01 a8 01 00 00 64 79 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | .....dy=7;..dx=gmegabuf(100*num+ |
4a540 | 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 | 1+flo*6);..dz=gmegabuf(100*num+2 |
4a560 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 | +flo*6);....dy=dy-oy;dx=-dx+ox;d |
4a580 | 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d | z=dz-oz;..dx1=dx*cy-dz*sy;..dz1= |
4a5a0 | 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d | dx*sy+dz*cy;..dy2=dy*cx-dz1*sx;. |
4a5c0 | 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 | .dz2=dy*sx+dz1*cx;..dx3=dx1*cz-d |
4a5e0 | 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a | y2*sz;..dy3=dx1*sz+dy2*cz;....dz |
4a600 | 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 | 3=max(dz2,.01);..x=-(dx3)/dz3*hw |
4a620 | 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 | ;..y=-(dy3)/dz3;..skip=equal(dz3 |
4a640 | 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | ,.01);....drawmode=gmegabuf(100* |
4a660 | 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 | num+3+flo*6);..c=drawmode-dz3*.0 |
4a680 | 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d | 3;..red=c;..green=c;..blue=c;... |
4a6a0 | 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 | .linesize=4-dz3*.5;....num=num+1 |
4a6c0 | 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 | ;..sw=-sw;.......t=t+1;deltatime |
4a6e0 | 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 | .=.gettime(time);fr=fr*.9+deltat |
4a700 | 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 | ime*.1;framerate=1/fr;time.=.get |
4a720 | 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d | time(0);tb.=.tb+1;timeb.=.gettim |
4a740 | 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 | e(gt);xmouse=getkbmouse(1);ymous |
4a760 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | e=getkbmouse(2);xmousec=min(max( |
4a780 | 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d | xmouse,-1),1);ymousec=min(max(ym |
4a7a0 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | ouse,-1),1);lmouse.=.getkbmouse( |
4a7c0 | 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 | 3);rmouse.=.getkbmouse(4);shift. |
4a7e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d | =.getkbmouse(5);control.=.getkbm |
4a800 | 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | ouse(17);backspace.=.getkbmouse( |
4a820 | 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 | 8);space.=.getkbmouse(32);right. |
4a840 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(39);left.=.getkbmou |
4a860 | 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 | se(37);up.=.getkbmouse(38);down. |
4a880 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b | =.getkbmouse(40);num.=.1;sw.=.1; |
4a8a0 | 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f | sizechange=bnot(equal(oh,h))|bno |
4a8c0 | 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b | t(equal(ow,w));oh=h;ow=w;hw=h/w; |
4a8e0 | 0d 0a 0d 0a 6e 3d 72 65 67 38 38 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 | ....n=reg88;....ox=reg00;.rx=reg |
4a900 | 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 | 03;..oy=reg01;.ry=reg04;..oz=reg |
4a920 | 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 | 02;.rz=-reg05;..sx=sin(rx);sy=si |
4a940 | 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 | n(ry);sz=sin(rz);..cx=cos(rx);cy |
4a960 | 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b | =cos(ry);cz=cos(rz);.......tb=0; |
4a980 | 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 | ..gt.=.gettime(0).....flo=8..... |
4a9a0 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 38 3b 0d 0a | ............$............dy=8;.. |
4a9c0 | 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 | dx=gmegabuf(100*num+1+flo*6);..d |
4a9e0 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a | z=gmegabuf(100*num+2+flo*6);.... |
4aa00 | 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 | dy=dy-oy;dx=-dx+ox;dz=dz-oz;..dx |
4aa20 | 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b | 1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy; |
4aa40 | 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 | ..dy2=dy*cx-dz1*sx;..dz2=dy*sx+d |
4aa60 | 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d | z1*cx;..dx3=dx1*cz-dy2*sz;..dy3= |
4aa80 | 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 | dx1*sz+dy2*cz;....dz3=max(dz2,.0 |
4aaa0 | 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f | 1);..x=-(dx3)/dz3*hw;..y=-(dy3)/ |
4aac0 | 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 | dz3;..skip=equal(dz3,.01);....dr |
4aae0 | 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 | awmode=gmegabuf(100*num+3+flo*6) |
4ab00 | 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a | ;..c=drawmode-dz3*.03;..red=c;.. |
4ab20 | 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d | green=c;..blue=c;....linesize=4- |
4ab40 | 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a | dz3*.5;....num=num+1;..sw=-sw;.. |
4ab60 | 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
4ab80 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
4aba0 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
4abc0 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
4abe0 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
4ac00 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
4ac20 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
4ac40 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
4ac60 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
4ac80 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
4aca0 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
4acc0 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
4ace0 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
4ad00 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
4ad20 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
4ad40 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
4ad60 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 3b | ));oh=h;ow=w;hw=h/w;....n=reg88; |
4ad80 | 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 | ....ox=reg00;.rx=reg03;..oy=reg0 |
4ada0 | 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 | 1;.ry=reg04;..oz=reg02;.rz=-reg0 |
4adc0 | 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e | 5;..sx=sin(rx);sy=sin(ry);sz=sin |
4ade0 | 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d | (rz);..cx=cos(rx);cy=cos(ry);cz= |
4ae00 | 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 | cos(rz);.......tb=0;..gt.=.getti |
4ae20 | 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 | me(0).....flo=8................. |
4ae40 | 24 00 00 00 fe 05 00 00 01 10 03 00 00 64 79 3d 37 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 | $............dy=7.5+sw*.5;..dx=g |
4ae60 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d | megabuf(100*num+1+flo*6);..dz=gm |
4ae80 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 | egabuf(100*num+2+flo*6);..dxa=dx |
4aea0 | 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 | ;dza=dz;....dy=dy-oy;dx=-dx+ox;d |
4aec0 | 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d | z=dz-oz;..dx1=dx*cy-dz*sy;..dz1= |
4aee0 | 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d | dx*sy+dz*cy;..dy2=dy*cx-dz1*sx;. |
4af00 | 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 | .dz2=dy*sx+dz1*cx;..dx3=dx1*cz-d |
4af20 | 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a | y2*sz;..dy3=dx1*sz+dy2*cz;....dz |
4af40 | 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 | 3=max(dz2,.01);..x=-(dx3)/dz3*hw |
4af60 | 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 | ;..y=-(dy3)/dz3;..skip=equal(dz3 |
4af80 | 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d | ,.01);....ogx=gmegabuf(100*(num- |
4afa0 | 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | 1)+1+flo*6);..ogz=gmegabuf(100*( |
4afc0 | 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 | num-1)+2+flo*6);..ngx=gmegabuf(1 |
4afe0 | 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 | 00*(num+1)+1+flo*6);..ngz=gmegab |
4b000 | 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 | uf(100*(num+1)+2+flo*6);....ang1 |
4b020 | 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 | =atan2(dxa-ogx,dza-ogz);..ang2=a |
4b040 | 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 | tan2(-dxa+ngx,-dza+ngz);..corner |
4b060 | 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b | =bnot(below(abs(ang1-ang2),.1)); |
4b080 | 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b | ....drawmode=gmegabuf(100*num+3+ |
4b0a0 | 66 6c 6f 2a 36 29 3b 0d 0a 73 76 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 | flo*6);..sv=drawmode*equal(add,1 |
4b0c0 | 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 73 76 3b 0d 0a 67 72 65 65 | )*corner-dz3*.03;..red=sv;..gree |
4b0e0 | 6e 3d 73 76 3b 0d 0a 62 6c 75 65 3d 73 76 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a | n=sv;..blue=sv;....linesize=4-dz |
4b100 | 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 | 3*.5;....add=add+1;..if(equal(ad |
4b120 | 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 | d,2),assign(add,0)+assign(num,nu |
4b140 | 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 | m+1),0);..sw=-sw;..reg99=10;.... |
4b160 | 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 | .t=t+1;deltatime.=.gettime(time) |
4b180 | 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 | ;fr=fr*.9+deltatime*.1;framerate |
4b1a0 | 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b | =1/fr;time.=.gettime(0);tb.=.tb+ |
4b1c0 | 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 | 1;timeb.=.gettime(gt);xmouse=get |
4b1e0 | 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b | kbmouse(1);ymouse=getkbmouse(2); |
4b200 | 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d | xmousec=min(max(xmouse,-1),1);ym |
4b220 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 | ousec=min(max(ymouse,-1),1);lmou |
4b240 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b | se.=.getkbmouse(3);rmouse.=.getk |
4b260 | 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b | bmouse(4);shift.=.getkbmouse(5); |
4b280 | 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 | control.=.getkbmouse(17);backspa |
4b2a0 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 | ce.=.getkbmouse(8);space.=.getkb |
4b2c0 | 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 | mouse(32);right.=.getkbmouse(39) |
4b2e0 | 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b | ;left.=.getkbmouse(37);up.=.getk |
4b300 | 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 | bmouse(38);down.=.getkbmouse(40) |
4b320 | 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | ;num.=.1;sw.=.1;sizechange=bnot( |
4b340 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
4b360 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 2a 32 3b 0d 0a | h=h;ow=w;hw=h/w;....n=reg88*2;.. |
4b380 | 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b | ..ox=reg00;.rx=reg03;..oy=reg01; |
4b3a0 | 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b | .ry=reg04;..oz=reg02;.rz=-reg05; |
4b3c0 | 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 | ..sx=sin(rx);sy=sin(ry);sz=sin(r |
4b3e0 | 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f | z);..cx=cos(rx);cy=cos(ry);cz=co |
4b400 | 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d | s(rz);....add=0;.....tb=0;..gt.= |
4b420 | 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff | .gettime(0).....flo=8........... |
4b440 | ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 36 3b 0d 0a 64 78 3d 67 6d 65 | ......$............dy=6;..dx=gme |
4b460 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 | gabuf(100*num+1+flo*6);..dz=gmeg |
4b480 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d | abuf(100*num+2+flo*6);....dy=dy- |
4b4a0 | 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 | oy;dx=-dx+ox;dz=dz-oz;..dx1=dx*c |
4b4c0 | 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d | y-dz*sy;..dz1=dx*sy+dz*cy;..dy2= |
4b4e0 | 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b | dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx; |
4b500 | 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a | ..dx3=dx1*cz-dy2*sz;..dy3=dx1*sz |
4b520 | 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 | +dy2*cz;....dz3=max(dz2,.01);..x |
4b540 | 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | =-(dx3)/dz3*hw;..y=-(dy3)/dz3;.. |
4b560 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 | skip=equal(dz3,.01);....drawmode |
4b580 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 | =gmegabuf(100*num+3+flo*6);..c=d |
4b5a0 | 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d | rawmode-dz3*.03;..red=c;..green= |
4b5c0 | 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 | c;..blue=c;....linesize=4-dz3*.5 |
4b5e0 | 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 | ;....num=num+1;..sw=-sw;.......t |
4b600 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
4b620 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
4b640 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
4b660 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
4b680 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d | mouse(1);ymouse=getkbmouse(2);xm |
4b6a0 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 | ousec=min(max(xmouse,-1),1);ymou |
4b6c0 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 | sec=min(max(ymouse,-1),1);lmouse |
4b6e0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(3);rmouse.=.getkbm |
4b700 | 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f | ouse(4);shift.=.getkbmouse(5);co |
4b720 | 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 | ntrol.=.getkbmouse(17);backspace |
4b740 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(8);space.=.getkbmo |
4b760 | 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c | use(32);right.=.getkbmouse(39);l |
4b780 | 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d | eft.=.getkbmouse(37);up.=.getkbm |
4b7a0 | 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e | ouse(38);down.=.getkbmouse(40);n |
4b7c0 | 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 | um.=.1;sw.=.1;sizechange=bnot(eq |
4b7e0 | 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d | ual(oh,h))|bnot(equal(ow,w));oh= |
4b800 | 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 | h;ow=w;hw=h/w;....n=reg87;....ox |
4b820 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
4b840 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
4b860 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
4b880 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
4b8a0 | 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 | );.......tb=0;..gt.=.gettime(0). |
4b8c0 | 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 | ....flo=7.................$..... |
4b8e0 | 00 00 01 a8 01 00 00 64 79 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | .......dy=7;..dx=gmegabuf(100*nu |
4b900 | 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | m+1+flo*6);..dz=gmegabuf(100*num |
4b920 | 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 | +2+flo*6);....dy=dy-oy;dx=-dx+ox |
4b940 | 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a | ;dz=dz-oz;..dx1=dx*cy-dz*sy;..dz |
4b960 | 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 | 1=dx*sy+dz*cy;..dy2=dy*cx-dz1*sx |
4b980 | 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a | ;..dz2=dy*sx+dz1*cx;..dx3=dx1*cz |
4b9a0 | 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a | -dy2*sz;..dy3=dx1*sz+dy2*cz;.... |
4b9c0 | 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a | dz3=max(dz2,.01);..x=-(dx3)/dz3* |
4b9e0 | 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 | hw;..y=-(dy3)/dz3;..skip=equal(d |
4ba00 | 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 | z3,.01);....drawmode=gmegabuf(10 |
4ba20 | 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a | 0*num+3+flo*6);..c=drawmode-dz3* |
4ba40 | 2e 30 33 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d | .03;..red=c;..green=c;..blue=c;. |
4ba60 | 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d | ...linesize=4-dz3*.5;....num=num |
4ba80 | 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 | +1;..sw=-sw;.......t=t+1;deltati |
4baa0 | 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 | me.=.gettime(time);fr=fr*.9+delt |
4bac0 | 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 | atime*.1;framerate=1/fr;time.=.g |
4bae0 | 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 | ettime(0);tb.=.tb+1;timeb.=.gett |
4bb00 | 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f | ime(gt);xmouse=getkbmouse(1);ymo |
4bb20 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 | use=getkbmouse(2);xmousec=min(ma |
4bb40 | 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 | x(xmouse,-1),1);ymousec=min(max( |
4bb60 | 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | ymouse,-1),1);lmouse.=.getkbmous |
4bb80 | 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 | e(3);rmouse.=.getkbmouse(4);shif |
4bba0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b | t.=.getkbmouse(5);control.=.getk |
4bbc0 | 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | bmouse(17);backspace.=.getkbmous |
4bbe0 | 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 | e(8);space.=.getkbmouse(32);righ |
4bc00 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d | t.=.getkbmouse(39);left.=.getkbm |
4bc20 | 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 | ouse(37);up.=.getkbmouse(38);dow |
4bc40 | 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 | n.=.getkbmouse(40);num.=.1;sw.=. |
4bc60 | 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 | 1;sizechange=bnot(equal(oh,h))|b |
4bc80 | 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f | not(equal(ow,w));oh=h;ow=w;hw=h/ |
4bca0 | 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 | w;....n=reg87;....ox=reg00;.rx=r |
4bcc0 | 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 | eg03;..oy=reg01;.ry=reg04;..oz=r |
4bce0 | 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d | eg02;.rz=-reg05;..sx=sin(rx);sy= |
4bd00 | 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b | sin(ry);sz=sin(rz);..cx=cos(rx); |
4bd20 | 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d | cy=cos(ry);cz=cos(rz);.......tb= |
4bd40 | 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 | 0;..gt.=.gettime(0).....flo=7... |
4bd60 | 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 06 06 00 00 01 0c 03 00 00 64 79 3d 36 2e | ..............$............dy=6. |
4bd80 | 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b | 5+sw*.5;..dx=gmegabuf(100*num+1+ |
4bda0 | 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 | flo*6);..dz=gmegabuf(100*num+2+f |
4bdc0 | 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d | lo*6);..dxa=dx;dza=dz;....dy=dy- |
4bde0 | 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 | oy;dx=-dx+ox;dz=dz-oz;..dx1=dx*c |
4be00 | 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d | y-dz*sy;..dz1=dx*sy+dz*cy;..dy2= |
4be20 | 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b | dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx; |
4be40 | 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a | ..dx3=dx1*cz-dy2*sz;..dy3=dx1*sz |
4be60 | 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 | +dy2*cz;....dz3=max(dz2,.01);..x |
4be80 | 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a | =-(dx3)/dz3*hw;..y=-(dy3)/dz3;.. |
4bea0 | 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 | skip=equal(dz3,.01);....ogx=gmeg |
4bec0 | 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d | abuf(100*(num-1)+1+flo*6);..ogz= |
4bee0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a | gmegabuf(100*(num-1)+2+flo*6);.. |
4bf00 | 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 | ngx=gmegabuf(100*(num+1)+1+flo*6 |
4bf20 | 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 | );..ngz=gmegabuf(100*(num+1)+2+f |
4bf40 | 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 | lo*6);....ang1=atan2(dxa-ogx,dza |
4bf60 | 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 | -ogz);..ang2=atan2(-dxa+ngx,-dza |
4bf80 | 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e | +ngz);..corner=bnot(below(abs(an |
4bfa0 | 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 | g1-ang2),.1));....drawmode=gmega |
4bfc0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 | buf(100*num+3+flo*6);..c=drawmod |
4bfe0 | 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 30 33 3b 0d 0a | e*equal(add,1)*corner-dz3*.03;.. |
4c000 | 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e | red=c;..green=c;..blue=c;....lin |
4c020 | 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 | esize=4-dz3*.5;....add=add+1;..i |
4c040 | 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 | f(equal(add,2),assign(add,0)+ass |
4c060 | 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 | ign(num,num+1),0);..sw=-sw;..reg |
4c080 | 39 39 3d 31 30 3b 00 bc 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 | 99=10;.....t=t+1;deltatime.=.get |
4c0a0 | 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 | time(time);fr=fr*.9+deltatime*.1 |
4c0c0 | 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 | ;framerate=1/fr;time.=.gettime(0 |
4c0e0 | 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b | );tb.=.tb+1;timeb.=.gettime(gt); |
4c100 | 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b | xmouse=getkbmouse(1);ymouse=getk |
4c120 | 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 | bmouse(2);xmousec=min(max(xmouse |
4c140 | 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d | ,-1),1);ymousec=min(max(ymouse,- |
4c160 | 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f | 1),1);lmouse.=.getkbmouse(3);rmo |
4c180 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b | use.=.getkbmouse(4);shift.=.getk |
4c1a0 | 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 | bmouse(5);control.=.getkbmouse(1 |
4c1c0 | 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 | 7);backspace.=.getkbmouse(8);spa |
4c1e0 | 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b | ce.=.getkbmouse(32);right.=.getk |
4c200 | 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 | bmouse(39);left.=.getkbmouse(37) |
4c220 | 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b | ;up.=.getkbmouse(38);down.=.getk |
4c240 | 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 | bmouse(40);num.=.1;sw.=.1;sizech |
4c260 | 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 | ange=bnot(equal(oh,h))|bnot(equa |
4c280 | 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 73 68 6f 63 6b 3d | l(ow,w));oh=h;ow=w;hw=h/w;shock= |
4c2a0 | 76 61 6c 75 65 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 | value;....n=reg87*2;....ox=reg00 |
4c2c0 | 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b | ;.rx=reg03;..oy=reg01;.ry=reg04; |
4c2e0 | 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 | ..oz=reg02;.rz=-reg05;..sx=sin(r |
4c300 | 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f | x);sy=sin(ry);sz=sin(rz);..cx=co |
4c320 | 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a | s(rx);cy=cos(ry);cz=cos(rz);.... |
4c340 | 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 | add=0;.....tb=0;..gt.=.gettime(0 |
4c360 | 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 fe ff ff ff | ).....flo=7..................... |
4c380 | 92 95 00 00 80 00 01 0b 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ........$....................... |
4c3a0 | 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 | ..........@..AVS.2.8+.Effect.Lis |
4c3c0 | 74 20 43 6f 6e 66 69 67 00 00 00 00 00 64 00 00 00 01 00 00 00 0e 00 00 00 2f 2f 20 66 6f 63 61 | t.Config.....d...........//.foca |
4c3e0 | 6c 20 62 6c 75 72 00 4a 00 00 00 61 61 3d 6d 69 6e 28 6d 61 78 28 61 61 2b 73 69 67 6e 28 72 65 | l.blur.J...aa=min(max(aa+sign(re |
4c400 | 67 35 39 2d 61 61 29 2a 2e 31 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d | g59-aa)*.1,0),1);..alphaout=aa;. |
4c420 | 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 00 fe ff ff ff 3e 92 00 00 81 01 00 | .enabled=above(aa,0).....>...... |
4c440 | 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 | .$.............................. |
4c460 | 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 | ...@..AVS.2.8+.Effect.List.Confi |
4c480 | 67 00 00 00 00 00 29 00 00 00 00 00 00 00 1d 00 00 00 2f 2f 20 66 6f 63 61 6c 20 62 6c 75 72 20 | g.....)...........//.focal.blur. |
4c4a0 | 64 72 61 77 20 62 75 66 66 65 72 20 45 4c 00 00 00 00 00 fe ff ff ff c9 04 00 00 82 02 00 0b 24 | draw.buffer.EL.................$ |
4c4c0 | 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
4c4e0 | 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 | .@..AVS.2.8+.Effect.List.Config. |
4c500 | 00 00 00 00 59 00 00 00 01 00 00 00 00 00 00 00 4d 00 00 00 61 61 3d 6d 61 78 28 6d 69 6e 28 61 | ....Y...........M...aa=max(min(a |
4c520 | 61 2b 73 69 67 6e 28 72 65 67 35 35 2d 61 61 29 2a 2e 31 2c 31 29 2c 30 29 3b 0d 0a 61 6c 70 68 | a+sign(reg55-aa)*.1,1),0);..alph |
4c540 | 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 61 61 2c 30 29 3b 0d 0a | aout=aa;..enabled=above(aa,0);.. |
4c560 | 00 19 00 00 00 14 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 2b 00 00 | .............................+.. |
4c580 | 00 ff 03 00 00 01 16 01 00 00 64 78 3d 78 2a 69 68 77 3b 64 79 3d 79 3b 64 7a 3d 31 3b 0d 0a 0d | ..........dx=x*ihw;dy=y;dz=1;... |
4c5a0 | 0a 64 78 31 3d 64 78 2a 63 7a 2d 64 79 2a 73 7a 3b 0d 0a 64 79 31 3d 64 78 2a 73 7a 2b 64 79 2a | .dx1=dx*cz-dy*sz;..dy1=dx*sz+dy* |
4c5c0 | 63 7a 3b 0d 0a 64 79 33 3d 64 79 31 2a 63 78 2d 64 7a 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 31 2a | cz;..dy3=dy1*cx-dz*sx;..dz2=dy1* |
4c5e0 | 73 78 2b 64 7a 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 79 2d 64 7a 32 2a 73 79 3b 0d 0a 64 | sx+dz*cx;..dx3=dx1*cy-dz2*sy;..d |
4c600 | 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d 0a 0d 0a 6b 3d 28 2d 6f 79 29 2f 28 2d 64 | z3=dx1*sy+dz2*cy;....k=(-oy)/(-d |
4c620 | 79 33 29 3b 0d 0a 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 2c 30 29 2c 31 30 30 2c 6b 29 3b 0d 0a 0d | y3);..k=if(below(k,0),100,k);... |
4c640 | 0a 78 31 3d 6b 2a 64 78 33 2b 6f 78 3b 0d 0a 79 31 3d 6b 2a 64 79 33 2b 6f 79 3b 0d 0a 7a 31 3d | .x1=k*dx3+ox;..y1=k*dy3+oy;..z1= |
4c660 | 6b 2a 64 7a 33 2b 6f 7a 3b 0d 0a 0d 0a 78 3d 78 31 2b 31 3b 0d 0a 79 3d 2d 7a 31 2b 31 3b 0d 0a | k*dz3+oz;....x=x1+1;..y=-z1+1;.. |
4c680 | 0d 0a 61 6c 70 68 61 20 3d 2e 31 35 2a 6b 2a 61 62 6f 76 65 28 79 31 2c 2d 31 30 30 30 30 29 00 | ..alpha.=.15*k*above(y1,-10000). |
4c6a0 | b1 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 | ....t=t+1;deltatime.=.gettime(ti |
4c6c0 | 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 | me);fr=fr*.9+deltatime*.1;framer |
4c6e0 | 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 | ate=1/fr;time.=.gettime(0);tb.=. |
4c700 | 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d | tb+1;timeb.=.gettime(gt);xmouse= |
4c720 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | getkbmouse(1);ymouse=getkbmouse( |
4c740 | 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 | 2);inbounds=below(abs(xmouse),1) |
4c760 | 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | &below(abs(ymouse),1);lmouse.=.g |
4c780 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
4c7a0 | 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f | (4);shift.=.getkbmouse(5);contro |
4c7c0 | 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 | l.=.getkbmouse(17);backspace.=.g |
4c7e0 | 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(8);space.=.getkbmouse( |
4c800 | 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 | 32);right.=.getkbmouse(39);left. |
4c820 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | =.getkbmouse(37);up.=.getkbmouse |
4c840 | 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 | (38);down.=.getkbmouse(40);sizec |
4c860 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
4c880 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 72 65 67 | al(ow,w));oh=h;ow=w;hw=h/w;..reg |
4c8a0 | 33 33 3d 66 72 61 6d 65 72 61 74 65 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 0d 0a 6f 79 3d 72 65 67 | 33=framerate;..ox=reg00;..oy=reg |
4c8c0 | 30 31 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 0d 0a 0d 0a 78 72 6f 74 3d 72 65 67 30 33 3b 0d 0a 79 | 01;..oz=reg02;....xrot=reg03;..y |
4c8e0 | 72 6f 74 3d 72 65 67 30 34 3b 0d 0a 7a 72 6f 74 3d 72 65 67 30 35 3b 0d 0a 0d 0a 73 78 3d 73 69 | rot=reg04;..zrot=reg05;....sx=si |
4c900 | 6e 28 78 72 6f 74 29 3b 73 79 3d 73 69 6e 28 79 72 6f 74 29 3b 73 7a 3d 73 69 6e 28 7a 72 6f 74 | n(xrot);sy=sin(yrot);sz=sin(zrot |
4c920 | 29 3b 0d 0a 63 78 3d 63 6f 73 28 78 72 6f 74 29 3b 63 79 3d 63 6f 73 28 79 72 6f 74 29 3b 63 7a | );..cx=cos(xrot);cy=cos(yrot);cz |
4c940 | 3d 63 6f 73 28 7a 72 6f 74 29 3b 20 69 68 77 3d 31 2f 68 77 00 00 00 00 00 07 00 00 00 70 69 3d | =cos(zrot);.ihw=1/hw.........pi= |
4c960 | 24 70 69 00 00 00 00 00 00 00 00 00 04 00 00 00 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | $pi............................. |
4c980 | 01 00 00 00 fe ff ff ff d3 8b 00 00 81 01 00 02 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 | ................$............... |
4c9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 | ..................@..AVS.2.8+.Ef |
4c9c0 | 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 | fect.List.Config................ |
4c9e0 | 00 00 00 00 00 28 00 00 00 04 00 00 00 02 00 01 80 24 00 00 00 84 04 00 00 01 94 01 00 00 64 79 | .....(...........$............dy |
4ca00 | 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 | =abs(getosc(asin(sin(i*$pi))/$pi |
4ca20 | 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a 32 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 | ,.1,alt*.5)*1)*2;..dx=10*sin(i*2 |
4ca40 | 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a | *$pi);..dz=-10*cos(i*2*$pi);.... |
4ca60 | 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 | dy=dy-oy;dx=-dx+ox;dz=dz-oz;..dx |
4ca80 | 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b | 1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy; |
4caa0 | 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 | ..dy2=dy*cx-dz1*sx;..dz2=dy*sx+d |
4cac0 | 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d | z1*cx;..dx3=dx1*cz-dy2*sz;..dy3= |
4cae0 | 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 | dx1*sz+dy2*cz;....dz3=max(dz2,.0 |
4cb00 | 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f | 1);..x=-(dx3)/dz3*hw;..y=-(dy3)/ |
4cb20 | 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d | dz3;..skip=equal(dz3,.01);....c= |
4cb40 | 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 2a 2e 36 36 3b 0d 0a 67 | drawmode-dz3*.18;..red=c*.66;..g |
4cb60 | 72 65 65 6e 3d 63 2a 2e 36 36 3b 0d 0a 62 6c 75 65 3d 63 2a 2e 36 36 3b 0d 0a 0d 0a 6e 75 6d 3d | reen=c*.66;..blue=c*.66;....num= |
4cb80 | 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 | num+1;..sw=-sw;.......t=t+1;delt |
4cba0 | 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 | atime.=.gettime(time);fr=fr*.9+d |
4cbc0 | 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 | eltatime*.1;framerate=1/fr;time. |
4cbe0 | 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 | =.gettime(0);tb.=.tb+1;timeb.=.g |
4cc00 | 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b | ettime(gt);xmouse=getkbmouse(1); |
4cc20 | 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e | ymouse=getkbmouse(2);xmousec=min |
4cc40 | 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d | (max(xmouse,-1),1);ymousec=min(m |
4cc60 | 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | ax(ymouse,-1),1);lmouse.=.getkbm |
4cc80 | 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 | ouse(3);rmouse.=.getkbmouse(4);s |
4cca0 | 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 | hift.=.getkbmouse(5);control.=.g |
4ccc0 | 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | etkbmouse(17);backspace.=.getkbm |
4cce0 | 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 | ouse(8);space.=.getkbmouse(32);r |
4cd00 | 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 | ight.=.getkbmouse(39);left.=.get |
4cd20 | 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b | kbmouse(37);up.=.getkbmouse(38); |
4cd40 | 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 | down.=.getkbmouse(40);num.=.1;sw |
4cd60 | 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 | .=.1;sizechange=bnot(equal(oh,h) |
4cd80 | 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 | )|bnot(equal(ow,w));oh=h;ow=w;hw |
4cda0 | 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 | =h/w;....n=sqrt(h*w)*.5;..linesi |
4cdc0 | 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 | ze=1;..ox=reg00;.rx=reg03;..oy=r |
4cde0 | 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 | eg01;.ry=reg04;..oz=reg02;.rz=-r |
4ce00 | 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d | eg05;..sx=sin(rx);sy=sin(ry);sz= |
4ce20 | 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b | sin(rz);..cx=cos(rx);cy=cos(ry); |
4ce40 | 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 | cz=cos(rz);.......tb=0;..gt.=.ge |
4ce60 | 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 | ttime(0).....................$.. |
4ce80 | 00 84 04 00 00 01 94 01 00 00 64 79 3d 61 62 73 28 67 65 74 6f 73 63 28 61 73 69 6e 28 73 69 6e | ..........dy=abs(getosc(asin(sin |
4cea0 | 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a 2e 35 29 2a 31 29 2a 33 3b 0d 0a 64 | (i*$pi))/$pi,.1,alt*.5)*1)*3;..d |
4cec0 | 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 | x=10*sin(i*2*$pi);..dz=-10*cos(i |
4cee0 | 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 | *2*$pi);....dy=dy-oy;dx=-dx+ox;d |
4cf00 | 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d | z=dz-oz;..dx1=dx*cy-dz*sy;..dz1= |
4cf20 | 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d | dx*sy+dz*cy;..dy2=dy*cx-dz1*sx;. |
4cf40 | 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 | .dz2=dy*sx+dz1*cx;..dx3=dx1*cz-d |
4cf60 | 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a | y2*sz;..dy3=dx1*sz+dy2*cz;....dz |
4cf80 | 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 | 3=max(dz2,.01);..x=-(dx3)/dz3*hw |
4cfa0 | 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 | ;..y=-(dy3)/dz3;..skip=equal(dz3 |
4cfc0 | 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 | ,.01);....c=drawmode-dz3*.18;..r |
4cfe0 | 65 64 3d 63 2a 2e 33 33 3b 0d 0a 67 72 65 65 6e 3d 63 2a 2e 33 33 3b 0d 0a 62 6c 75 65 3d 63 2a | ed=c*.33;..green=c*.33;..blue=c* |
4d000 | 2e 33 33 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 | .33;....num=num+1;..sw=-sw;..... |
4d020 | 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 | ..t=t+1;deltatime.=.gettime(time |
4d040 | 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 | );fr=fr*.9+deltatime*.1;framerat |
4d060 | 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 | e=1/fr;time.=.gettime(0);tb.=.tb |
4d080 | 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 | +1;timeb.=.gettime(gt);xmouse=ge |
4d0a0 | 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 | tkbmouse(1);ymouse=getkbmouse(2) |
4d0c0 | 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 | ;xmousec=min(max(xmouse,-1),1);y |
4d0e0 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f | mousec=min(max(ymouse,-1),1);lmo |
4d100 | 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 | use.=.getkbmouse(3);rmouse.=.get |
4d120 | 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 | kbmouse(4);shift.=.getkbmouse(5) |
4d140 | 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 | ;control.=.getkbmouse(17);backsp |
4d160 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b | ace.=.getkbmouse(8);space.=.getk |
4d180 | 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 | bmouse(32);right.=.getkbmouse(39 |
4d1a0 | 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 | );left.=.getkbmouse(37);up.=.get |
4d1c0 | 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 | kbmouse(38);down.=.getkbmouse(40 |
4d1e0 | 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 | );num.=.1;sw.=.1;sizechange=bnot |
4d200 | 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b | (equal(oh,h))|bnot(equal(ow,w)); |
4d220 | 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 | oh=h;ow=w;hw=h/w;....n=sqrt(h*w) |
4d240 | 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d | *.5;..linesize=1;..ox=reg00;.rx= |
4d260 | 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d | reg03;..oy=reg01;.ry=reg04;..oz= |
4d280 | 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 | reg02;.rz=-reg05;..sx=sin(rx);sy |
4d2a0 | 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 | =sin(ry);sz=sin(rz);..cx=cos(rx) |
4d2c0 | 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 | ;cy=cos(ry);cz=cos(rz);.......tb |
4d2e0 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 | =0;..gt.=.gettime(0)............ |
4d300 | 00 ff ff ff 00 01 00 00 00 24 00 00 00 76 04 00 00 01 86 01 00 00 64 79 3d 61 62 73 28 67 65 74 | .........$...v........dy=abs(get |
4d320 | 6f 73 63 28 61 73 69 6e 28 73 69 6e 28 69 2a 24 70 69 29 29 2f 24 70 69 2c 2e 31 2c 61 6c 74 2a | osc(asin(sin(i*$pi))/$pi,.1,alt* |
4d340 | 2e 35 29 2a 31 29 3b 0d 0a 64 78 3d 31 30 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a | .5)*1);..dx=10*sin(i*2*$pi);..dz |
4d360 | 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 | =-10*cos(i*2*$pi);....dy=dy-oy;d |
4d380 | 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a | x=-dx+ox;dz=dz-oz;..dx1=dx*cy-dz |
4d3a0 | 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 | *sy;..dz1=dx*sy+dz*cy;..dy2=dy*c |
4d3c0 | 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 | x-dz1*sx;..dz2=dy*sx+dz1*cx;..dx |
4d3e0 | 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 | 3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy2 |
4d400 | 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 | *cz;....dz3=max(dz2,.01);..x=-(d |
4d420 | 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 | x3)/dz3*hw;..y=-(dy3)/dz3;..skip |
4d440 | 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 | =equal(dz3,.01);....c=drawmode-d |
4d460 | 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d | z3*.18;..red=c;..green=c;..blue= |
4d480 | 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 | c;....num=num+1;..sw=-sw;....... |
4d4a0 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
4d4c0 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
4d4e0 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
4d500 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
4d520 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
4d540 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
4d560 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
4d580 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
4d5a0 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
4d5c0 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
4d5e0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
4d600 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
4d620 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
4d640 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
4d660 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
4d680 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
4d6a0 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e | =h;ow=w;hw=h/w;....n=sqrt(h*w)*. |
4d6c0 | 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | 5;..linesize=1;..ox=reg00;.rx=re |
4d6e0 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
4d700 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
4d720 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
4d740 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
4d760 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff | ;..gt.=.gettime(0).............. |
4d780 | ff ff 00 01 00 00 00 24 00 00 00 4a 04 00 00 01 5a 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 31 30 | .......$...J....Z...dy=0;..dx=10 |
4d7a0 | 2a 73 69 6e 28 69 2a 32 2a 24 70 69 29 3b 0d 0a 64 7a 3d 2d 31 30 2a 63 6f 73 28 69 2a 32 2a 24 | *sin(i*2*$pi);..dz=-10*cos(i*2*$ |
4d7c0 | 70 69 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a | pi);....dy=dy-oy;dx=-dx+ox;dz=dz |
4d7e0 | 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 | -oz;..dx1=dx*cy-dz*sy;..dz1=dx*s |
4d800 | 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 | y+dz*cy;..dy2=dy*cx-dz1*sx;..dz2 |
4d820 | 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 | =dy*sx+dz1*cx;..dx3=dx1*cz-dy2*s |
4d840 | 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 | z;..dy3=dx1*sz+dy2*cz;....dz3=ma |
4d860 | 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 | x(dz2,.01);..x=-(dx3)/dz3*hw;..y |
4d880 | 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 | =-(dy3)/dz3;..skip=equal(dz3,.01 |
4d8a0 | 29 3b 0d 0a 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 | );....c=drawmode-dz3*.18;..red=c |
4d8c0 | 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b | ;..green=c;..blue=c;....num=num+ |
4d8e0 | 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 b8 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | 1;..sw=-sw;.......t=t+1;deltatim |
4d900 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
4d920 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
4d940 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
4d960 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
4d980 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | se=getkbmouse(2);xmousec=min(max |
4d9a0 | 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 | (xmouse,-1),1);ymousec=min(max(y |
4d9c0 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse,-1),1);lmouse.=.getkbmouse |
4d9e0 | 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 | (3);rmouse.=.getkbmouse(4);shift |
4da00 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 | .=.getkbmouse(5);control.=.getkb |
4da20 | 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse(17);backspace.=.getkbmouse |
4da40 | 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 | (8);space.=.getkbmouse(32);right |
4da60 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(39);left.=.getkbmo |
4da80 | 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e | use(37);up.=.getkbmouse(38);down |
4daa0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 | .=.getkbmouse(40);num.=.1;sw.=.1 |
4dac0 | 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e | ;sizechange=bnot(equal(oh,h))|bn |
4dae0 | 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 | ot(equal(ow,w));oh=h;ow=w;hw=h/w |
4db00 | 3b 0d 0a 0d 0a 6e 3d 73 71 72 74 28 68 2a 77 29 2a 2e 35 3b 0d 0a 6c 69 6e 65 73 69 7a 65 3d 31 | ;....n=sqrt(h*w)*.5;..linesize=1 |
4db20 | 3b 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 | ;..ox=reg00;.rx=reg03;..oy=reg01 |
4db40 | 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 | ;.ry=reg04;..oz=reg02;.rz=-reg05 |
4db60 | 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 | ;..sx=sin(rx);sy=sin(ry);sz=sin( |
4db80 | 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 | rz);..cx=cos(rx);cy=cos(ry);cz=c |
4dba0 | 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d | os(rz);.......tb=0;..gt.=.gettim |
4dbc0 | 65 28 30 29 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 | e(0).....................$...... |
4dbe0 | 00 01 a8 01 00 00 64 79 3d 30 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | ......dy=0;..dx=gmegabuf(100*num |
4dc00 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | +1+flo*6);..dz=gmegabuf(100*num+ |
4dc20 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b | 2+flo*6);....dy=dy-oy;dx=-dx+ox; |
4dc40 | 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 | dz=dz-oz;..dx1=dx*cy-dz*sy;..dz1 |
4dc60 | 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b | =dx*sy+dz*cy;..dy2=dy*cx-dz1*sx; |
4dc80 | 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d | ..dz2=dy*sx+dz1*cx;..dx3=dx1*cz- |
4dca0 | 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 | dy2*sz;..dy3=dx1*sz+dy2*cz;....d |
4dcc0 | 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 | z3=max(dz2,.01);..x=-(dx3)/dz3*h |
4dce0 | 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a | w;..y=-(dy3)/dz3;..skip=equal(dz |
4dd00 | 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | 3,.01);....drawmode=gmegabuf(100 |
4dd20 | 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e | *num+3+flo*6);..c=drawmode-dz3*. |
4dd40 | 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a | 18;..red=c;..green=c;..blue=c;.. |
4dd60 | 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b | ..linesize=4-dz3*.5;....num=num+ |
4dd80 | 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | 1;..sw=-sw;.......t=t+1;deltatim |
4dda0 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
4ddc0 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
4dde0 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
4de00 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
4de20 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | se=getkbmouse(2);xmousec=min(max |
4de40 | 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 | (xmouse,-1),1);ymousec=min(max(y |
4de60 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse,-1),1);lmouse.=.getkbmouse |
4de80 | 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 | (3);rmouse.=.getkbmouse(4);shift |
4dea0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 | .=.getkbmouse(5);control.=.getkb |
4dec0 | 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse(17);backspace.=.getkbmouse |
4dee0 | 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 | (8);space.=.getkbmouse(32);right |
4df00 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(39);left.=.getkbmo |
4df20 | 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e | use(37);up.=.getkbmouse(38);down |
4df40 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 | .=.getkbmouse(40);num.=.1;sw.=.1 |
4df60 | 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e | ;sizechange=bnot(equal(oh,h))|bn |
4df80 | 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 | ot(equal(ow,w));oh=h;ow=w;hw=h/w |
4dfa0 | 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | ;....n=reg81;....ox=reg00;.rx=re |
4dfc0 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
4dfe0 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
4e000 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
4e020 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
4e040 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 | ;..gt.=.gettime(0).....flo=1.... |
4e060 | 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 31 3b 0d | .............$............dy=1;. |
4e080 | 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dx=gmegabuf(100*num+1+flo*6);.. |
4e0a0 | 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d | dz=gmegabuf(100*num+2+flo*6);... |
4e0c0 | 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 | .dy=dy-oy;dx=-dx+ox;dz=dz-oz;..d |
4e0e0 | 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 | x1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy |
4e100 | 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b | ;..dy2=dy*cx-dz1*sx;..dz2=dy*sx+ |
4e120 | 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 | dz1*cx;..dx3=dx1*cz-dy2*sz;..dy3 |
4e140 | 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e | =dx1*sz+dy2*cz;....dz3=max(dz2,. |
4e160 | 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 | 01);..x=-(dx3)/dz3*hw;..y=-(dy3) |
4e180 | 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 | /dz3;..skip=equal(dz3,.01);....d |
4e1a0 | 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 | rawmode=gmegabuf(100*num+3+flo*6 |
4e1c0 | 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d | );..c=drawmode-dz3*.18;..red=c;. |
4e1e0 | 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 | .green=c;..blue=c;....linesize=4 |
4e200 | 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d | -dz3*.5;....num=num+1;..sw=-sw;. |
4e220 | 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | ......t=t+1;deltatime.=.gettime( |
4e240 | 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d | time);fr=fr*.9+deltatime*.1;fram |
4e260 | 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 | erate=1/fr;time.=.gettime(0);tb. |
4e280 | 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 | =.tb+1;timeb.=.gettime(gt);xmous |
4e2a0 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | e=getkbmouse(1);ymouse=getkbmous |
4e2c0 | 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c | e(2);xmousec=min(max(xmouse,-1), |
4e2e0 | 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 1);ymousec=min(max(ymouse,-1),1) |
4e300 | 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d | ;lmouse.=.getkbmouse(3);rmouse.= |
4e320 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(4);shift.=.getkbmous |
4e340 | 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 | e(5);control.=.getkbmouse(17);ba |
4e360 | 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 | ckspace.=.getkbmouse(8);space.=. |
4e380 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(32);right.=.getkbmous |
4e3a0 | 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d | e(39);left.=.getkbmouse(37);up.= |
4e3c0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(38);down.=.getkbmous |
4e3e0 | 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d | e(40);num.=.1;sw.=.1;sizechange= |
4e400 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c | bnot(equal(oh,h))|bnot(equal(ow, |
4e420 | 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 | w));oh=h;ow=w;hw=h/w;....n=reg81 |
4e440 | 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 | ;....ox=reg00;.rx=reg03;..oy=reg |
4e460 | 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 | 01;.ry=reg04;..oz=reg02;.rz=-reg |
4e480 | 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 | 05;..sx=sin(rx);sy=sin(ry);sz=si |
4e4a0 | 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a | n(rz);..cx=cos(rx);cy=cos(ry);cz |
4e4c0 | 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 | =cos(rz);.......tb=0;..gt.=.gett |
4e4e0 | 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | ime(0).....flo=1................ |
4e500 | 00 24 00 00 00 f9 05 00 00 01 0b 03 00 00 64 79 3d 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 | .$............dy=.5+sw*.5;..dx=g |
4e520 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d | megabuf(100*num+1+flo*6);..dz=gm |
4e540 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 | egabuf(100*num+2+flo*6);..dxa=dx |
4e560 | 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 | ;dza=dz;....dy=dy-oy;dx=-dx+ox;d |
4e580 | 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d | z=dz-oz;..dx1=dx*cy-dz*sy;..dz1= |
4e5a0 | 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d | dx*sy+dz*cy;..dy2=dy*cx-dz1*sx;. |
4e5c0 | 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 | .dz2=dy*sx+dz1*cx;..dx3=dx1*cz-d |
4e5e0 | 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a | y2*sz;..dy3=dx1*sz+dy2*cz;....dz |
4e600 | 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 | 3=max(dz2,.01);..x=-(dx3)/dz3*hw |
4e620 | 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 | ;..y=-(dy3)/dz3;..skip=equal(dz3 |
4e640 | 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d | ,.01);....ogx=gmegabuf(100*(num- |
4e660 | 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 | 1)+1+flo*6);..ogz=gmegabuf(100*( |
4e680 | 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 | num-1)+2+flo*6);..ngx=gmegabuf(1 |
4e6a0 | 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 | 00*(num+1)+1+flo*6);..ngz=gmegab |
4e6c0 | 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 | uf(100*(num+1)+2+flo*6);....ang1 |
4e6e0 | 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 | =atan2(dxa-ogx,dza-ogz);..ang2=a |
4e700 | 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 | tan2(-dxa+ngx,-dza+ngz);..corner |
4e720 | 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b | =bnot(below(abs(ang1-ang2),.1)); |
4e740 | 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b | ....drawmode=gmegabuf(100*num+3+ |
4e760 | 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 | flo*6);..c=drawmode*equal(add,1) |
4e780 | 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d | *corner-dz3*.18;..red=c;..green= |
4e7a0 | 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 | c;..blue=c;....linesize=4-dz3*.5 |
4e7c0 | 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 | ;....add=add+1;..if(equal(add,2) |
4e7e0 | 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 | ,assign(add,0)+assign(num,num+1) |
4e800 | 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 | ,0);..sw=-sw;..reg99=10;.....t=t |
4e820 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
4e840 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
4e860 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
4e880 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
4e8a0 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 | use(1);ymouse=getkbmouse(2);xmou |
4e8c0 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 | sec=min(max(xmouse,-1),1);ymouse |
4e8e0 | 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d | c=min(max(ymouse,-1),1);lmouse.= |
4e900 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(3);rmouse.=.getkbmou |
4e920 | 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 | se(4);shift.=.getkbmouse(5);cont |
4e940 | 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d | rol.=.getkbmouse(17);backspace.= |
4e960 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(8);space.=.getkbmous |
4e980 | 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 | e(32);right.=.getkbmouse(39);lef |
4e9a0 | 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 | t.=.getkbmouse(37);up.=.getkbmou |
4e9c0 | 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d | se(38);down.=.getkbmouse(40);num |
4e9e0 | 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 | .=.1;sw.=.1;sizechange=bnot(equa |
4ea00 | 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b | l(oh,h))|bnot(equal(ow,w));oh=h; |
4ea20 | 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 31 2a 32 3b 0d 0a 0d 0a 6f 78 | ow=w;hw=h/w;....n=reg81*2;....ox |
4ea40 | 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d | =reg00;.rx=reg03;..oy=reg01;.ry= |
4ea60 | 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 | reg04;..oz=reg02;.rz=-reg05;..sx |
4ea80 | 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d | =sin(rx);sy=sin(ry);sz=sin(rz);. |
4eaa0 | 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a | .cx=cos(rx);cy=cos(ry);cz=cos(rz |
4eac0 | 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 | );....add=0;.....tb=0;..gt.=.get |
4eae0 | 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 | time(0).....flo=1............... |
4eb00 | 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 32 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 | ..$............dy=2;..dx=gmegabu |
4eb20 | 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 | f(100*num+1+flo*6);..dz=gmegabuf |
4eb40 | 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 | (100*num+2+flo*6);....dy=dy-oy;d |
4eb60 | 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a | x=-dx+ox;dz=dz-oz;..dx1=dx*cy-dz |
4eb80 | 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 | *sy;..dz1=dx*sy+dz*cy;..dy2=dy*c |
4eba0 | 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 | x-dz1*sx;..dz2=dy*sx+dz1*cx;..dx |
4ebc0 | 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 | 3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy2 |
4ebe0 | 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 | *cz;....dz3=max(dz2,.01);..x=-(d |
4ec00 | 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 | x3)/dz3*hw;..y=-(dy3)/dz3;..skip |
4ec20 | 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 | =equal(dz3,.01);....drawmode=gme |
4ec40 | 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d | gabuf(100*num+3+flo*6);..c=drawm |
4ec60 | 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a | ode-dz3*.18;..red=c;..green=c;.. |
4ec80 | 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d | blue=c;....linesize=4-dz3*.5;... |
4eca0 | 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 | .num=num+1;..sw=-sw;.......t=t+1 |
4ecc0 | 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 | ;deltatime.=.gettime(time);fr=fr |
4ece0 | 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b | *.9+deltatime*.1;framerate=1/fr; |
4ed00 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 | time.=.gettime(0);tb.=.tb+1;time |
4ed20 | 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | b.=.gettime(gt);xmouse=getkbmous |
4ed40 | 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 | e(1);ymouse=getkbmouse(2);xmouse |
4ed60 | 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d | c=min(max(xmouse,-1),1);ymousec= |
4ed80 | 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | min(max(ymouse,-1),1);lmouse.=.g |
4eda0 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
4edc0 | 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f | (4);shift.=.getkbmouse(5);contro |
4ede0 | 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 | l.=.getkbmouse(17);backspace.=.g |
4ee00 | 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | etkbmouse(8);space.=.getkbmouse( |
4ee20 | 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 | 32);right.=.getkbmouse(39);left. |
4ee40 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | =.getkbmouse(37);up.=.getkbmouse |
4ee60 | 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d | (38);down.=.getkbmouse(40);num.= |
4ee80 | 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 | .1;sw.=.1;sizechange=bnot(equal( |
4eea0 | 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 | oh,h))|bnot(equal(ow,w));oh=h;ow |
4eec0 | 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 | =w;hw=h/w;....n=reg82;....ox=reg |
4eee0 | 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 | 00;.rx=reg03;..oy=reg01;.ry=reg0 |
4ef00 | 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e | 4;..oz=reg02;.rz=-reg05;..sx=sin |
4ef20 | 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d | (rx);sy=sin(ry);sz=sin(rz);..cx= |
4ef40 | 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a | cos(rx);cy=cos(ry);cz=cos(rz);.. |
4ef60 | 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 | .....tb=0;..gt.=.gettime(0)..... |
4ef80 | 66 6c 6f 3d 32 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 | flo=2.................$......... |
4efa0 | 01 00 00 64 79 3d 31 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b | ...dy=1;..dx=gmegabuf(100*num+1+ |
4efc0 | 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 | flo*6);..dz=gmegabuf(100*num+2+f |
4efe0 | 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d | lo*6);....dy=dy-oy;dx=-dx+ox;dz= |
4f000 | 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 | dz-oz;..dx1=dx*cy-dz*sy;..dz1=dx |
4f020 | 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 | *sy+dz*cy;..dy2=dy*cx-dz1*sx;..d |
4f040 | 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 | z2=dy*sx+dz1*cx;..dx3=dx1*cz-dy2 |
4f060 | 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d | *sz;..dy3=dx1*sz+dy2*cz;....dz3= |
4f080 | 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d | max(dz2,.01);..x=-(dx3)/dz3*hw;. |
4f0a0 | 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e | .y=-(dy3)/dz3;..skip=equal(dz3,. |
4f0c0 | 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 | 01);....drawmode=gmegabuf(100*nu |
4f0e0 | 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b | m+3+flo*6);..c=drawmode-dz3*.18; |
4f100 | 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c | ..red=c;..green=c;..blue=c;....l |
4f120 | 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d | inesize=4-dz3*.5;....num=num+1;. |
4f140 | 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d | .sw=-sw;.......t=t+1;deltatime.= |
4f160 | 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d | .gettime(time);fr=fr*.9+deltatim |
4f180 | 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 | e*.1;framerate=1/fr;time.=.getti |
4f1a0 | 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 | me(0);tb.=.tb+1;timeb.=.gettime( |
4f1c0 | 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d | gt);xmouse=getkbmouse(1);ymouse= |
4f1e0 | 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d | getkbmouse(2);xmousec=min(max(xm |
4f200 | 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 | ouse,-1),1);ymousec=min(max(ymou |
4f220 | 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 | se,-1),1);lmouse.=.getkbmouse(3) |
4f240 | 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 | ;rmouse.=.getkbmouse(4);shift.=. |
4f260 | 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 | getkbmouse(5);control.=.getkbmou |
4f280 | 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 | se(17);backspace.=.getkbmouse(8) |
4f2a0 | 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 | ;space.=.getkbmouse(32);right.=. |
4f2c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(39);left.=.getkbmouse |
4f2e0 | 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 | (37);up.=.getkbmouse(38);down.=. |
4f300 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 | getkbmouse(40);num.=.1;sw.=.1;si |
4f320 | 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 | zechange=bnot(equal(oh,h))|bnot( |
4f340 | 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a | equal(ow,w));oh=h;ow=w;hw=h/w;.. |
4f360 | 0d 0a 6e 3d 72 65 67 38 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 | ..n=reg82;....ox=reg00;.rx=reg03 |
4f380 | 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 | ;..oy=reg01;.ry=reg04;..oz=reg02 |
4f3a0 | 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 | ;.rz=-reg05;..sx=sin(rx);sy=sin( |
4f3c0 | 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 | ry);sz=sin(rz);..cx=cos(rx);cy=c |
4f3e0 | 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a | os(ry);cz=cos(rz);.......tb=0;.. |
4f400 | 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 01 00 | gt.=.gettime(0).....flo=2....... |
4f420 | 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 31 2e 35 2b 73 77 | ..........$............dy=1.5+sw |
4f440 | 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a | *.5;..dx=gmegabuf(100*num+1+flo* |
4f460 | 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 | 6);..dz=gmegabuf(100*num+2+flo*6 |
4f480 | 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 | );..dxa=dx;dza=dz;....dy=dy-oy;d |
4f4a0 | 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a | x=-dx+ox;dz=dz-oz;..dx1=dx*cy-dz |
4f4c0 | 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 | *sy;..dz1=dx*sy+dz*cy;..dy2=dy*c |
4f4e0 | 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 | x-dz1*sx;..dz2=dy*sx+dz1*cx;..dx |
4f500 | 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 | 3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy2 |
4f520 | 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 | *cz;....dz3=max(dz2,.01);..x=-(d |
4f540 | 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 | x3)/dz3*hw;..y=-(dy3)/dz3;..skip |
4f560 | 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 | =equal(dz3,.01);....ogx=gmegabuf |
4f580 | 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 | (100*(num-1)+1+flo*6);..ogz=gmeg |
4f5a0 | 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d | abuf(100*(num-1)+2+flo*6);..ngx= |
4f5c0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a | gmegabuf(100*(num+1)+1+flo*6);.. |
4f5e0 | 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 | ngz=gmegabuf(100*(num+1)+2+flo*6 |
4f600 | 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a | );....ang1=atan2(dxa-ogx,dza-ogz |
4f620 | 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a | );..ang2=atan2(-dxa+ngx,-dza+ngz |
4f640 | 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 | );..corner=bnot(below(abs(ang1-a |
4f660 | 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 | ng2),.1));....drawmode=gmegabuf( |
4f680 | 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 | 100*num+3+flo*6);..c=drawmode*eq |
4f6a0 | 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d | ual(add,1)*corner-dz3*.18;..red= |
4f6c0 | 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a | c;..green=c;..blue=c;....linesiz |
4f6e0 | 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 | e=4-dz3*.5;....add=add+1;..if(eq |
4f700 | 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 | ual(add,2),assign(add,0)+assign( |
4f720 | 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 | num,num+1),0);..sw=-sw;..reg99=1 |
4f740 | 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 | 0;.....t=t+1;deltatime.=.gettime |
4f760 | 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 | (time);fr=fr*.9+deltatime*.1;fra |
4f780 | 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 | merate=1/fr;time.=.gettime(0);tb |
4f7a0 | 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 | .=.tb+1;timeb.=.gettime(gt);xmou |
4f7c0 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | se=getkbmouse(1);ymouse=getkbmou |
4f7e0 | 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 | se(2);xmousec=min(max(xmouse,-1) |
4f800 | 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 | ,1);ymousec=min(max(ymouse,-1),1 |
4f820 | 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 | );lmouse.=.getkbmouse(3);rmouse. |
4f840 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(4);shift.=.getkbmou |
4f860 | 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 | se(5);control.=.getkbmouse(17);b |
4f880 | 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d | ackspace.=.getkbmouse(8);space.= |
4f8a0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 | .getkbmouse(32);right.=.getkbmou |
4f8c0 | 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 | se(39);left.=.getkbmouse(37);up. |
4f8e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(38);down.=.getkbmou |
4f900 | 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 | se(40);num.=.1;sw.=.1;sizechange |
4f920 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
4f940 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 | ,w));oh=h;ow=w;hw=h/w;....n=reg8 |
4f960 | 32 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d | 2*2;....ox=reg00;.rx=reg03;..oy= |
4f980 | 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d | reg01;.ry=reg04;..oz=reg02;.rz=- |
4f9a0 | 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a | reg05;..sx=sin(rx);sy=sin(ry);sz |
4f9c0 | 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 | =sin(rz);..cx=cos(rx);cy=cos(ry) |
4f9e0 | 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b | ;cz=cos(rz);....add=0;.....tb=0; |
4fa00 | 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 32 00 02 00 00 00 | ..gt.=.gettime(0).....flo=2..... |
4fa20 | 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 9b 04 00 00 01 a8 01 00 00 64 79 3d 32 3b 0d 0a | ............$............dy=2;.. |
4fa40 | 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 | dx=gmegabuf(100*num+1+flo*6);..d |
4fa60 | 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a | z=gmegabuf(100*num+2+flo*6);.... |
4fa80 | 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 | dy=dy-oy;dx=-dx+ox;dz=dz-oz;..dx |
4faa0 | 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b | 1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy; |
4fac0 | 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 | ..dy2=dy*cx-dz1*sx;..dz2=dy*sx+d |
4fae0 | 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d | z1*cx;..dx3=dx1*cz-dy2*sz;..dy3= |
4fb00 | 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 | dx1*sz+dy2*cz;....dz3=max(dz2,.0 |
4fb20 | 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f | 1);..x=-(dx3)/dz3*hw;..y=-(dy3)/ |
4fb40 | 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 | dz3;..skip=equal(dz3,.01);....dr |
4fb60 | 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 | awmode=gmegabuf(100*num+3+flo*6) |
4fb80 | 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a | ;..c=drawmode-dz3*.18;..red=c;.. |
4fba0 | 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d | green=c;..blue=c;....linesize=4- |
4fbc0 | 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a | dz3*.5;....num=num+1;..sw=-sw;.. |
4fbe0 | 00 b5 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
4fc00 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
4fc20 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
4fc40 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
4fc60 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
4fc80 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
4fca0 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
4fcc0 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
4fce0 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
4fd00 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
4fd20 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
4fd40 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
4fd60 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
4fd80 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
4fda0 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
4fdc0 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
4fde0 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 3b | ));oh=h;ow=w;hw=h/w;....n=reg83; |
4fe00 | 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 | ....ox=reg00;.rx=reg03;..oy=reg0 |
4fe20 | 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 | 1;.ry=reg04;..oz=reg02;.rz=-reg0 |
4fe40 | 35 3b 0d 0a 67 6c 69 74 63 68 3d 62 69 74 63 68 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 | 5;..glitch=bitch;..sx=sin(rx);sy |
4fe60 | 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 | =sin(ry);sz=sin(rz);..cx=cos(rx) |
4fe80 | 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 | ;cy=cos(ry);cz=cos(rz);.......tb |
4fea0 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 | =0;..gt.=.gettime(0).....flo=3.. |
4fec0 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 33 | ...............$............dy=3 |
4fee0 | 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b | ;..dx=gmegabuf(100*num+1+flo*6); |
4ff00 | 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | ..dz=gmegabuf(100*num+2+flo*6);. |
4ff20 | 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d | ...dy=dy-oy;dx=-dx+ox;dz=dz-oz;. |
4ff40 | 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a | .dx1=dx*cy-dz*sy;..dz1=dx*sy+dz* |
4ff60 | 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 | cy;..dy2=dy*cx-dz1*sx;..dz2=dy*s |
4ff80 | 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 | x+dz1*cx;..dx3=dx1*cz-dy2*sz;..d |
4ffa0 | 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 | y3=dx1*sz+dy2*cz;....dz3=max(dz2 |
4ffc0 | 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 | ,.01);..x=-(dx3)/dz3*hw;..y=-(dy |
4ffe0 | 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d | 3)/dz3;..skip=equal(dz3,.01);... |
50000 | 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f | .drawmode=gmegabuf(100*num+3+flo |
50020 | 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 | *6);..c=drawmode-dz3*.18;..red=c |
50040 | 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 | ;..green=c;..blue=c;....linesize |
50060 | 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 | =4-dz3*.5;....num=num+1;..sw=-sw |
50080 | 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d | ;.......t=t+1;deltatime.=.gettim |
500a0 | 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 | e(time);fr=fr*.9+deltatime*.1;fr |
500c0 | 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 | amerate=1/fr;time.=.gettime(0);t |
500e0 | 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f | b.=.tb+1;timeb.=.gettime(gt);xmo |
50100 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | use=getkbmouse(1);ymouse=getkbmo |
50120 | 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 | use(2);xmousec=min(max(xmouse,-1 |
50140 | 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c | ),1);ymousec=min(max(ymouse,-1), |
50160 | 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 | 1);lmouse.=.getkbmouse(3);rmouse |
50180 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(4);shift.=.getkbmo |
501a0 | 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b | use(5);control.=.getkbmouse(17); |
501c0 | 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 | backspace.=.getkbmouse(8);space. |
501e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(32);right.=.getkbmo |
50200 | 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 | use(39);left.=.getkbmouse(37);up |
50220 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(38);down.=.getkbmo |
50240 | 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 | use(40);num.=.1;sw.=.1;sizechang |
50260 | 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f | e=bnot(equal(oh,h))|bnot(equal(o |
50280 | 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 | w,w));oh=h;ow=w;hw=h/w;....n=reg |
502a0 | 38 33 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 | 83;....ox=reg00;.rx=reg03;..oy=r |
502c0 | 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 | eg01;.ry=reg04;..oz=reg02;.rz=-r |
502e0 | 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d | eg05;..sx=sin(rx);sy=sin(ry);sz= |
50300 | 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b | sin(rz);..cx=cos(rx);cy=cos(ry); |
50320 | 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 | cz=cos(rz);.......tb=0;..gt.=.ge |
50340 | 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 | ttime(0).....flo=3.............. |
50360 | 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 32 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 | ...$............dy=2.5+sw*.5;..d |
50380 | 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a | x=gmegabuf(100*num+1+flo*6);..dz |
503a0 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 | =gmegabuf(100*num+2+flo*6);..dxa |
503c0 | 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f | =dx;dza=dz;....dy=dy-oy;dx=-dx+o |
503e0 | 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 | x;dz=dz-oz;..dx1=dx*cy-dz*sy;..d |
50400 | 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 | z1=dx*sy+dz*cy;..dy2=dy*cx-dz1*s |
50420 | 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 | x;..dz2=dy*sx+dz1*cx;..dx3=dx1*c |
50440 | 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d | z-dy2*sz;..dy3=dx1*sz+dy2*cz;... |
50460 | 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 | .dz3=max(dz2,.01);..x=-(dx3)/dz3 |
50480 | 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 | *hw;..y=-(dy3)/dz3;..skip=equal( |
504a0 | 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e | dz3,.01);....ogx=gmegabuf(100*(n |
504c0 | 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 | um-1)+1+flo*6);..ogz=gmegabuf(10 |
504e0 | 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 | 0*(num-1)+2+flo*6);..ngx=gmegabu |
50500 | 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 | f(100*(num+1)+1+flo*6);..ngz=gme |
50520 | 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 | gabuf(100*(num+1)+2+flo*6);....a |
50540 | 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 | ng1=atan2(dxa-ogx,dza-ogz);..ang |
50560 | 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 | 2=atan2(-dxa+ngx,-dza+ngz);..cor |
50580 | 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 | ner=bnot(below(abs(ang1-ang2),.1 |
505a0 | 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | ));....drawmode=gmegabuf(100*num |
505c0 | 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 | +3+flo*6);..c=drawmode*equal(add |
505e0 | 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 | ,1)*corner-dz3*.18;..red=c;..gre |
50600 | 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 | en=c;..blue=c;....linesize=4-dz3 |
50620 | 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 | *.5;....add=add+1;..if(equal(add |
50640 | 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d | ,2),assign(add,0)+assign(num,num |
50660 | 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 | +1),0);..sw=-sw;..reg99=10;..... |
50680 | 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b | t=t+1;deltatime.=.gettime(time); |
506a0 | 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d | fr=fr*.9+deltatime*.1;framerate= |
506c0 | 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 | 1/fr;time.=.gettime(0);tb.=.tb+1 |
506e0 | 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b | ;timeb.=.gettime(gt);xmouse=getk |
50700 | 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 | bmouse(1);ymouse=getkbmouse(2);x |
50720 | 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f | mousec=min(max(xmouse,-1),1);ymo |
50740 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 | usec=min(max(ymouse,-1),1);lmous |
50760 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(3);rmouse.=.getkb |
50780 | 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 | mouse(4);shift.=.getkbmouse(5);c |
507a0 | 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 | ontrol.=.getkbmouse(17);backspac |
507c0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | e.=.getkbmouse(8);space.=.getkbm |
507e0 | 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b | ouse(32);right.=.getkbmouse(39); |
50800 | 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 | left.=.getkbmouse(37);up.=.getkb |
50820 | 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b | mouse(38);down.=.getkbmouse(40); |
50840 | 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 | num.=.1;sw.=.1;sizechange=bnot(e |
50860 | 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 | qual(oh,h))|bnot(equal(ow,w));oh |
50880 | 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 33 2a 32 3b 0d 0a 0d | =h;ow=w;hw=h/w;....n=reg83*2;... |
508a0 | 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 | .ox=reg00;.rx=reg03;..oy=reg01;. |
508c0 | 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d | ry=reg04;..oz=reg02;.rz=-reg05;. |
508e0 | 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a | .sx=sin(rx);sy=sin(ry);sz=sin(rz |
50900 | 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 | );..cx=cos(rx);cy=cos(ry);cz=cos |
50920 | 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 | (rz);....add=0;.....tb=0;..gt.=. |
50940 | 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 33 00 02 00 00 00 01 00 00 00 ff ff ff | gettime(0).....flo=3............ |
50960 | 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 33 3b 0d 0a 64 78 3d 67 6d 65 67 | .....$............dy=3;..dx=gmeg |
50980 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 | abuf(100*num+1+flo*6);..dz=gmega |
509a0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f | buf(100*num+2+flo*6);....dy=dy-o |
509c0 | 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 | y;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy |
509e0 | 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 | -dz*sy;..dz1=dx*sy+dz*cy;..dy2=d |
50a00 | 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d | y*cx-dz1*sx;..dz2=dy*sx+dz1*cx;. |
50a20 | 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b | .dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+ |
50a40 | 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d | dy2*cz;....dz3=max(dz2,.01);..x= |
50a60 | 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 | -(dx3)/dz3*hw;..y=-(dy3)/dz3;..s |
50a80 | 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d | kip=equal(dz3,.01);....drawmode= |
50aa0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 | gmegabuf(100*num+3+flo*6);..c=dr |
50ac0 | 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 | awmode-dz3*.18;..red=c;..green=c |
50ae0 | 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b | ;..blue=c;....linesize=4-dz3*.5; |
50b00 | 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d | ....num=num+1;..sw=-sw;.......t= |
50b20 | 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 | t+1;deltatime.=.gettime(time);fr |
50b40 | 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f | =fr*.9+deltatime*.1;framerate=1/ |
50b60 | 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 | fr;time.=.gettime(0);tb.=.tb+1;t |
50b80 | 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | imeb.=.gettime(gt);xmouse=getkbm |
50ba0 | 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f | ouse(1);ymouse=getkbmouse(2);xmo |
50bc0 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 | usec=min(max(xmouse,-1),1);ymous |
50be0 | 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 | ec=min(max(ymouse,-1),1);lmouse. |
50c00 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(3);rmouse.=.getkbmo |
50c20 | 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e | use(4);shift.=.getkbmouse(5);con |
50c40 | 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 | trol.=.getkbmouse(17);backspace. |
50c60 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(8);space.=.getkbmou |
50c80 | 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 | se(32);right.=.getkbmouse(39);le |
50ca0 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f | ft.=.getkbmouse(37);up.=.getkbmo |
50cc0 | 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 | use(38);down.=.getkbmouse(40);nu |
50ce0 | 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 | m.=.1;sw.=.1;sizechange=bnot(equ |
50d00 | 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 | al(oh,h))|bnot(equal(ow,w));oh=h |
50d20 | 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f 78 3d | ;ow=w;hw=h/w;....n=reg84;....ox= |
50d40 | 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 | reg00;.rx=reg03;..oy=reg01;.ry=r |
50d60 | 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d | eg04;..oz=reg02;.rz=-reg05;..sx= |
50d80 | 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a | sin(rx);sy=sin(ry);sz=sin(rz);.. |
50da0 | 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 | cx=cos(rx);cy=cos(ry);cz=cos(rz) |
50dc0 | 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 | ;.......tb=0;..gt.=.gettime(0).. |
50de0 | 00 00 00 66 6c 6f 3d 34 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 | ...flo=4.................$...... |
50e00 | 00 01 a8 01 00 00 64 79 3d 34 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | ......dy=4;..dx=gmegabuf(100*num |
50e20 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | +1+flo*6);..dz=gmegabuf(100*num+ |
50e40 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b | 2+flo*6);....dy=dy-oy;dx=-dx+ox; |
50e60 | 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 | dz=dz-oz;..dx1=dx*cy-dz*sy;..dz1 |
50e80 | 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b | =dx*sy+dz*cy;..dy2=dy*cx-dz1*sx; |
50ea0 | 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d | ..dz2=dy*sx+dz1*cx;..dx3=dx1*cz- |
50ec0 | 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 | dy2*sz;..dy3=dx1*sz+dy2*cz;....d |
50ee0 | 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 | z3=max(dz2,.01);..x=-(dx3)/dz3*h |
50f00 | 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a | w;..y=-(dy3)/dz3;..skip=equal(dz |
50f20 | 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | 3,.01);....drawmode=gmegabuf(100 |
50f40 | 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e | *num+3+flo*6);..c=drawmode-dz3*. |
50f60 | 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a | 18;..red=c;..green=c;..blue=c;.. |
50f80 | 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b | ..linesize=4-dz3*.5;....num=num+ |
50fa0 | 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | 1;..sw=-sw;.......t=t+1;deltatim |
50fc0 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
50fe0 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
51000 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
51020 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
51040 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | se=getkbmouse(2);xmousec=min(max |
51060 | 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 | (xmouse,-1),1);ymousec=min(max(y |
51080 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse,-1),1);lmouse.=.getkbmouse |
510a0 | 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 | (3);rmouse.=.getkbmouse(4);shift |
510c0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 | .=.getkbmouse(5);control.=.getkb |
510e0 | 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse(17);backspace.=.getkbmouse |
51100 | 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 | (8);space.=.getkbmouse(32);right |
51120 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(39);left.=.getkbmo |
51140 | 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e | use(37);up.=.getkbmouse(38);down |
51160 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 | .=.getkbmouse(40);num.=.1;sw.=.1 |
51180 | 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e | ;sizechange=bnot(equal(oh,h))|bn |
511a0 | 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 | ot(equal(ow,w));oh=h;ow=w;hw=h/w |
511c0 | 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 34 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | ;....n=reg84;....ox=reg00;.rx=re |
511e0 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
51200 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
51220 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
51240 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
51260 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 00 00 | ;..gt.=.gettime(0).....flo=4.... |
51280 | 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 33 2e 35 | .............$............dy=3.5 |
512a0 | 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 | +sw*.5;..dx=gmegabuf(100*num+1+f |
512c0 | 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c | lo*6);..dz=gmegabuf(100*num+2+fl |
512e0 | 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f | o*6);..dxa=dx;dza=dz;....dy=dy-o |
51300 | 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 | y;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy |
51320 | 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 | -dz*sy;..dz1=dx*sy+dz*cy;..dy2=d |
51340 | 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d | y*cx-dz1*sx;..dz2=dy*sx+dz1*cx;. |
51360 | 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b | .dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+ |
51380 | 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d | dy2*cz;....dz3=max(dz2,.01);..x= |
513a0 | 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 | -(dx3)/dz3*hw;..y=-(dy3)/dz3;..s |
513c0 | 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 | kip=equal(dz3,.01);....ogx=gmega |
513e0 | 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 | buf(100*(num-1)+1+flo*6);..ogz=g |
51400 | 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e | megabuf(100*(num-1)+2+flo*6);..n |
51420 | 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 | gx=gmegabuf(100*(num+1)+1+flo*6) |
51440 | 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c | ;..ngz=gmegabuf(100*(num+1)+2+fl |
51460 | 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d | o*6);....ang1=atan2(dxa-ogx,dza- |
51480 | 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b | ogz);..ang2=atan2(-dxa+ngx,-dza+ |
514a0 | 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 | ngz);..corner=bnot(below(abs(ang |
514c0 | 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 | 1-ang2),.1));....drawmode=gmegab |
514e0 | 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 | uf(100*num+3+flo*6);..c=drawmode |
51500 | 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 | *equal(add,1)*corner-dz3*.18;..r |
51520 | 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 | ed=c;..green=c;..blue=c;....line |
51540 | 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 | size=4-dz3*.5;....add=add+1;..if |
51560 | 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 | (equal(add,2),assign(add,0)+assi |
51580 | 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 | gn(num,num+1),0);..sw=-sw;..reg9 |
515a0 | 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 | 9=10;.....t=t+1;deltatime.=.gett |
515c0 | 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b | ime(time);fr=fr*.9+deltatime*.1; |
515e0 | 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | framerate=1/fr;time.=.gettime(0) |
51600 | 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 | ;tb.=.tb+1;timeb.=.gettime(gt);x |
51620 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 | mouse=getkbmouse(1);ymouse=getkb |
51640 | 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c | mouse(2);xmousec=min(max(xmouse, |
51660 | 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 | -1),1);ymousec=min(max(ymouse,-1 |
51680 | 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 | ),1);lmouse.=.getkbmouse(3);rmou |
516a0 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 | se.=.getkbmouse(4);shift.=.getkb |
516c0 | 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 | mouse(5);control.=.getkbmouse(17 |
516e0 | 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 | );backspace.=.getkbmouse(8);spac |
51700 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(32);right.=.getkb |
51720 | 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b | mouse(39);left.=.getkbmouse(37); |
51740 | 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 | up.=.getkbmouse(38);down.=.getkb |
51760 | 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 | mouse(40);num.=.1;sw.=.1;sizecha |
51780 | 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c | nge=bnot(equal(oh,h))|bnot(equal |
517a0 | 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 | (ow,w));oh=h;ow=w;hw=h/w;....n=r |
517c0 | 65 67 38 34 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a | eg84*2;....ox=reg00;.rx=reg03;.. |
517e0 | 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 | oy=reg01;.ry=reg04;..oz=reg02;.r |
51800 | 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 | z=-reg05;..sx=sin(rx);sy=sin(ry) |
51820 | 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 | ;sz=sin(rz);..cx=cos(rx);cy=cos( |
51840 | 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 | ry);cz=cos(rz);....add=0;.....tb |
51860 | 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 34 00 02 | =0;..gt.=.gettime(0).....flo=4.. |
51880 | 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 34 | ...............$............dy=4 |
518a0 | 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 | .5+sw*.5;..dx=gmegabuf(100*num+1 |
518c0 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b | +flo*6);..dz=gmegabuf(100*num+2+ |
518e0 | 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 | flo*6);..dxa=dx;dza=dz;....dy=dy |
51900 | 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a | -oy;dx=-dx+ox;dz=dz-oz;..dx1=dx* |
51920 | 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 | cy-dz*sy;..dz1=dx*sy+dz*cy;..dy2 |
51940 | 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 | =dy*cx-dz1*sx;..dz2=dy*sx+dz1*cx |
51960 | 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 | ;..dx3=dx1*cz-dy2*sz;..dy3=dx1*s |
51980 | 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a | z+dy2*cz;....dz3=max(dz2,.01);.. |
519a0 | 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d | x=-(dx3)/dz3*hw;..y=-(dy3)/dz3;. |
519c0 | 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 | .skip=equal(dz3,.01);....ogx=gme |
519e0 | 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a | gabuf(100*(num-1)+1+flo*6);..ogz |
51a00 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d | =gmegabuf(100*(num-1)+2+flo*6);. |
51a20 | 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a | .ngx=gmegabuf(100*(num+1)+1+flo* |
51a40 | 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b | 6);..ngz=gmegabuf(100*(num+1)+2+ |
51a60 | 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a | flo*6);....ang1=atan2(dxa-ogx,dz |
51a80 | 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a | a-ogz);..ang2=atan2(-dxa+ngx,-dz |
51aa0 | 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 | a+ngz);..corner=bnot(below(abs(a |
51ac0 | 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 | ng1-ang2),.1));....drawmode=gmeg |
51ae0 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f | abuf(100*num+3+flo*6);..c=drawmo |
51b00 | 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d | de*equal(add,1)*corner-dz3*.18;. |
51b20 | 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 | .red=c;..green=c;..blue=c;....li |
51b40 | 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a | nesize=4-dz3*.5;....add=add+1;.. |
51b60 | 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 | if(equal(add,2),assign(add,0)+as |
51b80 | 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 | sign(num,num+1),0);..sw=-sw;..re |
51ba0 | 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | g99=10;.....t=t+1;deltatime.=.ge |
51bc0 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
51be0 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
51c00 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
51c20 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
51c40 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
51c60 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
51c80 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
51ca0 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
51cc0 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
51ce0 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
51d00 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
51d20 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
51d40 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
51d60 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
51d80 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
51da0 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e | al(ow,w));oh=h;ow=w;hw=h/w;....n |
51dc0 | 3d 72 65 67 38 35 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b | =reg85*2;....ox=reg00;.rx=reg03; |
51de0 | 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b | ..oy=reg01;.ry=reg04;..oz=reg02; |
51e00 | 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 | .rz=-reg05;..sx=sin(rx);sy=sin(r |
51e20 | 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f | y);sz=sin(rz);..cx=cos(rx);cy=co |
51e40 | 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 | s(ry);cz=cos(rz);....add=0;..... |
51e60 | 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 | tb=0;..gt.=.gettime(0).....flo=5 |
51e80 | 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 | .................$............dy |
51ea0 | 3d 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 | =5;..dx=gmegabuf(100*num+1+flo*6 |
51ec0 | 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 | );..dz=gmegabuf(100*num+2+flo*6) |
51ee0 | 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a | ;....dy=dy-oy;dx=-dx+ox;dz=dz-oz |
51f00 | 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 | ;..dx1=dx*cy-dz*sy;..dz1=dx*sy+d |
51f20 | 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 | z*cy;..dy2=dy*cx-dz1*sx;..dz2=dy |
51f40 | 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d | *sx+dz1*cx;..dx3=dx1*cz-dy2*sz;. |
51f60 | 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 | .dy3=dx1*sz+dy2*cz;....dz3=max(d |
51f80 | 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 | z2,.01);..x=-(dx3)/dz3*hw;..y=-( |
51fa0 | 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d | dy3)/dz3;..skip=equal(dz3,.01);. |
51fc0 | 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 | ...drawmode=gmegabuf(100*num+3+f |
51fe0 | 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 | lo*6);..c=drawmode-dz3*.18;..red |
52000 | 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 | =c;..green=c;..blue=c;....linesi |
52020 | 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d | ze=4-dz3*.5;....num=num+1;..sw=- |
52040 | 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 | sw;.......t=t+1;deltatime.=.gett |
52060 | 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b | ime(time);fr=fr*.9+deltatime*.1; |
52080 | 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | framerate=1/fr;time.=.gettime(0) |
520a0 | 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 | ;tb.=.tb+1;timeb.=.gettime(gt);x |
520c0 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 | mouse=getkbmouse(1);ymouse=getkb |
520e0 | 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c | mouse(2);xmousec=min(max(xmouse, |
52100 | 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 | -1),1);ymousec=min(max(ymouse,-1 |
52120 | 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 | ),1);lmouse.=.getkbmouse(3);rmou |
52140 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 | se.=.getkbmouse(4);shift.=.getkb |
52160 | 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 | mouse(5);control.=.getkbmouse(17 |
52180 | 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 | );backspace.=.getkbmouse(8);spac |
521a0 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(32);right.=.getkb |
521c0 | 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b | mouse(39);left.=.getkbmouse(37); |
521e0 | 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 | up.=.getkbmouse(38);down.=.getkb |
52200 | 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 | mouse(40);num.=.1;sw.=.1;sizecha |
52220 | 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c | nge=bnot(equal(oh,h))|bnot(equal |
52240 | 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 | (ow,w));oh=h;ow=w;hw=h/w;....n=r |
52260 | 65 67 38 35 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 | eg85;....ox=reg00;.rx=reg03;..oy |
52280 | 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d | =reg01;.ry=reg04;..oz=reg02;.rz= |
522a0 | 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 | -reg05;..sx=sin(rx);sy=sin(ry);s |
522c0 | 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 | z=sin(rz);..cx=cos(rx);cy=cos(ry |
522e0 | 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 | );cz=cos(rz);.......tb=0;..gt.=. |
52300 | 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff | gettime(0).....flo=5............ |
52320 | 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 34 3b 0d 0a 64 78 3d 67 6d 65 67 | .....$............dy=4;..dx=gmeg |
52340 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 | abuf(100*num+1+flo*6);..dz=gmega |
52360 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f | buf(100*num+2+flo*6);....dy=dy-o |
52380 | 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 | y;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy |
523a0 | 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 | -dz*sy;..dz1=dx*sy+dz*cy;..dy2=d |
523c0 | 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d | y*cx-dz1*sx;..dz2=dy*sx+dz1*cx;. |
523e0 | 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b | .dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+ |
52400 | 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d | dy2*cz;....dz3=max(dz2,.01);..x= |
52420 | 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 | -(dx3)/dz3*hw;..y=-(dy3)/dz3;..s |
52440 | 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d | kip=equal(dz3,.01);....drawmode= |
52460 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 | gmegabuf(100*num+3+flo*6);..c=dr |
52480 | 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 | awmode-dz3*.18;..red=c;..green=c |
524a0 | 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b | ;..blue=c;....linesize=4-dz3*.5; |
524c0 | 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d | ....num=num+1;..sw=-sw;.......t= |
524e0 | 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 | t+1;deltatime.=.gettime(time);fr |
52500 | 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f | =fr*.9+deltatime*.1;framerate=1/ |
52520 | 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 | fr;time.=.gettime(0);tb.=.tb+1;t |
52540 | 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | imeb.=.gettime(gt);xmouse=getkbm |
52560 | 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f | ouse(1);ymouse=getkbmouse(2);xmo |
52580 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 | usec=min(max(xmouse,-1),1);ymous |
525a0 | 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 | ec=min(max(ymouse,-1),1);lmouse. |
525c0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(3);rmouse.=.getkbmo |
525e0 | 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e | use(4);shift.=.getkbmouse(5);con |
52600 | 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 | trol.=.getkbmouse(17);backspace. |
52620 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(8);space.=.getkbmou |
52640 | 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 | se(32);right.=.getkbmouse(39);le |
52660 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f | ft.=.getkbmouse(37);up.=.getkbmo |
52680 | 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 | use(38);down.=.getkbmouse(40);nu |
526a0 | 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 | m.=.1;sw.=.1;sizechange=bnot(equ |
526c0 | 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 | al(oh,h))|bnot(equal(ow,w));oh=h |
526e0 | 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 35 3b 0d 0a 0d 0a 6f 78 3d | ;ow=w;hw=h/w;....n=reg85;....ox= |
52700 | 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 | reg00;.rx=reg03;..oy=reg01;.ry=r |
52720 | 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d | eg04;..oz=reg02;.rz=-reg05;..sx= |
52740 | 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a | sin(rx);sy=sin(ry);sz=sin(rz);.. |
52760 | 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 | cx=cos(rx);cy=cos(ry);cz=cos(rz) |
52780 | 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 | ;.......tb=0;..gt.=.gettime(0).. |
527a0 | 00 00 00 66 6c 6f 3d 35 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 | ...flo=5.................$...... |
527c0 | 00 01 a8 01 00 00 64 79 3d 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d | ......dy=5;..dx=gmegabuf(100*num |
527e0 | 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b | +1+flo*6);..dz=gmegabuf(100*num+ |
52800 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b | 2+flo*6);....dy=dy-oy;dx=-dx+ox; |
52820 | 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 | dz=dz-oz;..dx1=dx*cy-dz*sy;..dz1 |
52840 | 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b | =dx*sy+dz*cy;..dy2=dy*cx-dz1*sx; |
52860 | 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d | ..dz2=dy*sx+dz1*cx;..dx3=dx1*cz- |
52880 | 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 | dy2*sz;..dy3=dx1*sz+dy2*cz;....d |
528a0 | 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 | z3=max(dz2,.01);..x=-(dx3)/dz3*h |
528c0 | 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a | w;..y=-(dy3)/dz3;..skip=equal(dz |
528e0 | 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 | 3,.01);....drawmode=gmegabuf(100 |
52900 | 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e | *num+3+flo*6);..c=drawmode-dz3*. |
52920 | 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a | 18;..red=c;..green=c;..blue=c;.. |
52940 | 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b | ..linesize=4-dz3*.5;....num=num+ |
52960 | 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d | 1;..sw=-sw;.......t=t+1;deltatim |
52980 | 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 | e.=.gettime(time);fr=fr*.9+delta |
529a0 | 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 | time*.1;framerate=1/fr;time.=.ge |
529c0 | 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 | ttime(0);tb.=.tb+1;timeb.=.getti |
529e0 | 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 | me(gt);xmouse=getkbmouse(1);ymou |
52a00 | 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 | se=getkbmouse(2);xmousec=min(max |
52a20 | 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 | (xmouse,-1),1);ymousec=min(max(y |
52a40 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse,-1),1);lmouse.=.getkbmouse |
52a60 | 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 | (3);rmouse.=.getkbmouse(4);shift |
52a80 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 | .=.getkbmouse(5);control.=.getkb |
52aa0 | 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | mouse(17);backspace.=.getkbmouse |
52ac0 | 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 | (8);space.=.getkbmouse(32);right |
52ae0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(39);left.=.getkbmo |
52b00 | 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e | use(37);up.=.getkbmouse(38);down |
52b20 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 | .=.getkbmouse(40);num.=.1;sw.=.1 |
52b40 | 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e | ;sizechange=bnot(equal(oh,h))|bn |
52b60 | 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 | ot(equal(ow,w));oh=h;ow=w;hw=h/w |
52b80 | 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 | ;....n=reg86;....ox=reg00;.rx=re |
52ba0 | 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 | g03;..oy=reg01;.ry=reg04;..oz=re |
52bc0 | 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 | g02;.rz=-reg05;..sx=sin(rx);sy=s |
52be0 | 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 | in(ry);sz=sin(rz);..cx=cos(rx);c |
52c00 | 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 | y=cos(ry);cz=cos(rz);.......tb=0 |
52c20 | 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 | ;..gt.=.gettime(0).....flo=6.... |
52c40 | 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 36 3b 0d | .............$............dy=6;. |
52c60 | 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a | .dx=gmegabuf(100*num+1+flo*6);.. |
52c80 | 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d | dz=gmegabuf(100*num+2+flo*6);... |
52ca0 | 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 | .dy=dy-oy;dx=-dx+ox;dz=dz-oz;..d |
52cc0 | 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 | x1=dx*cy-dz*sy;..dz1=dx*sy+dz*cy |
52ce0 | 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b | ;..dy2=dy*cx-dz1*sx;..dz2=dy*sx+ |
52d00 | 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 | dz1*cx;..dx3=dx1*cz-dy2*sz;..dy3 |
52d20 | 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e | =dx1*sz+dy2*cz;....dz3=max(dz2,. |
52d40 | 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 | 01);..x=-(dx3)/dz3*hw;..y=-(dy3) |
52d60 | 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 | /dz3;..skip=equal(dz3,.01);....d |
52d80 | 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 | rawmode=gmegabuf(100*num+3+flo*6 |
52da0 | 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d | );..c=drawmode-dz3*.18;..red=c;. |
52dc0 | 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 | .green=c;..blue=c;....linesize=4 |
52de0 | 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d | -dz3*.5;....num=num+1;..sw=-sw;. |
52e00 | 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | ......t=t+1;deltatime.=.gettime( |
52e20 | 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d | time);fr=fr*.9+deltatime*.1;fram |
52e40 | 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 | erate=1/fr;time.=.gettime(0);tb. |
52e60 | 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 | =.tb+1;timeb.=.gettime(gt);xmous |
52e80 | 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | e=getkbmouse(1);ymouse=getkbmous |
52ea0 | 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c | e(2);xmousec=min(max(xmouse,-1), |
52ec0 | 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 | 1);ymousec=min(max(ymouse,-1),1) |
52ee0 | 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d | ;lmouse.=.getkbmouse(3);rmouse.= |
52f00 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(4);shift.=.getkbmous |
52f20 | 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 | e(5);control.=.getkbmouse(17);ba |
52f40 | 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 | ckspace.=.getkbmouse(8);space.=. |
52f60 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(32);right.=.getkbmous |
52f80 | 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d | e(39);left.=.getkbmouse(37);up.= |
52fa0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(38);down.=.getkbmous |
52fc0 | 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d | e(40);num.=.1;sw.=.1;sizechange= |
52fe0 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c | bnot(equal(oh,h))|bnot(equal(ow, |
53000 | 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 | w));oh=h;ow=w;hw=h/w;....n=reg86 |
53020 | 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 | ;....ox=reg00;.rx=reg03;..oy=reg |
53040 | 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 | 01;.ry=reg04;..oz=reg02;.rz=-reg |
53060 | 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 | 05;..sx=sin(rx);sy=sin(ry);sz=si |
53080 | 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a | n(rz);..cx=cos(rx);cy=cos(ry);cz |
530a0 | 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 | =cos(rz);.......tb=0;..gt.=.gett |
530c0 | 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 | ime(0).....flo=6................ |
530e0 | 00 24 00 00 00 fa 05 00 00 01 0c 03 00 00 64 79 3d 35 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d | .$............dy=5.5+sw*.5;..dx= |
53100 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 | gmegabuf(100*num+1+flo*6);..dz=g |
53120 | 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 | megabuf(100*num+2+flo*6);..dxa=d |
53140 | 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b | x;dza=dz;....dy=dy-oy;dx=-dx+ox; |
53160 | 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 | dz=dz-oz;..dx1=dx*cy-dz*sy;..dz1 |
53180 | 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b | =dx*sy+dz*cy;..dy2=dy*cx-dz1*sx; |
531a0 | 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d | ..dz2=dy*sx+dz1*cx;..dx3=dx1*cz- |
531c0 | 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 | dy2*sz;..dy3=dx1*sz+dy2*cz;....d |
531e0 | 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 | z3=max(dz2,.01);..x=-(dx3)/dz3*h |
53200 | 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a | w;..y=-(dy3)/dz3;..skip=equal(dz |
53220 | 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d | 3,.01);....ogx=gmegabuf(100*(num |
53240 | 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | -1)+1+flo*6);..ogz=gmegabuf(100* |
53260 | 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 | (num-1)+2+flo*6);..ngx=gmegabuf( |
53280 | 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 | 100*(num+1)+1+flo*6);..ngz=gmega |
532a0 | 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 | buf(100*(num+1)+2+flo*6);....ang |
532c0 | 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d | 1=atan2(dxa-ogx,dza-ogz);..ang2= |
532e0 | 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 | atan2(-dxa+ngx,-dza+ngz);..corne |
53300 | 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 | r=bnot(below(abs(ang1-ang2),.1)) |
53320 | 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 | ;....drawmode=gmegabuf(100*num+3 |
53340 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 | +flo*6);..c=drawmode*equal(add,1 |
53360 | 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e | )*corner-dz3*.18;..red=c;..green |
53380 | 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e | =c;..blue=c;....linesize=4-dz3*. |
533a0 | 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 | 5;....add=add+1;..if(equal(add,2 |
533c0 | 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 | ),assign(add,0)+assign(num,num+1 |
533e0 | 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d | ),0);..sw=-sw;..reg99=10;.....t= |
53400 | 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 | t+1;deltatime.=.gettime(time);fr |
53420 | 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f | =fr*.9+deltatime*.1;framerate=1/ |
53440 | 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 | fr;time.=.gettime(0);tb.=.tb+1;t |
53460 | 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | imeb.=.gettime(gt);xmouse=getkbm |
53480 | 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f | ouse(1);ymouse=getkbmouse(2);xmo |
534a0 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 | usec=min(max(xmouse,-1),1);ymous |
534c0 | 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 | ec=min(max(ymouse,-1),1);lmouse. |
534e0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(3);rmouse.=.getkbmo |
53500 | 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e | use(4);shift.=.getkbmouse(5);con |
53520 | 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 | trol.=.getkbmouse(17);backspace. |
53540 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(8);space.=.getkbmou |
53560 | 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 | se(32);right.=.getkbmouse(39);le |
53580 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f | ft.=.getkbmouse(37);up.=.getkbmo |
535a0 | 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 | use(38);down.=.getkbmouse(40);nu |
535c0 | 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 | m.=.1;sw.=.1;sizechange=bnot(equ |
535e0 | 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 | al(oh,h))|bnot(equal(ow,w));oh=h |
53600 | 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 36 2a 32 3b 0d 0a 0d 0a 6f | ;ow=w;hw=h/w;....n=reg86*2;....o |
53620 | 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 | x=reg00;.rx=reg03;..oy=reg01;.ry |
53640 | 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 | =reg04;..oz=reg02;.rz=-reg05;..s |
53660 | 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b | x=sin(rx);sy=sin(ry);sz=sin(rz); |
53680 | 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 | ..cx=cos(rx);cy=cos(ry);cz=cos(r |
536a0 | 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 | z);....add=0;.....tb=0;..gt.=.ge |
536c0 | 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 36 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 | ttime(0).....flo=6.............. |
536e0 | 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 | ...$............dy=7;..dx=gmegab |
53700 | 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 | uf(100*num+1+flo*6);..dz=gmegabu |
53720 | 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b | f(100*num+2+flo*6);....dy=dy-oy; |
53740 | 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 | dx=-dx+ox;dz=dz-oz;..dx1=dx*cy-d |
53760 | 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a | z*sy;..dz1=dx*sy+dz*cy;..dy2=dy* |
53780 | 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 | cx-dz1*sx;..dz2=dy*sx+dz1*cx;..d |
537a0 | 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 | x3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy |
537c0 | 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 | 2*cz;....dz3=max(dz2,.01);..x=-( |
537e0 | 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 | dx3)/dz3*hw;..y=-(dy3)/dz3;..ski |
53800 | 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d | p=equal(dz3,.01);....drawmode=gm |
53820 | 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 | egabuf(100*num+3+flo*6);..c=draw |
53840 | 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d | mode-dz3*.18;..red=c;..green=c;. |
53860 | 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a | .blue=c;....linesize=4-dz3*.5;.. |
53880 | 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b | ..num=num+1;..sw=-sw;.......t=t+ |
538a0 | 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 | 1;deltatime.=.gettime(time);fr=f |
538c0 | 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 | r*.9+deltatime*.1;framerate=1/fr |
538e0 | 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d | ;time.=.gettime(0);tb.=.tb+1;tim |
53900 | 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 | eb.=.gettime(gt);xmouse=getkbmou |
53920 | 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 | se(1);ymouse=getkbmouse(2);xmous |
53940 | 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 | ec=min(max(xmouse,-1),1);ymousec |
53960 | 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 | =min(max(ymouse,-1),1);lmouse.=. |
53980 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | getkbmouse(3);rmouse.=.getkbmous |
539a0 | 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 | e(4);shift.=.getkbmouse(5);contr |
539c0 | 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 | ol.=.getkbmouse(17);backspace.=. |
539e0 | 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(8);space.=.getkbmouse |
53a00 | 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 | (32);right.=.getkbmouse(39);left |
53a20 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .=.getkbmouse(37);up.=.getkbmous |
53a40 | 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 | e(38);down.=.getkbmouse(40);num. |
53a60 | 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c | =.1;sw.=.1;sizechange=bnot(equal |
53a80 | 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f | (oh,h))|bnot(equal(ow,w));oh=h;o |
53aa0 | 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 38 3b 0d 0a 0d 0a 6f 78 3d 72 65 | w=w;hw=h/w;....n=reg88;....ox=re |
53ac0 | 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 | g00;.rx=reg03;..oy=reg01;.ry=reg |
53ae0 | 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 | 04;..oz=reg02;.rz=-reg05;..sx=si |
53b00 | 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 | n(rx);sy=sin(ry);sz=sin(rz);..cx |
53b20 | 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d | =cos(rx);cy=cos(ry);cz=cos(rz);. |
53b40 | 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 | ......tb=0;..gt.=.gettime(0).... |
53b60 | 00 66 6c 6f 3d 38 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 | .flo=8.................$........ |
53b80 | a8 01 00 00 64 79 3d 38 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 | ....dy=8;..dx=gmegabuf(100*num+1 |
53ba0 | 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b | +flo*6);..dz=gmegabuf(100*num+2+ |
53bc0 | 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a | flo*6);....dy=dy-oy;dx=-dx+ox;dz |
53be0 | 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 | =dz-oz;..dx1=dx*cy-dz*sy;..dz1=d |
53c00 | 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a | x*sy+dz*cy;..dy2=dy*cx-dz1*sx;.. |
53c20 | 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 | dz2=dy*sx+dz1*cx;..dx3=dx1*cz-dy |
53c40 | 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 | 2*sz;..dy3=dx1*sz+dy2*cz;....dz3 |
53c60 | 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b | =max(dz2,.01);..x=-(dx3)/dz3*hw; |
53c80 | 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c | ..y=-(dy3)/dz3;..skip=equal(dz3, |
53ca0 | 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e | .01);....drawmode=gmegabuf(100*n |
53cc0 | 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 | um+3+flo*6);..c=drawmode-dz3*.18 |
53ce0 | 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a | ;..red=c;..green=c;..blue=c;.... |
53d00 | 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b | linesize=4-dz3*.5;....num=num+1; |
53d20 | 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 | ..sw=-sw;.......t=t+1;deltatime. |
53d40 | 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 | =.gettime(time);fr=fr*.9+deltati |
53d60 | 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 | me*.1;framerate=1/fr;time.=.gett |
53d80 | 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 | ime(0);tb.=.tb+1;timeb.=.gettime |
53da0 | 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 | (gt);xmouse=getkbmouse(1);ymouse |
53dc0 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 | =getkbmouse(2);xmousec=min(max(x |
53de0 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f | mouse,-1),1);ymousec=min(max(ymo |
53e00 | 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | use,-1),1);lmouse.=.getkbmouse(3 |
53e20 | 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d | );rmouse.=.getkbmouse(4);shift.= |
53e40 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f | .getkbmouse(5);control.=.getkbmo |
53e60 | 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 | use(17);backspace.=.getkbmouse(8 |
53e80 | 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d | );space.=.getkbmouse(32);right.= |
53ea0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(39);left.=.getkbmous |
53ec0 | 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d | e(37);up.=.getkbmouse(38);down.= |
53ee0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 | .getkbmouse(40);num.=.1;sw.=.1;s |
53f00 | 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 | izechange=bnot(equal(oh,h))|bnot |
53f20 | 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d | (equal(ow,w));oh=h;ow=w;hw=h/w;. |
53f40 | 0a 0d 0a 6e 3d 72 65 67 38 38 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 | ...n=reg88;....ox=reg00;.rx=reg0 |
53f60 | 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 | 3;..oy=reg01;.ry=reg04;..oz=reg0 |
53f80 | 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e | 2;.rz=-reg05;..sx=sin(rx);sy=sin |
53fa0 | 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d | (ry);sz=sin(rz);..cx=cos(rx);cy= |
53fc0 | 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d | cos(ry);cz=cos(rz);.......tb=0;. |
53fe0 | 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 00 02 00 00 00 01 | .gt.=.gettime(0).....flo=8...... |
54000 | 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 fe 05 00 00 01 10 03 00 00 64 79 3d 37 2e 35 2b 73 | ...........$............dy=7.5+s |
54020 | 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f | w*.5;..dx=gmegabuf(100*num+1+flo |
54040 | 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a | *6);..dz=gmegabuf(100*num+2+flo* |
54060 | 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b | 6);..dxa=dx;dza=dz;....dy=dy-oy; |
54080 | 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 | dx=-dx+ox;dz=dz-oz;..dx1=dx*cy-d |
540a0 | 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a | z*sy;..dz1=dx*sy+dz*cy;..dy2=dy* |
540c0 | 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 | cx-dz1*sx;..dz2=dy*sx+dz1*cx;..d |
540e0 | 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 | x3=dx1*cz-dy2*sz;..dy3=dx1*sz+dy |
54100 | 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 | 2*cz;....dz3=max(dz2,.01);..x=-( |
54120 | 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 | dx3)/dz3*hw;..y=-(dy3)/dz3;..ski |
54140 | 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 | p=equal(dz3,.01);....ogx=gmegabu |
54160 | 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 | f(100*(num-1)+1+flo*6);..ogz=gme |
54180 | 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 | gabuf(100*(num-1)+2+flo*6);..ngx |
541a0 | 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d | =gmegabuf(100*(num+1)+1+flo*6);. |
541c0 | 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a | .ngz=gmegabuf(100*(num+1)+2+flo* |
541e0 | 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 | 6);....ang1=atan2(dxa-ogx,dza-og |
54200 | 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 | z);..ang2=atan2(-dxa+ngx,-dza+ng |
54220 | 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d | z);..corner=bnot(below(abs(ang1- |
54240 | 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 | ang2),.1));....drawmode=gmegabuf |
54260 | 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 73 76 3d 64 72 61 77 6d 6f 64 65 2a | (100*num+3+flo*6);..sv=drawmode* |
54280 | 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 | equal(add,1)*corner-dz3*.18;..re |
542a0 | 64 3d 73 76 3b 0d 0a 67 72 65 65 6e 3d 73 76 3b 0d 0a 62 6c 75 65 3d 73 76 3b 0d 0a 0d 0a 6c 69 | d=sv;..green=sv;..blue=sv;....li |
542c0 | 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 64 3d 61 64 64 2b 31 3b 0d 0a | nesize=4-dz3*.5;....add=add+1;.. |
542e0 | 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e 28 61 64 64 2c 30 29 2b 61 73 | if(equal(add,2),assign(add,0)+as |
54300 | 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 72 65 | sign(num,num+1),0);..sw=-sw;..re |
54320 | 67 39 39 3d 31 30 3b 00 b0 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 | g99=10;.....t=t+1;deltatime.=.ge |
54340 | 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e | ttime(time);fr=fr*.9+deltatime*. |
54360 | 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 | 1;framerate=1/fr;time.=.gettime( |
54380 | 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 | 0);tb.=.tb+1;timeb.=.gettime(gt) |
543a0 | 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 | ;xmouse=getkbmouse(1);ymouse=get |
543c0 | 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 | kbmouse(2);xmousec=min(max(xmous |
543e0 | 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c | e,-1),1);ymousec=min(max(ymouse, |
54400 | 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d | -1),1);lmouse.=.getkbmouse(3);rm |
54420 | 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 | ouse.=.getkbmouse(4);shift.=.get |
54440 | 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 | kbmouse(5);control.=.getkbmouse( |
54460 | 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 | 17);backspace.=.getkbmouse(8);sp |
54480 | 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 | ace.=.getkbmouse(32);right.=.get |
544a0 | 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 | kbmouse(39);left.=.getkbmouse(37 |
544c0 | 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 | );up.=.getkbmouse(38);down.=.get |
544e0 | 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 | kbmouse(40);num.=.1;sw.=.1;sizec |
54500 | 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 | hange=bnot(equal(oh,h))|bnot(equ |
54520 | 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e | al(ow,w));oh=h;ow=w;hw=h/w;....n |
54540 | 3d 72 65 67 38 38 2a 32 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b | =reg88*2;....ox=reg00;.rx=reg03; |
54560 | 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b | ..oy=reg01;.ry=reg04;..oz=reg02; |
54580 | 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 | .rz=-reg05;..sx=sin(rx);sy=sin(r |
545a0 | 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f | y);sz=sin(rz);..cx=cos(rx);cy=co |
545c0 | 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 | s(ry);cz=cos(rz);....add=0;..... |
545e0 | 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 38 | tb=0;..gt.=.gettime(0).....flo=8 |
54600 | 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 | .................$............dy |
54620 | 3d 36 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 | =6;..dx=gmegabuf(100*num+1+flo*6 |
54640 | 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 | );..dz=gmegabuf(100*num+2+flo*6) |
54660 | 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a | ;....dy=dy-oy;dx=-dx+ox;dz=dz-oz |
54680 | 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 | ;..dx1=dx*cy-dz*sy;..dz1=dx*sy+d |
546a0 | 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 | z*cy;..dy2=dy*cx-dz1*sx;..dz2=dy |
546c0 | 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d | *sx+dz1*cx;..dx3=dx1*cz-dy2*sz;. |
546e0 | 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 | .dy3=dx1*sz+dy2*cz;....dz3=max(d |
54700 | 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 | z2,.01);..x=-(dx3)/dz3*hw;..y=-( |
54720 | 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d | dy3)/dz3;..skip=equal(dz3,.01);. |
54740 | 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 | ...drawmode=gmegabuf(100*num+3+f |
54760 | 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 | lo*6);..c=drawmode-dz3*.18;..red |
54780 | 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 | =c;..green=c;..blue=c;....linesi |
547a0 | 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d | ze=4-dz3*.5;....num=num+1;..sw=- |
547c0 | 73 77 3b 0d 0a 00 a6 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 | sw;.......t=t+1;deltatime.=.gett |
547e0 | 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b | ime(time);fr=fr*.9+deltatime*.1; |
54800 | 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 | framerate=1/fr;time.=.gettime(0) |
54820 | 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 | ;tb.=.tb+1;timeb.=.gettime(gt);x |
54840 | 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 | mouse=getkbmouse(1);ymouse=getkb |
54860 | 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c | mouse(2);xmousec=min(max(xmouse, |
54880 | 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 | -1),1);ymousec=min(max(ymouse,-1 |
548a0 | 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 | ),1);lmouse.=.getkbmouse(3);rmou |
548c0 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 | se.=.getkbmouse(4);shift.=.getkb |
548e0 | 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 | mouse(5);control.=.getkbmouse(17 |
54900 | 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 | );backspace.=.getkbmouse(8);spac |
54920 | 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 | e.=.getkbmouse(32);right.=.getkb |
54940 | 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b | mouse(39);left.=.getkbmouse(37); |
54960 | 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 | up.=.getkbmouse(38);down.=.getkb |
54980 | 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 | mouse(40);num.=.1;sw.=.1;sizecha |
549a0 | 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c | nge=bnot(equal(oh,h))|bnot(equal |
549c0 | 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 | (ow,w));oh=h;ow=w;hw=h/w;....n=r |
549e0 | 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 | eg87;....ox=reg00;.rx=reg03;..oy |
54a00 | 3d 72 65 67 30 31 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d | =reg01;.ry=reg04;..oz=reg02;.rz= |
54a20 | 2d 72 65 67 30 35 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 | -reg05;..sx=sin(rx);sy=sin(ry);s |
54a40 | 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 | z=sin(rz);..cx=cos(rx);cy=cos(ry |
54a60 | 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 | );cz=cos(rz);.......tb=0;..gt.=. |
54a80 | 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff | gettime(0).....flo=7............ |
54aa0 | 00 01 00 00 00 24 00 00 00 8c 04 00 00 01 a8 01 00 00 64 79 3d 37 3b 0d 0a 64 78 3d 67 6d 65 67 | .....$............dy=7;..dx=gmeg |
54ac0 | 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 | abuf(100*num+1+flo*6);..dz=gmega |
54ae0 | 62 75 66 28 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f | buf(100*num+2+flo*6);....dy=dy-o |
54b00 | 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 | y;dx=-dx+ox;dz=dz-oz;..dx1=dx*cy |
54b20 | 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 | -dz*sy;..dz1=dx*sy+dz*cy;..dy2=d |
54b40 | 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d | y*cx-dz1*sx;..dz2=dy*sx+dz1*cx;. |
54b60 | 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d 0a 64 79 33 3d 64 78 31 2a 73 7a 2b | .dx3=dx1*cz-dy2*sz;..dy3=dx1*sz+ |
54b80 | 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d | dy2*cz;....dz3=max(dz2,.01);..x= |
54ba0 | 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 | -(dx3)/dz3*hw;..y=-(dy3)/dz3;..s |
54bc0 | 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d 0a 0d 0a 64 72 61 77 6d 6f 64 65 3d | kip=equal(dz3,.01);....drawmode= |
54be0 | 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b 0d 0a 63 3d 64 72 | gmegabuf(100*num+3+flo*6);..c=dr |
54c00 | 61 77 6d 6f 64 65 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 | awmode-dz3*.18;..red=c;..green=c |
54c20 | 3b 0d 0a 62 6c 75 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b | ;..blue=c;....linesize=4-dz3*.5; |
54c40 | 0d 0a 0d 0a 6e 75 6d 3d 6e 75 6d 2b 31 3b 0d 0a 73 77 3d 2d 73 77 3b 0d 0a 00 a6 02 00 00 74 3d | ....num=num+1;..sw=-sw;.......t= |
54c60 | 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 | t+1;deltatime.=.gettime(time);fr |
54c80 | 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f | =fr*.9+deltatime*.1;framerate=1/ |
54ca0 | 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 | fr;time.=.gettime(0);tb.=.tb+1;t |
54cc0 | 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d | imeb.=.gettime(gt);xmouse=getkbm |
54ce0 | 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f | ouse(1);ymouse=getkbmouse(2);xmo |
54d00 | 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 | usec=min(max(xmouse,-1),1);ymous |
54d20 | 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 | ec=min(max(ymouse,-1),1);lmouse. |
54d40 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f | =.getkbmouse(3);rmouse.=.getkbmo |
54d60 | 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e | use(4);shift.=.getkbmouse(5);con |
54d80 | 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 | trol.=.getkbmouse(17);backspace. |
54da0 | 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 | =.getkbmouse(8);space.=.getkbmou |
54dc0 | 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 | se(32);right.=.getkbmouse(39);le |
54de0 | 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f | ft.=.getkbmouse(37);up.=.getkbmo |
54e00 | 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 | use(38);down.=.getkbmouse(40);nu |
54e20 | 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 | m.=.1;sw.=.1;sizechange=bnot(equ |
54e40 | 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 | al(oh,h))|bnot(equal(ow,w));oh=h |
54e60 | 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 3b 0d 0a 0d 0a 6f 78 3d | ;ow=w;hw=h/w;....n=reg87;....ox= |
54e80 | 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 3b 20 72 79 3d 72 | reg00;.rx=reg03;..oy=reg01;.ry=r |
54ea0 | 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 3b 0d 0a 73 78 3d | eg04;..oz=reg02;.rz=-reg05;..sx= |
54ec0 | 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a | sin(rx);sy=sin(ry);sz=sin(rz);.. |
54ee0 | 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 | cx=cos(rx);cy=cos(ry);cz=cos(rz) |
54f00 | 3b 0d 0a 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 | ;.......tb=0;..gt.=.gettime(0).. |
54f20 | 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 06 06 00 | ...flo=7.................$...... |
54f40 | 00 01 0c 03 00 00 64 79 3d 36 2e 35 2b 73 77 2a 2e 35 3b 0d 0a 64 78 3d 67 6d 65 67 61 62 75 66 | ......dy=6.5+sw*.5;..dx=gmegabuf |
54f60 | 28 31 30 30 2a 6e 75 6d 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 7a 3d 67 6d 65 67 61 62 75 66 28 | (100*num+1+flo*6);..dz=gmegabuf( |
54f80 | 31 30 30 2a 6e 75 6d 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 64 78 61 3d 64 78 3b 64 7a 61 3d 64 7a | 100*num+2+flo*6);..dxa=dx;dza=dz |
54fa0 | 3b 0d 0a 0d 0a 64 79 3d 64 79 2d 6f 79 3b 64 78 3d 2d 64 78 2b 6f 78 3b 64 7a 3d 64 7a 2d 6f 7a | ;....dy=dy-oy;dx=-dx+ox;dz=dz-oz |
54fc0 | 3b 0d 0a 64 78 31 3d 64 78 2a 63 79 2d 64 7a 2a 73 79 3b 0d 0a 64 7a 31 3d 64 78 2a 73 79 2b 64 | ;..dx1=dx*cy-dz*sy;..dz1=dx*sy+d |
54fe0 | 7a 2a 63 79 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 64 7a 31 2a 73 78 3b 0d 0a 64 7a 32 3d 64 79 | z*cy;..dy2=dy*cx-dz1*sx;..dz2=dy |
55000 | 2a 73 78 2b 64 7a 31 2a 63 78 3b 0d 0a 64 78 33 3d 64 78 31 2a 63 7a 2d 64 79 32 2a 73 7a 3b 0d | *sx+dz1*cx;..dx3=dx1*cz-dy2*sz;. |
55020 | 0a 64 79 33 3d 64 78 31 2a 73 7a 2b 64 79 32 2a 63 7a 3b 0d 0a 0d 0a 64 7a 33 3d 6d 61 78 28 64 | .dy3=dx1*sz+dy2*cz;....dz3=max(d |
55040 | 7a 32 2c 2e 30 31 29 3b 0d 0a 78 3d 2d 28 64 78 33 29 2f 64 7a 33 2a 68 77 3b 0d 0a 79 3d 2d 28 | z2,.01);..x=-(dx3)/dz3*hw;..y=-( |
55060 | 64 79 33 29 2f 64 7a 33 3b 0d 0a 73 6b 69 70 3d 65 71 75 61 6c 28 64 7a 33 2c 2e 30 31 29 3b 0d | dy3)/dz3;..skip=equal(dz3,.01);. |
55080 | 0a 0d 0a 6f 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b 31 2b 66 6c | ...ogx=gmegabuf(100*(num-1)+1+fl |
550a0 | 6f 2a 36 29 3b 0d 0a 6f 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d 2d 31 29 2b | o*6);..ogz=gmegabuf(100*(num-1)+ |
550c0 | 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 78 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 28 6e 75 6d | 2+flo*6);..ngx=gmegabuf(100*(num |
550e0 | 2b 31 29 2b 31 2b 66 6c 6f 2a 36 29 3b 0d 0a 6e 67 7a 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a | +1)+1+flo*6);..ngz=gmegabuf(100* |
55100 | 28 6e 75 6d 2b 31 29 2b 32 2b 66 6c 6f 2a 36 29 3b 0d 0a 0d 0a 61 6e 67 31 3d 61 74 61 6e 32 28 | (num+1)+2+flo*6);....ang1=atan2( |
55120 | 64 78 61 2d 6f 67 78 2c 64 7a 61 2d 6f 67 7a 29 3b 0d 0a 61 6e 67 32 3d 61 74 61 6e 32 28 2d 64 | dxa-ogx,dza-ogz);..ang2=atan2(-d |
55140 | 78 61 2b 6e 67 78 2c 2d 64 7a 61 2b 6e 67 7a 29 3b 0d 0a 63 6f 72 6e 65 72 3d 62 6e 6f 74 28 62 | xa+ngx,-dza+ngz);..corner=bnot(b |
55160 | 65 6c 6f 77 28 61 62 73 28 61 6e 67 31 2d 61 6e 67 32 29 2c 2e 31 29 29 3b 0d 0a 0d 0a 64 72 61 | elow(abs(ang1-ang2),.1));....dra |
55180 | 77 6d 6f 64 65 3d 67 6d 65 67 61 62 75 66 28 31 30 30 2a 6e 75 6d 2b 33 2b 66 6c 6f 2a 36 29 3b | wmode=gmegabuf(100*num+3+flo*6); |
551a0 | 0d 0a 63 3d 64 72 61 77 6d 6f 64 65 2a 65 71 75 61 6c 28 61 64 64 2c 31 29 2a 63 6f 72 6e 65 72 | ..c=drawmode*equal(add,1)*corner |
551c0 | 2d 64 7a 33 2a 2e 31 38 3b 0d 0a 72 65 64 3d 63 3b 0d 0a 67 72 65 65 6e 3d 63 3b 0d 0a 62 6c 75 | -dz3*.18;..red=c;..green=c;..blu |
551e0 | 65 3d 63 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 34 2d 64 7a 33 2a 2e 35 3b 0d 0a 0d 0a 61 64 | e=c;....linesize=4-dz3*.5;....ad |
55200 | 64 3d 61 64 64 2b 31 3b 0d 0a 69 66 28 65 71 75 61 6c 28 61 64 64 2c 32 29 2c 61 73 73 69 67 6e | d=add+1;..if(equal(add,2),assign |
55220 | 28 61 64 64 2c 30 29 2b 61 73 73 69 67 6e 28 6e 75 6d 2c 6e 75 6d 2b 31 29 2c 30 29 3b 0d 0a 73 | (add,0)+assign(num,num+1),0);..s |
55240 | 77 3d 2d 73 77 3b 0d 0a 72 65 67 39 39 3d 31 30 3b 00 bc 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 | w=-sw;..reg99=10;.....t=t+1;delt |
55260 | 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 | atime.=.gettime(time);fr=fr*.9+d |
55280 | 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 | eltatime*.1;framerate=1/fr;time. |
552a0 | 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 | =.gettime(0);tb.=.tb+1;timeb.=.g |
552c0 | 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b | ettime(gt);xmouse=getkbmouse(1); |
552e0 | 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e | ymouse=getkbmouse(2);xmousec=min |
55300 | 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d | (max(xmouse,-1),1);ymousec=min(m |
55320 | 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | ax(ymouse,-1),1);lmouse.=.getkbm |
55340 | 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 | ouse(3);rmouse.=.getkbmouse(4);s |
55360 | 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 | hift.=.getkbmouse(5);control.=.g |
55380 | 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | etkbmouse(17);backspace.=.getkbm |
553a0 | 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 | ouse(8);space.=.getkbmouse(32);r |
553c0 | 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 | ight.=.getkbmouse(39);left.=.get |
553e0 | 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b | kbmouse(37);up.=.getkbmouse(38); |
55400 | 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 | down.=.getkbmouse(40);num.=.1;sw |
55420 | 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 | .=.1;sizechange=bnot(equal(oh,h) |
55440 | 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 | )|bnot(equal(ow,w));oh=h;ow=w;hw |
55460 | 3d 68 2f 77 3b 73 68 6f 63 6b 3d 76 61 6c 75 65 3b 0d 0a 0d 0a 6e 3d 72 65 67 38 37 2a 32 3b 0d | =h/w;shock=value;....n=reg87*2;. |
55480 | 0a 0d 0a 6f 78 3d 72 65 67 30 30 3b 20 72 78 3d 72 65 67 30 33 3b 0d 0a 6f 79 3d 72 65 67 30 31 | ...ox=reg00;.rx=reg03;..oy=reg01 |
554a0 | 3b 20 72 79 3d 72 65 67 30 34 3b 0d 0a 6f 7a 3d 72 65 67 30 32 3b 20 72 7a 3d 2d 72 65 67 30 35 | ;.ry=reg04;..oz=reg02;.rz=-reg05 |
554c0 | 3b 0d 0a 73 78 3d 73 69 6e 28 72 78 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 73 7a 3d 73 69 6e 28 | ;..sx=sin(rx);sy=sin(ry);sz=sin( |
554e0 | 72 7a 29 3b 0d 0a 63 78 3d 63 6f 73 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 63 7a 3d 63 | rz);..cx=cos(rx);cy=cos(ry);cz=c |
55500 | 6f 73 28 72 7a 29 3b 0d 0a 0d 0a 61 64 64 3d 30 3b 00 17 00 00 00 74 62 3d 30 3b 0d 0a 67 74 20 | os(rz);....add=0;.....tb=0;..gt. |
55520 | 3d 20 67 65 74 74 69 6d 65 28 30 29 00 06 00 00 00 66 6c 6f 3d 37 00 02 00 00 00 01 00 00 00 ff | =.gettime(0).....flo=7.......... |
55540 | ff ff 00 01 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 80 00 00 00 6c | ...............................l |
55560 | bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 | .P.Holden03:.Convolution.Filter. |
55580 | 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
555a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
555c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
555e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 | ................................ |
55600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 | ................................ |
55660 | 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 05 00 00 00 00 00 00 00 80 00 00 00 fe ff ff ff 93 | ................................ |
55680 | 02 00 00 80 00 01 0d 24 23 00 00 00 80 00 00 00 00 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 | .......$#....................... |
556a0 | 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 | .........@..AVS.2.8+.Effect.List |
556c0 | 20 43 6f 6e 66 69 67 00 00 00 00 00 26 00 00 00 00 00 00 00 1a 00 00 00 2f 2f 20 66 6f 63 61 6c | .Config.....&...........//.focal |
556e0 | 20 62 6c 75 72 20 62 6c 75 72 72 69 6e 67 20 45 4c 00 00 00 00 00 12 00 00 00 10 00 00 00 01 00 | .blur.blurring.EL............... |
55700 | 00 00 02 00 00 00 04 00 00 00 80 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 | ..............l.P.Holden03:.Conv |
55720 | 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 | olution.Filter.................. |
55740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55760 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
557a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 | ................................ |
557c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
557e0 | 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 | ..................l.P.Holden03:. |
55820 | 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 | Convolution.Filter.............. |
55840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 | ................................ |
558a0 | 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 | ................................ |
558c0 | 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
558e0 | 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e | ......................l.P.Holden |
55920 | 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 | 03:.Convolution.Filter.......... |
55940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
559a0 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
559c0 | 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
559e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
55a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 fe ff ff ff 39 09 | ..............................9. |
55a20 | 00 00 81 01 00 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ......$......................... |
55a40 | 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 | ........@..AVS.2.8+.Effect.List. |
55a60 | 43 6f 6e 66 69 67 00 00 00 00 00 14 03 00 00 01 00 00 00 44 00 00 00 6f 6e 3d 31 3b 74 3d 30 3b | Config.............D...on=1;t=0; |
55a80 | 72 65 67 33 33 3d 30 3b 0d 0a 2f 2f 20 74 68 65 20 62 61 6e 64 73 20 74 68 61 74 20 61 72 65 20 | reg33=0;..//.the.bands.that.are. |
55aa0 | 61 63 74 69 76 61 74 65 64 20 69 66 20 79 6f 75 20 70 72 65 73 73 20 41 4c 54 00 c4 02 00 00 74 | activated.if.you.press.ALT.....t |
55ac0 | 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 | =t+1;deltatime.=.gettime(time);f |
55ae0 | 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 | r=fr*.9+deltatime*.1;framerate=1 |
55b00 | 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b | /fr;time.=.gettime(0);tb.=.tb+1; |
55b20 | 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 | timeb.=.gettime(gt);xmouse=getkb |
55b40 | 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 78 6d | mouse(1);ymouse=getkbmouse(2);xm |
55b60 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 | ousec=min(max(xmouse,-1),1);ymou |
55b80 | 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 | sec=min(max(ymouse,-1),1);lmouse |
55ba0 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d | .=.getkbmouse(3);rmouse.=.getkbm |
55bc0 | 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f | ouse(4);shift.=.getkbmouse(5);co |
55be0 | 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 | ntrol.=.getkbmouse(17);backspace |
55c00 | 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f | .=.getkbmouse(8);space.=.getkbmo |
55c20 | 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c | use(32);right.=.getkbmouse(39);l |
55c40 | 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d | eft.=.getkbmouse(37);up.=.getkbm |
55c60 | 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 6e | ouse(38);down.=.getkbmouse(40);n |
55c80 | 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 | um.=.1;sw.=.1;sizechange=bnot(eq |
55ca0 | 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d | ual(oh,h))|bnot(equal(ow,w));oh= |
55cc0 | 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 70 61 67 65 75 70 3d 67 65 74 6b 62 6d 6f 75 73 65 28 | h;ow=w;hw=h/w;pageup=getkbmouse( |
55ce0 | 33 33 29 3b 70 61 67 65 64 6f 77 6e 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 34 29 3b 61 6c 74 3d | 33);pagedown=getkbmouse(34);alt= |
55d00 | 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 29 3b 0d 0a 0d 0a 61 6c 74 63 6c 69 63 6b 3d 62 6e 6f 74 | getkbmouse(18);....altclick=bnot |
55d20 | 28 6f 61 6c 74 29 26 61 6c 74 3b 0d 0a 6f 61 6c 74 3d 61 6c 74 3b 0d 0a 0d 0a 69 66 28 61 6c 74 | (oalt)&alt;..oalt=alt;....if(alt |
55d40 | 63 6c 69 63 6b 2c 61 73 73 69 67 6e 28 72 65 67 33 37 2c 31 2d 72 65 67 33 37 29 2c 30 29 3b 0d | click,assign(reg37,1-reg37),0);. |
55d60 | 0a 0d 0a 72 65 67 33 33 3d 72 65 67 33 37 3b 0d 0a 65 6e 61 62 6c 65 64 3d 72 65 67 33 33 0d 0a | ...reg33=reg37;..enabled=reg33.. |
55d80 | 0d 0a 00 28 00 00 00 04 00 00 00 08 00 01 80 24 00 00 00 d2 02 00 00 01 0e 00 00 00 78 3d 69 2a | ...(...........$............x=i* |
55da0 | 32 2d 31 3b 0d 0a 79 3d 6d 00 8f 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 | 2-1;..y=m.....t=t+1;deltatime.=. |
55dc0 | 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 | gettime(time);fr=fr*.9+deltatime |
55de0 | 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d | *.1;framerate=1/fr;time.=.gettim |
55e00 | 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 | e(0);tb.=.tb+1;timeb.=.gettime(g |
55e20 | 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 | t);xmouse=getkbmouse(1);ymouse=g |
55e40 | 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 | etkbmouse(2);inbounds=below(abs( |
55e60 | 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b | xmouse),1)&below(abs(ymouse),1); |
55e80 | 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d | xmousec=min(max(xmouse,-1),1);ym |
55ea0 | 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 | ousec=min(max(ymouse,-1),1);lmou |
55ec0 | 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b | se.=.getkbmouse(3);rmouse.=.getk |
55ee0 | 62 6d 6f 75 73 65 28 34 29 3b 6c 6d 6f 75 73 65 3d 6c 6d 6f 75 73 65 7c 72 6d 6f 75 73 65 3b 73 | bmouse(4);lmouse=lmouse|rmouse;s |
55f00 | 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 | hift.=.getkbmouse(5);control.=.g |
55f20 | 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d | etkbmouse(17);backspace.=.getkbm |
55f40 | 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 | ouse(8);space.=.getkbmouse(32);r |
55f60 | 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 | ight.=.getkbmouse(39);left.=.get |
55f80 | 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b | kbmouse(37);up.=.getkbmouse(38); |
55fa0 | 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 | down.=.getkbmouse(40);sizechange |
55fc0 | 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 | =bnot(equal(oh,h))|bnot(equal(ow |
55fe0 | 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 32 3b 0d 0a | ,w));oh=h;ow=w;hw=h/w;....n=2;.. |
56000 | 6c 69 6e 65 73 69 7a 65 3d 73 71 72 74 28 68 2a 77 29 2a 2e 31 35 3b 0d 0a 0d 0a 6d 76 3d 6d 76 | linesize=sqrt(h*w)*.15;....mv=mv |
56020 | 2b 28 2d 6d 2b 6d 74 29 2a 2e 31 3b 0d 0a 6d 3d 28 6d 2b 6d 76 29 2a 2e 39 3b 0d 0a 00 14 00 00 | +(-m+mt)*.1;..m=(m+mv)*.9;...... |
56040 | 00 6d 74 3d 72 61 6e 64 28 32 35 36 29 2f 32 35 36 2d 2e 35 00 00 00 00 00 02 00 00 00 01 00 00 | .mt=rand(256)/256-.5............ |
56060 | 00 ff ff ff 00 01 00 00 00 24 00 00 00 d2 02 00 00 01 0e 00 00 00 78 3d 69 2a 32 2d 31 3b 0d 0a | .........$............x=i*2-1;.. |
56080 | 79 3d 6d 00 8f 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d | y=m.....t=t+1;deltatime.=.gettim |
560a0 | 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 | e(time);fr=fr*.9+deltatime*.1;fr |
560c0 | 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 | amerate=1/fr;time.=.gettime(0);t |
560e0 | 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f | b.=.tb+1;timeb.=.gettime(gt);xmo |
56100 | 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | use=getkbmouse(1);ymouse=getkbmo |
56120 | 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 | use(2);inbounds=below(abs(xmouse |
56140 | 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 | ),1)&below(abs(ymouse),1);xmouse |
56160 | 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d | c=min(max(xmouse,-1),1);ymousec= |
56180 | 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 | min(max(ymouse,-1),1);lmouse.=.g |
561a0 | 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(3);rmouse.=.getkbmouse |
561c0 | 28 34 29 3b 6c 6d 6f 75 73 65 3d 6c 6d 6f 75 73 65 7c 72 6d 6f 75 73 65 3b 73 68 69 66 74 20 3d | (4);lmouse=lmouse|rmouse;shift.= |
561e0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f | .getkbmouse(5);control.=.getkbmo |
56200 | 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 | use(17);backspace.=.getkbmouse(8 |
56220 | 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d | );space.=.getkbmouse(32);right.= |
56240 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(39);left.=.getkbmous |
56260 | 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d | e(37);up.=.getkbmouse(38);down.= |
56280 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | .getkbmouse(40);sizechange=bnot( |
562a0 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
562c0 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 6e 3d 32 3b 0d 0a 6c 69 6e 65 73 69 | h=h;ow=w;hw=h/w;....n=2;..linesi |
562e0 | 7a 65 3d 73 71 72 74 28 68 2a 77 29 2a 2e 31 35 3b 0d 0a 0d 0a 6d 76 3d 6d 76 2b 28 2d 6d 2b 6d | ze=sqrt(h*w)*.15;....mv=mv+(-m+m |
56300 | 74 29 2a 2e 31 3b 0d 0a 6d 3d 28 6d 2b 6d 76 29 2a 2e 39 3b 0d 0a 00 14 00 00 00 6d 74 3d 72 61 | t)*.1;..m=(m+mv)*.9;.......mt=ra |
56320 | 6e 64 28 32 35 36 29 2f 32 35 36 2d 2e 35 00 00 00 00 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 | nd(256)/256-.5.................. |
56340 | 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 03 00 00 00 00 00 00 00 80 00 00 00 fe ff ff ff f6 | ................................ |
56360 | 04 00 00 82 02 01 0d 24 ff 00 00 00 80 00 00 00 00 00 00 00 03 00 00 00 00 00 00 00 00 00 00 00 | .......$........................ |
56380 | 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 | .........@..AVS.2.8+.Effect.List |
563a0 | 20 43 6f 6e 66 69 67 00 00 00 00 00 a1 02 00 00 01 00 00 00 09 00 00 00 6f 6e 3d 31 3b 74 3d 30 | .Config.................on=1;t=0 |
563c0 | 00 8c 02 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .....t=t+1;deltatime.=.gettime(t |
563e0 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
56400 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
56420 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
56440 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
56460 | 28 32 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 | (2);xmousec=min(max(xmouse,-1),1 |
56480 | 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b | );ymousec=min(max(ymouse,-1),1); |
564a0 | 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 | lmouse.=.getkbmouse(3);rmouse.=. |
564c0 | 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(4);shift.=.getkbmouse |
564e0 | 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 | (5);control.=.getkbmouse(17);bac |
56500 | 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 | kspace.=.getkbmouse(8);space.=.g |
56520 | 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | etkbmouse(32);right.=.getkbmouse |
56540 | 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 | (39);left.=.getkbmouse(37);up.=. |
56560 | 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | getkbmouse(38);down.=.getkbmouse |
56580 | 28 34 30 29 3b 6e 75 6d 20 3d 20 31 3b 73 77 20 3d 20 31 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 | (40);num.=.1;sw.=.1;sizechange=b |
565a0 | 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 | not(equal(oh,h))|bnot(equal(ow,w |
565c0 | 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 0d 0a 65 6e 61 62 6c 65 64 3d | ));oh=h;ow=w;hw=h/w;....enabled= |
565e0 | 72 65 67 33 33 3b 0d 0a 0d 0a 2f 2f 20 74 68 69 73 20 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 65 | reg33;....//.this.controls.the.e |
56600 | 66 66 65 63 74 20 74 68 61 74 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 77 69 74 68 69 6e 20 74 | ffect.that.is.displayed.within.t |
56620 | 68 65 20 62 61 6e 64 73 0d 0a 2f 2f 20 74 68 61 74 20 61 72 65 20 61 63 74 69 76 61 74 65 64 20 | he.bands..//.that.are.activated. |
56640 | 69 66 20 79 6f 75 20 70 72 65 73 73 20 41 4c 54 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 | if.you.press.ALT.l.P.Holden03:.C |
56660 | 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 | onvolution.Filter............... |
56680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
566a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
566c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 | ................................ |
566e0 | 00 00 00 00 00 00 00 00 00 fd ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 | ................................ |
56700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56720 | 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 6c bb 50 02 48 6f 6c 64 65 6e 30 | .....................l.P.Holden0 |
56760 | 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 | 3:.Convolution.Filter........... |
56780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
567a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
567c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
567e0 | 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56800 | 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 00 00 00 28 00 00 00 04 00 00 | .........................(...... |
56860 | 00 01 00 01 80 17 00 00 00 28 00 00 00 01 00 00 00 00 00 00 00 02 00 00 00 1e 00 00 00 01 00 00 | .........(...................... |
56880 | 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 04 00 00 00 fe ff ff ff 87 04 00 00 80 00 0a | ................................ |
568a0 | 00 24 1d 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 | .$.............................. |
568c0 | 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 | ...@..AVS.2.8+.Effect.List.Confi |
568e0 | 67 00 00 00 00 00 36 03 00 00 01 00 00 00 25 00 00 00 2f 2f 20 74 68 69 73 20 63 6f 6e 74 72 6f | g.....6.......%...//.this.contro |
56900 | 6c 73 20 74 68 65 20 67 68 6f 73 74 69 6e 67 20 65 66 66 65 63 74 00 05 03 00 00 74 3d 74 2b 31 | ls.the.ghosting.effect.....t=t+1 |
56920 | 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d 66 72 | ;deltatime.=.gettime(time);fr=fr |
56940 | 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 72 3b | *.9+deltatime*.1;framerate=1/fr; |
56960 | 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 6d 65 | time.=.gettime(0);tb.=.tb+1;time |
56980 | 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 | b.=.gettime(gt);xmouse=getkbmous |
569a0 | 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f 75 6e | e(1);ymouse=getkbmouse(2);inboun |
569c0 | 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 61 62 | ds=below(abs(xmouse),1)&below(ab |
569e0 | 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 6d 6f | s(ymouse),1);xmousec=min(max(xmo |
56a00 | 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f 75 73 | use,-1),1);ymousec=min(max(ymous |
56a20 | 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 3b | e,-1),1);lmouse.=.getkbmouse(3); |
56a40 | 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 6c 6d 6f 75 73 65 3d 6c 6d | rmouse.=.getkbmouse(4);lmouse=lm |
56a60 | 6f 75 73 65 7c 72 6d 6f 75 73 65 3b 73 68 69 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 | ouse|rmouse;shift.=.getkbmouse(5 |
56a80 | 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 31 37 29 3b 62 61 63 6b 73 | );control.=.getkbmouse(17);backs |
56aa0 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 70 61 63 65 20 3d 20 67 65 74 | pace.=.getkbmouse(8);space.=.get |
56ac0 | 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | kbmouse(32);right.=.getkbmouse(3 |
56ae0 | 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 37 29 3b 75 70 20 3d 20 67 65 | 9);left.=.getkbmouse(37);up.=.ge |
56b00 | 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 | tkbmouse(38);down.=.getkbmouse(4 |
56b20 | 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c | 0);sizechange=bnot(equal(oh,h))| |
56b40 | 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 | bnot(equal(ow,w));oh=h;ow=w;hw=h |
56b60 | 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f 75 73 65 3b 6f 6c 6d 3d 6c 6d | /w;click=bnot(olm)*lmouse;olm=lm |
56b80 | 6f 75 73 65 3b 64 65 6c 65 74 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 34 36 29 3b 61 6c 74 3d 67 | ouse;delete=getkbmouse(46);alt=g |
56ba0 | 65 74 6b 62 6d 6f 75 73 65 28 31 38 29 3b 68 6f 6d 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 36 | etkbmouse(18);home=getkbmouse(36 |
56bc0 | 29 3b 74 61 62 3d 67 65 74 6b 62 6d 6f 75 73 65 28 39 29 3b 65 6e 64 3d 67 65 74 6b 62 6d 6f 75 | );tab=getkbmouse(9);end=getkbmou |
56be0 | 73 65 28 33 35 29 3b 0d 0a 0d 0a 61 6c 70 68 61 69 6e 3d 31 2d 73 71 72 74 28 72 65 67 32 35 29 | se(35);....alphain=1-sqrt(reg25) |
56c00 | 2a 2e 39 36 35 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 72 65 67 32 35 2c 30 29 3b 00 | *.965;..enabled=above(reg25,0);. |
56c20 | 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 | l.P.Holden03:.Convolution.Filter |
56c40 | 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 41 00 00 00 00 00 00 00 | ........................A....... |
56cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56d20 | 40 00 00 00 fe ff ff ff 82 03 00 00 83 03 00 0d 24 80 00 00 00 80 00 00 00 00 00 00 00 07 00 00 | @...............$............... |
56d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 | ..................@..AVS.2.8+.Ef |
56d60 | 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 3d 00 00 00 01 00 00 00 00 00 00 | fect.List.Config.....=.......... |
56d80 | 00 31 00 00 00 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 35 2d 67 65 74 74 69 6d 65 28 72 65 67 | .1...enabled=above(5-gettime(reg |
56da0 | 34 31 29 2c 30 29 26 65 71 75 61 6c 28 72 65 67 31 34 2c 34 29 00 fe ff ff ff 4e 01 00 00 81 01 | 41),0)&equal(reg14,4).....N..... |
56dc0 | 00 0b 24 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 | ..$............................. |
56de0 | 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 | ....@..AVS.2.8+.Effect.List.Conf |
56e00 | 69 67 00 00 00 00 00 26 00 00 00 01 00 00 00 00 00 00 00 1a 00 00 00 61 6c 70 68 61 6f 75 74 3d | ig.....&...............alphaout= |
56e20 | 35 2d 67 65 74 74 69 6d 65 28 72 65 67 34 31 29 00 1c 00 00 00 d3 00 00 00 01 00 00 00 ff ff ff | 5-gettime(reg41)................ |
56e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 0f 00 00 | ................................ |
56e60 | 00 0f 00 00 00 3c 00 00 00 6e 02 ed 00 00 00 00 00 10 88 cf 00 78 00 00 00 41 01 01 00 ff ff ff | .....<...n...........x...A...... |
56e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 | ......................!......... |
56ea0 | 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 | ............................"Ari |
56ec0 | 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 00 00 | al.............................. |
56ee0 | 00 41 75 74 6f 6d 61 74 65 64 20 44 65 6d 6f 00 00 00 00 00 00 00 00 00 01 00 00 00 a3 ff ff ff | .Automated.Demo................. |
56f00 | 01 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff 9a 01 00 00 81 01 0a 01 24 80 00 00 00 80 00 00 | ........................$....... |
56f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 | ..........................@..AVS |
56f40 | 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 31 00 00 | .2.8+.Effect.List.Config.....1.. |
56f60 | 00 01 00 00 00 00 00 00 00 25 00 00 00 61 6c 70 68 61 69 6e 3d 35 2d 67 65 74 74 69 6d 65 28 72 | .........%...alphain=5-gettime(r |
56f80 | 65 67 34 31 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 31 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 | eg41);..enabled=1.l.P.Holden03:. |
56fa0 | 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 | Convolution.Filter.............. |
56fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
56fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
57000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
57020 | 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
57040 | 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
57060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
57080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 12 00 00 00 10 00 00 00 00 00 | ................................ |
570a0 | 00 00 07 00 00 00 00 00 00 00 80 00 00 00 fe ff ff ff b5 0a 00 00 81 01 02 0b 24 26 00 00 00 ff | ..........................$&.... |
570c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 | ............................@..A |
570e0 | 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 75 | VS.2.8+.Effect.List.Config.....u |
57100 | 00 00 00 01 00 00 00 00 00 00 00 69 00 00 00 68 6b 65 79 3d 67 65 74 6b 62 6d 6f 75 73 65 28 37 | ...........i...hkey=getkbmouse(7 |
57120 | 32 29 3b 0d 0a 61 61 3d 6d 69 6e 28 6d 61 78 28 61 61 2b 68 6b 65 79 2a 2e 33 2d 2e 31 35 2c 30 | 2);..aa=min(max(aa+hkey*.3-.15,0 |
57140 | 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 6f 75 74 3d 61 61 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f | ),1);..alphaout=aa;..enabled=abo |
57160 | 76 65 28 61 61 2c 30 29 26 65 71 75 61 6c 28 72 65 67 31 34 2c 34 29 00 1c 00 00 00 d3 00 00 00 | ve(aa,0)&equal(reg14,4)......... |
57180 | 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 | ................................ |
571a0 | 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 ed 00 00 00 00 00 78 85 cf 00 78 00 00 00 | ............<...n.......x...x... |
571c0 | 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 | A............................!.. |
571e0 | 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 | ................................ |
57200 | 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..."Arial....................... |
57220 | 00 00 00 00 0f 00 00 00 41 75 74 6f 6d 61 74 65 64 20 44 65 6d 6f 00 00 00 00 00 00 00 00 00 01 | ........Automated.Demo.......... |
57240 | 00 00 00 a3 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 c9 00 00 00 01 00 00 00 ff | ................................ |
57260 | ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f | ................................ |
57280 | 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c6 01 00 00 00 00 e0 82 cf 00 b4 00 00 00 41 01 01 00 ff | .......<...n...............A.... |
572a0 | ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 | ........................!....... |
572c0 | 00 00 00 e8 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 | .............................."A |
572e0 | 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 | rial............................ |
57300 | 00 00 00 48 65 6c 70 00 01 00 00 00 00 00 00 00 00 00 00 00 db ff ff ff 01 00 00 00 00 00 00 00 | ...Help......................... |
57320 | 00 00 00 00 1c 00 00 00 ee 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
57340 | 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 | ........................<...n... |
57360 | 00 00 00 00 48 80 cf 00 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 | ....H...P...A................... |
57380 | 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 | .........!...................... |
573a0 | 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 | ..............."Arial........... |
573c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 00 00 43 4c 49 43 4b 20 61 6e 64 20 44 52 | ................*...CLICK.and.DR |
573e0 | 41 47 20 2d 20 54 65 6d 70 6f 72 61 72 69 6c 79 20 6c 6f 6f 6b 20 61 72 6f 75 6e 64 2e 00 01 00 | AG.-.Temporarily.look.around.... |
57400 | 00 00 00 00 00 00 02 00 00 00 e3 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 d8 00 | ................................ |
57420 | 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 | ................................ |
57440 | 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 18 8d dd 01 50 00 | ..............<...n...........P. |
57460 | 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 | ..A............................! |
57480 | 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 | ................................ |
574a0 | 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ....."Arial..................... |
574c0 | 00 00 00 00 00 00 14 00 00 00 48 4f 4d 45 20 2d 20 54 6f 67 67 6c 65 20 67 72 69 64 2e 00 01 00 | ..........HOME.-.Toggle.grid.... |
574e0 | 00 00 00 00 00 00 02 00 00 00 e8 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 e5 00 | ................................ |
57500 | 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 | ................................ |
57520 | 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 80 8a dd 01 50 00 | ..............<...n...........P. |
57540 | 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 | ..A............................! |
57560 | 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 | ................................ |
57580 | 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ....."Arial..................... |
575a0 | 00 00 00 00 00 00 21 00 00 00 53 48 49 46 54 20 2d 20 49 6e 63 72 65 61 73 65 20 62 65 61 74 20 | ......!...SHIFT.-.Increase.beat. |
575c0 | 73 6d 6f 6f 74 68 69 6e 67 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 ed ff ff ff 01 00 00 00 00 | smoothing....................... |
575e0 | 00 00 00 00 00 00 00 1c 00 00 00 e7 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 | ................................ |
57600 | 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e | ...........................<...n |
57620 | 02 c7 01 00 00 00 00 e8 87 dd 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 | ...........P...A................ |
57640 | 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 | ............!................... |
57660 | 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 | .................."Arial........ |
57680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 00 00 00 43 4f 4e 54 52 4f 4c 20 2d | ...................#...CONTROL.- |
576a0 | 20 44 65 63 72 65 61 73 65 20 62 65 61 74 20 73 6d 6f 6f 74 68 69 6e 67 2e 00 01 00 00 00 00 00 | .Decrease.beat.smoothing........ |
576c0 | 00 00 02 00 00 00 f2 ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 e7 00 00 00 01 00 | ................................ |
576e0 | 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 | ................................ |
57700 | 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 50 85 dd 01 50 00 00 00 41 01 | ..........<...n.......P...P...A. |
57720 | 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 | ...........................!.... |
57740 | 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 | ................................ |
57760 | 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ."Arial......................... |
57780 | 00 00 23 00 00 00 41 4c 54 20 2d 20 54 6f 67 67 6c 65 20 22 58 2d 52 61 79 22 20 62 61 6e 64 73 | ..#...ALT.-.Toggle."X-Ray".bands |
577a0 | 20 65 66 66 65 63 74 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 f7 ff ff ff 01 00 00 00 00 00 00 | .effect......................... |
577c0 | 00 00 00 00 00 1c 00 00 00 e4 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
577e0 | 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 | .........................<...n.. |
57800 | 01 00 00 00 00 b8 82 dd 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 | .........P...A.................. |
57820 | 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 | ..........!..................... |
57840 | 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 | ................"Arial.......... |
57860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 45 4e 44 20 2d 20 49 6e 63 72 65 | .....................END.-.Incre |
57880 | 61 73 65 20 67 68 6f 73 74 69 6e 67 20 65 66 66 65 63 74 2e 00 01 00 00 00 00 00 00 00 02 00 00 | ase.ghosting.effect............. |
578a0 | 00 fc ff ff ff 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 e4 00 00 00 01 00 00 00 ff ff ff | ................................ |
578c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 | ................................ |
578e0 | 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 50 75 56 04 50 00 00 00 41 01 01 00 ff ff ff | .....<...n.......PuV.P...A...... |
57900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 | ......................!......... |
57920 | 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 | ............................"Ari |
57940 | 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 00 | al.............................. |
57960 | 00 45 4e 44 20 2d 20 44 65 63 72 65 61 73 65 20 67 68 6f 73 74 69 6e 67 20 65 66 66 65 63 74 2e | .END.-.Decrease.ghosting.effect. |
57980 | 00 01 00 00 00 00 00 00 00 02 00 00 00 02 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 1c 00 00 | ................................ |
579a0 | 00 e1 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
579c0 | 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 c7 01 00 00 00 00 50 82 f0 | .................<...n.......P.. |
579e0 | 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .P...A.......................... |
57a00 | 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 | ..!............................. |
57a20 | 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ........"Arial.................. |
57a40 | 00 00 00 00 00 00 00 00 00 1d 00 00 00 5b 46 5d 20 4b 45 59 20 2d 20 54 6f 67 67 6c 65 20 66 6f | .............[F].KEY.-.Toggle.fo |
57a60 | 63 61 6c 20 62 6c 75 72 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 07 00 00 00 01 00 00 00 00 00 | cal.blur........................ |
57a80 | 00 00 00 00 00 00 1c 00 00 00 dd 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
57aa0 | 00 00 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 | ..........................<...n. |
57ac0 | c7 01 00 00 00 00 b8 7f f0 01 50 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 | ..........P...A................. |
57ae0 | 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f5 ff ff ff 00 00 00 00 00 00 | ...........!.................... |
57b00 | 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 | ................."Arial......... |
57b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 19 00 00 00 5b 48 5d 20 4b 45 59 20 2d 20 | ......................[H].KEY.-. |
57b40 | 53 68 6f 77 20 6b 65 79 20 68 65 6c 70 2e 00 01 00 00 00 00 00 00 00 02 00 00 00 0c 00 00 00 01 | Show.key.help................... |
57b60 | 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff 00 04 00 00 83 03 01 0b 24 80 00 00 00 ff 00 00 00 | .......................$........ |
57b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 | .........................@..AVS. |
57ba0 | 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 cf 02 00 00 | 2.8+.Effect.List.Config......... |
57bc0 | 01 00 00 00 11 00 00 00 6f 6e 3d 30 3b 0d 0a 74 61 72 67 65 74 3d 30 3b 00 b2 02 00 00 74 3d 74 | ........on=0;..target=0;.....t=t |
57be0 | 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 69 6d 65 29 3b 66 72 3d | +1;deltatime.=.gettime(time);fr= |
57c00 | 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 72 61 74 65 3d 31 2f 66 | fr*.9+deltatime*.1;framerate=1/f |
57c20 | 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d 20 74 62 2b 31 3b 74 69 | r;time.=.gettime(0);tb.=.tb+1;ti |
57c40 | 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f | meb.=.gettime(gt);xmouse=getkbmo |
57c60 | 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 69 6e 62 6f | use(1);ymouse=getkbmouse(2);inbo |
57c80 | 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 29 26 62 65 6c 6f 77 28 | unds=below(abs(xmouse),1)&below( |
57ca0 | 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 78 | abs(ymouse),1);xmousec=min(max(x |
57cc0 | 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e 28 6d 61 78 28 79 6d 6f | mouse,-1),1);ymousec=min(max(ymo |
57ce0 | 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | use,-1),1);lmouse.=.getkbmouse(3 |
57d00 | 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 73 68 69 66 74 20 3d | );rmouse.=.getkbmouse(4);shift.= |
57d20 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f | .getkbmouse(5);control.=.getkbmo |
57d40 | 75 73 65 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 | use(17);backspace.=.getkbmouse(8 |
57d60 | 29 3b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d | );space.=.getkbmouse(32);right.= |
57d80 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 | .getkbmouse(39);left.=.getkbmous |
57da0 | 65 28 33 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d | e(37);up.=.getkbmouse(38);down.= |
57dc0 | 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 | .getkbmouse(40);sizechange=bnot( |
57de0 | 65 71 75 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f | equal(oh,h))|bnot(equal(ow,w));o |
57e00 | 68 3d 68 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 0d 0a 67 6f 6f 6e 3d 73 68 69 66 74 7c 63 6f 6e | h=h;ow=w;hw=h/w;..goon=shift|con |
57e20 | 74 72 6f 6c 3b 0d 0a 69 66 28 67 6f 6f 6e 26 65 71 75 61 6c 28 72 65 67 31 34 2c 34 29 2c 61 73 | trol;..if(goon&equal(reg14,4),as |
57e40 | 73 69 67 6e 28 6f 6e 2c 32 30 29 2c 30 29 3b 0d 0a 6f 6e 3d 6f 6e 2a 2e 39 3b 0d 0a 61 6c 70 68 | sign(on,20),0);..on=on*.9;..alph |
57e60 | 61 6f 75 74 3d 6f 6e 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 6f 6e 2c 2e 30 35 29 26 | aout=on;..enabled=above(on,.05)& |
57e80 | 65 71 75 61 6c 28 72 65 67 31 34 2c 34 29 00 1c 00 00 00 dc 00 00 00 01 00 00 00 ff ff ff 00 00 | equal(reg14,4).................. |
57ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 0f 00 00 00 0f | ................................ |
57ec0 | 00 00 00 3c 00 00 00 62 02 03 01 00 00 00 00 60 7b 61 04 78 00 00 00 41 01 01 00 ff ff ff 00 00 | ...<...b.......`{a.x...A........ |
57ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f0 | ....................!........... |
57f00 | ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c | .........................."Arial |
57f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 00 00 00 53 | ...............................S |
57f40 | 6d 6f 6f 74 68 69 6e 67 3a 20 24 28 72 65 67 39 35 3a 31 2e 32 29 00 00 00 00 00 00 00 00 00 fd | moothing:.$(reg95:1.2).......... |
57f60 | ff ff ff 02 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff 93 04 00 00 83 03 01 0b 24 | ...............................$ |
57f80 | 80 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 | ................................ |
57fa0 | 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 | .@..AVS.2.8+.Effect.List.Config. |
57fc0 | 00 00 00 00 63 03 00 00 01 00 00 00 11 00 00 00 6f 6e 3d 30 3b 0d 0a 74 61 72 67 65 74 3d 30 3b | ....c...........on=0;..target=0; |
57fe0 | 00 46 03 00 00 74 3d 74 2b 31 3b 64 65 6c 74 61 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 74 | .F...t=t+1;deltatime.=.gettime(t |
58000 | 69 6d 65 29 3b 66 72 3d 66 72 2a 2e 39 2b 64 65 6c 74 61 74 69 6d 65 2a 2e 31 3b 66 72 61 6d 65 | ime);fr=fr*.9+deltatime*.1;frame |
58020 | 72 61 74 65 3d 31 2f 66 72 3b 74 69 6d 65 20 3d 20 67 65 74 74 69 6d 65 28 30 29 3b 74 62 20 3d | rate=1/fr;time.=.gettime(0);tb.= |
58040 | 20 74 62 2b 31 3b 74 69 6d 65 62 20 3d 20 67 65 74 74 69 6d 65 28 67 74 29 3b 78 6d 6f 75 73 65 | .tb+1;timeb.=.gettime(gt);xmouse |
58060 | 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 79 6d 6f 75 73 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | =getkbmouse(1);ymouse=getkbmouse |
58080 | 28 32 29 3b 69 6e 62 6f 75 6e 64 73 3d 62 65 6c 6f 77 28 61 62 73 28 78 6d 6f 75 73 65 29 2c 31 | (2);inbounds=below(abs(xmouse),1 |
580a0 | 29 26 62 65 6c 6f 77 28 61 62 73 28 79 6d 6f 75 73 65 29 2c 31 29 3b 78 6d 6f 75 73 65 63 3d 6d | )&below(abs(ymouse),1);xmousec=m |
580c0 | 69 6e 28 6d 61 78 28 78 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 79 6d 6f 75 73 65 63 3d 6d 69 6e | in(max(xmouse,-1),1);ymousec=min |
580e0 | 28 6d 61 78 28 79 6d 6f 75 73 65 2c 2d 31 29 2c 31 29 3b 6c 6d 6f 75 73 65 20 3d 20 67 65 74 6b | (max(ymouse,-1),1);lmouse.=.getk |
58100 | 62 6d 6f 75 73 65 28 33 29 3b 72 6d 6f 75 73 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 | bmouse(3);rmouse.=.getkbmouse(4) |
58120 | 3b 6c 6d 6f 75 73 65 3d 6c 6d 6f 75 73 65 7c 72 6d 6f 75 73 65 3b 73 68 69 66 74 20 3d 20 67 65 | ;lmouse=lmouse|rmouse;shift.=.ge |
58140 | 74 6b 62 6d 6f 75 73 65 28 35 29 3b 63 6f 6e 74 72 6f 6c 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 | tkbmouse(5);control.=.getkbmouse |
58160 | 28 31 37 29 3b 62 61 63 6b 73 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 38 29 3b 73 | (17);backspace.=.getkbmouse(8);s |
58180 | 70 61 63 65 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 32 29 3b 72 69 67 68 74 20 3d 20 67 65 | pace.=.getkbmouse(32);right.=.ge |
581a0 | 74 6b 62 6d 6f 75 73 65 28 33 39 29 3b 6c 65 66 74 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 | tkbmouse(39);left.=.getkbmouse(3 |
581c0 | 37 29 3b 75 70 20 3d 20 67 65 74 6b 62 6d 6f 75 73 65 28 33 38 29 3b 64 6f 77 6e 20 3d 20 67 65 | 7);up.=.getkbmouse(38);down.=.ge |
581e0 | 74 6b 62 6d 6f 75 73 65 28 34 30 29 3b 73 69 7a 65 63 68 61 6e 67 65 3d 62 6e 6f 74 28 65 71 75 | tkbmouse(40);sizechange=bnot(equ |
58200 | 61 6c 28 6f 68 2c 68 29 29 7c 62 6e 6f 74 28 65 71 75 61 6c 28 6f 77 2c 77 29 29 3b 6f 68 3d 68 | al(oh,h))|bnot(equal(ow,w));oh=h |
58220 | 3b 6f 77 3d 77 3b 68 77 3d 68 2f 77 3b 63 6c 69 63 6b 3d 62 6e 6f 74 28 6f 6c 6d 29 2a 6c 6d 6f | ;ow=w;hw=h/w;click=bnot(olm)*lmo |
58240 | 75 73 65 3b 6f 6c 6d 3d 6c 6d 6f 75 73 65 3b 64 65 6c 65 74 65 3d 67 65 74 6b 62 6d 6f 75 73 65 | use;olm=lmouse;delete=getkbmouse |
58260 | 28 34 36 29 3b 61 6c 74 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 29 3b 68 6f 6d 65 3d 67 65 74 | (46);alt=getkbmouse(18);home=get |
58280 | 6b 62 6d 6f 75 73 65 28 33 36 29 3b 74 61 62 3d 67 65 74 6b 62 6d 6f 75 73 65 28 39 29 3b 65 6e | kbmouse(36);tab=getkbmouse(9);en |
582a0 | 64 3d 67 65 74 6b 62 6d 6f 75 73 65 28 33 35 29 3b 0d 0a 67 6f 6f 6e 3d 65 6e 64 7c 64 65 6c 65 | d=getkbmouse(35);..goon=end|dele |
582c0 | 74 65 3b 69 66 28 67 6f 6f 6e 26 65 71 75 61 6c 28 72 65 67 31 34 2c 34 29 2c 61 73 73 69 67 6e | te;if(goon&equal(reg14,4),assign |
582e0 | 28 6f 6e 2c 32 30 29 2c 30 29 3b 0d 0a 6f 6e 3d 6f 6e 2a 2e 39 3b 0d 0a 61 6c 70 68 61 6f 75 74 | (on,20),0);..on=on*.9;..alphaout |
58300 | 3d 6f 6e 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 6f 6e 2c 2e 30 35 29 26 65 71 75 61 | =on;..enabled=above(on,.05)&equa |
58320 | 6c 28 72 65 67 31 34 2c 34 29 00 1c 00 00 00 db 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 | l(reg14,4)...................... |
58340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 00 02 00 00 00 0f 00 00 00 0f 00 00 00 3c | ...............................< |
58360 | 00 00 00 62 02 03 01 00 00 00 00 00 e7 c8 00 78 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 | ...b...........x...A............ |
58380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 | ................!............... |
583a0 | 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 | ......................"Arial.... |
583c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 17 00 00 00 47 68 6f 73 74 | ...........................Ghost |
583e0 | 69 6e 67 3a 20 24 28 72 65 67 32 35 3a 31 2e 32 29 00 00 00 00 00 00 00 00 00 fd ff ff ff ff ff | ing:.$(reg25:1.2)............... |
58400 | ff ff 01 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff 10 02 00 00 83 03 01 0b 24 80 00 00 00 ff | ..........................$..... |
58420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 | ............................@..A |
58440 | 56 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 d6 | VS.2.8+.Effect.List.Config...... |
58460 | 00 00 00 01 00 00 00 11 00 00 00 6f 6e 3d 30 3b 0d 0a 74 61 72 67 65 74 3d 30 3b 00 b9 00 00 00 | ...........on=0;..target=0;..... |
58480 | 68 6f 6d 65 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 38 37 29 3b 0d 0a 63 6c 69 63 6b 68 6f 6d 65 | home=getkbmouse(187);..clickhome |
584a0 | 3d 62 6e 6f 74 28 6f 68 6f 29 2a 68 6f 6d 65 3b 6f 68 6f 3d 68 6f 6d 65 3b 0d 0a 6f 6e 3d 69 66 | =bnot(oho)*home;oho=home;..on=if |
584c0 | 28 63 6c 69 63 6b 68 6f 6d 65 26 65 71 75 61 6c 28 72 65 67 31 34 2c 34 29 2c 31 2d 6f 6e 2c 6f | (clickhome&equal(reg14,4),1-on,o |
584e0 | 6e 29 3b 0d 0a 74 61 72 67 65 74 3d 74 61 72 67 65 74 2a 2e 39 2b 6f 6e 2a 2e 31 3b 0d 0a 61 6c | n);..target=target*.9+on*.1;..al |
58500 | 70 68 61 6f 75 74 3d 74 61 72 67 65 74 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 74 61 | phaout=target;..enabled=above(ta |
58520 | 72 67 65 74 2c 2e 30 35 29 26 65 71 75 61 6c 28 72 65 67 31 34 2c 34 29 00 1c 00 00 00 e5 00 00 | rget,.05)&equal(reg14,4)........ |
58540 | 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 00 | ................................ |
58560 | 00 01 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 62 02 03 01 00 00 00 00 b0 03 c8 00 78 00 00 | .............<...b...........x.. |
58580 | 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 | .A............................!. |
585a0 | 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 | ................................ |
585c0 | 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ...."Arial...................... |
585e0 | 00 00 00 00 00 21 00 00 00 42 75 69 6c 64 69 6e 67 20 56 61 6c 75 65 3a 20 20 20 24 20 24 28 72 | .....!...Building.Value:...$.$(r |
58600 | 65 67 37 39 3a 31 2e 32 29 00 00 00 00 00 00 00 00 00 00 00 00 00 f8 ff ff ff 01 00 00 00 00 00 | eg79:1.2)....................... |
58620 | 00 00 00 00 00 00 fe ff ff ff 74 01 00 00 82 02 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 | ..........t.......$............. |
58640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 | ....................@..AVS.2.8+. |
58660 | 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 32 00 00 00 01 00 00 00 00 | Effect.List.Config.....2........ |
58680 | 00 00 00 26 00 00 00 67 6f 3d 67 65 74 6b 62 6d 6f 75 73 65 28 37 37 29 3b 0d 0a 65 6e 61 62 6c | ...&...go=getkbmouse(77);..enabl |
586a0 | 65 64 3d 72 65 67 35 39 26 67 6f 3b 00 12 00 00 00 10 00 00 00 01 00 00 00 05 00 00 00 00 00 00 | ed=reg59&go;.................... |
586c0 | 00 80 00 00 00 1c 00 00 00 d5 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
586e0 | 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 0f 00 00 00 0f 00 00 00 3c 00 00 00 6e 02 ed | .........................<...n.. |
58700 | 00 00 00 00 00 a0 56 c7 00 78 00 00 00 41 01 01 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 | ......V..x...A.................. |
58720 | 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 00 00 f0 ff ff ff 00 00 00 00 00 00 00 | ..........!..................... |
58740 | 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 69 61 6c 00 00 00 00 00 00 00 00 00 00 | ................"Arial.......... |
58760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 00 00 00 43 75 72 72 65 6e 74 20 5a 2d 42 | .....................Current.Z-B |
58780 | 75 66 66 65 72 00 01 00 00 00 00 00 00 00 01 00 00 00 a3 ff ff ff 01 00 00 00 00 00 00 00 00 00 | uffer........................... |
587a0 | 00 00 fe ff ff ff 97 05 00 00 80 00 00 0d 24 80 00 00 00 80 00 00 00 00 00 00 00 04 00 00 00 00 | ..............$................. |
587c0 | 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 45 66 66 65 | ................@..AVS.2.8+.Effe |
587e0 | 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 6f 00 00 00 01 00 00 00 00 00 00 00 63 | ct.List.Config.....o...........c |
58800 | 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b 0d 0a 74 74 3d | ...ta=below(gettime(-1),5);..tt= |
58820 | 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 | min(max(tt-sign(tt-ta)*.02,0),1) |
58840 | 3b 0d 0a 65 6e 61 62 6c 65 64 3d 61 62 6f 76 65 28 74 74 2c 30 29 26 65 71 75 61 6c 28 72 65 67 | ;..enabled=above(tt,0)&equal(reg |
58860 | 31 34 2c 34 29 00 fe ff ff ff fc 01 00 00 83 03 00 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 | 14,4).............$............. |
58880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 2e 38 2b 20 | ....................@..AVS.2.8+. |
588a0 | 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 d7 00 00 00 01 00 00 00 00 | Effect.List.Config.............. |
588c0 | 00 00 00 cb 00 00 00 6f 6e 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c 35 29 3b 0d | .......on=below(gettime(-1),5);. |
588e0 | 0a 6f 66 66 3d 62 6e 6f 74 28 6f 6e 29 3b 0d 0a 69 66 28 6f 66 66 2c 61 73 73 69 67 6e 28 64 6f | .off=bnot(on);..if(off,assign(do |
58900 | 6e 65 2c 30 29 2b 61 73 73 69 67 6e 28 67 6f 2c 30 29 2c 30 29 3b 0d 0a 69 66 28 6f 6e 26 62 6e | ne,0)+assign(go,0),0);..if(on&bn |
58920 | 6f 74 28 64 6f 6e 65 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2b 61 73 73 69 67 6e 28 64 6f 6e | ot(done),assign(go,1)+assign(don |
58940 | 65 2c 31 29 2c 61 73 73 69 67 6e 28 67 6f 2c 30 29 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 65 | e,1),assign(go,0));..if(below(ge |
58960 | 74 74 69 6d 65 28 2d 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 30 29 3b 0d 0a | ttime(-1),.5),assign(go,1),0);.. |
58980 | 65 6e 61 62 6c 65 64 3d 67 6f 7c 72 65 67 31 35 3b 00 1c 00 00 00 d0 00 00 00 01 00 00 00 ff ff | enabled=go|reg15;............... |
589a0 | ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 0f 00 | ................................ |
589c0 | 00 00 0f 00 00 00 3c 00 00 00 02 01 55 00 00 00 00 00 40 af cd 00 64 00 00 00 41 01 01 00 ff ff | ......<.....U.....@...d...A..... |
589e0 | ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 21 00 00 00 00 00 00 00 00 | .......................!........ |
58a00 | 00 00 f3 ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 bc 02 00 00 00 00 00 00 03 02 01 22 41 72 | ............................."Ar |
58a20 | 69 61 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 00 | ial............................. |
58a40 | 00 00 24 28 74 69 74 6c 65 3a 34 36 29 00 00 00 00 00 00 00 00 00 00 00 00 00 2d 00 00 00 01 00 | ..$(title:46).............-..... |
58a60 | 00 00 00 00 00 00 00 00 00 00 fe ff ff ff cf 02 00 00 82 02 01 01 24 80 00 00 00 80 00 00 00 00 | ......................$......... |
58a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 53 20 32 | ........................@..AVS.2 |
58aa0 | 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 ae 00 00 00 01 | .8+.Effect.List.Config.......... |
58ac0 | 00 00 00 00 00 00 00 a2 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d 31 29 2c | ...........ta=below(gettime(-1), |
58ae0 | 35 29 3b 0d 0a 74 6f 3d 74 74 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 | 5);..to=tt;..tt=min(max(tt-sign( |
58b00 | 74 74 2d 74 61 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 69 66 28 62 65 6c 6f 77 28 67 65 74 74 | tt-ta)*.02,0),1);..if(below(gett |
58b20 | 69 6d 65 28 2d 31 29 2c 2e 35 29 2c 61 73 73 69 67 6e 28 67 6f 2c 31 29 2c 61 73 73 69 67 6e 28 | ime(-1),.5),assign(go,1),assign( |
58b40 | 67 6f 2c 30 29 29 3b 0d 0a 65 6e 61 62 6c 65 64 3d 62 6e 6f 74 28 65 71 75 61 6c 28 74 6f 2c 74 | go,0));..enabled=bnot(equal(to,t |
58b60 | 74 29 29 7c 67 6f 7c 72 65 67 31 35 00 fe ff ff ff cc 01 00 00 81 01 0a 01 24 80 00 00 00 80 00 | t))|go|reg15.............$...... |
58b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 40 00 00 41 56 | ...........................@..AV |
58ba0 | 53 20 32 2e 38 2b 20 45 66 66 65 63 74 20 4c 69 73 74 20 43 6f 6e 66 69 67 00 00 00 00 00 63 00 | S.2.8+.Effect.List.Config.....c. |
58bc0 | 00 00 01 00 00 00 00 00 00 00 57 00 00 00 74 61 3d 62 65 6c 6f 77 28 67 65 74 74 69 6d 65 28 2d | ..........W...ta=below(gettime(- |
58be0 | 31 29 2c 35 29 3b 0d 0a 74 74 3d 6d 69 6e 28 6d 61 78 28 74 74 2d 73 69 67 6e 28 74 74 2d 74 61 | 1),5);..tt=min(max(tt-sign(tt-ta |
58c00 | 29 2a 2e 30 32 2c 30 29 2c 31 29 3b 0d 0a 61 6c 70 68 61 69 6e 3d 74 74 3b 0d 0a 65 6e 61 62 6c | )*.02,0),1);..alphain=tt;..enabl |
58c20 | 65 64 3d 31 00 6c bb 50 02 48 6f 6c 64 65 6e 30 33 3a 20 43 6f 6e 76 6f 6c 75 74 69 6f 6e 20 46 | ed=1.l.P.Holden03:.Convolution.F |
58c40 | 69 6c 74 65 72 00 00 00 00 dc 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ilter........................... |
58c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
58c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
58ca0 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
58cc0 | 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 | ................................ |
58ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
58d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
58d20 | 00 00 00 00 00 01 00 00 00 12 00 00 00 10 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 80 00 00 | ................................ |
58d40 | 00 24 00 00 00 dc 00 00 00 01 76 00 00 00 78 3d 67 65 74 6b 62 6d 6f 75 73 65 28 31 29 3b 0d 0a | .$........v...x=getkbmouse(1);.. |
58d60 | 79 3d 67 65 74 6b 62 6d 6f 75 73 65 28 32 29 3b 0d 0a 72 65 64 3d 31 3b 0d 0a 67 72 65 65 6e 3d | y=getkbmouse(2);..red=1;..green= |
58d80 | 31 2d 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 2d 67 65 74 6b 62 6d 6f 75 73 65 28 34 29 3b 0d 0a | 1-getkbmouse(3)-getkbmouse(4);.. |
58da0 | 62 6c 75 65 3d 31 2d 67 65 74 6b 62 6d 6f 75 73 65 28 33 29 2d 67 65 74 6b 62 6d 6f 75 73 65 28 | blue=1-getkbmouse(3)-getkbmouse( |
58dc0 | 34 29 3b 00 41 00 00 00 2f 2f 20 74 68 69 73 20 69 73 20 74 68 65 20 6d 6f 75 73 65 20 70 6f 69 | 4);.A...//.this.is.the.mouse.poi |
58de0 | 6e 74 65 72 20 74 68 61 74 20 69 73 20 76 69 73 69 62 6c 65 20 69 6e 20 66 75 6c 6c 20 73 63 72 | nter.that.is.visible.in.full.scr |
58e00 | 65 65 6e 20 6d 6f 64 65 00 00 00 00 00 04 00 00 00 6e 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff | een.mode.........n=1............ |
58e20 | 00 00 00 00 00 | ..... |