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 00 15 00 00 00 7a 06 00 | Nullsoft.AVS.Preset.0.2......z.. |
0020 | 00 76 06 00 00 0d 0a 20 20 20 20 42 75 74 74 65 72 66 6c 79 20 43 61 75 67 68 74 0d 0a 20 20 20 | .v.........Butterfly.Caught..... |
0040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 20 53 74 65 76 65 6e 20 57 | .....................by.Steven.W |
0060 | 69 74 74 65 6e 73 20 61 6b 61 20 55 6e 43 6f 6e 65 44 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | ittens.aka.UnConeD..____________ |
0080 | 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 | ________________________________ |
00a0 | 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 20 20 af af af af af af af af af af af af af af af af af af | __________...................... |
00c0 | af af af af af af af af af af af af af af af af af af af af af af af af af af af af af af af af | ................................ |
00e0 | af af 0d 0a 53 6f 6d 65 20 64 69 73 63 75 73 73 69 6f 6e 20 6f 6e 20 57 69 6e 61 6d 70 2e 63 6f | ....Some.discussion.on.Winamp.co |
0100 | 6d 20 61 62 6f 75 74 20 61 20 62 75 74 74 65 72 79 66 6c 79 20 70 72 65 73 65 74 20 61 6e 64 20 | m.about.a.butteryfly.preset.and. |
0120 | 54 75 67 67 75 6d 6d 69 27 73 20 61 77 65 73 6f 6d 65 20 73 70 65 63 74 72 75 6d 20 28 77 68 69 | Tuggummi's.awesome.spectrum.(whi |
0140 | 63 68 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 67 72 61 73 73 20 61 74 20 73 6f 6d 65 20 74 69 6d 65 | ch.looks.like.grass.at.some.time |
0160 | 73 29 20 69 6e 73 70 69 72 65 64 20 6d 65 20 74 6f 20 64 6f 20 74 68 69 73 20 70 72 65 73 65 74 | s).inspired.me.to.do.this.preset |
0180 | 3a 20 61 20 62 75 74 74 65 72 66 6c 79 20 66 6c 79 69 6e 67 20 6f 76 65 72 20 61 20 70 6c 61 69 | :.a.butterfly.flying.over.a.plai |
01a0 | 6e 20 6f 66 20 67 72 61 73 73 2e 0d 0a 57 68 61 74 20 28 6f 72 20 77 68 6f 29 20 69 73 20 69 74 | n.of.grass...What.(or.who).is.it |
01c0 | 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 3f 20 49 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 3b 29 2e 0d 0a | .looking.for?.I.don't.know.;)... |
01e0 | 0d 0a 54 68 65 20 67 72 61 73 73 20 69 73 20 61 20 6e 65 61 74 20 65 78 74 65 6e 73 69 6f 6e 20 | ..The.grass.is.a.neat.extension. |
0200 | 6f 66 20 74 68 65 20 69 64 65 61 20 69 6e 20 22 48 65 6c 6c 6f 20 4c 69 67 68 74 22 2c 20 65 78 | of.the.idea.in."Hello.Light",.ex |
0220 | 63 65 70 74 20 6e 6f 77 20 74 68 65 20 76 6f 6c 75 6d 65 74 72 69 63 20 62 65 61 6d 73 20 61 72 | cept.now.the.volumetric.beams.ar |
0240 | 65 20 70 65 72 73 70 65 63 74 69 76 65 2d 63 6f 72 72 65 63 74 20 61 6e 64 20 6c 6f 6f 6b 20 6d | e.perspective-correct.and.look.m |
0260 | 75 63 68 20 6e 69 63 65 72 2e 20 42 61 73 69 63 61 6c 6c 79 20 74 68 65 20 65 78 69 73 74 69 6e | uch.nicer..Basically.the.existin |
0280 | 67 20 69 6d 61 67 65 20 69 73 20 72 65 76 65 72 73 65 20 70 72 6f 6a 65 63 74 65 64 20 61 6e 64 | g.image.is.reverse.projected.and |
02a0 | 20 75 73 65 64 20 61 73 20 61 20 62 6c 65 6e 64 65 64 20 74 65 78 74 75 72 65 20 6f 6e 20 61 20 | .used.as.a.blended.texture.on.a. |
02c0 | 6e 65 77 20 70 6c 61 6e 65 2e 20 42 79 20 64 6f 69 6e 67 20 74 68 69 73 20 33 20 74 69 6d 65 73 | new.plane..By.doing.this.3.times |
02e0 | 2c 20 74 68 65 72 65 20 61 72 65 20 32 5e 33 20 3d 20 38 20 63 6f 70 69 65 73 20 6d 61 64 65 2e | ,.there.are.2^3.=.8.copies.made. |
0300 | 0d 0a 0d 0a 54 68 65 20 62 75 74 74 65 72 66 6c 79 20 69 73 20 61 20 62 75 6e 63 68 20 6f 66 20 | ....The.butterfly.is.a.bunch.of. |
0320 | 73 63 6f 70 65 73 20 77 69 74 68 20 61 70 70 72 6f 70 72 69 61 74 65 20 6d 6f 76 65 6d 65 6e 74 | scopes.with.appropriate.movement |
0340 | 20 74 6f 20 6c 6f 6f 6b 20 63 6f 6e 76 69 6e 63 69 6e 67 6c 79 20 62 75 74 74 65 72 66 6c 79 2d | .to.look.convincingly.butterfly- |
0360 | 69 73 68 2e 20 46 6f 72 20 6d 69 6e 6f 72 20 72 65 73 70 6f 6e 73 65 20 49 20 61 64 64 65 64 20 | ish..For.minor.response.I.added. |
0380 | 74 68 65 20 63 6f 6c 6f 72 20 63 68 61 6e 67 65 20 61 6e 64 20 74 68 65 20 6d 6f 76 69 6e 67 20 | the.color.change.and.the.moving. |
03a0 | 64 6f 74 73 20 6f 6e 20 74 68 65 20 77 69 6e 67 73 2e 0d 0a 0d 0a 46 69 6e 61 6c 6c 79 2c 20 74 | dots.on.the.wings.....Finally,.t |
03c0 | 68 65 20 67 72 61 73 73 20 61 6c 73 6f 20 28 73 6c 6f 77 6c 79 29 20 63 68 61 6e 67 65 73 20 62 | he.grass.also.(slowly).changes.b |
03e0 | 65 74 77 65 65 6e 20 67 72 65 65 6e 20 28 73 70 72 69 6e 67 29 20 61 6e 64 20 62 72 6f 77 6e 2f | etween.green.(spring).and.brown/ |
0400 | 79 65 6c 6c 6f 77 20 28 61 75 74 75 6d 6e 29 2e 0d 0a 0d 0a 54 68 65 20 74 69 74 6c 65 20 69 73 | yellow.(autumn).....The.title.is |
0420 | 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 4d 61 73 73 69 76 65 20 41 74 74 61 63 6b 20 73 6f | .the.name.of.a.Massive.Attack.so |
0440 | 6e 67 20 77 68 69 63 68 20 70 6c 61 79 65 64 20 77 68 69 6c 65 20 6d 61 6b 69 6e 67 20 74 68 69 | ng.which.played.while.making.thi |
0460 | 73 20 70 72 65 73 65 74 2e 0d 0a 20 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f | s.preset.....___________________ |
0480 | 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 | ________________________________ |
04a0 | 5f 0d 0a af af af af af af af af af af af af af af af af af af af af af af af af af af af af af | _............................... |
04c0 | af af af af af af af af af af af af af af af af af af af af af af af af af 0d 0a 28 63 29 20 53 | ...........................(c).S |
04e0 | 74 65 76 65 6e 20 57 69 74 74 65 6e 73 20 2f 20 55 6e 43 6f 6e 65 44 0d 0a 73 74 65 76 65 6e 20 | teven.Wittens./.UnConeD..steven. |
0500 | 40 20 61 63 6b 6f 20 64 6f 74 20 6e 65 74 20 2d 20 77 77 77 2e 61 63 6b 6f 2e 6e 65 74 0d 0a 0d | @.acko.dot.net.-.www.acko.net... |
0520 | 0a 49 66 20 79 6f 75 20 77 69 73 68 20 74 6f 20 75 73 65 20 61 6e 79 20 70 61 72 74 20 28 6f 72 | .If.you.wish.to.use.any.part.(or |
0540 | 20 74 68 65 20 77 68 6f 6c 65 29 20 6f 66 20 74 68 69 73 20 70 72 65 73 65 74 20 69 6e 20 79 6f | .the.whole).of.this.preset.in.yo |
0560 | 75 72 20 6f 77 6e 20 70 72 65 73 65 74 73 2c 20 70 61 63 6b 73 20 6f 72 20 69 6e 20 61 6e 6f 74 | ur.own.presets,.packs.or.in.anot |
0580 | 68 65 72 20 6d 65 64 69 75 6d 2c 20 79 6f 75 20 6d 75 73 74 20 69 6e 63 6c 75 64 65 20 6d 79 20 | her.medium,.you.must.include.my. |
05a0 | 6e 61 6d 65 20 61 73 20 61 20 63 6c 65 61 72 20 63 72 65 64 69 74 20 72 65 66 65 72 65 6e 63 65 | name.as.a.clear.credit.reference |
05c0 | 2e 20 49 6e 63 6c 75 64 69 6e 67 20 6d 79 20 63 6f 6e 74 61 63 74 20 69 6e 66 6f 72 6d 61 74 69 | ..Including.my.contact.informati |
05e0 | 6f 6e 2f 77 65 62 73 69 74 65 20 61 64 64 72 65 73 73 20 69 73 20 6e 6f 74 20 72 65 71 75 69 72 | on/website.address.is.not.requir |
0600 | 65 64 2c 20 62 75 74 20 61 70 70 72 65 63 69 61 74 65 64 2e 0d 0a 45 78 63 65 70 74 69 6f 6e 20 | ed,.but.appreciated...Exception. |
0620 | 74 6f 20 74 68 65 20 61 62 6f 76 65 3a 20 79 6f 75 20 6d 61 79 20 64 69 73 70 6c 61 79 20 74 68 | to.the.above:.you.may.display.th |
0640 | 65 73 65 20 70 72 65 73 65 74 73 20 61 73 20 61 20 70 72 6f 6a 65 63 74 69 6f 6e 20 61 74 20 70 | ese.presets.as.a.projection.at.p |
0660 | 61 72 74 69 65 73 2c 20 72 61 76 65 73 20 6f 72 20 63 6c 75 62 73 20 77 69 74 68 6f 75 74 20 63 | arties,.raves.or.clubs.without.c |
0680 | 72 65 64 69 74 20 72 65 66 65 72 65 6e 63 65 20 6f 6e 2d 73 63 72 65 65 6e 2e 00 24 00 00 00 bd | redit.reference.on-screen..$.... |
06a0 | 02 00 00 01 00 00 00 00 70 02 00 00 74 3d 74 2b 30 2e 30 31 2b 74 69 3b 74 69 3d 74 69 2a 2e 39 | ........p...t=t+0.01+ti;ti=ti*.9 |
06c0 | 3b 0d 0a 70 3d 74 2d 2e 31 3b 0d 0a 6f 78 3d 63 6f 73 28 70 29 2a 63 6f 73 28 70 2a 2e 31 37 39 | ;..p=t-.1;..ox=cos(p)*cos(p*.179 |
06e0 | 2b 31 29 2b 63 6f 73 28 73 69 6e 28 70 2a 2e 31 34 31 29 29 3b 0d 0a 6f 79 3d 2d 31 2b 73 69 6e | +1)+cos(sin(p*.141));..oy=-1+sin |
0700 | 28 70 2a 2e 31 35 29 2a 63 6f 73 28 2d 70 2a 2e 37 31 29 2a 2e 33 3b 0d 0a 6f 7a 3d 2d 28 73 69 | (p*.15)*cos(-p*.71)*.3;..oz=-(si |
0720 | 6e 28 70 29 2a 63 6f 73 28 2d 70 2a 2e 34 31 29 2b 73 69 6e 28 63 6f 73 28 70 2a 2e 36 33 31 29 | n(p)*cos(-p*.41)+sin(cos(p*.631) |
0740 | 29 29 2a 31 2e 35 3b 0d 0a 6f 74 3d 2e 35 2b 2e 36 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 | ))*1.5;..ot=.5+.6/sqrt(sqr(ox)+s |
0760 | 71 72 28 6f 7a 29 29 3b 0d 0a 6f 78 3d 6f 78 2a 6f 74 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 0d 0a 0d 0a | qr(oz));..ox=ox*ot;oz=oz*ot;.... |
0780 | 72 79 3d 61 74 61 6e 32 28 6f 78 2c 2d 6f 7a 29 3b 0d 0a 72 78 3d 2d 61 74 61 6e 32 28 2d 6f 79 | ry=atan2(ox,-oz);..rx=-atan2(-oy |
07a0 | 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 3b 0d 0a 0d 0a 63 | -.2,sqrt(sqr(ox)+sqr(oz)));....c |
07c0 | 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 0d 0a 63 79 3d 63 6f 73 28 72 79 | x=cos(rx);sx=sin(rx);..cy=cos(ry |
07e0 | 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 0d 0a 0d 0a 70 3d 74 3b 0d 0a 6f 78 3d 63 6f 73 28 70 29 | );sy=sin(ry);....p=t;..ox=cos(p) |
0800 | 2a 63 6f 73 28 70 2a 2e 31 37 39 2b 31 29 2b 63 6f 73 28 73 69 6e 28 70 2a 2e 31 34 31 29 29 3b | *cos(p*.179+1)+cos(sin(p*.141)); |
0820 | 0d 0a 6f 79 3d 2d 2e 39 2b 73 69 6e 28 70 2a 2e 31 35 29 2a 63 6f 73 28 2d 70 2a 2e 37 31 29 2a | ..oy=-.9+sin(p*.15)*cos(-p*.71)* |
0840 | 2e 34 3b 0d 0a 6f 7a 3d 2d 28 73 69 6e 28 70 29 2a 63 6f 73 28 2d 70 2a 2e 34 31 29 2b 73 69 6e | .4;..oz=-(sin(p)*cos(-p*.41)+sin |
0860 | 28 63 6f 73 28 70 2a 2e 36 33 31 29 29 29 2a 31 2e 35 3b 0d 0a 6f 74 3d 2e 35 2b 2e 36 2f 73 71 | (cos(p*.631)))*1.5;..ot=.5+.6/sq |
0880 | 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 3b 0d 0a 6f 78 3d 6f 78 2a 6f 74 3b 6f | rt(sqr(ox)+sqr(oz));..ox=ox*ot;o |
08a0 | 7a 3d 6f 7a 2a 6f 74 3b 0d 0a 0d 0a 72 65 67 30 30 3d 6f 78 3b 72 65 67 30 31 3d 6f 79 3b 72 65 | z=oz*ot;....reg00=ox;reg01=oy;re |
08c0 | 67 30 32 3d 6f 7a 3b 0d 0a 72 65 67 30 33 3d 72 78 3b 72 65 67 30 34 3d 72 79 3b 0d 0a 72 65 67 | g02=oz;..reg03=rx;reg04=ry;..reg |
08e0 | 31 30 3d 63 78 3b 72 65 67 31 31 3d 73 78 3b 0d 0a 72 65 67 31 32 3d 63 79 3b 72 65 67 31 33 3d | 10=cx;reg11=sx;..reg12=cy;reg13= |
0900 | 73 79 3b 0d 0a 72 65 67 32 30 3d 77 2f 68 3b 72 65 67 32 31 3d 68 2f 77 3b 0d 0a 00 17 00 00 00 | sy;..reg20=w/h;reg21=h/w;....... |
0920 | 74 69 3d 2e 31 2a 67 65 74 73 70 65 63 28 30 2c 2e 33 2c 30 29 3b 00 15 00 00 00 6e 3d 30 3b 2f | ti=.1*getspec(0,.3,0);.....n=0;/ |
0940 | 2f 20 43 61 6d 65 72 61 20 67 6c 6f 62 61 6c 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 | /.Camera.global................. |
0960 | fe ff ff ff 8e 01 00 00 80 00 00 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ............$................... |
0980 | 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 |
09a0 | 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 00 | .List.Config.................... |
09c0 | 00 24 00 00 00 15 01 00 00 01 bf 00 00 00 78 3d 72 61 6e 64 28 31 30 30 30 29 2a 2e 30 30 32 2d | .$............x=rand(1000)*.002- |
09e0 | 31 3b 0d 0a 79 3d 72 61 6e 64 28 31 30 30 30 29 2a 2e 30 30 32 2d 31 3b 0d 0a 0d 0a 63 76 31 3d | 1;..y=rand(1000)*.002-1;....cv1= |
0a00 | 73 71 72 28 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 3b 63 76 32 3d 72 61 6e 64 28 31 30 30 29 | sqr(rand(100)*.01);cv2=rand(100) |
0a20 | 2a 2e 30 31 3b 0d 0a 67 72 65 65 6e 3d 63 76 31 2a 2e 39 2b 2e 31 3b 72 65 64 3d 63 76 32 2a 2e | *.01;..green=cv1*.9+.1;red=cv2*. |
0a40 | 32 2b 67 72 65 65 6e 2a 28 2e 34 2b 73 69 6e 28 74 29 2a 2e 34 29 3b 62 6c 75 65 3d 2e 30 35 3b | 2+green*(.4+sin(t)*.4);blue=.05; |
0a60 | 0d 0a 69 66 28 72 61 6e 64 28 31 30 30 29 2c 30 2c 61 73 73 69 67 6e 28 72 65 64 2c 72 61 6e 64 | ..if(rand(100),0,assign(red,rand |
0a80 | 28 31 30 30 29 2a 2e 30 31 29 29 3b 00 22 00 00 00 6e 3d 69 66 28 65 2c 35 30 30 30 30 2c 32 30 | (100)*.01));."...n=if(e,50000,20 |
0aa0 | 30 29 3b 0d 0a 65 3d 30 3b 74 3d 74 2b 2e 30 30 35 3b 00 00 00 00 00 13 00 00 00 65 3d 31 3b 2f | 0);..e=0;t=t+.005;.........e=1;/ |
0ac0 | 2f 20 47 72 61 73 73 0d 0a 74 3d 35 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 12 00 | /.Grass..t=5;................... |
0ae0 | 00 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 19 00 00 00 14 00 00 00 01 00 | ................................ |
0b00 | 00 00 f1 df 7a 00 00 00 00 00 00 00 00 00 00 00 00 00 2b 00 00 00 6d 01 00 00 01 ca 00 00 00 64 | ....z.............+...m........d |
0b20 | 79 3d 79 2a 69 61 66 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 73 78 3b 64 7a 32 3d 64 79 2a 73 78 | y=y*iaf;..dy2=dy*cx-sx;dz2=dy*sx |
0b40 | 2b 63 78 3b 0d 0a 64 78 33 3d 78 2a 63 79 2d 64 7a 32 2a 73 79 3b 64 7a 33 3d 78 2a 73 79 2b 64 | +cx;..dx3=x*cy-dz2*sy;dz3=x*sy+d |
0b60 | 7a 32 2a 63 79 3b 0d 0a 0d 0a 6b 3d 2d 6f 79 2f 64 79 32 3b 0d 0a 69 78 3d 6f 78 2b 64 78 33 2a | z2*cy;....k=-oy/dy2;..ix=ox+dx3* |
0b80 | 6b 3b 69 79 3d 6f 79 2b 64 79 32 2a 6b 3b 69 7a 3d 6f 7a 2b 64 7a 33 2a 6b 3b 0d 0a 78 3d 28 69 | k;iy=oy+dy2*k;iz=oz+dz3*k;..x=(i |
0ba0 | 78 2b 72 65 67 31 38 29 2a 2e 35 3b 79 3d 28 69 7a 2b 72 65 67 31 39 29 2a 2e 35 3b 0d 0a 61 6c | x+reg18)*.5;y=(iz+reg19)*.5;..al |
0bc0 | 70 68 61 3d 6d 61 78 28 30 2c 6d 69 6e 28 31 2c 31 2e 38 2d 6b 2a 2e 35 29 29 2a 61 62 6f 76 65 | pha=max(0,min(1,1.8-k*.5))*above |
0be0 | 28 6b 2c 30 29 3b 0d 0a 00 6d 00 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f | (k,0);...m...ox=reg00;oy=reg01;o |
0c00 | 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 0d 0a 63 78 | z=reg02;..rx=reg03;ry=reg04;..cx |
0c20 | 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 | =reg10;sx=reg11;..cy=reg12;sy=re |
0c40 | 67 31 33 3b 0d 0a 61 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 00 00 00 00 00 05 00 | g13;..af=reg20;iaf=reg21;....... |
0c60 | 00 00 74 3d 30 3b 00 01 00 00 00 01 00 00 00 01 00 00 00 0e 00 00 00 01 00 00 00 01 00 00 00 01 | ..t=0;.......................... |
0c80 | 00 00 00 00 00 00 00 15 00 00 00 04 00 00 00 00 00 00 00 2b 00 00 00 e0 01 00 00 01 3d 01 00 00 | ...................+........=... |
0ca0 | 2f 2f 20 52 61 79 74 72 61 63 65 0d 0a 64 79 3d 79 2a 69 61 66 3b 0d 0a 64 79 32 3d 64 79 2a 63 | //.Raytrace..dy=y*iaf;..dy2=dy*c |
0cc0 | 78 2d 73 78 3b 64 7a 32 3d 64 79 2a 73 78 2b 63 78 3b 0d 0a 64 78 33 3d 78 2a 63 79 2d 64 7a 32 | x-sx;dz2=dy*sx+cx;..dx3=x*cy-dz2 |
0ce0 | 2a 73 79 3b 64 7a 33 3d 78 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d 0a 0d 0a 6b 3d 2d 6f 79 2f 64 79 | *sy;dz3=x*sy+dz2*cy;....k=-oy/dy |
0d00 | 32 3b 0d 0a 0d 0a 2f 2f 20 50 72 6f 6a 65 63 74 20 69 6e 74 6f 20 77 6f 72 6c 64 0d 0a 70 78 3d | 2;....//.Project.into.world..px= |
0d20 | 64 78 33 2a 6b 3b 70 79 3d 64 79 32 2a 6b 2b 2e 30 32 35 3b 70 7a 3d 64 7a 33 2a 6b 3b 0d 0a 0d | dx3*k;py=dy2*k+.025;pz=dz3*k;... |
0d40 | 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b | .x1=px*cy+pz*sy;z1=-px*sy+pz*cy; |
0d60 | 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 | ..y2=py*cx+z1*sx;z2=-py*sx+z1*cx |
0d80 | 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d | ;..dt=if(above(z2,.01),1/z2,0);. |
0da0 | 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a | .x=if(dt,x1*dt,x);y=if(dt,y2*dt* |
0dc0 | 61 66 2c 79 29 3b 0d 0a 61 6c 70 68 61 3d 61 62 6f 76 65 28 6b 2c 30 29 2a 2e 35 3b 00 6d 00 00 | af,y);..alpha=above(k,0)*.5;.m.. |
0de0 | 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 | .ox=reg00;oy=reg01;oz=reg02;..rx |
0e00 | 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 0d 0a 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 | =reg03;ry=reg04;..cx=reg10;sx=re |
0e20 | 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a 61 66 3d 72 65 67 | g11;..cy=reg12;sy=reg13;..af=reg |
0e40 | 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 00 00 00 00 00 05 00 00 00 74 3d 30 3b 00 01 00 00 00 01 | 20;iaf=reg21;.........t=0;...... |
0e60 | 00 00 00 01 00 00 00 18 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2b 00 00 00 df | ...........................+.... |
0e80 | 01 00 00 01 3c 01 00 00 2f 2f 20 52 61 79 74 72 61 63 65 0d 0a 64 79 3d 79 2a 69 61 66 3b 0d 0a | ....<...//.Raytrace..dy=y*iaf;.. |
0ea0 | 64 79 32 3d 64 79 2a 63 78 2d 73 78 3b 64 7a 32 3d 64 79 2a 73 78 2b 63 78 3b 0d 0a 64 78 33 3d | dy2=dy*cx-sx;dz2=dy*sx+cx;..dx3= |
0ec0 | 78 2a 63 79 2d 64 7a 32 2a 73 79 3b 64 7a 33 3d 78 2a 73 79 2b 64 7a 32 2a 63 79 3b 0d 0a 0d 0a | x*cy-dz2*sy;dz3=x*sy+dz2*cy;.... |
0ee0 | 6b 3d 2d 6f 79 2f 64 79 32 3b 0d 0a 0d 0a 2f 2f 20 50 72 6f 6a 65 63 74 20 69 6e 74 6f 20 77 6f | k=-oy/dy2;....//.Project.into.wo |
0f00 | 72 6c 64 0d 0a 70 78 3d 64 78 33 2a 6b 3b 70 79 3d 64 79 32 2a 6b 2b 2e 30 35 3b 70 7a 3d 64 7a | rld..px=dx3*k;py=dy2*k+.05;pz=dz |
0f20 | 33 2a 6b 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 | 3*k;....x1=px*cy+pz*sy;z1=-px*sy |
0f40 | 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 | +pz*cy;..y2=py*cx+z1*sx;z2=-py*s |
0f60 | 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f | x+z1*cx;..dt=if(above(z2,.01),1/ |
0f80 | 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 | z2,0);..x=if(dt,x1*dt,x);y=if(dt |
0fa0 | 2c 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 61 6c 70 68 61 3d 61 62 6f 76 65 28 6b 2c 30 29 2a | ,y2*dt*af,y);..alpha=above(k,0)* |
0fc0 | 2e 35 3b 00 6d 00 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 | .5;.m...ox=reg00;oy=reg01;oz=reg |
0fe0 | 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 0d 0a 63 78 3d 72 65 67 31 | 02;..rx=reg03;ry=reg04;..cx=reg1 |
1000 | 30 3b 73 78 3d 72 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d | 0;sx=reg11;..cy=reg12;sy=reg13;. |
1020 | 0a 61 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 00 00 00 00 00 05 00 00 00 74 3d 30 | .af=reg20;iaf=reg21;.........t=0 |
1040 | 3b 00 01 00 00 00 01 00 00 00 01 00 00 00 18 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 | ;............................... |
1060 | 00 00 2b 00 00 00 de 01 00 00 01 3b 01 00 00 2f 2f 20 52 61 79 74 72 61 63 65 0d 0a 64 79 3d 79 | ..+........;...//.Raytrace..dy=y |
1080 | 2a 69 61 66 3b 0d 0a 64 79 32 3d 64 79 2a 63 78 2d 73 78 3b 64 7a 32 3d 64 79 2a 73 78 2b 63 78 | *iaf;..dy2=dy*cx-sx;dz2=dy*sx+cx |
10a0 | 3b 0d 0a 64 78 33 3d 78 2a 63 79 2d 64 7a 32 2a 73 79 3b 64 7a 33 3d 78 2a 73 79 2b 64 7a 32 2a | ;..dx3=x*cy-dz2*sy;dz3=x*sy+dz2* |
10c0 | 63 79 3b 0d 0a 0d 0a 6b 3d 2d 6f 79 2f 64 79 32 3b 0d 0a 0d 0a 2f 2f 20 50 72 6f 6a 65 63 74 20 | cy;....k=-oy/dy2;....//.Project. |
10e0 | 69 6e 74 6f 20 77 6f 72 6c 64 0d 0a 70 78 3d 64 78 33 2a 6b 3b 70 79 3d 64 79 32 2a 6b 2b 2e 31 | into.world..px=dx3*k;py=dy2*k+.1 |
1100 | 3b 70 7a 3d 64 7a 33 2a 6b 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d | ;pz=dz3*k;....x1=px*cy+pz*sy;z1= |
1120 | 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 | -px*sy+pz*cy;..y2=py*cx+z1*sx;z2 |
1140 | 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e | =-py*sx+z1*cx;..dt=if(above(z2,. |
1160 | 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 | 01),1/z2,0);..x=if(dt,x1*dt,x);y |
1180 | 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 61 6c 70 68 61 3d 61 62 6f 76 65 | =if(dt,y2*dt*af,y);..alpha=above |
11a0 | 28 6b 2c 30 29 2a 2e 35 3b 00 6d 00 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b | (k,0)*.5;.m...ox=reg00;oy=reg01; |
11c0 | 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 0d 0a 63 | oz=reg02;..rx=reg03;ry=reg04;..c |
11e0 | 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 | x=reg10;sx=reg11;..cy=reg12;sy=r |
1200 | 65 67 31 33 3b 0d 0a 61 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 00 00 00 00 00 05 | eg13;..af=reg20;iaf=reg21;...... |
1220 | 00 00 00 74 3d 30 3b 00 01 00 00 00 01 00 00 00 01 00 00 00 18 00 00 00 01 00 00 00 00 00 00 00 | ...t=0;......................... |
1240 | 00 00 00 00 00 00 00 00 24 00 00 00 50 03 00 00 01 00 00 00 00 54 02 00 00 6f 78 3d 72 65 67 30 | ........$...P........T...ox=reg0 |
1260 | 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 | 0;oy=reg01;oz=reg02;..rx=reg03;r |
1280 | 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 74 72 79 3d 74 72 79 2b 73 69 6e 28 6d | y=reg04;rz=reg05;..try=try+sin(m |
12a0 | 69 6e 28 32 2c 61 62 73 28 72 79 2d 6c 72 79 29 29 2a 73 69 67 6e 28 72 79 2d 6c 72 79 29 2d 74 | in(2,abs(ry-lry))*sign(ry-lry)-t |
12c0 | 72 79 29 2a 2e 32 3b 0d 0a 74 3d 74 2b 2e 37 2b 76 62 2a 2e 31 32 3b 63 72 79 3d 73 69 6e 28 74 | ry)*.2;..t=t+.7+vb*.12;cry=sin(t |
12e0 | 29 3b 64 74 3d 64 74 2b 2e 31 2b 64 74 69 3b 64 74 69 3d 64 74 69 2a 2e 39 3b 0d 0a 64 72 79 3d | );dt=dt+.1+dti;dti=dti*.9;..dry= |
1300 | 72 79 2b 73 69 6e 28 74 2a 2e 30 35 2b 73 69 6e 28 74 2a 2e 31 33 29 29 2a 2e 32 2b 74 72 79 3b | ry+sin(t*.05+sin(t*.13))*.2+try; |
1320 | 0d 0a 76 65 72 74 3d 76 65 72 74 2a 2e 35 2b 2e 35 2a 28 31 2d 61 62 73 28 73 69 6e 28 74 2a 2e | ..vert=vert*.5+.5*(1-abs(sin(t*. |
1340 | 32 35 29 29 29 3b 0d 0a 64 7a 3d 64 7a 2a 2e 39 2b 64 73 74 2a 2e 31 3b 76 62 3d 76 62 2a 2e 39 | 25)));..dz=dz*.9+dst*.1;vb=vb*.9 |
1360 | 3b 74 74 3d 74 74 2d 74 74 69 3b 74 74 69 3d 74 74 69 2a 2e 39 2b 67 65 74 73 70 65 63 28 30 2c | ;tt=tt-tti;tti=tti*.9+getspec(0, |
1380 | 2e 31 2c 30 29 2a 2e 31 35 3b 0d 0a 0d 0a 6c 72 79 3d 72 79 3b 0d 0a 76 76 62 3d 76 76 62 2a 2e | .1,0)*.15;....lry=ry;..vvb=vvb*. |
13a0 | 38 2b 76 62 2a 2e 35 3b 0d 0a 72 65 67 33 32 3d 63 72 79 3b 72 65 67 33 33 3d 64 72 79 3b 72 65 | 8+vb*.5;..reg32=cry;reg33=dry;re |
13c0 | 67 33 34 3d 76 65 72 74 2d 76 76 62 2b 31 3b 72 65 67 33 35 3d 64 7a 3b 72 65 67 33 36 3d 74 74 | g34=vert-vvb+1;reg35=dz;reg36=tt |
13e0 | 3b 0d 0a 72 65 67 33 37 3d 73 69 6e 28 68 75 29 2a 2e 35 2b 2e 39 3b 72 65 67 33 38 3d 73 69 6e | ;..reg37=sin(hu)*.5+.9;reg38=sin |
1400 | 28 68 75 2b 32 2e 30 39 29 2a 2e 35 2b 2e 35 3b 72 65 67 33 39 3d 73 69 6e 28 68 75 2b 34 2e 31 | (hu+2.09)*.5+.5;reg39=sin(hu+4.1 |
1420 | 38 29 2a 2e 34 2b 2e 32 3b 0d 0a 72 65 67 33 38 3d 73 71 72 28 72 65 67 33 38 29 3b 0d 0a 68 75 | 8)*.4+.2;..reg38=sqr(reg38);..hu |
1440 | 3d 68 75 2b 2e 30 32 3b 0d 0a 0d 0a 76 78 3d 76 78 2a 2e 39 2b 28 74 78 2d 62 63 78 29 2a 2e 31 | =hu+.02;....vx=vx*.9+(tx-bcx)*.1 |
1460 | 3b 62 63 78 3d 62 63 78 2b 76 78 2a 2e 31 3b 0d 0a 76 79 3d 76 79 2a 2e 39 2b 28 74 79 2d 62 63 | ;bcx=bcx+vx*.1;..vy=vy*.9+(ty-bc |
1480 | 79 29 2a 2e 31 3b 62 63 79 3d 62 63 79 2b 76 79 2a 2e 31 3b 0d 0a 72 65 67 34 30 3d 62 63 78 2a | y)*.1;bcy=bcy+vy*.1;..reg40=bcx* |
14a0 | 33 3b 72 65 67 34 31 3d 62 63 79 3b 00 ae 00 00 00 64 73 74 3d 72 61 6e 64 28 31 30 30 29 2a 2e | 3;reg41=bcy;.....dst=rand(100)*. |
14c0 | 30 34 2b 31 3b 64 74 69 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 3b 76 62 3d 72 61 6e 64 28 31 | 04+1;dti=rand(100)*.01;vb=rand(1 |
14e0 | 30 30 29 2a 2e 30 31 3b 0d 0a 68 75 3d 68 75 2b 72 61 6e 64 28 36 32 38 29 2a 2e 30 31 3b 0d 0a | 00)*.01;..hu=hu+rand(628)*.01;.. |
1500 | 74 78 3d 28 72 61 6e 64 28 32 30 30 29 2a 2e 30 31 2d 31 29 2a 6d 69 6e 28 31 2c 67 65 74 73 70 | tx=(rand(200)*.01-1)*min(1,getsp |
1520 | 65 63 28 30 2c 2e 35 2c 30 29 2a 33 29 3b 0d 0a 74 79 3d 28 72 61 6e 64 28 32 30 30 29 2a 2e 30 | ec(0,.5,0)*3);..ty=(rand(200)*.0 |
1540 | 31 2d 31 29 2a 6d 69 6e 28 31 2c 67 65 74 73 70 65 63 28 30 2c 2e 35 2c 30 29 2a 33 29 3b 00 2d | 1-1)*min(1,getspec(0,.5,0)*3);.- |
1560 | 00 00 00 6e 3d 30 3b 2f 2f 20 42 75 74 74 65 72 66 6c 79 20 63 61 6c 63 75 6c 61 74 69 6f 6e 73 | ...n=0;//.Butterfly.calculations |
1580 | 0d 0a 64 7a 3d 31 3b 64 73 74 3d 31 2e 35 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 | ..dz=1;dst=1.5;................. |
15a0 | 24 00 00 00 bb 04 00 00 01 62 03 00 00 75 3d 69 3b 0d 0a 2f 2f 20 57 69 6e 67 20 73 68 61 70 65 | $........b...u=i;..//.Wing.shape |
15c0 | 0d 0a 69 3d 69 2a 34 2e 33 35 3b 0d 0a 75 31 3d 62 65 6c 6f 77 28 69 2c 31 29 3b 63 3d 62 6e 6f | ..i=i*4.35;..u1=below(i,1);c=bno |
15e0 | 74 28 75 31 29 3b 75 32 3d 63 2a 62 65 6c 6f 77 28 69 2c 32 29 3b 63 3d 63 2a 62 6e 6f 74 28 75 | t(u1);u2=c*below(i,2);c=c*bnot(u |
1600 | 32 29 3b 0d 0a 75 33 3d 63 2a 62 65 6c 6f 77 28 69 2c 33 29 3b 63 3d 63 2a 62 6e 6f 74 28 75 33 | 2);..u3=c*below(i,3);c=c*bnot(u3 |
1620 | 29 3b 75 34 3d 63 2a 62 65 6c 6f 77 28 69 2c 34 29 3b 63 3d 63 2a 62 6e 6f 74 28 75 34 29 3b 75 | );u4=c*below(i,4);c=c*bnot(u4);u |
1640 | 35 3d 63 3b 0d 0a 69 3d 69 2d 75 32 2d 75 33 2a 32 2d 75 34 2a 33 2d 75 35 2a 34 3b 73 69 3d 73 | 5=c;..i=i-u2-u3*2-u4*3-u5*4;si=s |
1660 | 71 72 28 69 29 3b 0d 0a 70 78 3d 75 31 2a 69 2b 75 32 2a 28 31 2b 69 2a 2e 31 2d 73 69 2a 2e 33 | qr(i);..px=u1*i+u2*(1+i*.1-si*.3 |
1680 | 29 2b 75 33 2a 28 2e 38 2b 69 2a 2e 35 2d 73 69 2a 2e 37 29 2b 75 34 2a 28 2e 36 2d 69 2a 31 2e | )+u3*(.8+i*.5-si*.7)+u4*(.6-i*1. |
16a0 | 31 2b 73 69 2a 2e 35 29 3b 0d 0a 70 79 3d 2d 75 31 2a 28 69 2a 31 2e 33 2d 73 69 2a 2e 35 2b 2e | 1+si*.5);..py=-u1*(i*1.3-si*.5+. |
16c0 | 32 29 2d 75 32 2a 28 31 2d 69 2a 31 2e 31 29 2d 75 33 2a 28 2d 69 2a 2e 38 2d 2e 31 29 2b 75 34 | 2)-u2*(1-i*1.1)-u3*(-i*.8-.1)+u4 |
16e0 | 2a 28 2e 39 2d 69 2a 2e 37 29 2b 75 35 2a 28 2e 32 2d 69 2a 31 2e 31 29 3b 0d 0a 2f 2f 20 46 69 | *(.9-i*.7)+u5*(.2-i*1.1);..//.Fi |
1700 | 6c 6c 69 6e 67 0d 0a 71 78 3d 69 66 28 69 70 2c 70 78 2c 2e 30 35 29 3b 71 79 3d 69 66 28 69 70 | lling..qx=if(ip,px,.05);qy=if(ip |
1720 | 2c 70 79 2c 30 29 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c 61 70 70 69 6e 67 0d 0a 70 78 3d 71 78 | ,py,0);qz=0;..//.Flapping..px=qx |
1740 | 2a 63 63 79 2b 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 71 78 2a 73 73 79 2d 71 7a 2a 63 63 79 3b 0d | *ccy+qz*ssy;..qz=qx*ssy-qz*ccy;. |
1760 | 0a 2f 2f 20 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 2d 71 7a 2a 2e 38 36 2b 76 65 72 74 2b 2e | .//.Tilt..py=qy*.5-qz*.86+vert+. |
1780 | 35 3b 70 7a 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 2b 31 2b 64 7a 2b 72 65 67 34 31 3b 70 78 | 5;pz=-qy*.86-qz*.5+1+dz+reg41;px |
17a0 | 3d 70 78 2b 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 65 6e 74 61 74 69 6f 6e 0d 0a 71 78 3d 70 | =px+reg40;..//.Orientation..qx=p |
17c0 | 78 2a 64 63 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d 70 78 2a 64 73 79 2b 70 7a 2a 64 63 79 3b | x*dcy-pz*dsy;..qz=px*dsy+pz*dcy; |
17e0 | 0d 0a 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 0d 0a 70 78 3d 71 78 2d 6f 78 3b 70 79 3d | ....ip=bnot(ip);....px=qx-ox;py= |
1800 | 70 79 2d 6f 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 | py-oy;pz=qz-oz;....x1=px*cy+pz*s |
1820 | 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a | y;z1=-px*sy+pz*cy;..y2=py*cx+z1* |
1840 | 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 | sx;z2=-py*sx+z1*cx;..dt=if(above |
1860 | 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 | (z2,.01),1/z2,0);..x=if(dt,x1*dt |
1880 | 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 0d 0a 6c 69 6e 65 | ,x);y=if(dt,y2*dt*af,y);....line |
18a0 | 73 69 7a 65 3d 6c 73 2a 31 36 2a 64 74 3b 0d 0a 63 76 3d 73 71 72 28 73 69 6e 28 75 2a 24 70 69 | size=ls*16*dt;..cv=sqr(sin(u*$pi |
18c0 | 2a 38 2b 72 65 67 33 36 29 2a 2e 35 2b 2e 35 29 2a 2e 37 35 2b 2e 32 35 3b 0d 0a 72 65 64 3d 72 | *8+reg36)*.5+.5)*.75+.25;..red=r |
18e0 | 65 67 33 37 2a 63 76 2b 2e 35 3b 67 72 65 65 6e 3d 72 65 67 33 38 2a 63 76 2b 2e 32 3b 62 6c 75 | eg37*cv+.5;green=reg38*cv+.2;blu |
1900 | 65 3d 72 65 67 33 39 2a 63 76 2a 2e 33 3b 00 19 01 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 | e=reg39*cv*.3;.....ox=reg00;oy=r |
1920 | 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 | eg01;oz=reg02;..rx=reg03;ry=reg0 |
1940 | 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 3b 0d | 4;rz=reg05;..cx=reg10;sx=reg11;. |
1960 | 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a 63 72 79 3d 72 65 67 33 32 3b 64 | .cy=reg12;sy=reg13;..cry=reg32;d |
1980 | 72 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 65 67 33 34 3b 64 7a 3d 72 65 67 33 35 3b 0d 0a 63 | ry=reg33;vert=reg34;dz=reg35;..c |
19a0 | 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 3d 73 69 6e 28 63 72 79 29 3b 0d 0a 64 63 79 3d 63 | cy=cos(cry);ssy=sin(cry);..dcy=c |
19c0 | 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e 28 64 72 79 29 3b 0d 0a 0d 0a 61 66 3d 72 65 67 32 | os(dry);dsy=sin(dry);....af=reg2 |
19e0 | 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d 0a 66 78 3d 66 78 2d 6f 78 2a 2e 30 35 3b 66 7a 3d | 0;iaf=reg21;....fx=fx-ox*.05;fz= |
1a00 | 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 31 38 3d 66 78 3b 72 65 67 31 39 3d 66 7a 3b 0d 0a | fz-oz*.05;..reg18=fx;reg19=fz;.. |
1a20 | 0d 0a 6c 73 3d 77 2f 33 32 30 3b 00 00 00 00 00 1f 00 00 00 6e 3d 32 30 30 3b 20 2f 2f 20 52 69 | ..ls=w/320;.........n=200;.//.Ri |
1a40 | 67 68 74 20 77 69 6e 67 20 66 69 6c 6c 69 6e 67 0d 0a 00 02 00 00 00 01 00 00 00 00 6b d7 00 01 | ght.wing.filling............k... |
1a60 | 00 00 00 24 00 00 00 bd 04 00 00 01 65 03 00 00 75 3d 69 3b 0d 0a 2f 2f 20 57 69 6e 67 20 73 68 | ...$........e...u=i;..//.Wing.sh |
1a80 | 61 70 65 0d 0a 69 3d 69 2a 34 2e 33 35 3b 0d 0a 75 31 3d 62 65 6c 6f 77 28 69 2c 31 29 3b 63 3d | ape..i=i*4.35;..u1=below(i,1);c= |
1aa0 | 62 6e 6f 74 28 75 31 29 3b 75 32 3d 63 2a 62 65 6c 6f 77 28 69 2c 32 29 3b 63 3d 63 2a 62 6e 6f | bnot(u1);u2=c*below(i,2);c=c*bno |
1ac0 | 74 28 75 32 29 3b 0d 0a 75 33 3d 63 2a 62 65 6c 6f 77 28 69 2c 33 29 3b 63 3d 63 2a 62 6e 6f 74 | t(u2);..u3=c*below(i,3);c=c*bnot |
1ae0 | 28 75 33 29 3b 75 34 3d 63 2a 62 65 6c 6f 77 28 69 2c 34 29 3b 63 3d 63 2a 62 6e 6f 74 28 75 34 | (u3);u4=c*below(i,4);c=c*bnot(u4 |
1b00 | 29 3b 75 35 3d 63 3b 0d 0a 69 3d 69 2d 75 32 2d 75 33 2a 32 2d 75 34 2a 33 2d 75 35 2a 34 3b 73 | );u5=c;..i=i-u2-u3*2-u4*3-u5*4;s |
1b20 | 69 3d 73 71 72 28 69 29 3b 0d 0a 70 78 3d 75 31 2a 69 2b 75 32 2a 28 31 2b 69 2a 2e 31 2d 73 69 | i=sqr(i);..px=u1*i+u2*(1+i*.1-si |
1b40 | 2a 2e 33 29 2b 75 33 2a 28 2e 38 2b 69 2a 2e 35 2d 73 69 2a 2e 37 29 2b 75 34 2a 28 2e 36 2d 69 | *.3)+u3*(.8+i*.5-si*.7)+u4*(.6-i |
1b60 | 2a 31 2e 31 2b 73 69 2a 2e 35 29 3b 0d 0a 70 79 3d 2d 75 31 2a 28 69 2a 31 2e 33 2d 73 69 2a 2e | *1.1+si*.5);..py=-u1*(i*1.3-si*. |
1b80 | 35 2b 2e 32 29 2d 75 32 2a 28 31 2d 69 2a 31 2e 31 29 2d 75 33 2a 28 2d 69 2a 2e 38 2d 2e 31 29 | 5+.2)-u2*(1-i*1.1)-u3*(-i*.8-.1) |
1ba0 | 2b 75 34 2a 28 2e 39 2d 69 2a 2e 37 29 2b 75 35 2a 28 2e 32 2d 69 2a 31 2e 31 29 3b 0d 0a 2f 2f | +u4*(.9-i*.7)+u5*(.2-i*1.1);..// |
1bc0 | 20 46 69 6c 6c 69 6e 67 0d 0a 71 78 3d 69 66 28 69 70 2c 2d 70 78 2c 2d 2e 30 35 29 3b 71 79 3d | .Filling..qx=if(ip,-px,-.05);qy= |
1be0 | 69 66 28 69 70 2c 70 79 2c 30 29 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c 61 70 70 69 6e 67 0d 0a | if(ip,py,0);qz=0;..//.Flapping.. |
1c00 | 70 78 3d 71 78 2a 63 63 79 2d 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 2d 71 78 2a 73 73 79 2d 71 7a | px=qx*ccy-qz*ssy;..qz=-qx*ssy-qz |
1c20 | 2a 63 63 79 3b 0d 0a 2f 2f 20 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 2d 71 7a 2a 2e 38 36 2b | *ccy;..//.Tilt..py=qy*.5-qz*.86+ |
1c40 | 76 65 72 74 2b 2e 35 3b 70 7a 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 2b 31 2b 64 7a 2b 72 65 | vert+.5;pz=-qy*.86-qz*.5+1+dz+re |
1c60 | 67 34 31 3b 70 78 3d 70 78 2b 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 65 6e 74 61 74 69 6f 6e | g41;px=px+reg40;..//.Orientation |
1c80 | 0d 0a 71 78 3d 70 78 2a 64 63 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d 70 78 2a 64 73 79 2b 70 | ..qx=px*dcy-pz*dsy;..qz=px*dsy+p |
1ca0 | 7a 2a 64 63 79 3b 0d 0a 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 0d 0a 70 78 3d 71 78 2d | z*dcy;....ip=bnot(ip);....px=qx- |
1cc0 | 6f 78 3b 70 79 3d 70 79 2d 6f 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 | ox;py=py-oy;pz=qz-oz;....x1=px*c |
1ce0 | 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a | y+pz*sy;z1=-px*sy+pz*cy;..y2=py* |
1d00 | 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 | cx+z1*sx;z2=-py*sx+z1*cx;..dt=if |
1d20 | 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 | (above(z2,.01),1/z2,0);..x=if(dt |
1d40 | 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a | ,x1*dt,x);y=if(dt,y2*dt*af,y);.. |
1d60 | 0d 0a 6c 69 6e 65 73 69 7a 65 3d 6c 73 2a 31 36 2a 64 74 3b 0d 0a 63 76 3d 73 71 72 28 73 69 6e | ..linesize=ls*16*dt;..cv=sqr(sin |
1d80 | 28 75 2a 24 70 69 2a 38 2b 72 65 67 33 36 29 2a 2e 35 2b 2e 35 29 2a 2e 37 35 2b 2e 32 35 3b 0d | (u*$pi*8+reg36)*.5+.5)*.75+.25;. |
1da0 | 0a 72 65 64 3d 72 65 67 33 37 2a 63 76 2b 2e 35 3b 67 72 65 65 6e 3d 72 65 67 33 38 2a 63 76 2b | .red=reg37*cv+.5;green=reg38*cv+ |
1dc0 | 2e 32 3b 62 6c 75 65 3d 72 65 67 33 39 2a 63 76 2a 2e 33 3b 00 19 01 00 00 6f 78 3d 72 65 67 30 | .2;blue=reg39*cv*.3;.....ox=reg0 |
1de0 | 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 | 0;oy=reg01;oz=reg02;..rx=reg03;r |
1e00 | 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 | y=reg04;rz=reg05;..cx=reg10;sx=r |
1e20 | 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a 63 72 79 3d 72 | eg11;..cy=reg12;sy=reg13;..cry=r |
1e40 | 65 67 33 32 3b 64 72 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 65 67 33 34 3b 64 7a 3d 72 65 67 | eg32;dry=reg33;vert=reg34;dz=reg |
1e60 | 33 35 3b 0d 0a 63 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 3d 73 69 6e 28 63 72 79 29 3b 0d | 35;..ccy=cos(cry);ssy=sin(cry);. |
1e80 | 0a 64 63 79 3d 63 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e 28 64 72 79 29 3b 0d 0a 0d 0a 61 | .dcy=cos(dry);dsy=sin(dry);....a |
1ea0 | 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d 0a 66 78 3d 66 78 2d 6f 78 2a 2e | f=reg20;iaf=reg21;....fx=fx-ox*. |
1ec0 | 30 35 3b 66 7a 3d 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 31 38 3d 66 78 3b 72 65 67 31 39 | 05;fz=fz-oz*.05;..reg18=fx;reg19 |
1ee0 | 3d 66 7a 3b 0d 0a 0d 0a 6c 73 3d 77 2f 33 32 30 3b 00 00 00 00 00 1e 00 00 00 6e 3d 32 30 30 3b | =fz;....ls=w/320;.........n=200; |
1f00 | 20 2f 2f 20 4c 65 66 74 20 77 69 6e 67 20 66 69 6c 6c 69 6e 67 0d 0a 00 02 00 00 00 01 00 00 00 | .//.Left.wing.filling........... |
1f20 | 00 6b d7 00 01 00 00 00 24 00 00 00 82 04 00 00 01 2d 03 00 00 75 3d 69 3b 0d 0a 2f 2f 20 57 69 | .k......$........-...u=i;..//.Wi |
1f40 | 6e 67 20 73 68 61 70 65 0d 0a 69 3d 69 2a 34 2e 33 35 3b 0d 0a 75 31 3d 62 65 6c 6f 77 28 69 2c | ng.shape..i=i*4.35;..u1=below(i, |
1f60 | 31 29 3b 63 3d 62 6e 6f 74 28 75 31 29 3b 75 32 3d 63 2a 62 65 6c 6f 77 28 69 2c 32 29 3b 63 3d | 1);c=bnot(u1);u2=c*below(i,2);c= |
1f80 | 63 2a 62 6e 6f 74 28 75 32 29 3b 0d 0a 75 33 3d 63 2a 62 65 6c 6f 77 28 69 2c 33 29 3b 63 3d 63 | c*bnot(u2);..u3=c*below(i,3);c=c |
1fa0 | 2a 62 6e 6f 74 28 75 33 29 3b 75 34 3d 63 2a 62 65 6c 6f 77 28 69 2c 34 29 3b 63 3d 63 2a 62 6e | *bnot(u3);u4=c*below(i,4);c=c*bn |
1fc0 | 6f 74 28 75 34 29 3b 75 35 3d 63 3b 0d 0a 69 3d 69 2d 75 32 2d 75 33 2a 32 2d 75 34 2a 33 2d 75 | ot(u4);u5=c;..i=i-u2-u3*2-u4*3-u |
1fe0 | 35 2a 34 3b 73 69 3d 73 71 72 28 69 29 3b 0d 0a 70 78 3d 75 31 2a 69 2b 75 32 2a 28 31 2b 69 2a | 5*4;si=sqr(i);..px=u1*i+u2*(1+i* |
2000 | 2e 31 2d 73 69 2a 2e 33 29 2b 75 33 2a 28 2e 38 2b 69 2a 2e 35 2d 73 69 2a 2e 37 29 2b 75 34 2a | .1-si*.3)+u3*(.8+i*.5-si*.7)+u4* |
2020 | 28 2e 36 2d 69 2a 31 2e 31 2b 73 69 2a 2e 35 29 3b 0d 0a 70 79 3d 2d 75 31 2a 28 69 2a 31 2e 33 | (.6-i*1.1+si*.5);..py=-u1*(i*1.3 |
2040 | 2d 73 69 2a 2e 35 2b 2e 32 29 2d 75 32 2a 28 31 2d 69 2a 31 2e 31 29 2d 75 33 2a 28 2d 69 2a 2e | -si*.5+.2)-u2*(1-i*1.1)-u3*(-i*. |
2060 | 38 2d 2e 31 29 2b 75 34 2a 28 2e 39 2d 69 2a 2e 37 29 2b 75 35 2a 28 2e 32 2d 69 2a 31 2e 31 29 | 8-.1)+u4*(.9-i*.7)+u5*(.2-i*1.1) |
2080 | 3b 0d 0a 2f 2f 20 46 69 6c 6c 69 6e 67 0d 0a 71 78 3d 70 78 2a 31 2e 30 32 3b 71 79 3d 70 79 2a | ;..//.Filling..qx=px*1.02;qy=py* |
20a0 | 31 2e 30 35 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c 61 70 70 69 6e 67 0d 0a 70 78 3d 71 78 2a 63 | 1.05;qz=0;..//.Flapping..px=qx*c |
20c0 | 63 79 2b 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 71 78 2a 73 73 79 2d 71 7a 2a 63 63 79 3b 0d 0a 2f | cy+qz*ssy;..qz=qx*ssy-qz*ccy;../ |
20e0 | 2f 20 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 2d 71 7a 2a 2e 38 36 2b 76 65 72 74 2b 2e 35 3b | /.Tilt..py=qy*.5-qz*.86+vert+.5; |
2100 | 70 7a 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 2b 31 2b 64 7a 2b 72 65 67 34 31 3b 70 78 3d 70 | pz=-qy*.86-qz*.5+1+dz+reg41;px=p |
2120 | 78 2b 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 65 6e 74 61 74 69 6f 6e 0d 0a 71 78 3d 70 78 2a | x+reg40;..//.Orientation..qx=px* |
2140 | 64 63 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d 70 78 2a 64 73 79 2b 70 7a 2a 64 63 79 3b 0d 0a | dcy-pz*dsy;..qz=px*dsy+pz*dcy;.. |
2160 | 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 0d 0a 70 78 3d 71 78 2d 6f 78 3b 70 79 3d 70 79 | ..ip=bnot(ip);....px=qx-ox;py=py |
2180 | 2d 6f 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b | -oy;pz=qz-oz;....x1=px*cy+pz*sy; |
21a0 | 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 | z1=-px*sy+pz*cy;..y2=py*cx+z1*sx |
21c0 | 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a | ;z2=-py*sx+z1*cx;..dt=if(above(z |
21e0 | 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 | 2,.01),1/z2,0);..x=if(dt,x1*dt,x |
2200 | 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 | );y=if(dt,y2*dt*af,y);....linesi |
2220 | 7a 65 3d 6c 73 2a 32 3b 0d 0a 63 76 3d 73 71 72 28 73 69 6e 28 75 2a 24 70 69 2a 38 2b 74 2a 2e | ze=ls*2;..cv=sqr(sin(u*$pi*8+t*. |
2240 | 33 29 2a 2e 35 2b 2e 35 29 3b 0d 0a 72 65 64 3d 30 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 | 3)*.5+.5);..red=0;green=0;blue=0 |
2260 | 3b 00 19 01 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 | ;.....ox=reg00;oy=reg01;oz=reg02 |
2280 | 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a | ;..rx=reg03;ry=reg04;rz=reg05;.. |
22a0 | 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d | cx=reg10;sx=reg11;..cy=reg12;sy= |
22c0 | 72 65 67 31 33 3b 0d 0a 63 72 79 3d 72 65 67 33 32 3b 64 72 79 3d 72 65 67 33 33 3b 76 65 72 74 | reg13;..cry=reg32;dry=reg33;vert |
22e0 | 3d 72 65 67 33 34 3b 64 7a 3d 72 65 67 33 35 3b 0d 0a 63 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 | =reg34;dz=reg35;..ccy=cos(cry);s |
2300 | 73 79 3d 73 69 6e 28 63 72 79 29 3b 0d 0a 64 63 79 3d 63 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 | sy=sin(cry);..dcy=cos(dry);dsy=s |
2320 | 69 6e 28 64 72 79 29 3b 0d 0a 0d 0a 61 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d | in(dry);....af=reg20;iaf=reg21;. |
2340 | 0a 0d 0a 66 78 3d 66 78 2d 6f 78 2a 2e 30 35 3b 66 7a 3d 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 | ...fx=fx-ox*.05;fz=fz-oz*.05;..r |
2360 | 65 67 31 38 3d 66 78 3b 72 65 67 31 39 3d 66 7a 3b 0d 0a 0d 0a 6c 73 3d 77 2f 33 32 30 3b 00 00 | eg18=fx;reg19=fz;....ls=w/320;.. |
2380 | 00 00 00 1b 00 00 00 6e 3d 33 30 3b 20 2f 2f 20 52 69 67 68 74 20 77 69 6e 67 20 45 64 67 65 0d | .......n=30;.//.Right.wing.Edge. |
23a0 | 0a 00 02 00 00 00 01 00 00 00 00 6b d7 00 01 00 00 00 24 00 00 00 3c 03 00 00 01 f2 01 00 00 70 | ...........k......$...<........p |
23c0 | 78 3d 30 3b 70 79 3d 69 2d 2e 34 3b 0d 0a 2f 2f 20 46 69 6c 6c 69 6e 67 0d 0a 71 78 3d 70 78 2a | x=0;py=i-.4;..//.Filling..qx=px* |
23e0 | 31 2e 30 32 3b 71 79 3d 70 79 2a 31 2e 30 35 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c 61 70 70 69 | 1.02;qy=py*1.05;qz=0;..//.Flappi |
2400 | 6e 67 0d 0a 70 78 3d 71 78 2a 63 63 79 2b 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 71 78 2a 73 73 79 | ng..px=qx*ccy+qz*ssy;..qz=qx*ssy |
2420 | 2d 71 7a 2a 63 63 79 3b 0d 0a 2f 2f 20 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 2d 71 7a 2a 2e | -qz*ccy;..//.Tilt..py=qy*.5-qz*. |
2440 | 38 36 2b 76 65 72 74 2b 2e 35 3b 70 7a 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 2b 31 2b 64 7a | 86+vert+.5;pz=-qy*.86-qz*.5+1+dz |
2460 | 2b 72 65 67 34 31 3b 70 78 3d 70 78 2b 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 65 6e 74 61 74 | +reg41;px=px+reg40;..//.Orientat |
2480 | 69 6f 6e 0d 0a 71 78 3d 70 78 2a 64 63 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d 70 78 2a 64 73 | ion..qx=px*dcy-pz*dsy;..qz=px*ds |
24a0 | 79 2b 70 7a 2a 64 63 79 3b 0d 0a 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 0d 0a 70 78 3d | y+pz*dcy;....ip=bnot(ip);....px= |
24c0 | 71 78 2d 6f 78 3b 70 79 3d 70 79 2d 6f 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 3d 70 | qx-ox;py=py-oy;pz=qz-oz;....x1=p |
24e0 | 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d | x*cy+pz*sy;z1=-px*sy+pz*cy;..y2= |
2500 | 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 | py*cx+z1*sx;z2=-py*sx+z1*cx;..dt |
2520 | 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 | =if(above(z2,.01),1/z2,0);..x=if |
2540 | 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c 79 29 | (dt,x1*dt,x);y=if(dt,y2*dt*af,y) |
2560 | 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 6c 73 2a 31 32 2a 64 74 3b 0d 0a 63 76 3d 73 71 72 28 | ;....linesize=ls*12*dt;..cv=sqr( |
2580 | 73 69 6e 28 75 2a 24 70 69 2a 38 2b 74 2a 2e 33 29 2a 2e 35 2b 2e 35 29 3b 0d 0a 72 65 64 3d 30 | sin(u*$pi*8+t*.3)*.5+.5);..red=0 |
25a0 | 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 00 19 01 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 | ;green=0;blue=0;.....ox=reg00;oy |
25c0 | 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 | =reg01;oz=reg02;..rx=reg03;ry=re |
25e0 | 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 | g04;rz=reg05;..cx=reg10;sx=reg11 |
2600 | 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a 63 72 79 3d 72 65 67 33 32 | ;..cy=reg12;sy=reg13;..cry=reg32 |
2620 | 3b 64 72 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 65 67 33 34 3b 64 7a 3d 72 65 67 33 35 3b 0d | ;dry=reg33;vert=reg34;dz=reg35;. |
2640 | 0a 63 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 3d 73 69 6e 28 63 72 79 29 3b 0d 0a 64 63 79 | .ccy=cos(cry);ssy=sin(cry);..dcy |
2660 | 3d 63 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e 28 64 72 79 29 3b 0d 0a 0d 0a 61 66 3d 72 65 | =cos(dry);dsy=sin(dry);....af=re |
2680 | 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d 0a 66 78 3d 66 78 2d 6f 78 2a 2e 30 35 3b 66 | g20;iaf=reg21;....fx=fx-ox*.05;f |
26a0 | 7a 3d 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 31 38 3d 66 78 3b 72 65 67 31 39 3d 66 7a 3b | z=fz-oz*.05;..reg18=fx;reg19=fz; |
26c0 | 0d 0a 0d 0a 6c 73 3d 77 2f 33 32 30 3b 00 00 00 00 00 10 00 00 00 6e 3d 31 30 3b 20 2f 2f 20 42 | ....ls=w/320;.........n=10;.//.B |
26e0 | 6f 64 79 0d 0a 00 02 00 00 00 01 00 00 00 00 6b d7 00 01 00 00 00 24 00 00 00 83 04 00 00 01 2f | ody............k......$......../ |
2700 | 03 00 00 75 3d 69 3b 0d 0a 2f 2f 20 57 69 6e 67 20 73 68 61 70 65 0d 0a 69 3d 69 2a 34 2e 33 35 | ...u=i;..//.Wing.shape..i=i*4.35 |
2720 | 3b 0d 0a 75 31 3d 62 65 6c 6f 77 28 69 2c 31 29 3b 63 3d 62 6e 6f 74 28 75 31 29 3b 75 32 3d 63 | ;..u1=below(i,1);c=bnot(u1);u2=c |
2740 | 2a 62 65 6c 6f 77 28 69 2c 32 29 3b 63 3d 63 2a 62 6e 6f 74 28 75 32 29 3b 0d 0a 75 33 3d 63 2a | *below(i,2);c=c*bnot(u2);..u3=c* |
2760 | 62 65 6c 6f 77 28 69 2c 33 29 3b 63 3d 63 2a 62 6e 6f 74 28 75 33 29 3b 75 34 3d 63 2a 62 65 6c | below(i,3);c=c*bnot(u3);u4=c*bel |
2780 | 6f 77 28 69 2c 34 29 3b 63 3d 63 2a 62 6e 6f 74 28 75 34 29 3b 75 35 3d 63 3b 0d 0a 69 3d 69 2d | ow(i,4);c=c*bnot(u4);u5=c;..i=i- |
27a0 | 75 32 2d 75 33 2a 32 2d 75 34 2a 33 2d 75 35 2a 34 3b 73 69 3d 73 71 72 28 69 29 3b 0d 0a 70 78 | u2-u3*2-u4*3-u5*4;si=sqr(i);..px |
27c0 | 3d 75 31 2a 69 2b 75 32 2a 28 31 2b 69 2a 2e 31 2d 73 69 2a 2e 33 29 2b 75 33 2a 28 2e 38 2b 69 | =u1*i+u2*(1+i*.1-si*.3)+u3*(.8+i |
27e0 | 2a 2e 35 2d 73 69 2a 2e 37 29 2b 75 34 2a 28 2e 36 2d 69 2a 31 2e 31 2b 73 69 2a 2e 35 29 3b 0d | *.5-si*.7)+u4*(.6-i*1.1+si*.5);. |
2800 | 0a 70 79 3d 2d 75 31 2a 28 69 2a 31 2e 33 2d 73 69 2a 2e 35 2b 2e 32 29 2d 75 32 2a 28 31 2d 69 | .py=-u1*(i*1.3-si*.5+.2)-u2*(1-i |
2820 | 2a 31 2e 31 29 2d 75 33 2a 28 2d 69 2a 2e 38 2d 2e 31 29 2b 75 34 2a 28 2e 39 2d 69 2a 2e 37 29 | *1.1)-u3*(-i*.8-.1)+u4*(.9-i*.7) |
2840 | 2b 75 35 2a 28 2e 32 2d 69 2a 31 2e 31 29 3b 0d 0a 2f 2f 20 46 69 6c 6c 69 6e 67 0d 0a 71 78 3d | +u5*(.2-i*1.1);..//.Filling..qx= |
2860 | 2d 70 78 2a 31 2e 30 32 3b 71 79 3d 70 79 2a 31 2e 30 35 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c | -px*1.02;qy=py*1.05;qz=0;..//.Fl |
2880 | 61 70 70 69 6e 67 0d 0a 70 78 3d 71 78 2a 63 63 79 2d 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 2d 71 | apping..px=qx*ccy-qz*ssy;..qz=-q |
28a0 | 78 2a 73 73 79 2d 71 7a 2a 63 63 79 3b 0d 0a 2f 2f 20 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 | x*ssy-qz*ccy;..//.Tilt..py=qy*.5 |
28c0 | 2d 71 7a 2a 2e 38 36 2b 76 65 72 74 2b 2e 35 3b 70 7a 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 | -qz*.86+vert+.5;pz=-qy*.86-qz*.5 |
28e0 | 2b 31 2b 64 7a 2b 72 65 67 34 31 3b 70 78 3d 70 78 2b 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 | +1+dz+reg41;px=px+reg40;..//.Ori |
2900 | 65 6e 74 61 74 69 6f 6e 0d 0a 71 78 3d 70 78 2a 64 63 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d | entation..qx=px*dcy-pz*dsy;..qz= |
2920 | 70 78 2a 64 73 79 2b 70 7a 2a 64 63 79 3b 0d 0a 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a | px*dsy+pz*dcy;....ip=bnot(ip);.. |
2940 | 0d 0a 70 78 3d 71 78 2d 6f 78 3b 70 79 3d 70 79 2d 6f 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d | ..px=qx-ox;py=py-oy;pz=qz-oz;... |
2960 | 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b | .x1=px*cy+pz*sy;z1=-px*sy+pz*cy; |
2980 | 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 | ..y2=py*cx+z1*sx;z2=-py*sx+z1*cx |
29a0 | 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d | ;..dt=if(above(z2,.01),1/z2,0);. |
29c0 | 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a | .x=if(dt,x1*dt,x);y=if(dt,y2*dt* |
29e0 | 61 66 2c 79 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 6c 73 2a 32 3b 0d 0a 63 76 3d 73 71 72 | af,y);....linesize=ls*2;..cv=sqr |
2a00 | 28 73 69 6e 28 75 2a 24 70 69 2a 38 2b 74 2a 2e 33 29 2a 2e 35 2b 2e 35 29 3b 0d 0a 72 65 64 3d | (sin(u*$pi*8+t*.3)*.5+.5);..red= |
2a20 | 30 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 00 19 01 00 00 6f 78 3d 72 65 67 30 30 3b 6f | 0;green=0;blue=0;.....ox=reg00;o |
2a40 | 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 | y=reg01;oz=reg02;..rx=reg03;ry=r |
2a60 | 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 | eg04;rz=reg05;..cx=reg10;sx=reg1 |
2a80 | 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a 63 72 79 3d 72 65 67 33 | 1;..cy=reg12;sy=reg13;..cry=reg3 |
2aa0 | 32 3b 64 72 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 65 67 33 34 3b 64 7a 3d 72 65 67 33 35 3b | 2;dry=reg33;vert=reg34;dz=reg35; |
2ac0 | 0d 0a 63 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 3d 73 69 6e 28 63 72 79 29 3b 0d 0a 64 63 | ..ccy=cos(cry);ssy=sin(cry);..dc |
2ae0 | 79 3d 63 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e 28 64 72 79 29 3b 0d 0a 0d 0a 61 66 3d 72 | y=cos(dry);dsy=sin(dry);....af=r |
2b00 | 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d 0a 66 78 3d 66 78 2d 6f 78 2a 2e 30 35 3b | eg20;iaf=reg21;....fx=fx-ox*.05; |
2b20 | 66 7a 3d 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 31 38 3d 66 78 3b 72 65 67 31 39 3d 66 7a | fz=fz-oz*.05;..reg18=fx;reg19=fz |
2b40 | 3b 0d 0a 0d 0a 6c 73 3d 77 2f 33 32 30 3b 00 00 00 00 00 1a 00 00 00 6e 3d 33 30 3b 20 2f 2f 20 | ;....ls=w/320;.........n=30;.//. |
2b60 | 4c 65 66 74 20 77 69 6e 67 20 65 64 67 65 0d 0a 00 02 00 00 00 01 00 00 00 00 6b d7 00 01 00 00 | Left.wing.edge............k..... |
2b80 | 00 24 00 00 00 69 03 00 00 01 15 02 00 00 75 3d 69 3b 0d 0a 75 3d 69 2a 24 70 69 2a 32 3b 0d 0a | .$...i........u=i;..u=i*$pi*2;.. |
2ba0 | 70 78 3d 63 6f 73 28 75 29 2a 2e 31 35 2b 2e 37 3b 70 79 3d 73 69 6e 28 75 29 2a 2e 31 35 2d 2e | px=cos(u)*.15+.7;py=sin(u)*.15-. |
2bc0 | 35 3b 0d 0a 2f 2f 20 46 69 6c 6c 69 6e 67 0d 0a 71 78 3d 70 78 2a 31 2e 30 32 3b 71 79 3d 70 79 | 5;..//.Filling..qx=px*1.02;qy=py |
2be0 | 2a 31 2e 30 35 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c 61 70 70 69 6e 67 0d 0a 70 78 3d 71 78 2a | *1.05;qz=0;..//.Flapping..px=qx* |
2c00 | 63 63 79 2b 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 71 78 2a 73 73 79 2d 71 7a 2a 63 63 79 3b 0d 0a | ccy+qz*ssy;..qz=qx*ssy-qz*ccy;.. |
2c20 | 2f 2f 20 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 2d 71 7a 2a 2e 38 36 2b 76 65 72 74 2b 2e 35 | //.Tilt..py=qy*.5-qz*.86+vert+.5 |
2c40 | 3b 70 7a 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 2b 31 2b 64 7a 2b 72 65 67 34 31 3b 70 78 3d | ;pz=-qy*.86-qz*.5+1+dz+reg41;px= |
2c60 | 70 78 2b 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 65 6e 74 61 74 69 6f 6e 0d 0a 71 78 3d 70 78 | px+reg40;..//.Orientation..qx=px |
2c80 | 2a 64 63 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d 70 78 2a 64 73 79 2b 70 7a 2a 64 63 79 3b 0d | *dcy-pz*dsy;..qz=px*dsy+pz*dcy;. |
2ca0 | 0a 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 0d 0a 70 78 3d 71 78 2d 6f 78 3b 70 79 3d 70 | ...ip=bnot(ip);....px=qx-ox;py=p |
2cc0 | 79 2d 6f 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 | y-oy;pz=qz-oz;....x1=px*cy+pz*sy |
2ce0 | 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 | ;z1=-px*sy+pz*cy;..y2=py*cx+z1*s |
2d00 | 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 | x;z2=-py*sx+z1*cx;..dt=if(above( |
2d20 | 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c | z2,.01),1/z2,0);..x=if(dt,x1*dt, |
2d40 | 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 | x);y=if(dt,y2*dt*af,y);....lines |
2d60 | 69 7a 65 3d 6c 73 2a 32 3b 0d 0a 63 76 3d 73 71 72 28 73 69 6e 28 75 2a 24 70 69 2a 38 2b 74 2a | ize=ls*2;..cv=sqr(sin(u*$pi*8+t* |
2d80 | 2e 33 29 2a 2e 35 2b 2e 35 29 3b 0d 0a 72 65 64 3d 30 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 3d | .3)*.5+.5);..red=0;green=0;blue= |
2da0 | 30 3b 00 19 01 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 | 0;.....ox=reg00;oy=reg01;oz=reg0 |
2dc0 | 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d | 2;..rx=reg03;ry=reg04;rz=reg05;. |
2de0 | 0a 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 | .cx=reg10;sx=reg11;..cy=reg12;sy |
2e00 | 3d 72 65 67 31 33 3b 0d 0a 63 72 79 3d 72 65 67 33 32 3b 64 72 79 3d 72 65 67 33 33 3b 76 65 72 | =reg13;..cry=reg32;dry=reg33;ver |
2e20 | 74 3d 72 65 67 33 34 3b 64 7a 3d 72 65 67 33 35 3b 0d 0a 63 63 79 3d 63 6f 73 28 63 72 79 29 3b | t=reg34;dz=reg35;..ccy=cos(cry); |
2e40 | 73 73 79 3d 73 69 6e 28 63 72 79 29 3b 0d 0a 64 63 79 3d 63 6f 73 28 64 72 79 29 3b 64 73 79 3d | ssy=sin(cry);..dcy=cos(dry);dsy= |
2e60 | 73 69 6e 28 64 72 79 29 3b 0d 0a 0d 0a 61 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b | sin(dry);....af=reg20;iaf=reg21; |
2e80 | 0d 0a 0d 0a 66 78 3d 66 78 2d 6f 78 2a 2e 30 35 3b 66 7a 3d 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a | ....fx=fx-ox*.05;fz=fz-oz*.05;.. |
2ea0 | 72 65 67 31 38 3d 66 78 3b 72 65 67 31 39 3d 66 7a 3b 0d 0a 0d 0a 6c 73 3d 77 2f 33 32 30 3b 00 | reg18=fx;reg19=fz;....ls=w/320;. |
2ec0 | 00 00 00 00 1a 00 00 00 6e 3d 33 30 3b 20 2f 2f 20 52 69 67 68 74 20 77 69 6e 67 20 27 45 79 65 | ........n=30;.//.Right.wing.'Eye |
2ee0 | 27 00 02 00 00 00 01 00 00 00 00 6b d7 00 01 00 00 00 24 00 00 00 8d 03 00 00 01 1b 02 00 00 75 | '..........k......$............u |
2f00 | 3d 69 3b 0d 0a 75 3d 69 2a 24 70 69 2a 32 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 2e 31 35 2a 72 | =i;..u=i*$pi*2;..px=cos(u)*.15*r |
2f20 | 64 2b 2e 37 3b 70 79 3d 73 69 6e 28 75 29 2a 2e 31 35 2a 72 64 2d 2e 35 3b 0d 0a 2f 2f 20 46 69 | d+.7;py=sin(u)*.15*rd-.5;..//.Fi |
2f40 | 6c 6c 69 6e 67 0d 0a 71 78 3d 70 78 2a 31 2e 30 32 3b 71 79 3d 70 79 2a 31 2e 30 35 3b 71 7a 3d | lling..qx=px*1.02;qy=py*1.05;qz= |
2f60 | 30 3b 0d 0a 2f 2f 20 46 6c 61 70 70 69 6e 67 0d 0a 70 78 3d 71 78 2a 63 63 79 2b 71 7a 2a 73 73 | 0;..//.Flapping..px=qx*ccy+qz*ss |
2f80 | 79 3b 0d 0a 71 7a 3d 71 78 2a 73 73 79 2d 71 7a 2a 63 63 79 3b 0d 0a 2f 2f 20 54 69 6c 74 0d 0a | y;..qz=qx*ssy-qz*ccy;..//.Tilt.. |
2fa0 | 70 79 3d 71 79 2a 2e 35 2d 71 7a 2a 2e 38 36 2b 76 65 72 74 2b 2e 35 3b 70 7a 3d 2d 71 79 2a 2e | py=qy*.5-qz*.86+vert+.5;pz=-qy*. |
2fc0 | 38 36 2d 71 7a 2a 2e 35 2b 31 2b 64 7a 2b 72 65 67 34 31 3b 70 78 3d 70 78 2b 72 65 67 34 30 3b | 86-qz*.5+1+dz+reg41;px=px+reg40; |
2fe0 | 0d 0a 2f 2f 20 4f 72 69 65 6e 74 61 74 69 6f 6e 0d 0a 71 78 3d 70 78 2a 64 63 79 2d 70 7a 2a 64 | ..//.Orientation..qx=px*dcy-pz*d |
3000 | 73 79 3b 0d 0a 71 7a 3d 70 78 2a 64 73 79 2b 70 7a 2a 64 63 79 3b 0d 0a 0d 0a 69 70 3d 62 6e 6f | sy;..qz=px*dsy+pz*dcy;....ip=bno |
3020 | 74 28 69 70 29 3b 0d 0a 0d 0a 70 78 3d 71 78 2d 6f 78 3b 70 79 3d 70 79 2d 6f 79 3b 70 7a 3d 71 | t(ip);....px=qx-ox;py=py-oy;pz=q |
3040 | 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 | z-oz;....x1=px*cy+pz*sy;z1=-px*s |
3060 | 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a | y+pz*cy;..y2=py*cx+z1*sx;z2=-py* |
3080 | 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 | sx+z1*cx;..dt=if(above(z2,.01),1 |
30a0 | 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 | /z2,0);..x=if(dt,x1*dt,x);y=if(d |
30c0 | 74 2c 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 6c 73 2a 32 3b | t,y2*dt*af,y);....linesize=ls*2; |
30e0 | 0d 0a 63 76 3d 73 71 72 28 73 69 6e 28 75 2a 24 70 69 2a 38 2b 74 2a 2e 33 29 2a 2e 35 2b 2e 35 | ..cv=sqr(sin(u*$pi*8+t*.3)*.5+.5 |
3100 | 29 3b 0d 0a 72 65 64 3d 30 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 00 29 01 00 00 6f 78 | );..red=0;green=0;blue=0;.)...ox |
3120 | 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 | =reg00;oy=reg01;oz=reg02;..rx=re |
3140 | 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 3d 72 65 67 31 30 | g03;ry=reg04;rz=reg05;..cx=reg10 |
3160 | 3b 73 78 3d 72 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a | ;sx=reg11;..cy=reg12;sy=reg13;.. |
3180 | 63 72 79 3d 72 65 67 33 32 3b 64 72 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 65 67 33 34 3b 64 | cry=reg32;dry=reg33;vert=reg34;d |
31a0 | 7a 3d 72 65 67 33 35 3b 0d 0a 63 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 3d 73 69 6e 28 63 | z=reg35;..ccy=cos(cry);ssy=sin(c |
31c0 | 72 79 29 3b 0d 0a 64 63 79 3d 63 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e 28 64 72 79 29 3b | ry);..dcy=cos(dry);dsy=sin(dry); |
31e0 | 0d 0a 0d 0a 61 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d 0a 66 78 3d 66 78 | ....af=reg20;iaf=reg21;....fx=fx |
3200 | 2d 6f 78 2a 2e 30 35 3b 66 7a 3d 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 31 38 3d 66 78 3b | -ox*.05;fz=fz-oz*.05;..reg18=fx; |
3220 | 72 65 67 31 39 3d 66 7a 3b 0d 0a 0d 0a 6c 73 3d 77 2f 33 32 30 3b 0d 0a 0d 0a 72 64 3d 72 64 2a | reg19=fz;....ls=w/320;....rd=rd* |
3240 | 2e 39 2b 2e 31 3b 00 07 00 00 00 72 64 3d 2e 31 3b 00 21 00 00 00 6e 3d 33 30 3b 20 2f 2f 20 52 | .9+.1;.....rd=.1;.!...n=30;.//.R |
3260 | 69 67 68 74 20 77 69 6e 67 20 27 45 79 65 27 0d 0a 72 64 3d 31 3b 00 02 00 00 00 01 00 00 00 00 | ight.wing.'Eye'..rd=1;.......... |
3280 | 6b d7 00 01 00 00 00 24 00 00 00 8d 03 00 00 01 1b 02 00 00 75 3d 69 3b 0d 0a 75 3d 69 2a 24 70 | k......$............u=i;..u=i*$p |
32a0 | 69 2a 32 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 2e 31 35 2a 72 64 2b 2e 35 3b 70 79 3d 73 69 6e | i*2;..px=cos(u)*.15*rd+.5;py=sin |
32c0 | 28 75 29 2a 2e 31 35 2a 72 64 2b 2e 34 3b 0d 0a 2f 2f 20 46 69 6c 6c 69 6e 67 0d 0a 71 78 3d 70 | (u)*.15*rd+.4;..//.Filling..qx=p |
32e0 | 78 2a 31 2e 30 32 3b 71 79 3d 70 79 2a 31 2e 30 35 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c 61 70 | x*1.02;qy=py*1.05;qz=0;..//.Flap |
3300 | 70 69 6e 67 0d 0a 70 78 3d 71 78 2a 63 63 79 2b 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 71 78 2a 73 | ping..px=qx*ccy+qz*ssy;..qz=qx*s |
3320 | 73 79 2d 71 7a 2a 63 63 79 3b 0d 0a 2f 2f 20 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 2d 71 7a | sy-qz*ccy;..//.Tilt..py=qy*.5-qz |
3340 | 2a 2e 38 36 2b 76 65 72 74 2b 2e 35 3b 70 7a 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 2b 31 2b | *.86+vert+.5;pz=-qy*.86-qz*.5+1+ |
3360 | 64 7a 2b 72 65 67 34 31 3b 70 78 3d 70 78 2b 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 65 6e 74 | dz+reg41;px=px+reg40;..//.Orient |
3380 | 61 74 69 6f 6e 0d 0a 71 78 3d 70 78 2a 64 63 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d 70 78 2a | ation..qx=px*dcy-pz*dsy;..qz=px* |
33a0 | 64 73 79 2b 70 7a 2a 64 63 79 3b 0d 0a 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 0d 0a 70 | dsy+pz*dcy;....ip=bnot(ip);....p |
33c0 | 78 3d 71 78 2d 6f 78 3b 70 79 3d 70 79 2d 6f 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 | x=qx-ox;py=py-oy;pz=qz-oz;....x1 |
33e0 | 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 | =px*cy+pz*sy;z1=-px*sy+pz*cy;..y |
3400 | 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a | 2=py*cx+z1*sx;z2=-py*sx+z1*cx;.. |
3420 | 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d | dt=if(above(z2,.01),1/z2,0);..x= |
3440 | 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c | if(dt,x1*dt,x);y=if(dt,y2*dt*af, |
3460 | 79 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 6c 73 2a 32 3b 0d 0a 63 76 3d 73 71 72 28 73 69 | y);....linesize=ls*2;..cv=sqr(si |
3480 | 6e 28 75 2a 24 70 69 2a 38 2b 74 2a 2e 33 29 2a 2e 35 2b 2e 35 29 3b 0d 0a 72 65 64 3d 30 3b 67 | n(u*$pi*8+t*.3)*.5+.5);..red=0;g |
34a0 | 72 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 00 29 01 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 | reen=0;blue=0;.)...ox=reg00;oy=r |
34c0 | 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 | eg01;oz=reg02;..rx=reg03;ry=reg0 |
34e0 | 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 3b 0d | 4;rz=reg05;..cx=reg10;sx=reg11;. |
3500 | 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a 63 72 79 3d 72 65 67 33 32 3b 64 | .cy=reg12;sy=reg13;..cry=reg32;d |
3520 | 72 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 65 67 33 34 3b 64 7a 3d 72 65 67 33 35 3b 0d 0a 63 | ry=reg33;vert=reg34;dz=reg35;..c |
3540 | 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 3d 73 69 6e 28 63 72 79 29 3b 0d 0a 64 63 79 3d 63 | cy=cos(cry);ssy=sin(cry);..dcy=c |
3560 | 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e 28 64 72 79 29 3b 0d 0a 0d 0a 61 66 3d 72 65 67 32 | os(dry);dsy=sin(dry);....af=reg2 |
3580 | 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d 0a 66 78 3d 66 78 2d 6f 78 2a 2e 30 35 3b 66 7a 3d | 0;iaf=reg21;....fx=fx-ox*.05;fz= |
35a0 | 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 31 38 3d 66 78 3b 72 65 67 31 39 3d 66 7a 3b 0d 0a | fz-oz*.05;..reg18=fx;reg19=fz;.. |
35c0 | 0d 0a 6c 73 3d 77 2f 33 32 30 3b 0d 0a 0d 0a 72 64 3d 72 64 2a 2e 39 2b 2e 31 3b 00 07 00 00 00 | ..ls=w/320;....rd=rd*.9+.1;..... |
35e0 | 72 64 3d 2e 31 3b 00 21 00 00 00 6e 3d 33 30 3b 20 2f 2f 20 52 69 67 68 74 20 77 69 6e 67 20 27 | rd=.1;.!...n=30;.//.Right.wing.' |
3600 | 45 79 65 27 0d 0a 72 64 3d 31 3b 00 02 00 00 00 01 00 00 00 00 6b d7 00 01 00 00 00 24 00 00 00 | Eye'..rd=1;..........k......$... |
3620 | 6a 03 00 00 01 17 02 00 00 75 3d 69 3b 0d 0a 75 3d 69 2a 24 70 69 2a 32 3b 0d 0a 70 78 3d 63 6f | j........u=i;..u=i*$pi*2;..px=co |
3640 | 73 28 75 29 2a 2e 31 35 2b 2e 37 3b 70 79 3d 73 69 6e 28 75 29 2a 2e 31 35 2d 2e 35 3b 0d 0a 2f | s(u)*.15+.7;py=sin(u)*.15-.5;../ |
3660 | 2f 20 46 69 6c 6c 69 6e 67 0d 0a 71 78 3d 2d 70 78 2a 31 2e 30 32 3b 71 79 3d 70 79 2a 31 2e 30 | /.Filling..qx=-px*1.02;qy=py*1.0 |
3680 | 35 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c 61 70 70 69 6e 67 0d 0a 70 78 3d 71 78 2a 63 63 79 2d | 5;qz=0;..//.Flapping..px=qx*ccy- |
36a0 | 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 2d 71 78 2a 73 73 79 2d 71 7a 2a 63 63 79 3b 0d 0a 2f 2f 20 | qz*ssy;..qz=-qx*ssy-qz*ccy;..//. |
36c0 | 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 2d 71 7a 2a 2e 38 36 2b 76 65 72 74 2b 2e 35 3b 70 7a | Tilt..py=qy*.5-qz*.86+vert+.5;pz |
36e0 | 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 2b 31 2b 64 7a 2b 72 65 67 34 31 3b 70 78 3d 70 78 2b | =-qy*.86-qz*.5+1+dz+reg41;px=px+ |
3700 | 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 65 6e 74 61 74 69 6f 6e 0d 0a 71 78 3d 70 78 2a 64 63 | reg40;..//.Orientation..qx=px*dc |
3720 | 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d 70 78 2a 64 73 79 2b 70 7a 2a 64 63 79 3b 0d 0a 0d 0a | y-pz*dsy;..qz=px*dsy+pz*dcy;.... |
3740 | 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 0d 0a 70 78 3d 71 78 2d 6f 78 3b 70 79 3d 70 79 2d 6f | ip=bnot(ip);....px=qx-ox;py=py-o |
3760 | 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 | y;pz=qz-oz;....x1=px*cy+pz*sy;z1 |
3780 | 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a | =-px*sy+pz*cy;..y2=py*cx+z1*sx;z |
37a0 | 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c | 2=-py*sx+z1*cx;..dt=if(above(z2, |
37c0 | 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b | .01),1/z2,0);..x=if(dt,x1*dt,x); |
37e0 | 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 | y=if(dt,y2*dt*af,y);....linesize |
3800 | 3d 6c 73 2a 32 3b 0d 0a 63 76 3d 73 71 72 28 73 69 6e 28 75 2a 24 70 69 2a 38 2b 74 2a 2e 33 29 | =ls*2;..cv=sqr(sin(u*$pi*8+t*.3) |
3820 | 2a 2e 35 2b 2e 35 29 3b 0d 0a 72 65 64 3d 30 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 00 | *.5+.5);..red=0;green=0;blue=0;. |
3840 | 19 01 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d | ....ox=reg00;oy=reg01;oz=reg02;. |
3860 | 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 | .rx=reg03;ry=reg04;rz=reg05;..cx |
3880 | 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 | =reg10;sx=reg11;..cy=reg12;sy=re |
38a0 | 67 31 33 3b 0d 0a 63 72 79 3d 72 65 67 33 32 3b 64 72 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 | g13;..cry=reg32;dry=reg33;vert=r |
38c0 | 65 67 33 34 3b 64 7a 3d 72 65 67 33 35 3b 0d 0a 63 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 | eg34;dz=reg35;..ccy=cos(cry);ssy |
38e0 | 3d 73 69 6e 28 63 72 79 29 3b 0d 0a 64 63 79 3d 63 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e | =sin(cry);..dcy=cos(dry);dsy=sin |
3900 | 28 64 72 79 29 3b 0d 0a 0d 0a 61 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d | (dry);....af=reg20;iaf=reg21;... |
3920 | 0a 66 78 3d 66 78 2d 6f 78 2a 2e 30 35 3b 66 7a 3d 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 | .fx=fx-ox*.05;fz=fz-oz*.05;..reg |
3940 | 31 38 3d 66 78 3b 72 65 67 31 39 3d 66 7a 3b 0d 0a 0d 0a 6c 73 3d 77 2f 33 32 30 3b 00 00 00 00 | 18=fx;reg19=fz;....ls=w/320;.... |
3960 | 00 19 00 00 00 6e 3d 33 30 3b 20 2f 2f 20 4c 65 66 74 20 77 69 6e 67 20 27 45 79 65 27 00 02 00 | .....n=30;.//.Left.wing.'Eye'... |
3980 | 00 00 01 00 00 00 00 6b d7 00 01 00 00 00 24 00 00 00 8e 03 00 00 01 1d 02 00 00 75 3d 69 3b 0d | .......k......$............u=i;. |
39a0 | 0a 75 3d 69 2a 24 70 69 2a 32 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 2e 31 35 2a 72 64 2b 2e 37 | .u=i*$pi*2;..px=cos(u)*.15*rd+.7 |
39c0 | 3b 70 79 3d 73 69 6e 28 75 29 2a 2e 31 35 2a 72 64 2d 2e 35 3b 0d 0a 2f 2f 20 46 69 6c 6c 69 6e | ;py=sin(u)*.15*rd-.5;..//.Fillin |
39e0 | 67 0d 0a 71 78 3d 2d 70 78 2a 31 2e 30 32 3b 71 79 3d 70 79 2a 31 2e 30 35 3b 71 7a 3d 30 3b 0d | g..qx=-px*1.02;qy=py*1.05;qz=0;. |
3a00 | 0a 2f 2f 20 46 6c 61 70 70 69 6e 67 0d 0a 70 78 3d 71 78 2a 63 63 79 2d 71 7a 2a 73 73 79 3b 0d | .//.Flapping..px=qx*ccy-qz*ssy;. |
3a20 | 0a 71 7a 3d 2d 71 78 2a 73 73 79 2d 71 7a 2a 63 63 79 3b 0d 0a 2f 2f 20 54 69 6c 74 0d 0a 70 79 | .qz=-qx*ssy-qz*ccy;..//.Tilt..py |
3a40 | 3d 71 79 2a 2e 35 2d 71 7a 2a 2e 38 36 2b 76 65 72 74 2b 2e 35 3b 70 7a 3d 2d 71 79 2a 2e 38 36 | =qy*.5-qz*.86+vert+.5;pz=-qy*.86 |
3a60 | 2d 71 7a 2a 2e 35 2b 31 2b 64 7a 2b 72 65 67 34 31 3b 70 78 3d 70 78 2b 72 65 67 34 30 3b 0d 0a | -qz*.5+1+dz+reg41;px=px+reg40;.. |
3a80 | 2f 2f 20 4f 72 69 65 6e 74 61 74 69 6f 6e 0d 0a 71 78 3d 70 78 2a 64 63 79 2d 70 7a 2a 64 73 79 | //.Orientation..qx=px*dcy-pz*dsy |
3aa0 | 3b 0d 0a 71 7a 3d 70 78 2a 64 73 79 2b 70 7a 2a 64 63 79 3b 0d 0a 0d 0a 69 70 3d 62 6e 6f 74 28 | ;..qz=px*dsy+pz*dcy;....ip=bnot( |
3ac0 | 69 70 29 3b 0d 0a 0d 0a 70 78 3d 71 78 2d 6f 78 3b 70 79 3d 70 79 2d 6f 79 3b 70 7a 3d 71 7a 2d | ip);....px=qx-ox;py=py-oy;pz=qz- |
3ae0 | 6f 7a 3b 0d 0a 0d 0a 78 31 3d 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b | oz;....x1=px*cy+pz*sy;z1=-px*sy+ |
3b00 | 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 | pz*cy;..y2=py*cx+z1*sx;z2=-py*sx |
3b20 | 2b 7a 31 2a 63 78 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a | +z1*cx;..dt=if(above(z2,.01),1/z |
3b40 | 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c | 2,0);..x=if(dt,x1*dt,x);y=if(dt, |
3b60 | 79 32 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 6c 73 2a 32 3b 0d 0a | y2*dt*af,y);....linesize=ls*2;.. |
3b80 | 63 76 3d 73 71 72 28 73 69 6e 28 75 2a 24 70 69 2a 38 2b 74 2a 2e 33 29 2a 2e 35 2b 2e 35 29 3b | cv=sqr(sin(u*$pi*8+t*.3)*.5+.5); |
3ba0 | 0d 0a 72 65 64 3d 30 3b 67 72 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 00 29 01 00 00 6f 78 3d 72 | ..red=0;green=0;blue=0;.)...ox=r |
3bc0 | 65 67 30 30 3b 6f 79 3d 72 65 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 | eg00;oy=reg01;oz=reg02;..rx=reg0 |
3be0 | 33 3b 72 79 3d 72 65 67 30 34 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 3d 72 65 67 31 30 3b 73 | 3;ry=reg04;rz=reg05;..cx=reg10;s |
3c00 | 78 3d 72 65 67 31 31 3b 0d 0a 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a 63 72 | x=reg11;..cy=reg12;sy=reg13;..cr |
3c20 | 79 3d 72 65 67 33 32 3b 64 72 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 65 67 33 34 3b 64 7a 3d | y=reg32;dry=reg33;vert=reg34;dz= |
3c40 | 72 65 67 33 35 3b 0d 0a 63 63 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 3d 73 69 6e 28 63 72 79 | reg35;..ccy=cos(cry);ssy=sin(cry |
3c60 | 29 3b 0d 0a 64 63 79 3d 63 6f 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e 28 64 72 79 29 3b 0d 0a | );..dcy=cos(dry);dsy=sin(dry);.. |
3c80 | 0d 0a 61 66 3d 72 65 67 32 30 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d 0a 66 78 3d 66 78 2d 6f | ..af=reg20;iaf=reg21;....fx=fx-o |
3ca0 | 78 2a 2e 30 35 3b 66 7a 3d 66 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 31 38 3d 66 78 3b 72 65 | x*.05;fz=fz-oz*.05;..reg18=fx;re |
3cc0 | 67 31 39 3d 66 7a 3b 0d 0a 0d 0a 6c 73 3d 77 2f 33 32 30 3b 0d 0a 0d 0a 72 64 3d 72 64 2a 2e 39 | g19=fz;....ls=w/320;....rd=rd*.9 |
3ce0 | 2b 2e 31 3b 00 07 00 00 00 72 64 3d 2e 31 3b 00 20 00 00 00 6e 3d 33 30 3b 20 2f 2f 20 4c 65 66 | +.1;.....rd=.1;.....n=30;.//.Lef |
3d00 | 74 20 77 69 6e 67 20 27 45 79 65 27 0d 0a 72 64 3d 31 3b 00 02 00 00 00 01 00 00 00 00 6b d7 00 | t.wing.'Eye'..rd=1;..........k.. |
3d20 | 01 00 00 00 24 00 00 00 8e 03 00 00 01 1d 02 00 00 75 3d 69 3b 0d 0a 75 3d 69 2a 24 70 69 2a 32 | ....$............u=i;..u=i*$pi*2 |
3d40 | 3b 0d 0a 70 78 3d 63 6f 73 28 75 29 2a 2e 31 35 2a 72 64 2b 2e 35 3b 70 79 3d 73 69 6e 28 75 29 | ;..px=cos(u)*.15*rd+.5;py=sin(u) |
3d60 | 2a 2e 31 35 2a 72 64 2b 2e 34 3b 0d 0a 2f 2f 20 46 69 6c 6c 69 6e 67 0d 0a 71 78 3d 2d 70 78 2a | *.15*rd+.4;..//.Filling..qx=-px* |
3d80 | 31 2e 30 32 3b 71 79 3d 70 79 2a 31 2e 30 35 3b 71 7a 3d 30 3b 0d 0a 2f 2f 20 46 6c 61 70 70 69 | 1.02;qy=py*1.05;qz=0;..//.Flappi |
3da0 | 6e 67 0d 0a 70 78 3d 71 78 2a 63 63 79 2d 71 7a 2a 73 73 79 3b 0d 0a 71 7a 3d 2d 71 78 2a 73 73 | ng..px=qx*ccy-qz*ssy;..qz=-qx*ss |
3dc0 | 79 2d 71 7a 2a 63 63 79 3b 0d 0a 2f 2f 20 54 69 6c 74 0d 0a 70 79 3d 71 79 2a 2e 35 2d 71 7a 2a | y-qz*ccy;..//.Tilt..py=qy*.5-qz* |
3de0 | 2e 38 36 2b 76 65 72 74 2b 2e 35 3b 70 7a 3d 2d 71 79 2a 2e 38 36 2d 71 7a 2a 2e 35 2b 31 2b 64 | .86+vert+.5;pz=-qy*.86-qz*.5+1+d |
3e00 | 7a 2b 72 65 67 34 31 3b 70 78 3d 70 78 2b 72 65 67 34 30 3b 0d 0a 2f 2f 20 4f 72 69 65 6e 74 61 | z+reg41;px=px+reg40;..//.Orienta |
3e20 | 74 69 6f 6e 0d 0a 71 78 3d 70 78 2a 64 63 79 2d 70 7a 2a 64 73 79 3b 0d 0a 71 7a 3d 70 78 2a 64 | tion..qx=px*dcy-pz*dsy;..qz=px*d |
3e40 | 73 79 2b 70 7a 2a 64 63 79 3b 0d 0a 0d 0a 69 70 3d 62 6e 6f 74 28 69 70 29 3b 0d 0a 0d 0a 70 78 | sy+pz*dcy;....ip=bnot(ip);....px |
3e60 | 3d 71 78 2d 6f 78 3b 70 79 3d 70 79 2d 6f 79 3b 70 7a 3d 71 7a 2d 6f 7a 3b 0d 0a 0d 0a 78 31 3d | =qx-ox;py=py-oy;pz=qz-oz;....x1= |
3e80 | 70 78 2a 63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 2d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 | px*cy+pz*sy;z1=-px*sy+pz*cy;..y2 |
3ea0 | 3d 70 79 2a 63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 2d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 64 | =py*cx+z1*sx;z2=-py*sx+z1*cx;..d |
3ec0 | 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 | t=if(above(z2,.01),1/z2,0);..x=i |
3ee0 | 66 28 64 74 2c 78 31 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 32 2a 64 74 2a 61 66 2c 79 | f(dt,x1*dt,x);y=if(dt,y2*dt*af,y |
3f00 | 29 3b 0d 0a 0d 0a 6c 69 6e 65 73 69 7a 65 3d 6c 73 2a 32 3b 0d 0a 63 76 3d 73 71 72 28 73 69 6e | );....linesize=ls*2;..cv=sqr(sin |
3f20 | 28 75 2a 24 70 69 2a 38 2b 74 2a 2e 33 29 2a 2e 35 2b 2e 35 29 3b 0d 0a 72 65 64 3d 30 3b 67 72 | (u*$pi*8+t*.3)*.5+.5);..red=0;gr |
3f40 | 65 65 6e 3d 30 3b 62 6c 75 65 3d 30 3b 00 29 01 00 00 6f 78 3d 72 65 67 30 30 3b 6f 79 3d 72 65 | een=0;blue=0;.)...ox=reg00;oy=re |
3f60 | 67 30 31 3b 6f 7a 3d 72 65 67 30 32 3b 0d 0a 72 78 3d 72 65 67 30 33 3b 72 79 3d 72 65 67 30 34 | g01;oz=reg02;..rx=reg03;ry=reg04 |
3f80 | 3b 72 7a 3d 72 65 67 30 35 3b 0d 0a 63 78 3d 72 65 67 31 30 3b 73 78 3d 72 65 67 31 31 3b 0d 0a | ;rz=reg05;..cx=reg10;sx=reg11;.. |
3fa0 | 63 79 3d 72 65 67 31 32 3b 73 79 3d 72 65 67 31 33 3b 0d 0a 63 72 79 3d 72 65 67 33 32 3b 64 72 | cy=reg12;sy=reg13;..cry=reg32;dr |
3fc0 | 79 3d 72 65 67 33 33 3b 76 65 72 74 3d 72 65 67 33 34 3b 64 7a 3d 72 65 67 33 35 3b 0d 0a 63 63 | y=reg33;vert=reg34;dz=reg35;..cc |
3fe0 | 79 3d 63 6f 73 28 63 72 79 29 3b 73 73 79 3d 73 69 6e 28 63 72 79 29 3b 0d 0a 64 63 79 3d 63 6f | y=cos(cry);ssy=sin(cry);..dcy=co |
4000 | 73 28 64 72 79 29 3b 64 73 79 3d 73 69 6e 28 64 72 79 29 3b 0d 0a 0d 0a 61 66 3d 72 65 67 32 30 | s(dry);dsy=sin(dry);....af=reg20 |
4020 | 3b 69 61 66 3d 72 65 67 32 31 3b 0d 0a 0d 0a 66 78 3d 66 78 2d 6f 78 2a 2e 30 35 3b 66 7a 3d 66 | ;iaf=reg21;....fx=fx-ox*.05;fz=f |
4040 | 7a 2d 6f 7a 2a 2e 30 35 3b 0d 0a 72 65 67 31 38 3d 66 78 3b 72 65 67 31 39 3d 66 7a 3b 0d 0a 0d | z-oz*.05;..reg18=fx;reg19=fz;... |
4060 | 0a 6c 73 3d 77 2f 33 32 30 3b 0d 0a 0d 0a 72 64 3d 72 64 2a 2e 39 2b 2e 31 3b 00 07 00 00 00 72 | .ls=w/320;....rd=rd*.9+.1;.....r |
4080 | 64 3d 2e 31 3b 00 20 00 00 00 6e 3d 33 30 3b 20 2f 2f 20 4c 65 66 74 20 77 69 6e 67 20 27 45 79 | d=.1;.....n=30;.//.Left.wing.'Ey |
40a0 | 65 27 0d 0a 72 64 3d 31 3b 00 02 00 00 00 01 00 00 00 00 6b d7 00 01 00 00 00 | e'..rd=1;..........k...... |