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