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