aboutsummaryrefslogtreecommitdiff
path: root/Src/resources/data/avs/Winamp 5 Picks/UnConeD - Speeder 3K.avs
blob: eb4c78d814df568b63100cae2545df7f7a8932f9 (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 31 04 00 Nullsoft.AVS.Preset.0.2......1..
0020 00 2d 04 00 00 20 57 68 61 63 6b 6f 20 41 56 53 20 56 20 2d 20 53 70 65 65 64 65 72 20 33 4b 0d .-....Whacko.AVS.V.-.Speeder.3K.
0040 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .-------------------------------
0060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 63 6f 6e 73 69 64 65 72 ------------------....I.consider
0080 20 74 68 69 73 20 6d 79 20 6d 6f 73 74 20 27 63 69 6e 65 6d 61 74 69 63 27 20 70 72 65 73 65 74 .this.my.most.'cinematic'.preset
00a0 20 75 70 20 74 6f 20 64 61 74 65 2e 20 49 20 6c 6f 76 65 20 68 6f 77 20 69 74 20 6c 6f 6f 6b 73 .up.to.date..I.love.how.it.looks
00c0 20 6c 69 6b 65 20 69 74 20 77 61 73 20 70 6c 75 63 6b 65 64 20 66 72 6f 6d 20 61 20 70 72 69 6d .like.it.was.plucked.from.a.prim
00e0 69 74 69 76 65 20 43 47 20 6d 6f 76 69 65 21 0d 0a 0d 0a 54 68 65 20 62 61 73 69 63 20 74 65 63 itive.CG.movie!....The.basic.tec
0100 68 6e 69 71 75 65 20 77 68 69 63 68 20 6d 61 6b 65 73 20 74 68 69 73 20 70 72 65 73 65 74 20 70 hnique.which.makes.this.preset.p
0120 6f 73 73 69 62 6c 65 20 69 73 20 74 6f 20 73 79 6e 63 68 72 6f 6e 69 7a 65 20 33 44 20 44 4d 73 ossible.is.to.synchronize.3D.DMs
0140 20 61 6e 64 20 33 44 20 53 53 43 73 2e 20 42 79 20 68 61 76 69 6e 67 20 74 68 65 6d 20 62 6f 74 .and.3D.SSCs..By.having.them.bot
0160 68 20 72 75 6e 20 69 6e 20 74 68 65 20 73 61 6d 65 20 63 61 6d 65 72 61 20 73 70 61 63 65 2c 20 h.run.in.the.same.camera.space,.
0180 79 6f 75 20 63 61 6e 20 64 6f 20 61 64 76 61 6e 63 65 64 20 61 6e 64 20 63 6f 6d 70 6c 69 63 61 you.can.do.advanced.and.complica
01a0 74 65 64 20 6d 6f 76 65 6d 65 6e 74 73 20 77 69 74 68 6f 75 74 20 68 61 76 69 6e 67 20 74 6f 20 ted.movements.without.having.to.
01c0 62 6f 74 68 65 72 20 69 66 20 69 74 27 73 20 67 6f 69 6e 67 20 74 6f 20 6c 6f 6f 6b 20 6f 6b 61 bother.if.it's.going.to.look.oka
01e0 79 3a 20 69 74 20 61 6c 77 61 79 73 20 64 6f 65 73 2e 20 54 68 69 73 20 69 73 20 65 73 70 65 63 y:.it.always.does..This.is.espec
0200 69 61 6c 6c 79 20 6e 6f 74 69 63 61 62 6c 65 20 77 68 65 6e 20 74 68 65 20 63 61 6d 65 72 61 20 ially.noticable.when.the.camera.
0220 70 61 73 73 65 73 20 74 68 65 20 73 68 69 70 20 66 72 6f 6d 20 6e 65 61 72 62 79 2e 0d 0a 0d 0a passes.the.ship.from.nearby.....
0240 54 68 65 20 64 65 63 6f 72 61 74 69 6f 6e 73 20 61 72 6f 75 6e 64 20 74 68 65 20 74 72 61 63 6b The.decorations.around.the.track
0260 20 61 72 65 20 73 75 70 65 72 73 63 6f 70 65 73 20 61 6e 64 20 73 6f 20 69 73 20 74 68 65 20 73 .are.superscopes.and.so.is.the.s
0280 68 69 70 2e 20 54 68 65 20 63 6f 6f 6c 20 6c 69 67 68 74 6e 69 6e 67 20 62 6f 6c 74 73 20 61 72 hip..The.cool.lightning.bolts.ar
02a0 65 20 61 63 74 75 61 6c 6c 79 20 71 75 69 74 65 20 73 69 6d 70 6c 65 3a 20 62 79 20 72 61 6e 64 e.actually.quite.simple:.by.rand
02c0 6f 6d 6c 79 20 73 68 69 66 74 69 6e 67 20 61 72 6f 75 6e 64 20 6f 6e 65 20 63 6f 6f 72 64 69 6e omly.shifting.around.one.coordin
02e0 61 74 65 20 65 76 65 72 79 20 70 6f 69 6e 74 2c 20 79 6f 75 20 63 61 6e 20 67 65 74 20 72 65 61 ate.every.point,.you.can.get.rea
0300 6c 69 73 74 69 63 2c 20 6a 69 74 74 65 72 69 6e 67 20 62 6f 6c 74 73 2e 0d 0a 0d 0a 2d 2d 2d 2d listic,.jittering.bolts.....----
0320 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
0340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 55 6e 43 6f 6e 65 44 20 2f 20 53 74 65 76 65 6e 20 57 ------------..UnConeD./.Steven.W
0360 69 74 74 65 6e 73 0d 0a 5b 20 73 74 65 76 65 6e 40 61 63 6b 6f 2e 6e 65 74 20 2d 20 77 77 77 2e ittens..[.steven@acko.net.-.www.
0380 61 63 6b 6f 2e 6e 65 74 20 5d 0d 0a 0d 0a 28 49 66 20 79 6f 75 20 77 69 73 68 20 74 6f 20 75 73 acko.net.]....(If.you.wish.to.us
03a0 65 20 74 68 69 73 20 70 72 65 73 65 74 20 70 61 72 74 69 61 6c 6c 79 20 6f 72 20 77 68 6f 6c 65 e.this.preset.partially.or.whole
03c0 20 69 6e 20 79 6f 75 72 20 6f 77 6e 20 70 72 65 73 65 74 73 20 6f 72 20 70 61 63 6b 73 2c 20 79 .in.your.own.presets.or.packs,.y
03e0 6f 75 20 6d 61 79 20 64 6f 20 73 6f 20 70 72 6f 76 69 64 65 64 20 74 68 61 74 20 61 20 63 6c 65 ou.may.do.so.provided.that.a.cle
0400 61 72 20 63 72 65 64 69 74 20 6d 65 73 73 61 67 65 20 69 73 20 69 6e 63 6c 75 64 65 64 20 69 6e ar.credit.message.is.included.in
0420 20 79 6f 75 72 20 70 72 65 73 65 74 2c 20 61 6c 6f 6e 67 20 77 69 74 68 20 6d 79 20 63 6f 6e 74 .your.preset,.along.with.my.cont
0440 61 63 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 29 00 fe ff ff ff 4e 02 00 00 80 00 00 01 24 80 act.information.).....N.......$.
0460 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 03 ................................
0480 00 00 00 08 00 00 00 03 00 00 00 00 00 00 00 25 00 00 00 04 00 00 00 01 00 00 00 0f 00 00 00 26 ...............%...............&
04a0 00 00 00 ff 7f 00 00 01 09 00 00 00 79 3d 79 2d 2e 30 34 35 00 00 00 00 00 00 00 00 00 01 00 00 ............y=y-.045............
04c0 00 01 00 00 00 00 00 00 00 25 00 00 00 04 00 00 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 05 .........%...........(..........
04e0 80 24 00 00 00 16 01 00 00 01 d0 00 00 00 78 3d 69 2a 32 2d 31 3b 79 3d 2d 2e 34 3b 0d 0a 68 75 .$............x=i*2-1;y=-.4;..hu
0500 3d 67 65 74 73 70 65 63 28 61 62 73 28 69 2a 32 2d 31 29 2a 2e 31 2c 30 2c 30 29 2b 74 3b 0d 0a =getspec(abs(i*2-1)*.1,0,0)+t;..
0520 62 72 3d 6d 69 6e 28 31 2c 73 71 72 28 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 29 29 br=min(1,sqr(abs(getosc(i,0,0)))
0540 2a 32 2e 35 29 3b 0d 0a 72 65 64 3d 28 73 69 6e 28 68 75 29 2a 2e 35 2b 2e 37 29 2a 62 72 3b 0d *2.5);..red=(sin(hu)*.5+.7)*br;.
0560 0a 67 72 65 65 6e 3d 28 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 2e 35 2b 2e 37 29 2a 62 72 3b 0d .green=(sin(hu+2.09)*.5+.7)*br;.
0580 0a 62 6c 75 65 3d 28 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 2e 35 2b 2e 37 29 2a 62 72 3b 0d 0a .blue=(sin(hu+4.18)*.5+.7)*br;..
05a0 62 6c 75 65 3d 62 6c 75 65 2b 69 66 28 72 61 6e 64 28 32 30 30 29 2c 30 2c 2e 35 29 3b 00 0f 00 blue=blue+if(rand(200),0,.5);...
05c0 00 00 6e 3d 77 2f 32 3b 74 3d 74 2d 30 2e 30 31 00 12 00 00 00 74 3d 74 2b 72 61 6e 64 28 36 32 ..n=w/2;t=t-0.01.....t=t+rand(62
05e0 38 29 2a 2e 30 31 00 04 00 00 00 6e 3d 30 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 28 8)*.01.....n=0.................(
0600 00 00 00 04 00 00 00 00 00 32 80 24 00 00 00 33 00 00 00 01 0d 00 00 00 78 3d 2d 31 3b 79 3d 69 .........2.$...3........x=-1;y=i
0620 2a 32 2d 31 00 00 00 00 00 00 00 00 00 05 00 00 00 6e 3d 32 3b 00 02 00 00 00 01 00 00 00 00 00 *2-1.............n=2;...........
0640 00 00 01 00 00 00 24 00 00 00 32 00 00 00 01 0c 00 00 00 78 3d 31 3b 79 3d 69 2a 32 2d 31 00 00 ......$...2........x=1;y=i*2-1..
0660 00 00 00 00 00 00 00 05 00 00 00 6e 3d 32 3b 00 02 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 ...........n=2;.................
0680 12 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 00 00 00 0c 00 00 00 00 00 00 00 ................................
06a0 00 00 00 00 02 00 00 00 24 00 00 00 c8 00 00 00 01 75 00 00 00 78 3d 30 3b 79 3d 30 3b 0d 0a 72 ........$........u...x=0;y=0;..r
06c0 65 64 3d 28 73 69 6e 28 68 75 29 2a 2e 35 2b 2e 35 2b 69 6e 74 2a 34 29 2a 2e 31 3b 0d 0a 67 72 ed=(sin(hu)*.5+.5+int*4)*.1;..gr
06e0 65 65 6e 3d 28 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 2e 35 2b 2e 35 2b 69 6e 74 2a 34 29 2a 2e een=(sin(hu+2.09)*.5+.5+int*4)*.
0700 32 3b 0d 0a 62 6c 75 65 3d 28 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 2e 35 2b 2e 35 2b 69 6e 74 2;..blue=(sin(hu+4.18)*.5+.5+int
0720 2a 32 29 2a 2e 34 3b 0d 0a 00 16 00 00 00 68 75 3d 68 75 2b 30 2e 30 31 3b 69 6e 74 3d 69 6e 74 *2)*.4;.......hu=hu+0.01;int=int
0740 2a 2e 36 00 18 00 00 00 68 75 3d 72 61 6e 64 28 36 32 38 29 2a 2e 30 31 3b 69 6e 74 3d 31 3b 00 *.6.....hu=rand(628)*.01;int=1;.
0760 04 00 00 00 6e 3d 31 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 0f 00 00 00 22 00 00 00 ....n=1....................."...
0780 ff 7f 00 00 01 05 00 00 00 64 3d 30 3b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........d=0;...................
07a0 00 00 2b 00 00 00 dd 03 00 00 01 7f 01 00 00 64 79 3d 79 2a 61 66 3b 0d 0a 64 78 31 3d 78 2a 63 ..+............dy=y*af;..dx1=x*c
07c0 7a 2d 64 79 2a 73 7a 3b 0d 0a 64 79 31 3d 78 2a 73 7a 2b 64 79 2a 63 7a 3b 0d 0a 64 79 32 3d 64 z-dy*sz;..dy1=x*sz+dy*cz;..dy2=d
07e0 79 31 2a 63 78 2d 73 78 3b 0d 0a 64 7a 32 3d 64 79 31 2a 73 78 2b 63 78 3b 0d 0a 64 78 33 3d 64 y1*cx-sx;..dz2=dy1*sx+cx;..dx3=d
0800 78 31 2a 63 79 2d 64 7a 32 2a 73 79 3b 0d 0a 64 7a 33 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 x1*cy-dz2*sy;..dz3=dx1*sy+dz2*cy
0820 3b 0d 0a 6b 3d 28 6f 79 2b 2e 36 29 2f 64 79 32 3b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 2c 30 29 ;..k=(oy+.6)/dy2;k=if(below(k,0)
0840 2c 28 6f 79 2d 2e 36 29 2f 64 79 32 2c 6b 29 3b 0d 0a 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 2c 30 ,(oy-.6)/dy2,k);..k=if(below(k,0
0860 29 2c 31 30 30 30 2c 6b 29 3b 0d 0a 69 78 3d 64 78 33 2a 6b 3b 69 79 3d 64 79 32 2a 6b 3b 69 7a ),1000,k);..ix=dx3*k;iy=dy2*k;iz
0880 3d 64 7a 33 2a 6b 3b 0d 0a 64 3d 73 71 72 74 28 69 78 2a 69 78 2b 69 79 2a 69 79 2b 69 7a 2a 69 =dz3*k;..d=sqrt(ix*ix+iy*iy+iz*i
08a0 7a 29 3b 0d 0a 69 7a 3d 28 69 7a 2d 6f 7a 29 2a 30 2e 31 3b 0d 0a 78 3d 28 28 69 78 2d 6f 78 29 z);..iz=(iz-oz)*0.1;..x=((ix-ox)
08c0 2a 2e 34 35 2b 73 71 72 28 69 7a 29 2a 62 66 2a 34 29 2a 73 69 67 6e 28 69 79 29 3b 79 3d 69 7a *.45+sqr(iz)*bf*4)*sign(iy);y=iz
08e0 3b 0d 0a 61 6c 70 68 61 3d 28 31 2e 32 2d 64 2a 2e 32 35 29 3b 0d 0a 61 6c 70 68 61 3d 69 66 28 ;..alpha=(1.2-d*.25);..alpha=if(
0900 61 62 6f 76 65 28 61 6c 70 68 61 2c 31 29 2c 31 2c 69 66 28 62 65 6c 6f 77 28 61 6c 70 68 61 2c above(alpha,1),1,if(below(alpha,
0920 30 29 2c 30 2c 61 6c 70 68 61 29 29 3b 00 de 01 00 00 74 3d 74 2b 30 2e 30 32 3b 74 70 3d 74 70 0),0,alpha));.....t=t+0.02;tp=tp
0940 2b 2e 30 32 3b 0d 0a 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 +.02;..ox=cos(t)*cos(t*.379+1)*c
0960 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 0d 0a 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a os(sin(t*.141));..oy=sin(t*.91)*
0980 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 0d 0a 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d cos(-t*.71)*.4;..oz=sin(t)*cos(-
09a0 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 0d 0a 6f 74 3d t*.41)*sin(cos(t*.631))-.7;..ot=
09c0 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 1+.7/sqrt(sqr(ox)+sqr(oy)+sqr(oz
09e0 29 29 3b 0d 0a 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a ));..ox=ox*ot;oy=min(.4,abs(oy)*
0a00 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 0d 0a 72 79 3d 61 74 61 6e 32 ot)*sign(oy);oz=oz*ot;..ry=atan2
0a20 28 2d 6f 78 2c 6f 7a 29 2b 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 0d (-ox,oz)+sin(t)*cos(t*.914)*.3;.
0a40 0a 72 78 3d 2d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 .rx=-atan2(oy-.2,sqrt(sqr(ox)+sq
0a60 72 28 6f 7a 29 29 29 3b 0d 0a 72 7a 3d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e r(oz)));..rz=cos(t*.241)*cos(t*.
0a80 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 0d 0a 63 78 3d 63 191+2)*cos(sin(t*.091))*5;..cx=c
0aa0 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d os(rx);sx=sin(rx);cy=cos(ry);sy=
0ac0 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a sin(ry);cz=cos(rz);sz=sin(rz);..
0ae0 61 66 3d 68 2f 77 3b 0d 0a 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 0d 0a 74 3d 74 2b 74 af=h/w;..bf=bf*.9+bft*.1;..t=t+t
0b00 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 00 4a 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 i*.01;ti=ti*.9;.J...ot=min(0,get
0b20 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 spec(0,.1,0)*2-1);ti=5*(ot+if(ot
0b40 2c 31 2c 30 29 29 3b 0d 0a 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 05 00 ,1,0));..bft=getosc(0.7,0,0);...
0b60 00 00 74 3d 30 3b 00 01 00 00 00 01 00 00 00 15 00 00 00 15 00 00 00 01 00 00 00 00 00 00 00 01 ..t=0;..........................
0b80 00 00 00 00 00 00 00 28 00 00 00 04 00 00 00 01 00 03 80 24 00 00 00 80 04 00 00 01 6e 01 00 00 .......(...........$........n...
0ba0 75 3d 69 2a 74 70 69 2a 34 3b 70 78 3d 63 6f 73 28 75 29 2a 2e 31 3b 70 7a 3d 73 69 6e 28 75 29 u=i*tpi*4;px=cos(u)*.1;pz=sin(u)
0bc0 2a 2e 35 3b 70 7a 3d 70 6f 77 28 70 7a 2b 2e 35 2c 2e 36 29 2d 2e 35 3b 0d 0a 75 3d 69 2a 38 25 *.5;pz=pow(pz+.5,.6)-.5;..u=i*8%
0be0 39 2f 38 2a 74 70 69 3b 70 79 3d 70 78 2a 73 69 6e 28 75 29 3b 70 78 3d 70 78 2a 63 6f 73 28 75 9/8*tpi;py=px*sin(u);px=px*cos(u
0c00 29 3b 0d 0a 78 31 3d 70 78 2a 63 72 2d 70 79 2a 73 72 3b 70 79 3d 70 78 2a 73 72 2b 70 79 2a 63 );..x1=px*cr-py*sr;py=px*sr+py*c
0c20 72 3b 0d 0a 70 78 3d 78 31 2b 6f 78 2b 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 37 31 34 29 2a r;..px=x1+ox+sin(t)*cos(t*.714)*
0c40 63 6f 73 28 73 69 6e 28 74 2a 2e 34 31 31 29 29 2a 2e 39 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d cos(sin(t*.411))*.9;py=py+oy;pz=
0c60 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b pz+oz;..x1=px*cy-pz*sy;z1=px*sy+
0c80 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b pz*cy;..y2=py*cx-z1*sx;z2=py*sx+
0ca0 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b z1*cx;..x3=x1*cz-y2*sz;y3=x1*sz+
0cc0 79 32 2a 63 7a 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 y2*cz;..dt=if(above(z2,.01),1/z2
0ce0 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 ,0);..x=if(dt,x3*dt,x);y=if(dt,y
0d00 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 00 29 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 3*dt*af,y);...)...t=t+0.02;ox=co
0d20 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 s(t)*cos(t*.379+1)*cos(sin(t*.14
0d40 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 1));oy=sin(t*.91)*cos(-t*.71)*.4
0d60 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 ;oz=sin(t)*cos(-t*.41)*sin(cos(t
0d80 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b *.631))-.7;ot=1+.7/sqrt(sqr(ox)+
0da0 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e sqr(oy)+sqr(oz));ox=ox*ot;oy=min
0dc0 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f (.4,abs(oy)*ot)*sign(oy);oz=oz*o
0de0 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 t;ry=-atan2(-ox,oz)-sin(t)*cos(t
0e00 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a *.914)*.3;rz=-cos(t*.241)*cos(t*
0e20 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 .191+2)*cos(sin(t*.091))*5;rx=at
0e40 61 6e 32 28 6f 79 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 an2(oy-.2,sqrt(sqr(ox)+sqr(oz)))
0e60 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 ;cx=cos(rx);sx=sin(rx);cy=cos(ry
0e80 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 );sy=sin(ry);cz=cos(rz);sz=sin(r
0ea0 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d z);x=0;y=0;af=w/h;t=t+ti*.01;ti=
0ec0 74 69 2a 2e 39 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 73 68 72 3d 73 69 6e 28 74 2a ti*.9;bf=bf*.9+bft*.1;shr=sin(t*
0ee0 2e 30 34 31 31 29 2a 63 6f 73 28 74 2a 2e 30 39 34 39 29 2b 73 62 6f 2a 73 62 73 2d 62 66 2a 31 .0411)*cos(t*.0949)+sbo*sbs-bf*1
0f00 2e 35 3b 63 72 3d 63 6f 73 28 73 68 72 29 3b 73 72 3d 73 69 6e 28 73 68 72 29 3b 73 62 6f 3d 69 .5;cr=cos(shr);sr=sin(shr);sbo=i
0f20 66 28 61 62 6f 76 65 28 73 62 6f 2c 30 29 2c 73 62 6f 2d 30 2e 31 2c 30 29 3b 00 ac 00 00 00 6f f(above(sbo,0),sbo-0.1,0);.....o
0f40 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d t=min(0,getspec(0,.1,0)*2-1);ti=
0f60 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 5*(ot+if(ot,1,0));bft=getosc(0.7
0f80 2c 30 2c 30 29 3b 73 62 6f 3d 69 66 28 73 62 6f 2b 28 67 65 74 6f 73 63 28 2e 37 39 2c 30 2c 30 ,0,0);sbo=if(sbo+(getosc(.79,0,0
0fa0 29 2a 31 30 30 25 32 29 2c 73 62 6f 2c 36 2e 32 38 29 3b 73 62 73 3d 69 66 28 65 71 75 61 6c 28 )*100%2),sbo,6.28);sbs=if(equal(
0fc0 73 62 6f 2c 36 2e 32 38 29 2c 28 67 65 74 6f 73 63 28 2e 31 2c 30 2c 30 29 2a 32 35 36 25 32 29 sbo,6.28),(getosc(.1,0,0)*256%2)
0fe0 2a 32 2d 31 2c 73 62 73 29 3b 00 1c 00 00 00 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 *2-1,sbs);.....n=50;tpi=acos(-1)
1000 2a 32 3b a4 20 48 75 6c 6c 3b 00 02 00 00 00 01 00 00 00 3f 3f 3f 00 01 00 00 00 24 00 00 00 8f *2;..Hull;.........???.....$....
1020 04 00 00 01 75 01 00 00 78 31 3d 73 71 72 74 28 69 2a 34 25 35 2f 34 29 3b 69 70 3d 31 2d 69 70 ....u...x1=sqrt(i*4%5/4);ip=1-ip
1040 3b 75 3d 69 2a 74 70 69 2a 34 3b 70 78 3d 73 69 6e 28 75 29 2a 2e 35 2a 78 31 3b 70 7a 3d 63 6f ;u=i*tpi*4;px=sin(u)*.5*x1;pz=co
1060 73 28 75 29 2a 2e 35 3b 70 7a 3d 2d 70 6f 77 28 2d 70 7a 2b 2e 35 2c 2e 36 29 2a 2e 34 2b 2e 35 s(u)*.5;pz=-pow(-pz+.5,.6)*.4+.5
1080 2d 61 62 73 28 70 78 29 2a 2e 33 3b 70 79 3d 30 3b 0d 0a 78 31 3d 70 78 2a 63 72 2d 70 79 2a 73 -abs(px)*.3;py=0;..x1=px*cr-py*s
10a0 72 3b 70 79 3d 70 78 2a 73 72 2b 70 79 2a 63 72 3b 0d 0a 70 78 3d 78 31 2b 6f 78 2b 73 69 6e 28 r;py=px*sr+py*cr;..px=x1+ox+sin(
10c0 74 29 2a 63 6f 73 28 74 2a 2e 37 31 34 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 34 31 31 29 29 2a t)*cos(t*.714)*cos(sin(t*.411))*
10e0 2e 39 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d .9;py=py+oy;pz=pz+oz;..x1=px*cy-
1100 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d pz*sy;z1=px*sy+pz*cy;..y2=py*cx-
1120 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d z1*sx;z2=py*sx+z1*cx;..x3=x1*cz-
1140 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f y2*sz;y3=x1*sz+y2*cz;..dt=if(abo
1160 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 2c 78 33 2a ve(z2,.01),1/z2,0);..x=if(dt,x3*
1180 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 00 30 02 00 dt,x);y=if(dt,y3*dt*af,y);...0..
11a0 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 .t=t+0.02;ox=cos(t)*cos(t*.379+1
11c0 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 )*cos(sin(t*.141));oy=sin(t*.91)
11e0 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 *cos(-t*.71)*.4;oz=sin(t)*cos(-t
1200 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e *.41)*sin(cos(t*.631))-.7;ot=1+.
1220 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 7/sqrt(sqr(ox)+sqr(oy)+sqr(oz));
1240 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 ox=ox*ot;oy=min(.4,abs(oy)*ot)*s
1260 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f ign(oy);oz=oz*ot;ry=-atan2(-ox,o
1280 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 z)-sin(t)*cos(t*.914)*.3;rz=-cos
12a0 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 (t*.241)*cos(t*.191+2)*cos(sin(t
12c0 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 *.091))*5;rx=atan2(oy-.2,sqrt(sq
12e0 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 r(ox)+sqr(oz)));cx=cos(rx);sx=si
1300 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 n(rx);cy=cos(ry);sy=sin(ry);cz=c
1320 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 os(rz);sz=sin(rz);x=0;y=0;af=w/h
1340 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 ;t=t+ti*.01;ti=ti*.9;bf=bf*.9+bf
1360 74 2a 2e 31 3b 73 68 72 3d 73 69 6e 28 74 2a 2e 30 34 31 31 29 2a 63 6f 73 28 74 2a 2e 30 39 34 t*.1;shr=sin(t*.0411)*cos(t*.094
1380 39 29 2b 73 62 6f 2a 73 62 73 2d 62 66 2a 31 2e 35 2b 2e 34 3b 63 72 3d 63 6f 73 28 73 68 72 29 9)+sbo*sbs-bf*1.5+.4;cr=cos(shr)
13a0 3b 73 72 3d 73 69 6e 28 73 68 72 29 3b 73 62 6f 3d 69 66 28 61 62 6f 76 65 28 73 62 6f 2c 30 29 ;sr=sin(shr);sbo=if(above(sbo,0)
13c0 2c 73 62 6f 2d 30 2e 31 2c 30 29 3b 69 70 3d 31 00 ac 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 ,sbo-0.1,0);ip=1.....ot=min(0,ge
13e0 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f tspec(0,.1,0)*2-1);ti=5*(ot+if(o
1400 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 73 62 6f 3d t,1,0));bft=getosc(0.7,0,0);sbo=
1420 69 66 28 73 62 6f 2b 28 67 65 74 6f 73 63 28 2e 37 39 2c 30 2c 30 29 2a 31 30 30 25 32 29 2c 73 if(sbo+(getosc(.79,0,0)*100%2),s
1440 62 6f 2c 36 2e 32 38 29 3b 73 62 73 3d 69 66 28 65 71 75 61 6c 28 73 62 6f 2c 36 2e 32 38 29 2c bo,6.28);sbs=if(equal(sbo,6.28),
1460 28 67 65 74 6f 73 63 28 2e 31 2c 30 2c 30 29 2a 32 35 36 25 32 29 2a 32 2d 31 2c 73 62 73 29 3b (getosc(.1,0,0)*256%2)*2-1,sbs);
1480 00 1d 00 00 00 6e 3d 38 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 57 69 6e 67 73 .....n=80;tpi=acos(-1)*2;..Wings
14a0 3b 00 02 00 00 00 01 00 00 00 3f 3f 3f 00 01 00 00 00 24 00 00 00 8f 04 00 00 01 75 01 00 00 78 ;.........???.....$........u...x
14c0 31 3d 73 71 72 74 28 69 2a 34 25 35 2f 34 29 3b 69 70 3d 31 2d 69 70 3b 75 3d 69 2a 74 70 69 2a 1=sqrt(i*4%5/4);ip=1-ip;u=i*tpi*
14e0 34 3b 70 78 3d 73 69 6e 28 75 29 2a 2e 35 2a 78 31 3b 70 7a 3d 63 6f 73 28 75 29 2a 2e 35 3b 70 4;px=sin(u)*.5*x1;pz=cos(u)*.5;p
1500 7a 3d 2d 70 6f 77 28 2d 70 7a 2b 2e 35 2c 2e 36 29 2a 2e 34 2b 2e 35 2d 61 62 73 28 70 78 29 2a z=-pow(-pz+.5,.6)*.4+.5-abs(px)*
1520 2e 33 3b 70 79 3d 30 3b 0d 0a 78 31 3d 70 78 2a 63 72 2d 70 79 2a 73 72 3b 70 79 3d 70 78 2a 73 .3;py=0;..x1=px*cr-py*sr;py=px*s
1540 72 2b 70 79 2a 63 72 3b 0d 0a 70 78 3d 78 31 2b 6f 78 2b 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a r+py*cr;..px=x1+ox+sin(t)*cos(t*
1560 2e 37 31 34 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 34 31 31 29 29 2a 2e 39 3b 70 79 3d 70 79 2b .714)*cos(sin(t*.411))*.9;py=py+
1580 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d oy;pz=pz+oz;..x1=px*cy-pz*sy;z1=
15a0 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d px*sy+pz*cy;..y2=py*cx-z1*sx;z2=
15c0 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d py*sx+z1*cx;..x3=x1*cz-y2*sz;y3=
15e0 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 x1*sz+y2*cz;..dt=if(above(z2,.01
1600 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 ),1/z2,0);..x=if(dt,x3*dt,x);y=i
1620 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 00 30 02 00 00 74 3d 74 2b 30 2e 30 32 f(dt,y3*dt*af,y);...0...t=t+0.02
1640 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e ;ox=cos(t)*cos(t*.379+1)*cos(sin
1660 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e (t*.141));oy=sin(t*.91)*cos(-t*.
1680 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 71)*.4;oz=sin(t)*cos(-t*.41)*sin
16a0 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 (cos(t*.631))-.7;ot=1+.7/sqrt(sq
16c0 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b r(ox)+sqr(oy)+sqr(oz));ox=ox*ot;
16e0 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f oy=min(.4,abs(oy)*ot)*sign(oy);o
1700 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 z=oz*ot;ry=-atan2(-ox,oz)-sin(t)
1720 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a *cos(t*.914)*.3;rz=-cos(t*.241)*
1740 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 cos(t*.191+2)*cos(sin(t*.091))*5
1760 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 ;rx=atan2(oy-.2,sqrt(sqr(ox)+sqr
1780 28 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d (oz)));cx=cos(rx);sx=sin(rx);cy=
17a0 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a cos(ry);sy=sin(ry);cz=cos(rz);sz
17c0 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e =sin(rz);x=0;y=0;af=w/h;t=t+ti*.
17e0 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 73 68 72 3d 01;ti=ti*.9;bf=bf*.9+bft*.1;shr=
1800 73 69 6e 28 74 2a 2e 30 34 31 31 29 2a 63 6f 73 28 74 2a 2e 30 39 34 39 29 2b 73 62 6f 2a 73 62 sin(t*.0411)*cos(t*.0949)+sbo*sb
1820 73 2d 62 66 2a 31 2e 35 2d 2e 34 3b 63 72 3d 63 6f 73 28 73 68 72 29 3b 73 72 3d 73 69 6e 28 73 s-bf*1.5-.4;cr=cos(shr);sr=sin(s
1840 68 72 29 3b 73 62 6f 3d 69 66 28 61 62 6f 76 65 28 73 62 6f 2c 30 29 2c 73 62 6f 2d 30 2e 31 2c hr);sbo=if(above(sbo,0),sbo-0.1,
1860 30 29 3b 69 70 3d 31 00 ac 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 0);ip=1.....ot=min(0,getspec(0,.
1880 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 1,0)*2-1);ti=5*(ot+if(ot,1,0));b
18a0 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 73 62 6f 3d 69 66 28 73 62 6f 2b 28 67 ft=getosc(0.7,0,0);sbo=if(sbo+(g
18c0 65 74 6f 73 63 28 2e 37 39 2c 30 2c 30 29 2a 31 30 30 25 32 29 2c 73 62 6f 2c 36 2e 32 38 29 3b etosc(.79,0,0)*100%2),sbo,6.28);
18e0 73 62 73 3d 69 66 28 65 71 75 61 6c 28 73 62 6f 2c 36 2e 32 38 29 2c 28 67 65 74 6f 73 63 28 2e sbs=if(equal(sbo,6.28),(getosc(.
1900 31 2c 30 2c 30 29 2a 32 35 36 25 32 29 2a 32 2d 31 2c 73 62 73 29 3b 00 1d 00 00 00 6e 3d 38 30 1,0,0)*256%2)*2-1,sbs);.....n=80
1920 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 57 69 6e 67 73 3b 00 02 00 00 00 01 00 00 ;tpi=acos(-1)*2;..Wings;........
1940 00 3f 3f 3f 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 02 80 24 00 00 00 3d 04 00 00 01 80 01 .???.....(...........$...=......
1960 00 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 70 69 2a 2e 32 34 2b 30 2e 37 30 37 3b 0d 0a 70 7a 3d ..u=u+1;x1=u*tpi*.24+0.707;..pz=
1980 73 69 6e 28 78 31 29 2a 2e 31 2b 79 6f 2a 31 30 3b 70 78 3d 63 6f 73 28 78 31 29 2a 2e 31 2d 31 sin(x1)*.1+yo*10;px=cos(x1)*.1-1
19a0 2e 39 2d 73 71 72 28 70 7a 29 2a 62 66 2a 2e 30 38 3b 70 79 3d 28 69 2a 32 2d 31 29 2a 2e 36 3b .9-sqr(pz)*bf*.08;py=(i*2-1)*.6;
19c0 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d ....px=px+ox;py=py+oy;pz=pz+oz;.
19e0 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d .x1=px*cy-pz*sy;z1=px*sy+pz*cy;.
1a00 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d .y2=py*cx-z1*sx;z2=py*sx+z1*cx;.
1a20 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d .x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;.
1a40 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 0a 78 .dt=if(above(z2,.01),1/z2,0);..x
1a60 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 =if(dt,x3*dt,x);y=if(dt,y3*dt*af
1a80 2c 79 29 3b 0d 0a 64 74 3d 6d 69 6e 28 31 2c 64 74 2a 33 2d 2e 33 29 2a 62 65 6c 6f 77 28 6d 69 ,y);..dt=min(1,dt*3-.3)*below(mi
1aa0 6e 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 29 2c 31 29 2a 69 66 28 69 2c 31 2c 30 29 3b 0d 0a n(abs(x),abs(y)),1)*if(i,1,0);..
1ac0 72 65 64 3d 63 72 2a 64 74 3b 67 72 65 65 6e 3d 63 67 2a 64 74 3b 62 6c 75 65 3d 63 62 2a 64 74 red=cr*dt;green=cg*dt;blue=cb*dt
1ae0 3b 00 33 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e ;.3...t=t+0.02;ox=cos(t)*cos(t*.
1b00 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 69 6e 28 74 379+1)*cos(sin(t*.141));oy=sin(t
1b20 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 *.91)*cos(-t*.71)*.4;oz=sin(t)*c
1b40 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f os(-t*.41)*sin(cos(t*.631))-.7;o
1b60 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 t=1+.7/sqrt(sqr(ox)+sqr(oy)+sqr(
1b80 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a oz));ox=ox*ot;oy=min(.4,abs(oy)*
1ba0 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 61 6e 32 28 ot)*sign(oy);oz=oz*ot;ry=-atan2(
1bc0 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a -ox,oz)-sin(t)*cos(t*.914)*.3;rz
1be0 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 63 6f 73 28 =-cos(t*.241)*cos(t*.191+2)*cos(
1c00 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 sin(t*.091))*5;rx=atan2(oy-.2,sq
1c20 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b rt(sqr(ox)+sqr(oz)));cx=cos(rx);
1c40 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 sx=sin(rx);cy=cos(ry);sy=sin(ry)
1c60 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 ;cz=cos(rz);sz=sin(rz);x=0;y=0;a
1c80 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 3d 30 3b 79 6f f=w/h;t=t+ti*.01;ti=ti*.9;u=0;yo
1ca0 3d 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 28 61 62 6f 76 65 28 79 6f 2c 31 29 2c 79 6f 2d 32 2c =yo+.045;yo=if(above(yo,1),yo-2,
1cc0 79 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 32 yo);cr=min(1,abs(getosc(i,0,0)*2
1ce0 29 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 6e 28 31 2c 2e 35 2b 67 65 74 73 70 65 63 28 30 2c 2e ));cg=cr;cb=min(1,.5+getspec(0,.
1d00 31 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 00 48 00 00 00 6f 74 3d 1,0)*2);bf=bf*.9+bft*.1;.H...ot=
1d20 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a min(0,getspec(0,.1,0)*2-1);ti=5*
1d40 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 (ot+if(ot,1,0));bft=getosc(0.7,0
1d60 2c 30 29 3b 00 21 00 00 00 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 ,0);.!...n=50;tpi=acos(-1)*2;..C
1d80 6f 69 6c 20 4c 65 66 74 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 3e 04 oil.Left;.................$...>.
1da0 00 00 01 80 01 00 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 70 69 2a 2e 32 34 2b 30 2e 37 30 37 3b .......u=u+1;x1=u*tpi*.24+0.707;
1dc0 0d 0a 70 7a 3d 73 69 6e 28 78 31 29 2a 2e 31 2b 79 6f 2a 31 30 3b 70 78 3d 63 6f 73 28 78 31 29 ..pz=sin(x1)*.1+yo*10;px=cos(x1)
1de0 2a 2e 31 2b 31 2e 39 2d 73 71 72 28 70 7a 29 2a 62 66 2a 2e 30 38 3b 70 79 3d 28 69 2a 32 2d 31 *.1+1.9-sqr(pz)*bf*.08;py=(i*2-1
1e00 29 2a 2e 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a )*.6;....px=px+ox;py=py+oy;pz=pz
1e20 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a +oz;..x1=px*cy-pz*sy;z1=px*sy+pz
1e40 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 *cy;..y2=py*cx-z1*sx;z2=py*sx+z1
1e60 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 *cx;..x3=x1*cz-y2*sz;y3=x1*sz+y2
1e80 2a 63 7a 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 *cz;..dt=if(above(z2,.01),1/z2,0
1ea0 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a );..x=if(dt,x3*dt,x);y=if(dt,y3*
1ec0 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 6d 69 6e 28 31 2c 64 74 2a 33 2d 2e 33 29 2a 62 65 6c dt*af,y);..dt=min(1,dt*3-.3)*bel
1ee0 6f 77 28 6d 69 6e 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 29 2c 31 29 2a 69 66 28 69 2c 31 2c ow(min(abs(x),abs(y)),1)*if(i,1,
1f00 30 29 3b 0d 0a 72 65 64 3d 63 72 2a 64 74 3b 67 72 65 65 6e 3d 63 67 2a 64 74 3b 62 6c 75 65 3d 0);..red=cr*dt;green=cg*dt;blue=
1f20 63 62 2a 64 74 3b 00 33 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f cb*dt;.3...t=t+0.02;ox=cos(t)*co
1f40 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d s(t*.379+1)*cos(sin(t*.141));oy=
1f60 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e sin(t*.91)*cos(-t*.71)*.4;oz=sin
1f80 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 (t)*cos(-t*.41)*sin(cos(t*.631))
1fa0 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 -.7;ot=1+.7/sqrt(sqr(ox)+sqr(oy)
1fc0 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 +sqr(oz));ox=ox*ot;oy=min(.4,abs
1fe0 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 (oy)*ot)*sign(oy);oz=oz*ot;ry=-a
2000 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a tan2(-ox,oz)-sin(t)*cos(t*.914)*
2020 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 .3;rz=-cos(t*.241)*cos(t*.191+2)
2040 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d *cos(sin(t*.091))*5;rx=atan2(oy-
2060 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 63 78 3d 63 6f 73 .2,sqrt(sqr(ox)+sqr(oz)));cx=cos
2080 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 (rx);sx=sin(rx);cy=cos(ry);sy=si
20a0 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b n(ry);cz=cos(rz);sz=sin(rz);x=0;
20c0 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 y=0;af=w/h;t=t+ti*.01;ti=ti*.9;u
20e0 3d 30 3b 79 6f 3d 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 28 61 62 6f 76 65 28 79 6f 2c 31 29 2c =0;yo=yo+.045;yo=if(above(yo,1),
2100 79 6f 2d 32 2c 79 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 yo-2,yo);cr=min(1,abs(getosc(i,0
2120 2c 30 29 2a 32 29 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 6e 28 31 2c 2e 35 2b 67 65 74 73 70 65 ,0)*2));cg=cr;cb=min(1,.5+getspe
2140 63 28 30 2c 2e 31 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 00 48 00 c(0,.1,0)*2);bf=bf*.9+bft*.1;.H.
2160 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b ..ot=min(0,getspec(0,.1,0)*2-1);
2180 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 ti=5*(ot+if(ot,1,0));bft=getosc(
21a0 30 2e 37 2c 30 2c 30 29 3b 00 22 00 00 00 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 0.7,0,0);."...n=50;tpi=acos(-1)*
21c0 32 3b a4 20 43 6f 69 6c 20 52 69 67 68 74 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 2;..Coil.Right;.................
21e0 24 00 00 00 44 04 00 00 01 80 01 00 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 70 69 2a 2e 32 34 2b $...D........u=u+1;x1=u*tpi*.24+
2200 30 2e 37 30 37 3b 0d 0a 70 7a 3d 73 69 6e 28 78 31 29 2a 2e 31 2b 79 6f 2a 31 30 3b 70 78 3d 63 0.707;..pz=sin(x1)*.1+yo*10;px=c
2220 6f 73 28 78 31 29 2a 2e 31 2d 31 2e 39 2d 73 71 72 28 70 7a 29 2a 62 66 2a 2e 30 38 3b 70 79 3d os(x1)*.1-1.9-sqr(pz)*bf*.08;py=
2240 28 69 2a 32 2d 31 29 2a 2e 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 (i*2-1)*.6;....px=px+ox;py=py+oy
2260 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 ;pz=pz+oz;..x1=px*cy-pz*sy;z1=px
2280 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 *sy+pz*cy;..y2=py*cx-z1*sx;z2=py
22a0 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 *sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1
22c0 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c *sz+y2*cz;..dt=if(above(z2,.01),
22e0 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 1/z2,0);..x=if(dt,x3*dt,x);y=if(
2300 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 6d 69 6e 28 31 2c 64 74 2a 33 2d 2e dt,y3*dt*af,y);..dt=min(1,dt*3-.
2320 33 29 2a 62 65 6c 6f 77 28 6d 69 6e 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 29 2c 31 29 2a 69 3)*below(min(abs(x),abs(y)),1)*i
2340 66 28 69 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 63 72 2a 64 74 3b 67 72 65 65 6e 3d 63 67 2a 64 74 f(i,1,0);..red=cr*dt;green=cg*dt
2360 3b 62 6c 75 65 3d 63 62 2a 64 74 3b 00 33 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 ;blue=cb*dt;.3...t=t+0.02;ox=cos
2380 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 (t)*cos(t*.379+1)*cos(sin(t*.141
23a0 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b ));oy=sin(t*.91)*cos(-t*.71)*.4;
23c0 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a oz=sin(t)*cos(-t*.41)*sin(cos(t*
23e0 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 .631))-.7;ot=1+.7/sqrt(sqr(ox)+s
2400 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 qr(oy)+sqr(oz));ox=ox*ot;oy=min(
2420 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 .4,abs(oy)*ot)*sign(oy);oz=oz*ot
2440 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a ;ry=-atan2(-ox,oz)-sin(t)*cos(t*
2460 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e .914)*.3;rz=-cos(t*.241)*cos(t*.
2480 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 61 191+2)*cos(sin(t*.091))*5;rx=ata
24a0 6e 32 28 6f 79 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 n2(oy-.2,sqrt(sqr(ox)+sqr(oz)));
24c0 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 cx=cos(rx);sx=sin(rx);cy=cos(ry)
24e0 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a ;sy=sin(ry);cz=cos(rz);sz=sin(rz
2500 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 );x=0;y=0;af=w/h;t=t+ti*.01;ti=t
2520 69 2a 2e 39 3b 75 3d 30 3b 79 6f 3d 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 28 61 62 6f 76 65 28 i*.9;u=0;yo=yo+.045;yo=if(above(
2540 79 6f 2c 31 29 2c 79 6f 2d 32 2c 79 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 62 73 28 67 65 74 6f yo,1),yo-2,yo);cr=min(1,abs(geto
2560 73 63 28 69 2c 30 2c 30 29 2a 32 29 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 6e 28 31 2c 2e 35 2b sc(i,0,0)*2));cg=cr;cb=min(1,.5+
2580 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a getspec(0,.1,0)*2);bf=bf*.9+bft*
25a0 2e 31 3b 00 48 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 .1;.H...ot=min(0,getspec(0,.1,0)
25c0 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 *2-1);ti=5*(ot+if(ot,1,0));bft=g
25e0 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 28 00 00 00 6e 3d 35 30 3b 74 70 69 3d 61 63 6f etosc(0.7,0,0);.(...n=50;tpi=aco
2600 73 28 2d 31 29 2a 32 3b 79 6f 3d 2e 36 36 3b a4 20 43 6f 69 6c 20 4c 65 66 74 3b 00 02 00 00 00 s(-1)*2;yo=.66;..Coil.Left;.....
2620 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 45 04 00 00 01 80 01 00 00 75 3d 75 2b 31 3b 78 ............$...E........u=u+1;x
2640 31 3d 75 2a 74 70 69 2a 2e 32 34 2b 30 2e 37 30 37 3b 0d 0a 70 7a 3d 73 69 6e 28 78 31 29 2a 2e 1=u*tpi*.24+0.707;..pz=sin(x1)*.
2660 31 2b 79 6f 2a 31 30 3b 70 78 3d 63 6f 73 28 78 31 29 2a 2e 31 2b 31 2e 39 2d 73 71 72 28 70 7a 1+yo*10;px=cos(x1)*.1+1.9-sqr(pz
2680 29 2a 62 66 2a 2e 30 38 3b 70 79 3d 28 69 2a 32 2d 31 29 2a 2e 36 3b 0d 0a 0d 0a 70 78 3d 70 78 )*bf*.08;py=(i*2-1)*.6;....px=px
26a0 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 +ox;py=py+oy;pz=pz+oz;..x1=px*cy
26c0 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 -pz*sy;z1=px*sy+pz*cy;..y2=py*cx
26e0 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a -z1*sx;z2=py*sx+z1*cx;..x3=x1*cz
2700 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 -y2*sz;y3=x1*sz+y2*cz;..dt=if(ab
2720 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 2c 78 33 ove(z2,.01),1/z2,0);..x=if(dt,x3
2740 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d *dt,x);y=if(dt,y3*dt*af,y);..dt=
2760 6d 69 6e 28 31 2c 64 74 2a 33 2d 2e 33 29 2a 62 65 6c 6f 77 28 6d 69 6e 28 61 62 73 28 78 29 2c min(1,dt*3-.3)*below(min(abs(x),
2780 61 62 73 28 79 29 29 2c 31 29 2a 69 66 28 69 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 63 72 2a 64 74 abs(y)),1)*if(i,1,0);..red=cr*dt
27a0 3b 67 72 65 65 6e 3d 63 67 2a 64 74 3b 62 6c 75 65 3d 63 62 2a 64 74 3b 00 33 02 00 00 74 3d 74 ;green=cg*dt;blue=cb*dt;.3...t=t
27c0 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f +0.02;ox=cos(t)*cos(t*.379+1)*co
27e0 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 s(sin(t*.141));oy=sin(t*.91)*cos
2800 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 (-t*.71)*.4;oz=sin(t)*cos(-t*.41
2820 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 )*sin(cos(t*.631))-.7;ot=1+.7/sq
2840 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f rt(sqr(ox)+sqr(oy)+sqr(oz));ox=o
2860 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 x*ot;oy=min(.4,abs(oy)*ot)*sign(
2880 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 oy);oz=oz*ot;ry=-atan2(-ox,oz)-s
28a0 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e in(t)*cos(t*.914)*.3;rz=-cos(t*.
28c0 32 34 31 29 2a 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 241)*cos(t*.191+2)*cos(sin(t*.09
28e0 31 29 29 2a 35 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 1))*5;rx=atan2(oy-.2,sqrt(sqr(ox
2900 29 2b 73 71 72 28 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 )+sqr(oz)));cx=cos(rx);sx=sin(rx
2920 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 );cy=cos(ry);sy=sin(ry);cz=cos(r
2940 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 z);sz=sin(rz);x=0;y=0;af=w/h;t=t
2960 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 3d 30 3b 79 6f 3d 79 6f 2b 2e 30 34 35 3b +ti*.01;ti=ti*.9;u=0;yo=yo+.045;
2980 79 6f 3d 69 66 28 61 62 6f 76 65 28 79 6f 2c 31 29 2c 79 6f 2d 32 2c 79 6f 29 3b 63 72 3d 6d 69 yo=if(above(yo,1),yo-2,yo);cr=mi
29a0 6e 28 31 2c 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 32 29 29 3b 63 67 3d 63 72 3b n(1,abs(getosc(i,0,0)*2));cg=cr;
29c0 63 62 3d 6d 69 6e 28 31 2c 2e 35 2b 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 29 3b 62 cb=min(1,.5+getspec(0,.1,0)*2);b
29e0 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 00 48 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 f=bf*.9+bft*.1;.H...ot=min(0,get
2a00 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 spec(0,.1,0)*2-1);ti=5*(ot+if(ot
2a20 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 29 00 00 00 ,1,0));bft=getosc(0.7,0,0);.)...
2a40 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 79 6f 3d 2e 36 36 3b a4 20 43 6f 69 n=50;tpi=acos(-1)*2;yo=.66;..Coi
2a60 6c 20 52 69 67 68 74 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 45 04 00 l.Right;.................$...E..
2a80 00 01 80 01 00 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 70 69 2a 2e 32 34 2b 30 2e 37 30 37 3b 0d ......u=u+1;x1=u*tpi*.24+0.707;.
2aa0 0a 70 7a 3d 73 69 6e 28 78 31 29 2a 2e 31 2b 79 6f 2a 31 30 3b 70 78 3d 63 6f 73 28 78 31 29 2a .pz=sin(x1)*.1+yo*10;px=cos(x1)*
2ac0 2e 31 2d 31 2e 39 2d 73 71 72 28 70 7a 29 2a 62 66 2a 2e 30 38 3b 70 79 3d 28 69 2a 32 2d 31 29 .1-1.9-sqr(pz)*bf*.08;py=(i*2-1)
2ae0 2a 2e 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b *.6;....px=px+ox;py=py+oy;pz=pz+
2b00 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a oz;..x1=px*cy-pz*sy;z1=px*sy+pz*
2b20 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a cy;..y2=py*cx-z1*sx;z2=py*sx+z1*
2b40 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a cx;..x3=x1*cz-y2*sz;y3=x1*sz+y2*
2b60 63 7a 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 cz;..dt=if(above(z2,.01),1/z2,0)
2b80 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 ;..x=if(dt,x3*dt,x);y=if(dt,y3*d
2ba0 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 6d 69 6e 28 31 2c 64 74 2a 33 2d 2e 33 29 2a 62 65 6c 6f t*af,y);..dt=min(1,dt*3-.3)*belo
2bc0 77 28 6d 69 6e 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 29 2c 31 29 2a 69 66 28 69 2c 31 2c 30 w(min(abs(x),abs(y)),1)*if(i,1,0
2be0 29 3b 0d 0a 72 65 64 3d 63 72 2a 64 74 3b 67 72 65 65 6e 3d 63 67 2a 64 74 3b 62 6c 75 65 3d 63 );..red=cr*dt;green=cg*dt;blue=c
2c00 62 2a 64 74 3b 00 33 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 b*dt;.3...t=t+0.02;ox=cos(t)*cos
2c20 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 (t*.379+1)*cos(sin(t*.141));oy=s
2c40 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 in(t*.91)*cos(-t*.71)*.4;oz=sin(
2c60 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d t)*cos(-t*.41)*sin(cos(t*.631))-
2c80 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b .7;ot=1+.7/sqrt(sqr(ox)+sqr(oy)+
2ca0 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 sqr(oz));ox=ox*ot;oy=min(.4,abs(
2cc0 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 oy)*ot)*sign(oy);oz=oz*ot;ry=-at
2ce0 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e an2(-ox,oz)-sin(t)*cos(t*.914)*.
2d00 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 3;rz=-cos(t*.241)*cos(t*.191+2)*
2d20 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e cos(sin(t*.091))*5;rx=atan2(oy-.
2d40 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 63 78 3d 63 6f 73 28 2,sqrt(sqr(ox)+sqr(oz)));cx=cos(
2d60 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e rx);sx=sin(rx);cy=cos(ry);sy=sin
2d80 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 (ry);cz=cos(rz);sz=sin(rz);x=0;y
2da0 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 3d =0;af=w/h;t=t+ti*.01;ti=ti*.9;u=
2dc0 30 3b 79 6f 3d 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 28 61 62 6f 76 65 28 79 6f 2c 31 29 2c 79 0;yo=yo+.045;yo=if(above(yo,1),y
2de0 6f 2d 32 2c 79 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c o-2,yo);cr=min(1,abs(getosc(i,0,
2e00 30 29 2a 32 29 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 6e 28 31 2c 2e 35 2b 67 65 74 73 70 65 63 0)*2));cg=cr;cb=min(1,.5+getspec
2e20 28 30 2c 2e 31 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 00 48 00 00 (0,.1,0)*2);bf=bf*.9+bft*.1;.H..
2e40 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 .ot=min(0,getspec(0,.1,0)*2-1);t
2e60 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 i=5*(ot+if(ot,1,0));bft=getosc(0
2e80 2e 37 2c 30 2c 30 29 3b 00 29 00 00 00 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 .7,0,0);.)...n=50;tpi=acos(-1)*2
2ea0 3b 79 6f 3d 2d 2e 36 36 3b a4 20 43 6f 69 6c 20 4c 65 66 74 3b 00 02 00 00 00 01 00 00 00 ff ff ;yo=-.66;..Coil.Left;...........
2ec0 ff 00 01 00 00 00 24 00 00 00 46 04 00 00 01 80 01 00 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 70 ......$...F........u=u+1;x1=u*tp
2ee0 69 2a 2e 32 34 2b 30 2e 37 30 37 3b 0d 0a 70 7a 3d 73 69 6e 28 78 31 29 2a 2e 31 2b 79 6f 2a 31 i*.24+0.707;..pz=sin(x1)*.1+yo*1
2f00 30 3b 70 78 3d 63 6f 73 28 78 31 29 2a 2e 31 2b 31 2e 39 2d 73 71 72 28 70 7a 29 2a 62 66 2a 2e 0;px=cos(x1)*.1+1.9-sqr(pz)*bf*.
2f20 30 38 3b 70 79 3d 28 69 2a 32 2d 31 29 2a 2e 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 08;py=(i*2-1)*.6;....px=px+ox;py
2f40 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 =py+oy;pz=pz+oz;..x1=px*cy-pz*sy
2f60 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 ;z1=px*sy+pz*cy;..y2=py*cx-z1*sx
2f80 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a ;z2=py*sx+z1*cx;..x3=x1*cz-y2*sz
2fa0 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 ;y3=x1*sz+y2*cz;..dt=if(above(z2
2fc0 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 33 2a 64 74 2c 78 29 ,.01),1/z2,0);..x=if(dt,x3*dt,x)
2fe0 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 6d 69 6e 28 31 2c ;y=if(dt,y3*dt*af,y);..dt=min(1,
3000 64 74 2a 33 2d 2e 33 29 2a 62 65 6c 6f 77 28 6d 69 6e 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 dt*3-.3)*below(min(abs(x),abs(y)
3020 29 2c 31 29 2a 69 66 28 69 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 63 72 2a 64 74 3b 67 72 65 65 6e ),1)*if(i,1,0);..red=cr*dt;green
3040 3d 63 67 2a 64 74 3b 62 6c 75 65 3d 63 62 2a 64 74 3b 00 33 02 00 00 74 3d 74 2b 30 2e 30 32 3b =cg*dt;blue=cb*dt;.3...t=t+0.02;
3060 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 ox=cos(t)*cos(t*.379+1)*cos(sin(
3080 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 t*.141));oy=sin(t*.91)*cos(-t*.7
30a0 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 1)*.4;oz=sin(t)*cos(-t*.41)*sin(
30c0 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 cos(t*.631))-.7;ot=1+.7/sqrt(sqr
30e0 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f (ox)+sqr(oy)+sqr(oz));ox=ox*ot;o
3100 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a y=min(.4,abs(oy)*ot)*sign(oy);oz
3120 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a =oz*ot;ry=-atan2(-ox,oz)-sin(t)*
3140 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 cos(t*.914)*.3;rz=-cos(t*.241)*c
3160 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b os(t*.191+2)*cos(sin(t*.091))*5;
3180 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 rx=atan2(oy-.2,sqrt(sqr(ox)+sqr(
31a0 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 oz)));cx=cos(rx);sx=sin(rx);cy=c
31c0 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d os(ry);sy=sin(ry);cz=cos(rz);sz=
31e0 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 sin(rz);x=0;y=0;af=w/h;t=t+ti*.0
3200 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 3d 30 3b 79 6f 3d 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 28 1;ti=ti*.9;u=0;yo=yo+.045;yo=if(
3220 61 62 6f 76 65 28 79 6f 2c 31 29 2c 79 6f 2d 32 2c 79 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 62 above(yo,1),yo-2,yo);cr=min(1,ab
3240 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 32 29 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 6e s(getosc(i,0,0)*2));cg=cr;cb=min
3260 28 31 2c 2e 35 2b 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a 2e (1,.5+getspec(0,.1,0)*2);bf=bf*.
3280 39 2b 62 66 74 2a 2e 31 3b 00 48 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 9+bft*.1;.H...ot=min(0,getspec(0
32a0 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 ,.1,0)*2-1);ti=5*(ot+if(ot,1,0))
32c0 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 2a 00 00 00 6e 3d 35 30 3b 74 ;bft=getosc(0.7,0,0);.*...n=50;t
32e0 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 79 6f 3d 2d 2e 36 36 3b a4 20 43 6f 69 6c 20 52 69 67 pi=acos(-1)*2;yo=-.66;..Coil.Rig
3300 68 74 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 01 80 ht;.................(...........
3320 24 00 00 00 a5 04 00 00 01 7a 01 00 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 70 69 2a 2e 32 34 2b $........z...u=u+1;x1=u*tpi*.24+
3340 30 2e 37 30 37 3b 0d 0a 70 7a 3d 70 7a 2d 6f 7a 2b 28 72 61 6e 64 28 33 29 2d 31 29 2a 2e 30 32 0.707;..pz=pz-oz+(rand(3)-1)*.02
3360 3b 70 78 3d 70 78 2d 6f 78 2b 28 72 61 6e 64 28 33 29 2d 31 29 2a 2e 30 32 3b 70 79 3d 28 69 2a ;px=px-ox+(rand(3)-1)*.02;py=(i*
3380 32 2d 31 29 2a 2e 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 2-1)*.6;....px=px+ox;py=py+oy;pz
33a0 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 =pz+oz;..x1=px*cy-pz*sy;z1=px*sy
33c0 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 +pz*cy;..y2=py*cx-z1*sx;z2=py*sx
33e0 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a +z1*cx;..x3=x1*cz-y2*sz;y3=x1*sz
3400 2b 79 32 2a 63 7a 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 +y2*cz;..dt=if(above(z2,.01),1/z
3420 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 2,0);..x=if(dt,x3*dt,x);y=if(dt,
3440 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 6d 69 6e 28 31 2c 64 74 2a 33 2d 2e 33 29 2a y3*dt*af,y);..dt=min(1,dt*3-.3)*
3460 62 65 6c 6f 77 28 6d 69 6e 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 29 2c 31 29 2a 69 66 28 69 below(min(abs(x),abs(y)),1)*if(i
3480 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 64 74 2a 2e 35 3b 67 72 65 65 6e 3d 64 74 2a 2e 35 3b 62 6c ,1,0);..red=dt*.5;green=dt*.5;bl
34a0 75 65 3d 64 74 3b 00 56 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f ue=dt;.V...t=t+0.02;ox=cos(t)*co
34c0 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d s(t*.379+1)*cos(sin(t*.141));oy=
34e0 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e sin(t*.91)*cos(-t*.71)*.4;oz=sin
3500 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 (t)*cos(-t*.41)*sin(cos(t*.631))
3520 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 -.7;ot=1+.7/sqrt(sqr(ox)+sqr(oy)
3540 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 +sqr(oz));ox=ox*ot;oy=min(.4,abs
3560 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 (oy)*ot)*sign(oy);oz=oz*ot;ry=-a
3580 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a tan2(-ox,oz)-sin(t)*cos(t*.914)*
35a0 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 .3;rz=-cos(t*.241)*cos(t*.191+2)
35c0 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d *cos(sin(t*.091))*5;rx=atan2(oy-
35e0 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 63 78 3d 63 6f 73 .2,sqrt(sqr(ox)+sqr(oz)));cx=cos
3600 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 (rx);sx=sin(rx);cy=cos(ry);sy=si
3620 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b n(ry);cz=cos(rz);sz=sin(rz);x=0;
3640 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 y=0;af=w/h;t=t+ti*.01;ti=ti*.9;u
3660 3d 30 3b 79 6f 3d 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 28 61 62 6f 76 65 28 79 6f 2c 31 29 2c =0;yo=yo+.045;yo=if(above(yo,1),
3680 79 6f 2d 32 2c 79 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 yo-2,yo);cr=min(1,abs(getosc(i,0
36a0 2c 30 29 2a 32 29 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 6e 28 31 2c 2e 35 2b 67 65 74 73 70 65 ,0)*2));cg=cr;cb=min(1,.5+getspe
36c0 63 28 30 2c 2e 31 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 70 7a 3d c(0,.1,0)*2);bf=bf*.9+bft*.1;pz=
36e0 79 6f 2a 31 30 2b 6f 7a 3b 70 78 3d 6c 78 2b 6f 78 2d 73 71 72 28 70 7a 29 2a 62 66 2a 2e 30 38 yo*10+oz;px=lx+ox-sqr(pz)*bf*.08
3700 00 6d 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d .m...ot=min(0,getspec(0,.1,0)*2-
3720 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 1);ti=5*(ot+if(ot,1,0));bft=geto
3740 73 63 28 30 2e 37 2c 30 2c 30 29 3b 6c 78 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 79 sc(0.7,0,0);lx=rand(100)*.02-1;y
3760 6f 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 00 47 00 00 00 a4 20 4c 69 67 68 74 6e 69 6e o=rand(100)*.02-1.G.....Lightnin
3780 67 3b 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 79 6f 3d 72 61 6e 64 28 31 30 g;n=50;tpi=acos(-1)*2;yo=rand(10
37a0 30 29 2a 2e 30 32 2d 31 3b 6c 78 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 00 02 00 00 0)*.02-1;lx=rand(100)*.02-1;....
37c0 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 a5 04 00 00 01 7a 01 00 00 75 3d 75 2b 31 3b .............$........z...u=u+1;
37e0 78 31 3d 75 2a 74 70 69 2a 2e 32 34 2b 30 2e 37 30 37 3b 0d 0a 70 7a 3d 70 7a 2d 6f 7a 2b 28 72 x1=u*tpi*.24+0.707;..pz=pz-oz+(r
3800 61 6e 64 28 33 29 2d 31 29 2a 2e 30 32 3b 70 78 3d 70 78 2d 6f 78 2b 28 72 61 6e 64 28 33 29 2d and(3)-1)*.02;px=px-ox+(rand(3)-
3820 31 29 2a 2e 30 32 3b 70 79 3d 28 69 2a 32 2d 31 29 2a 2e 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 1)*.02;py=(i*2-1)*.6;....px=px+o
3840 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 x;py=py+oy;pz=pz+oz;..x1=px*cy-p
3860 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a z*sy;z1=px*sy+pz*cy;..y2=py*cx-z
3880 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 1*sx;z2=py*sx+z1*cx;..x3=x1*cz-y
38a0 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 2*sz;y3=x1*sz+y2*cz;..dt=if(abov
38c0 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 2c 78 33 2a 64 e(z2,.01),1/z2,0);..x=if(dt,x3*d
38e0 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 6d 69 t,x);y=if(dt,y3*dt*af,y);..dt=mi
3900 6e 28 31 2c 64 74 2a 33 2d 2e 33 29 2a 62 65 6c 6f 77 28 6d 69 6e 28 61 62 73 28 78 29 2c 61 62 n(1,dt*3-.3)*below(min(abs(x),ab
3920 73 28 79 29 29 2c 31 29 2a 69 66 28 69 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 64 74 2a 2e 35 3b 67 s(y)),1)*if(i,1,0);..red=dt*.5;g
3940 72 65 65 6e 3d 64 74 2a 2e 35 3b 62 6c 75 65 3d 64 74 3b 00 56 02 00 00 74 3d 74 2b 30 2e 30 32 reen=dt*.5;blue=dt;.V...t=t+0.02
3960 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e ;ox=cos(t)*cos(t*.379+1)*cos(sin
3980 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e (t*.141));oy=sin(t*.91)*cos(-t*.
39a0 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 71)*.4;oz=sin(t)*cos(-t*.41)*sin
39c0 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 (cos(t*.631))-.7;ot=1+.7/sqrt(sq
39e0 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b r(ox)+sqr(oy)+sqr(oz));ox=ox*ot;
3a00 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f oy=min(.4,abs(oy)*ot)*sign(oy);o
3a20 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 z=oz*ot;ry=-atan2(-ox,oz)-sin(t)
3a40 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a *cos(t*.914)*.3;rz=-cos(t*.241)*
3a60 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 cos(t*.191+2)*cos(sin(t*.091))*5
3a80 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 ;rx=atan2(oy-.2,sqrt(sqr(ox)+sqr
3aa0 28 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d (oz)));cx=cos(rx);sx=sin(rx);cy=
3ac0 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a cos(ry);sy=sin(ry);cz=cos(rz);sz
3ae0 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e =sin(rz);x=0;y=0;af=w/h;t=t+ti*.
3b00 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 3d 30 3b 79 6f 3d 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 01;ti=ti*.9;u=0;yo=yo+.045;yo=if
3b20 28 61 62 6f 76 65 28 79 6f 2c 31 29 2c 79 6f 2d 32 2c 79 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 (above(yo,1),yo-2,yo);cr=min(1,a
3b40 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 32 29 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 bs(getosc(i,0,0)*2));cg=cr;cb=mi
3b60 6e 28 31 2c 2e 35 2b 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a n(1,.5+getspec(0,.1,0)*2);bf=bf*
3b80 2e 39 2b 62 66 74 2a 2e 31 3b 70 7a 3d 79 6f 2a 31 30 2b 6f 7a 3b 70 78 3d 6c 78 2b 6f 78 2d 73 .9+bft*.1;pz=yo*10+oz;px=lx+ox-s
3ba0 71 72 28 70 7a 29 2a 62 66 2a 2e 30 38 00 6d 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 qr(pz)*bf*.08.m...ot=min(0,getsp
3bc0 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 ec(0,.1,0)*2-1);ti=5*(ot+if(ot,1
3be0 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 6c 78 3d 72 61 6e 64 ,0));bft=getosc(0.7,0,0);lx=rand
3c00 28 31 30 30 29 2a 2e 30 32 2d 31 3b 79 6f 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 00 47 (100)*.02-1;yo=rand(100)*.02-1.G
3c20 00 00 00 a4 20 4c 69 67 68 74 6e 69 6e 67 3b 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 .....Lightning;n=50;tpi=acos(-1)
3c40 2a 32 3b 79 6f 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 6c 78 3d 72 61 6e 64 28 31 30 *2;yo=rand(100)*.02-1;lx=rand(10
3c60 30 29 2a 2e 30 32 2d 31 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 a5 04 0)*.02-1;.................$.....
3c80 00 00 01 7a 01 00 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 70 69 2a 2e 32 34 2b 30 2e 37 30 37 3b ...z...u=u+1;x1=u*tpi*.24+0.707;
3ca0 0d 0a 70 7a 3d 70 7a 2d 6f 7a 2b 28 72 61 6e 64 28 33 29 2d 31 29 2a 2e 30 32 3b 70 78 3d 70 78 ..pz=pz-oz+(rand(3)-1)*.02;px=px
3cc0 2d 6f 78 2b 28 72 61 6e 64 28 33 29 2d 31 29 2a 2e 30 32 3b 70 79 3d 28 69 2a 32 2d 31 29 2a 2e -ox+(rand(3)-1)*.02;py=(i*2-1)*.
3ce0 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 6;....px=px+ox;py=py+oy;pz=pz+oz
3d00 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 ;..x1=px*cy-pz*sy;z1=px*sy+pz*cy
3d20 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 ;..y2=py*cx-z1*sx;z2=py*sx+z1*cx
3d40 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a ;..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz
3d60 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);.
3d80 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a .x=if(dt,x3*dt,x);y=if(dt,y3*dt*
3da0 61 66 2c 79 29 3b 0d 0a 64 74 3d 6d 69 6e 28 31 2c 64 74 2a 33 2d 2e 33 29 2a 62 65 6c 6f 77 28 af,y);..dt=min(1,dt*3-.3)*below(
3dc0 6d 69 6e 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 29 2c 31 29 2a 69 66 28 69 2c 31 2c 30 29 3b min(abs(x),abs(y)),1)*if(i,1,0);
3de0 0d 0a 72 65 64 3d 64 74 2a 2e 35 3b 67 72 65 65 6e 3d 64 74 2a 2e 35 3b 62 6c 75 65 3d 64 74 3b ..red=dt*.5;green=dt*.5;blue=dt;
3e00 00 56 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 .V...t=t+0.02;ox=cos(t)*cos(t*.3
3e20 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 79+1)*cos(sin(t*.141));oy=sin(t*
3e40 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f .91)*cos(-t*.71)*.4;oz=sin(t)*co
3e60 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 s(-t*.41)*sin(cos(t*.631))-.7;ot
3e80 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f =1+.7/sqrt(sqr(ox)+sqr(oy)+sqr(o
3ea0 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f z));ox=ox*ot;oy=min(.4,abs(oy)*o
3ec0 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d t)*sign(oy);oz=oz*ot;ry=-atan2(-
3ee0 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d ox,oz)-sin(t)*cos(t*.914)*.3;rz=
3f00 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 -cos(t*.241)*cos(t*.191+2)*cos(s
3f20 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 in(t*.091))*5;rx=atan2(oy-.2,sqr
3f40 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 t(sqr(ox)+sqr(oz)));cx=cos(rx);s
3f60 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b x=sin(rx);cy=cos(ry);sy=sin(ry);
3f80 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 cz=cos(rz);sz=sin(rz);x=0;y=0;af
3fa0 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 3d 30 3b 79 6f 3d =w/h;t=t+ti*.01;ti=ti*.9;u=0;yo=
3fc0 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 28 61 62 6f 76 65 28 79 6f 2c 31 29 2c 79 6f 2d 32 2c 79 yo+.045;yo=if(above(yo,1),yo-2,y
3fe0 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 32 29 o);cr=min(1,abs(getosc(i,0,0)*2)
4000 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 6e 28 31 2c 2e 35 2b 67 65 74 73 70 65 63 28 30 2c 2e 31 );cg=cr;cb=min(1,.5+getspec(0,.1
4020 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 70 7a 3d 79 6f 2a 31 30 2b ,0)*2);bf=bf*.9+bft*.1;pz=yo*10+
4040 6f 7a 3b 70 78 3d 6c 78 2b 6f 78 2d 73 71 72 28 70 7a 29 2a 62 66 2a 2e 30 38 00 6d 00 00 00 6f oz;px=lx+ox-sqr(pz)*bf*.08.m...o
4060 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d t=min(0,getspec(0,.1,0)*2-1);ti=
4080 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 5*(ot+if(ot,1,0));bft=getosc(0.7
40a0 2c 30 2c 30 29 3b 6c 78 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 79 6f 3d 72 61 6e 64 ,0,0);lx=rand(100)*.02-1;yo=rand
40c0 28 31 30 30 29 2a 2e 30 32 2d 31 00 47 00 00 00 a4 20 4c 69 67 68 74 6e 69 6e 67 3b 6e 3d 35 30 (100)*.02-1.G.....Lightning;n=50
40e0 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 79 6f 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 ;tpi=acos(-1)*2;yo=rand(100)*.02
4100 2d 31 3b 6c 78 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 00 02 00 00 00 01 00 00 00 ff -1;lx=rand(100)*.02-1;..........
4120 ff ff 00 01 00 00 00 24 00 00 00 a5 04 00 00 01 7a 01 00 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 .......$........z...u=u+1;x1=u*t
4140 70 69 2a 2e 32 34 2b 30 2e 37 30 37 3b 0d 0a 70 7a 3d 70 7a 2d 6f 7a 2b 28 72 61 6e 64 28 33 29 pi*.24+0.707;..pz=pz-oz+(rand(3)
4160 2d 31 29 2a 2e 30 32 3b 70 78 3d 70 78 2d 6f 78 2b 28 72 61 6e 64 28 33 29 2d 31 29 2a 2e 30 32 -1)*.02;px=px-ox+(rand(3)-1)*.02
4180 3b 70 79 3d 28 69 2a 32 2d 31 29 2a 2e 36 3b 0d 0a 0d 0a 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 ;py=(i*2-1)*.6;....px=px+ox;py=p
41a0 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a y+oy;pz=pz+oz;..x1=px*cy-pz*sy;z
41c0 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 1=px*sy+pz*cy;..y2=py*cx-z1*sx;z
41e0 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 2=py*sx+z1*cx;..x3=x1*cz-y2*sz;y
4200 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 2e 3=x1*sz+y2*cz;..dt=if(above(z2,.
4220 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 01),1/z2,0);..x=if(dt,x3*dt,x);y
4240 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 6d 69 6e 28 31 2c 64 74 =if(dt,y3*dt*af,y);..dt=min(1,dt
4260 2a 33 2d 2e 33 29 2a 62 65 6c 6f 77 28 6d 69 6e 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 29 2c *3-.3)*below(min(abs(x),abs(y)),
4280 31 29 2a 69 66 28 69 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d 64 74 2a 2e 35 3b 67 72 65 65 6e 3d 64 1)*if(i,1,0);..red=dt*.5;green=d
42a0 74 2a 2e 35 3b 62 6c 75 65 3d 64 74 3b 00 56 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f t*.5;blue=dt;.V...t=t+0.02;ox=co
42c0 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 s(t)*cos(t*.379+1)*cos(sin(t*.14
42e0 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a 63 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 1));oy=sin(t*.91)*cos(-t*.71)*.4
4300 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 ;oz=sin(t)*cos(-t*.41)*sin(cos(t
4320 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b *.631))-.7;ot=1+.7/sqrt(sqr(ox)+
4340 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e sqr(oy)+sqr(oz));ox=ox*ot;oy=min
4360 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f (.4,abs(oy)*ot)*sign(oy);oz=oz*o
4380 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 t;ry=-atan2(-ox,oz)-sin(t)*cos(t
43a0 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a *.914)*.3;rz=-cos(t*.241)*cos(t*
43c0 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 .191+2)*cos(sin(t*.091))*5;rx=at
43e0 61 6e 32 28 6f 79 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 an2(oy-.2,sqrt(sqr(ox)+sqr(oz)))
4400 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 ;cx=cos(rx);sx=sin(rx);cy=cos(ry
4420 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 );sy=sin(ry);cz=cos(rz);sz=sin(r
4440 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d z);x=0;y=0;af=w/h;t=t+ti*.01;ti=
4460 74 69 2a 2e 39 3b 75 3d 30 3b 79 6f 3d 79 6f 2b 2e 30 34 35 3b 79 6f 3d 69 66 28 61 62 6f 76 65 ti*.9;u=0;yo=yo+.045;yo=if(above
4480 28 79 6f 2c 31 29 2c 79 6f 2d 32 2c 79 6f 29 3b 63 72 3d 6d 69 6e 28 31 2c 61 62 73 28 67 65 74 (yo,1),yo-2,yo);cr=min(1,abs(get
44a0 6f 73 63 28 69 2c 30 2c 30 29 2a 32 29 29 3b 63 67 3d 63 72 3b 63 62 3d 6d 69 6e 28 31 2c 2e 35 osc(i,0,0)*2));cg=cr;cb=min(1,.5
44c0 2b 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 29 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 +getspec(0,.1,0)*2);bf=bf*.9+bft
44e0 2a 2e 31 3b 70 7a 3d 79 6f 2a 31 30 2b 6f 7a 3b 70 78 3d 6c 78 2b 6f 78 2d 73 71 72 28 70 7a 29 *.1;pz=yo*10+oz;px=lx+ox-sqr(pz)
4500 2a 62 66 2a 2e 30 38 00 6d 00 00 00 6f 74 3d 6d 69 6e 28 30 2c 67 65 74 73 70 65 63 28 30 2c 2e *bf*.08.m...ot=min(0,getspec(0,.
4520 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 1,0)*2-1);ti=5*(ot+if(ot,1,0));b
4540 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 6c 78 3d 72 61 6e 64 28 31 30 30 29 2a ft=getosc(0.7,0,0);lx=rand(100)*
4560 2e 30 32 2d 31 3b 79 6f 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 00 47 00 00 00 a4 20 4c .02-1;yo=rand(100)*.02-1.G.....L
4580 69 67 68 74 6e 69 6e 67 3b 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b 79 6f 3d ightning;n=50;tpi=acos(-1)*2;yo=
45a0 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 6c 78 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 rand(100)*.02-1;lx=rand(100)*.02
45c0 2d 31 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 24 00 00 00 a5 04 00 00 01 7a 01 00 -1;.................$........z..
45e0 00 75 3d 75 2b 31 3b 78 31 3d 75 2a 74 70 69 2a 2e 32 34 2b 30 2e 37 30 37 3b 0d 0a 70 7a 3d 70 .u=u+1;x1=u*tpi*.24+0.707;..pz=p
4600 7a 2d 6f 7a 2b 28 72 61 6e 64 28 33 29 2d 31 29 2a 2e 30 32 3b 70 78 3d 70 78 2d 6f 78 2b 28 72 z-oz+(rand(3)-1)*.02;px=px-ox+(r
4620 61 6e 64 28 33 29 2d 31 29 2a 2e 30 32 3b 70 79 3d 28 69 2a 32 2d 31 29 2a 2e 36 3b 0d 0a 0d 0a and(3)-1)*.02;py=(i*2-1)*.6;....
4640 70 78 3d 70 78 2b 6f 78 3b 70 79 3d 70 79 2b 6f 79 3b 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d px=px+ox;py=py+oy;pz=pz+oz;..x1=
4660 70 78 2a 63 79 2d 70 7a 2a 73 79 3b 7a 31 3d 70 78 2a 73 79 2b 70 7a 2a 63 79 3b 0d 0a 79 32 3d px*cy-pz*sy;z1=px*sy+pz*cy;..y2=
4680 70 79 2a 63 78 2d 7a 31 2a 73 78 3b 7a 32 3d 70 79 2a 73 78 2b 7a 31 2a 63 78 3b 0d 0a 78 33 3d py*cx-z1*sx;z2=py*sx+z1*cx;..x3=
46a0 78 31 2a 63 7a 2d 79 32 2a 73 7a 3b 79 33 3d 78 31 2a 73 7a 2b 79 32 2a 63 7a 3b 0d 0a 64 74 3d x1*cz-y2*sz;y3=x1*sz+y2*cz;..dt=
46c0 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 28 if(above(z2,.01),1/z2,0);..x=if(
46e0 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b dt,x3*dt,x);y=if(dt,y3*dt*af,y);
4700 0d 0a 64 74 3d 6d 69 6e 28 31 2c 64 74 2a 33 2d 2e 33 29 2a 62 65 6c 6f 77 28 6d 69 6e 28 61 62 ..dt=min(1,dt*3-.3)*below(min(ab
4720 73 28 78 29 2c 61 62 73 28 79 29 29 2c 31 29 2a 69 66 28 69 2c 31 2c 30 29 3b 0d 0a 72 65 64 3d s(x),abs(y)),1)*if(i,1,0);..red=
4740 64 74 2a 2e 35 3b 67 72 65 65 6e 3d 64 74 2a 2e 35 3b 62 6c 75 65 3d 64 74 3b 00 56 02 00 00 74 dt*.5;green=dt*.5;blue=dt;.V...t
4760 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f 73 28 74 2a 2e 33 37 39 2b 31 29 2a =t+0.02;ox=cos(t)*cos(t*.379+1)*
4780 63 6f 73 28 73 69 6e 28 74 2a 2e 31 34 31 29 29 3b 6f 79 3d 73 69 6e 28 74 2a 2e 39 31 29 2a 63 cos(sin(t*.141));oy=sin(t*.91)*c
47a0 6f 73 28 2d 74 2a 2e 37 31 29 2a 2e 34 3b 6f 7a 3d 73 69 6e 28 74 29 2a 63 6f 73 28 2d 74 2a 2e os(-t*.71)*.4;oz=sin(t)*cos(-t*.
47c0 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 37 3b 6f 74 3d 31 2b 2e 37 2f 41)*sin(cos(t*.631))-.7;ot=1+.7/
47e0 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 29 3b 6f 78 sqrt(sqr(ox)+sqr(oy)+sqr(oz));ox
4800 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 34 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 =ox*ot;oy=min(.4,abs(oy)*ot)*sig
4820 6e 28 6f 79 29 3b 6f 7a 3d 6f 7a 2a 6f 74 3b 72 79 3d 2d 61 74 61 6e 32 28 2d 6f 78 2c 6f 7a 29 n(oy);oz=oz*ot;ry=-atan2(-ox,oz)
4840 2d 73 69 6e 28 74 29 2a 63 6f 73 28 74 2a 2e 39 31 34 29 2a 2e 33 3b 72 7a 3d 2d 63 6f 73 28 74 -sin(t)*cos(t*.914)*.3;rz=-cos(t
4860 2a 2e 32 34 31 29 2a 63 6f 73 28 74 2a 2e 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e *.241)*cos(t*.191+2)*cos(sin(t*.
4880 30 39 31 29 29 2a 35 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 28 091))*5;rx=atan2(oy-.2,sqrt(sqr(
48a0 6f 78 29 2b 73 71 72 28 6f 7a 29 29 29 3b 63 78 3d 63 6f 73 28 72 78 29 3b 73 78 3d 73 69 6e 28 ox)+sqr(oz)));cx=cos(rx);sx=sin(
48c0 72 78 29 3b 63 79 3d 63 6f 73 28 72 79 29 3b 73 79 3d 73 69 6e 28 72 79 29 3b 63 7a 3d 63 6f 73 rx);cy=cos(ry);sy=sin(ry);cz=cos
48e0 28 72 7a 29 3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 78 3d 30 3b 79 3d 30 3b 61 66 3d 77 2f 68 3b 74 (rz);sz=sin(rz);x=0;y=0;af=w/h;t
4900 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 39 3b 75 3d 30 3b 79 6f 3d 79 6f 2b 2e 30 34 =t+ti*.01;ti=ti*.9;u=0;yo=yo+.04
4920 35 3b 79 6f 3d 69 66 28 61 62 6f 76 65 28 79 6f 2c 31 29 2c 79 6f 2d 32 2c 79 6f 29 3b 63 72 3d 5;yo=if(above(yo,1),yo-2,yo);cr=
4940 6d 69 6e 28 31 2c 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 2a 32 29 29 3b 63 67 3d 63 min(1,abs(getosc(i,0,0)*2));cg=c
4960 72 3b 63 62 3d 6d 69 6e 28 31 2c 2e 35 2b 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 29 r;cb=min(1,.5+getspec(0,.1,0)*2)
4980 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 70 7a 3d 79 6f 2a 31 30 2b 6f 7a 3b 70 78 3d ;bf=bf*.9+bft*.1;pz=yo*10+oz;px=
49a0 6c 78 2b 6f 78 2d 73 71 72 28 70 7a 29 2a 62 66 2a 2e 30 38 00 6d 00 00 00 6f 74 3d 6d 69 6e 28 lx+ox-sqr(pz)*bf*.08.m...ot=min(
49c0 30 2c 67 65 74 73 70 65 63 28 30 2c 2e 31 2c 30 29 2a 32 2d 31 29 3b 74 69 3d 35 2a 28 6f 74 2b 0,getspec(0,.1,0)*2-1);ti=5*(ot+
49e0 69 66 28 6f 74 2c 31 2c 30 29 29 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b if(ot,1,0));bft=getosc(0.7,0,0);
4a00 6c 78 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 79 6f 3d 72 61 6e 64 28 31 30 30 29 2a lx=rand(100)*.02-1;yo=rand(100)*
4a20 2e 30 32 2d 31 00 47 00 00 00 a4 20 4c 69 67 68 74 6e 69 6e 67 3b 6e 3d 35 30 3b 74 70 69 3d 61 .02-1.G.....Lightning;n=50;tpi=a
4a40 63 6f 73 28 2d 31 29 2a 32 3b 79 6f 3d 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 6c 78 3d cos(-1)*2;yo=rand(100)*.02-1;lx=
4a60 72 61 6e 64 28 31 30 30 29 2a 2e 30 32 2d 31 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 rand(100)*.02-1;................
4a80 00 .
generated by cgit (git 2.34.1) at 2025-08-24 09:10:57 -0400