aboutsummaryrefslogtreecommitdiff
path: root/Src/resources/data/avs/Winamp 5 Picks/UnConeD - Tie Tunnel SSC.avs
blob: 8624b4a9a08cce2ffc6a8f10a81d0983600c4f7d (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 04 03 00 Nullsoft.AVS.Preset.0.2.........
0020 00 00 03 00 00 20 57 68 61 63 6b 6f 20 41 56 53 20 56 20 2d 20 54 69 65 20 54 75 6e 6e 65 6c 20 ......Whacko.AVS.V.-.Tie.Tunnel.
0040 53 53 43 0d 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 SSC..---------------------------
0060 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 0d 0a 0d 0a ----------------------------....
0080 49 73 20 54 69 65 20 54 75 6e 6e 65 6c 20 44 4d 20 6a 75 73 74 20 61 20 6c 69 74 74 6c 65 20 74 Is.Tie.Tunnel.DM.just.a.little.t
00a0 6f 6f 20 68 61 72 64 20 6f 6e 20 79 6f 75 72 20 43 50 55 3f 20 57 65 6c 6c 20 74 68 65 6e 20 74 oo.hard.on.your.CPU?.Well.then.t
00c0 68 69 73 20 70 72 65 73 65 74 20 69 73 20 69 64 65 61 6c 20 66 6f 72 20 79 6f 75 2e 20 49 20 6d his.preset.is.ideal.for.you..I.m
00e0 61 64 65 20 74 68 69 73 20 70 72 65 73 65 74 20 62 65 63 61 75 73 65 20 74 68 65 20 6f 72 69 67 ade.this.preset.because.the.orig
0100 69 6e 61 6c 20 54 69 65 20 54 75 6e 6e 65 6c 20 44 4d 20 77 61 73 20 65 76 65 6e 20 73 6c 6f 77 inal.Tie.Tunnel.DM.was.even.slow
0120 65 72 20 74 68 61 6e 20 69 74 20 69 73 20 6e 6f 77 2e 0d 0a 0d 0a 54 68 65 20 73 70 61 63 65 20 er.than.it.is.now.....The.space.
0140 73 68 69 70 20 69 73 20 66 6c 79 69 6e 67 20 74 68 72 6f 75 67 68 20 72 6f 74 61 74 69 6e 67 20 ship.is.flying.through.rotating.
0160 72 69 6e 67 73 20 77 68 69 63 68 20 66 6c 61 73 68 20 61 6e 64 20 65 78 70 61 6e 64 20 69 6e 20 rings.which.flash.and.expand.in.
0180 74 75 6e 65 20 74 6f 20 74 68 65 20 6d 75 73 69 63 2e 20 56 65 72 79 20 73 74 72 6f 62 6f 73 63 tune.to.the.music..Very.strobosc
01a0 6f 70 69 63 2c 20 61 6e 64 20 6c 6f 6f 6b 73 20 67 72 65 61 74 20 61 74 20 68 69 67 68 20 46 50 opic,.and.looks.great.at.high.FP
01c0 53 65 73 2e 20 54 68 69 6e 6b 20 6f 66 20 69 74 20 61 73 20 61 20 73 74 79 6c 69 73 65 64 20 77 Ses..Think.of.it.as.a.stylised.w
01e0 6f 72 6d 68 6f 6c 65 20 3b 29 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ormhole.;).....-----------------
0200 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 0d -------------------------------.
0220 0a 55 6e 43 6f 6e 65 44 20 2f 20 53 74 65 76 65 6e 20 57 69 74 74 65 6e 73 0d 0a 5b 20 73 74 65 .UnConeD./.Steven.Wittens..[.ste
0240 76 65 6e 40 61 63 6b 6f 2e 6e 65 74 20 2d 20 77 77 77 2e 61 63 6b 6f 2e 6e 65 74 20 5d 0d 0a 0d ven@acko.net.-.www.acko.net.]...
0260 0a 28 49 66 20 79 6f 75 20 77 69 73 68 20 74 6f 20 75 73 65 20 74 68 69 73 20 70 72 65 73 65 74 .(If.you.wish.to.use.this.preset
0280 20 70 61 72 74 69 61 6c 6c 79 20 6f 72 20 77 68 6f 6c 65 20 69 6e 20 79 6f 75 72 20 6f 77 6e 20 .partially.or.whole.in.your.own.
02a0 70 72 65 73 65 74 73 20 6f 72 20 70 61 63 6b 73 2c 20 79 6f 75 20 6d 61 79 20 64 6f 20 73 6f 20 presets.or.packs,.you.may.do.so.
02c0 70 72 6f 76 69 64 65 64 20 74 68 61 74 20 61 20 63 6c 65 61 72 20 63 72 65 64 69 74 20 6d 65 73 provided.that.a.clear.credit.mes
02e0 73 61 67 65 20 69 73 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 79 6f 75 72 20 70 72 65 73 65 74 2c sage.is.included.in.your.preset,
0300 20 61 6c 6f 6e 67 20 77 69 74 68 20 6d 79 20 63 6f 6e 74 61 63 74 20 69 6e 66 6f 72 6d 61 74 69 .along.with.my.contact.informati
0320 6f 6e 2e 29 00 2c 00 00 00 04 00 00 00 01 00 00 00 28 00 00 00 04 00 00 00 01 00 03 80 24 00 00 on.).,...........(...........$..
0340 00 ad 04 00 00 01 94 01 00 00 75 3d 69 2a 74 70 69 2a 38 3b 70 78 3d 63 6f 73 28 75 29 2a 2e 31 ..........u=i*tpi*8;px=cos(u)*.1
0360 3b 70 7a 3d 73 69 6e 28 75 29 2a 2e 31 3b 70 7a 3d 70 7a 3b 0d 0a 75 3d 69 2a 31 36 25 31 37 2f ;pz=sin(u)*.1;pz=pz;..u=i*16%17/
0380 31 36 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 29 16*tpi;py=px*sin(u);px=px*cos(u)
03a0 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 72 ;..x1=px*cr-py*sr;py=px*sr+py*cr
03c0 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 63 ;..px=x1+ox+sin(t)*cos(t*.714)*c
03e0 6f 73 28 73 69 6e 28 74 2a 2e 34 31 31 29 29 2a 2e 35 3b 0d 0a 70 79 3d 70 79 2b 6f 79 2b 73 69 os(sin(t*.411))*.5;..py=py+oy+si
0400 6e 28 74 2a 2e 34 31 36 31 29 2a 63 6f 73 28 74 2a 2e 33 35 31 29 2a 63 6f 73 28 73 69 6e 28 74 n(t*.4161)*cos(t*.351)*cos(sin(t
0420 2a 2e 34 35 39 29 29 2a 2e 35 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 *.459))*.5;..pz=pz+oz;..x1=px*cy
0440 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
0460 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
0480 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
04a0 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
04c0 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 00 5c 02 *dt,x);y=if(dt,y3*dt*af,y);...\.
04e0 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 37 39 2b ..t=t+0.02;ox=cos(t)*cos(t*.379+
0500 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 2e 39 31 1)*cos(sin(t*.141));oy=sin(t*.91
0520 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 73 28 2d )*cos(-t*.71)*.4;oz=sin(t)*cos(-
0540 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 32 3b 6f 74 3d 73 69 t*.41)*sin(cos(t*.631))-.2;ot=si
0560 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 n(t*.941)*cos(t*.514+1)*sin(cos(
0580 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f t*.219))*.7+1.9;ot=ot/sqrt(sqr(o
05a0 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 79 3d x)+sqr(oy)+sqr(oz));ox=ox*ot;oy=
05c0 6d 69 6e 28 2e 38 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 min(.8,abs(oy)*ot)*sign(oy);oz=o
05e0 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 63 6f z*ot;ry=-atan2(-ox,oz)-sin(t)*co
0600 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 6f 73 s(t*.914)*.3;rz=-cos(t*.241)*cos
0620 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 31 3b 72 78 (t*.191+2)*cos(sin(t*.091))*1;rx
0640 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 6f 7a =atan2(oy-.2,sqrt(sqr(ox)+sqr(oz
0660 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 6f 73 )));cx=cos(rx);sx=sin(rx);cy=cos
0680 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 73 69 (ry);sy=sin(ry);cz=cos(rz);sz=si
06a0 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 31 3b n(rz);x=0;y=0;af=w/h;t=t+ti*.01;
06c0 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 73 68 72 3d 73 69 6e ti=ti*.8;bf=bf*.9+bft*.1;shr=sin
06e0 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 73 2d 62 (t*.0411)*cos(t*.0949)+sbo*sbs-b
0700 66 2a 31 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 f*1.5;cr=cos(shr);sr=sin(shr);sb
0720 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 30 29 3b 00 7d 00 o=if(above(sbo,0),sbo-0.1,0);.}.
0740 00 00 74 69 3d 35 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 69 ..ti=5;bft=getosc(0.7,0,0);sbo=i
0760 66 28 73 62 6f 2b 67 65 74 6f 73 63 28 2e 37 39 2c 30 2c 30 29 2a 31 30 30 25 31 30 2c 73 62 6f f(sbo+getosc(.79,0,0)*100%10,sbo
0780 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 28 67 ,6.28);sbs=if(equal(sbo,6.28),(g
07a0 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 00 1f etosc(.1,0,0)*256%2)*2-1,sbs);..
07c0 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 6f 63 6b 70 69 74 ...n=50;tpi=acos(-1)*2;..Cockpit
07e0 3b 00 02 00 00 00 01 00 00 00 25 25 25 00 01 00 00 00 24 00 00 00 89 04 00 00 01 6f 01 00 00 75 ;.........%%%.....$........o...u
0800 3d 69 2a 74 70 69 2a 31 36 3b 70 79 3d 63 6f 73 28 75 29 2a 2e 30 33 3b 70 7a 3d 73 69 6e 28 75 =i*tpi*16;py=cos(u)*.03;pz=sin(u
0820 29 2a 2e 30 33 3b 70 78 3d 69 2a 2e 34 2d 2e 32 3b 0d 0a 78 31 3d 70 78 2a 63 72 2d 70 79 2a 73 )*.03;px=i*.4-.2;..x1=px*cr-py*s
0840 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(
0860 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))*
0880 2e 35 3b 0d 0a 70 79 3d 70 79 2b 6f 79 2b 73 69 6e 28 74 2a 2e 34 31 36 31 29 2a 63 6f 73 28 74 .5;..py=py+oy+sin(t*.4161)*cos(t
08a0 2a 2e 33 35 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 34 35 39 29 29 2a 2e 35 3b 0d 0a 70 7a 3d *.351)*cos(sin(t*.459))*.5;..pz=
08c0 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+
08e0 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+
0900 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+
0920 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
0940 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
0960 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 00 5c 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
0980 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
09a0 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
09c0 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
09e0 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a *.631))-.2;ot=sin(t*.941)*cos(t*
0a00 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b .514+1)*sin(cos(t*.219))*.7+1.9;
0a20 6f 74 3d 6f 74 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 ot=ot/sqrt(sqr(ox)+sqr(oy)+sqr(o
0a40 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f z));ox=ox*ot;oy=min(.8,abs(oy)*o
0a60 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(-
0a80 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=
0aa0 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
0ac0 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 in(t*.091))*1;rx=atan2(oy-.2,sqr
0ae0 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
0b00 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);
0b20 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
0b40 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e =w/h;t=t+ti*.01;ti=ti*.8;bf=bf*.
0b60 39 2b 62 66 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 9+bft*.1;shr=sin(t*.0411)*cos(t*
0b80 2e 30 39 34 39 29 2b 73 62 6f 2a 73 62 73 2d 62 66 2a 31 2e 35 3b 63 72 3d 63 6f 73 28 73 68 72 .0949)+sbo*sbs-bf*1.5;cr=cos(shr
0ba0 29 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 );sr=sin(shr);sbo=if(above(sbo,0
0bc0 29 2c 73 62 6f 2d 30 2e 31 2c 30 29 3b 00 7d 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 ),sbo-0.1,0);.}...ti=5;bft=getos
0be0 63 28 30 2e 37 2c 30 2c 30 29 3b 73 62 6f 3d 69 66 28 73 62 6f 2b 67 65 74 6f 73 63 28 2e 37 39 c(0.7,0,0);sbo=if(sbo+getosc(.79
0c00 2c 30 2c 30 29 2a 31 30 30 25 31 30 2c 73 62 6f 2c 36 2e 32 38 29 3b 73 62 73 3d 69 66 28 65 71 ,0,0)*100%10,sbo,6.28);sbs=if(eq
0c20 75 61 6c 28 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 ual(sbo,6.28),(getosc(.1,0,0)*25
0c40 36 25 32 29 2a 32 2d 31 2c 73 62 73 29 3b 00 20 00 00 00 6e 3d 35 30 3b 74 70 69 3d 61 63 6f 73 6%2)*2-1,sbs);.....n=50;tpi=acos
0c60 28 2d 31 29 2a 32 3b a4 20 43 72 6f 73 73 62 61 72 3b 00 02 00 00 00 01 00 00 00 25 25 25 00 01 (-1)*2;..Crossbar;.........%%%..
0c80 00 00 00 24 00 00 00 8b 04 00 00 01 6a 01 00 00 75 3d 69 2a 74 70 69 2a 32 3b 70 79 3d 73 69 6e ...$........j...u=i*tpi*2;py=sin
0ca0 28 75 29 2a 2e 33 33 3b 70 7a 3d 63 6f 73 28 75 29 2a 2e 32 37 3b 70 78 3d 2d 2e 32 3b 0d 0a 78 (u)*.33;pz=cos(u)*.27;px=-.2;..x
0cc0 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 72 3b 0d 0a 70 1=px*cr-py*sr;py=px*sr+py*cr;..p
0ce0 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 63 6f 73 28 73 x=x1+ox+sin(t)*cos(t*.714)*cos(s
0d00 69 6e 28 74 2a 2e 34 31 31 29 29 2a 2e 35 3b 0d 0a 70 79 3d 70 79 2b 6f 79 2b 73 69 6e 28 74 2a in(t*.411))*.5;..py=py+oy+sin(t*
0d20 2e 34 31 36 31 29 2a 63 6f 73 28 74 2a 2e 33 35 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 34 35 .4161)*cos(t*.351)*cos(sin(t*.45
0d40 39 29 29 2a 2e 35 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 9))*.5;..pz=pz+oz;..x1=px*cy-pz*
0d60 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 31 2a sy;z1=px*sy+pz*cy;..y2=py*cx-z1*
0d80 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 32 2a sx;z2=py*sx+z1*cx;..x3=x1*cz-y2*
0da0 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 65 28 sz;y3=x1*sz+y2*cz;..dt=if(above(
0dc0 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 74 2c z2,.01),1/z2,0);..x=if(dt,x3*dt,
0de0 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 5c 02 00 00 74 3d x);y=if(dt,y3*dt*af,y);...\...t=
0e00 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 63 t+0.02;ox=cos(t)*cos(t*.379+1)*c
0e20 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 6f os(sin(t*.141));oy=sin(t*.91)*co
0e40 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 34 s(-t*.71)*.4;oz=sin(t)*cos(-t*.4
0e60 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 1)*sin(cos(t*.631))-.2;ot=sin(t*
0e80 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 .941)*cos(t*.514+1)*sin(cos(t*.2
0ea0 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 19))*.7+1.9;ot=ot/sqrt(sqr(ox)+s
0ec0 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(
0ee0 2e 38 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 .8,abs(oy)*ot)*sign(oy);oz=oz*ot
0f00 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*
0f20 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*.
0f40 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 191+2)*cos(sin(t*.091))*1;rx=ata
0f60 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)));
0f80 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)
0fa0 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
0fc0 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
0fe0 69 2a 2e 38 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 2e i*.8;bf=bf*.9+bft*.1;shr=sin(t*.
1000 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 2e 0411)*cos(t*.0949)+sbo*sbs-bf*1.
1020 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 66 5;cr=cos(shr);sr=sin(shr);sbo=if
1040 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 7d 00 00 00 74 69 (above(sbo,0),sbo-0.1,0);.}...ti
1060 3d 35 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 69 66 28 73 62 =5;bft=getosc(0.7,0,0);sbo=if(sb
1080 6f 2b 67 65 74 6f 73 63 28 2e 37 39 2c 30 2c 30 29 2a 31 30 30 25 31 30 2c 73 62 6f 2c 36 2e 32 o+getosc(.79,0,0)*100%10,sbo,6.2
10a0 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 28 67 65 74 6f 73 8);sbs=if(equal(sbo,6.28),(getos
10c0 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 00 27 00 00 00 6e c(.1,0,0)*256%2)*2-1,sbs);.'...n
10e0 3d 31 33 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 4c 65 66 74 20 4f 75 74 65 72 20 =13;tpi=acos(-1)*2;..Left.Outer.
1100 57 69 6e 67 3b 00 02 00 00 00 01 00 00 00 2f 2f 2f 00 01 00 00 00 24 00 00 00 8b 04 00 00 01 69 Wing;.........///.....$........i
1120 01 00 00 75 3d 69 2a 74 70 69 2a 32 3b 70 79 3d 73 69 6e 28 75 29 2a 2e 33 33 3b 70 7a 3d 63 6f ...u=i*tpi*2;py=sin(u)*.33;pz=co
1140 73 28 75 29 2a 2e 32 37 3b 70 78 3d 2e 32 3b 0d 0a 78 31 3d 70 78 2a 63 72 2d 70 79 2a 73 72 3b s(u)*.27;px=.2;..x1=px*cr-py*sr;
1160 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 74 29 py=px*sr+py*cr;..px=x1+ox+sin(t)
1180 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 2e 35 *cos(t*.714)*cos(sin(t*.411))*.5
11a0 3b 0d 0a 70 79 3d 70 79 2b 6f 79 2b 73 69 6e 28 74 2a 2e 34 31 36 31 29 2a 63 6f 73 28 74 2a 2e ;..py=py+oy+sin(t*.4161)*cos(t*.
11c0 33 35 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 34 35 39 29 29 2a 2e 35 3b 0d 0a 70 7a 3d 70 7a 351)*cos(sin(t*.459))*.5;..pz=pz
11e0 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
1200 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
1220 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
1240 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
1260 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*
1280 64 74 2a 61 66 2c 79 29 3b 0d 0a 00 5c 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 dt*af,y);...\...t=t+0.02;ox=cos(
12a0 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 29 t)*cos(t*.379+1)*cos(sin(t*.141)
12c0 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 6f );oy=sin(t*.91)*cos(-t*.71)*.4;o
12e0 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 2e z=sin(t)*cos(-t*.41)*sin(cos(t*.
1300 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 631))-.2;ot=sin(t*.941)*cos(t*.5
1320 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 14+1)*sin(cos(t*.219))*.7+1.9;ot
1340 3d 6f 74 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 =ot/sqrt(sqr(ox)+sqr(oy)+sqr(oz)
1360 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 );ox=ox*ot;oy=min(.8,abs(oy)*ot)
1380 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 6f 78 *sign(oy);oz=oz*ot;ry=-atan2(-ox
13a0 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 2d 63 ,oz)-sin(t)*cos(t*.914)*.3;rz=-c
13c0 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 69 6e os(t*.241)*cos(t*.191+2)*cos(sin
13e0 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 (t*.091))*1;rx=atan2(oy-.2,sqrt(
1400 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 78 3d sqr(ox)+sqr(oz)));cx=cos(rx);sx=
1420 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 63 7a sin(rx);cy=cos(ry);sy=sin(ry);cz
1440 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 3d 77 =cos(rz);sz=sin(rz);x=0;y=0;af=w
1460 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b /h;t=t+ti*.01;ti=ti*.8;bf=bf*.9+
1480 62 66 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 bft*.1;shr=sin(t*.0411)*cos(t*.0
14a0 39 34 39 29 2b 73 62 6f 2a 73 62 73 2d 62 66 2a 31 2e 35 3b 63 72 3d 63 6f 73 28 73 68 72 29 3b 949)+sbo*sbs-bf*1.5;cr=cos(shr);
14c0 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 2c sr=sin(shr);sbo=if(above(sbo,0),
14e0 73 62 6f 2d 30 2e 31 2c 30 29 3b 00 7d 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 sbo-0.1,0);.}...ti=5;bft=getosc(
1500 30 2e 37 2c 30 2c 30 29 3b 73 62 6f 3d 69 66 28 73 62 6f 2b 67 65 74 6f 73 63 28 2e 37 39 2c 30 0.7,0,0);sbo=if(sbo+getosc(.79,0
1520 2c 30 29 2a 31 30 30 25 31 30 2c 73 62 6f 2c 36 2e 32 38 29 3b 73 62 73 3d 69 66 28 65 71 75 61 ,0)*100%10,sbo,6.28);sbs=if(equa
1540 6c 28 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 l(sbo,6.28),(getosc(.1,0,0)*256%
1560 32 29 2a 32 2d 31 2c 73 62 73 29 3b 00 28 00 00 00 6e 3d 31 33 3b 74 70 69 3d 61 63 6f 73 28 2d 2)*2-1,sbs);.(...n=13;tpi=acos(-
1580 31 29 2a 32 3b a4 20 52 69 67 68 74 20 4f 75 74 65 72 20 57 69 6e 67 3b 00 02 00 00 00 01 00 00 1)*2;..Right.Outer.Wing;........
15a0 00 2f 2f 2f 00 01 00 00 00 24 00 00 00 a0 04 00 00 01 7b 01 00 00 6e 70 3d 62 6e 6f 74 28 6e 70 .///.....$........{...np=bnot(np
15c0 29 3b 0d 0a 75 3d 69 2a 74 70 69 3b 70 79 3d 63 6f 73 28 75 29 2a 2e 33 33 2a 6e 70 3b 70 7a 3d );..u=i*tpi;py=cos(u)*.33*np;pz=
15e0 73 69 6e 28 75 29 2a 2e 32 37 2a 6e 70 3b 70 78 3d 2e 32 3b 0d 0a 78 31 3d 70 78 2a 63 72 2d 70 sin(u)*.27*np;px=.2;..x1=px*cr-p
1600 79 2a 73 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 y*sr;py=px*sr+py*cr;..px=x1+ox+s
1620 69 6e 28 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 in(t)*cos(t*.714)*cos(sin(t*.411
1640 29 29 2a 2e 35 3b 0d 0a 70 79 3d 70 79 2b 6f 79 2b 73 69 6e 28 74 2a 2e 34 31 36 31 29 2a 63 6f ))*.5;..py=py+oy+sin(t*.4161)*co
1660 73 28 74 2a 2e 33 35 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 34 35 39 29 29 2a 2e 35 3b 0d 0a s(t*.351)*cos(sin(t*.459))*.5;..
1680 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 2a pz=pz+oz;..x1=px*cy-pz*sy;z1=px*
16a0 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 2a sy+pz*cy;..y2=py*cx-z1*sx;z2=py*
16c0 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 2a sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1*
16e0 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 31 sz+y2*cz;..dt=if(above(z2,.01),1
1700 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 64 /z2,0);..x=if(dt,x3*dt,x);y=if(d
1720 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 00 60 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 t,y3*dt*af,y);...`...t=t+0.02;ox
1740 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 74 2a =cos(t)*cos(t*.379+1)*cos(sin(t*
1760 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 31 29 .141));oy=sin(t*.91)*cos(-t*.71)
1780 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 63 6f *.4;oz=sin(t)*cos(-t*.41)*sin(co
17a0 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 s(t*.631))-.2;ot=sin(t*.941)*cos
17c0 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 (t*.514+1)*sin(cos(t*.219))*.7+1
17e0 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 .9;ot=ot/sqrt(sqr(ox)+sqr(oy)+sq
1800 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 r(oz));ox=ox*ot;oy=min(.8,abs(oy
1820 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 61 6e )*ot)*sign(oy);oz=oz*ot;ry=-atan
1840 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 33 3b 2(-ox,oz)-sin(t)*cos(t*.914)*.3;
1860 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 63 6f rz=-cos(t*.241)*cos(t*.191+2)*co
1880 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c s(sin(t*.091))*1;rx=atan2(oy-.2,
18a0 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 72 78 sqrt(sqr(ox)+sqr(oz)));cx=cos(rx
18c0 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 28 72 );sx=sin(rx);cy=cos(ry);sy=sin(r
18e0 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 3d 30 y);cz=cos(rz);sz=sin(rz);x=0;y=0
1900 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 38 3b 62 66 3d 62 ;af=w/h;t=t+ti*.01;ti=ti*.8;bf=b
1920 66 2a 2e 39 2b 62 66 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 f*.9+bft*.1;shr=sin(t*.0411)*cos
1940 28 74 2a 2e 30 39 34 39 29 2b 73 62 6f 2a 73 62 73 2d 62 66 2a 31 2e 35 3b 63 72 3d 63 6f 73 28 (t*.0949)+sbo*sbs-bf*1.5;cr=cos(
1960 73 68 72 29 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 shr);sr=sin(shr);sbo=if(above(sb
1980 6f 2c 30 29 2c 73 62 6f 2d 30 2e 31 2c 30 29 3b 6e 70 3d 31 00 7d 00 00 00 74 69 3d 35 3b 62 66 o,0),sbo-0.1,0);np=1.}...ti=5;bf
19a0 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 67 65 74 t=getosc(0.7,0,0);sbo=if(sbo+get
19c0 6f 73 63 28 2e 37 39 2c 30 2c 30 29 2a 31 30 30 25 31 30 2c 73 62 6f 2c 36 2e 32 38 29 3b 73 62 osc(.79,0,0)*100%10,sbo,6.28);sb
19e0 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 31 2c s=if(equal(sbo,6.28),(getosc(.1,
1a00 30 2c 30 29 2a 32 35 36 25 32 29 2a 32 2d 31 2c 73 62 73 29 3b 00 27 00 00 00 6e 3d 31 33 3b 74 0,0)*256%2)*2-1,sbs);.'...n=13;t
1a20 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 4c 65 66 74 20 49 6e 6e 65 72 20 57 69 6e 67 3b pi=acos(-1)*2;..Left.Inner.Wing;
1a40 00 02 00 00 00 01 00 00 00 2f 2f 2f 00 01 00 00 00 24 00 00 00 a2 04 00 00 01 7c 01 00 00 6e 70 .........///.....$........|...np
1a60 3d 62 6e 6f 74 28 6e 70 29 3b 0d 0a 75 3d 69 2a 74 70 69 3b 70 79 3d 63 6f 73 28 75 29 2a 2e 33 =bnot(np);..u=i*tpi;py=cos(u)*.3
1a80 33 2a 6e 70 3b 70 7a 3d 73 69 6e 28 75 29 2a 2e 32 37 2a 6e 70 3b 70 78 3d 2d 2e 32 3b 0d 0a 78 3*np;pz=sin(u)*.27*np;px=-.2;..x
1aa0 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 72 3b 0d 0a 70 1=px*cr-py*sr;py=px*sr+py*cr;..p
1ac0 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 63 6f 73 28 73 x=x1+ox+sin(t)*cos(t*.714)*cos(s
1ae0 69 6e 28 74 2a 2e 34 31 31 29 29 2a 2e 35 3b 0d 0a 70 79 3d 70 79 2b 6f 79 2b 73 69 6e 28 74 2a in(t*.411))*.5;..py=py+oy+sin(t*
1b00 2e 34 31 36 31 29 2a 63 6f 73 28 74 2a 2e 33 35 31 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 34 35 .4161)*cos(t*.351)*cos(sin(t*.45
1b20 39 29 29 2a 2e 35 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a 2a 9))*.5;..pz=pz+oz;..x1=px*cy-pz*
1b40 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 31 2a sy;z1=px*sy+pz*cy;..y2=py*cx-z1*
1b60 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 32 2a sx;z2=py*sx+z1*cx;..x3=x1*cz-y2*
1b80 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 65 28 sz;y3=x1*sz+y2*cz;..dt=if(above(
1ba0 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 74 2c z2,.01),1/z2,0);..x=if(dt,x3*dt,
1bc0 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 60 02 00 00 74 3d x);y=if(dt,y3*dt*af,y);...`...t=
1be0 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 63 t+0.02;ox=cos(t)*cos(t*.379+1)*c
1c00 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 6f os(sin(t*.141));oy=sin(t*.91)*co
1c20 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 34 s(-t*.71)*.4;oz=sin(t)*cos(-t*.4
1c40 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 1)*sin(cos(t*.631))-.2;ot=sin(t*
1c60 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 .941)*cos(t*.514+1)*sin(cos(t*.2
1c80 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 19))*.7+1.9;ot=ot/sqrt(sqr(ox)+s
1ca0 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(
1cc0 2e 38 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 .8,abs(oy)*ot)*sign(oy);oz=oz*ot
1ce0 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*
1d00 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*.
1d20 31 39 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 191+2)*cos(sin(t*.091))*1;rx=ata
1d40 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)));
1d60 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)
1d80 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
1da0 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
1dc0 69 2a 2e 38 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 2e i*.8;bf=bf*.9+bft*.1;shr=sin(t*.
1de0 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 2e 0411)*cos(t*.0949)+sbo*sbs-bf*1.
1e00 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 66 5;cr=cos(shr);sr=sin(shr);sbo=if
1e20 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 6e 70 3d 31 00 7d 00 (above(sbo,0),sbo-0.1,0);np=1.}.
1e40 00 00 74 69 3d 35 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 69 ..ti=5;bft=getosc(0.7,0,0);sbo=i
1e60 66 28 73 62 6f 2b 67 65 74 6f 73 63 28 2e 37 39 2c 30 2c 30 29 2a 31 30 30 25 31 30 2c 73 62 6f f(sbo+getosc(.79,0,0)*100%10,sbo
1e80 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 28 67 ,6.28);sbs=if(equal(sbo,6.28),(g
1ea0 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 00 28 etosc(.1,0,0)*256%2)*2-1,sbs);.(
1ec0 00 00 00 6e 3d 31 33 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 52 69 67 68 74 20 49 ...n=13;tpi=acos(-1)*2;..Right.I
1ee0 6e 6e 65 72 20 57 69 6e 67 3b 00 02 00 00 00 01 00 00 00 2f 2f 2f 00 01 00 00 00 15 00 00 00 04 nner.Wing;.........///..........
1f00 00 00 00 00 00 00 00 24 00 00 00 ca 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b .......$............ip=bnot(ip);
1f20 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d io=if(ip,1-io,io);p=if(ip,p,i);.
1f40 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e .u=t*mf+p*tpi*sw;px=cos(u)*(io*.
1f60 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 2+1.2);py=sin(u)*(io*.2+1.2);pz=
1f80 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a kk;..px=px+ox;..py=py+oy;..pz=pz
1fa0 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
1fc0 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
1fe0 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
2000 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
2020 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 );..lx=x;ly=y;..x=if(dt,x3*dt,x)
2040 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 62 65 6c 6f 77 28 ;y=if(dt,y3*dt*af,y);..dt=below(
2060 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f sqrt(sqr(x-lx)+sqr(y-ly)),1)*abo
2080 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 ve(dt,0)*dt-.05;..hu=getosc(sp+i
20a0 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 *.2,.1,0)*2+t;..red=sin(hu)*dt+d
20c0 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 t;..green=sin(hu+2.09)*dt+dt;..b
20e0 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b lue=sin(hu+4.18)*dt+dt;.W...t=t+
2100 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 73 0.02;ox=cos(t)*cos(t*.379+1)*cos
2120 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 28 (sin(t*.141));oy=sin(t*.91)*cos(
2140 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 29 -t*.71)*.4;oz=sin(t)*cos(-t*.41)
2160 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 *sin(cos(t*.631))-.2;ot=sin(t*.9
2180 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 41)*cos(t*.514+1)*sin(cos(t*.219
21a0 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 ))*.7+1.9;ot=ot/sqrt(sqr(ox)+sqr
21c0 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 2e 38 (oy)+sqr(oz));ox=ox*ot;oy=min(.8
21e0 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 3b 72 ,abs(oy)*ot)*sign(oy);oz=oz*ot;r
2200 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 2e 39 y=-atan2(-ox,oz)-sin(t)*cos(t*.9
2220 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 31 39 14)*.3;rz=-cos(t*.241)*cos(t*.19
2240 31 2b 32 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 1+2)*cos(sin(t*.091))*1;rx=atan2
2260 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 63 78 (oy-.2,sqrt(sqr(ox)+sqr(oz)));cx
2280 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 3b 73 =cos(rx);sx=sin(rx);cy=cos(ry);s
22a0 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 29 3b y=sin(ry);cz=cos(rz);sz=sin(rz);
22c0 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 69 2a x=0;y=0;af=w/h;t=t+ti*.01;ti=ti*
22e0 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 .8;bf=bf*.9+bft*.1;ip=0;io=1;p=0
2300 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b ;kk=if(below(kk,-10),10,kk-0.2);
2320 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b lx=0;ly=0;sw=getosc(sp,.05,0)*2;
2340 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d .n=min(100,sw*300).....ti=5;bft=
2360 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 54 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 getosc(0.7,0,0);.T...n=101;tpi=a
2380 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 3b 6b 6b 3d 73 70 2a 32 30 cos(-1)*2;..Circle;sp=0;kk=sp*20
23a0 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 -10;mf=(2.5+rand(100)*.01)*(rand
23c0 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 (2)*2-1).........ooo.....$......
23e0 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c ......ip=bnot(ip);io=if(ip,1-io,
2400 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a io);p=if(ip,p,i);..u=t*mf+p*tpi*
2420 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 sw;px=cos(u)*(io*.2+1.2);py=sin(
2440 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b u)*(io*.2+1.2);pz=kk;..px=px+ox;
2460 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 ..py=py+oy;..pz=pz+oz;..x1=px*cy
2480 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
24a0 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
24c0 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
24e0 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b ove(z2,.01),1/z2,0);..lx=x;ly=y;
2500 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 74 ..x=if(dt,x3*dt,x);y=if(dt,y3*dt
2520 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 *af,y);..dt=below(sqrt(sqr(x-lx)
2540 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 +sqr(y-ly)),1)*above(dt,0)*dt-.0
2560 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 5;..hu=getosc(sp+i*.2,.1,0)*2+t;
2580 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 ..red=sin(hu)*dt+dt;..green=sin(
25a0 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 hu+2.09)*dt+dt;..blue=sin(hu+4.1
25c0 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 8)*dt+dt;.W...t=t+0.02;ox=cos(t)
25e0 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 29 29 3b *cos(t*.379+1)*cos(sin(t*.141));
2600 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 6f 7a 3d oy=sin(t*.91)*cos(-t*.71)*.4;oz=
2620 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 2e 36 33 sin(t)*cos(-t*.41)*sin(cos(t*.63
2640 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 1))-.2;ot=sin(t*.941)*cos(t*.514
2660 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f +1)*sin(cos(t*.219))*.7+1.9;ot=o
2680 74 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 t/sqrt(sqr(ox)+sqr(oy)+sqr(oz));
26a0 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 ox=ox*ot;oy=min(.8,abs(oy)*ot)*s
26c0 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
26e0 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
2700 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
2720 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 *.091))*1;rx=atan2(oy-.2,sqrt(sq
2740 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
2760 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
2780 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
27a0 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 ;t=t+ti*.01;ti=ti*.8;bf=bf*.9+bf
27c0 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b t*.1;ip=0;io=1;p=0;kk=if(below(k
27e0 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 k,-10),10,kk-0.2);lx=0;ly=0;sw=g
2800 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a etosc(sp,.05,0)*2;.n=min(100,sw*
2820 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 300).....ti=5;bft=getosc(0.7,0,0
2840 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 );.X...n=101;tpi=acos(-1)*2;..Ci
2860 72 63 6c 65 3b 73 70 3d 30 2e 30 32 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e rcle;sp=0.025;kk=sp*20-10;mf=(2.
2880 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 5+rand(100)*.01)*(rand(2)*2-1)..
28a0 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cd 04 00 00 01 e4 01 00 00 69 70 3d 62 .......ooo.....$............ip=b
28c0 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 not(ip);io=if(ip,1-io,io);p=if(i
28e0 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 p,p,i);..u=t*mf+p*tpi*sw;px=cos(
2900 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b u)*(io*.2+1.2);py=sin(u)*(io*.2+
2920 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 1.2);pz=kk;..px=px+ox;..py=py+oy
2940 3b 0d 0a 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 ;..pz=pz+oz;..x1=px*cy-pz*sy;z1=
2960 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=
2980 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=
29a0 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
29c0 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c ),1/z2,0);..lx=x;ly=y;..x=if(dt,
29e0 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 0d 0a 64 x3*dt,x);y=if(dt,y3*dt*af,y);..d
2a00 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 t=below(sqrt(sqr(x-lx)+sqr(y-ly)
2a20 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 ),1)*above(dt,0)*dt-.05;..hu=get
2a40 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 osc(sp+i*.2,.1,0)*2+t;..red=sin(
2a60 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 hu)*dt+dt;..green=sin(hu+2.09)*d
2a80 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 t+dt;..blue=sin(hu+4.18)*dt+dt;.
2aa0 57 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 37 W...t=t+0.02;ox=cos(t)*cos(t*.37
2ac0 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 2e 9+1)*cos(sin(t*.141));oy=sin(t*.
2ae0 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 73 91)*cos(-t*.71)*.4;oz=sin(t)*cos
2b00 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 32 3b 6f 74 3d (-t*.41)*sin(cos(t*.631))-.2;ot=
2b20 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f sin(t*.941)*cos(t*.514+1)*sin(co
2b40 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 s(t*.219))*.7+1.9;ot=ot/sqrt(sqr
2b60 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
2b80 79 3d 6d 69 6e 28 2e 38 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(.8,abs(oy)*ot)*sign(oy);oz
2ba0 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)*
2bc0 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
2be0 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 31 3b os(t*.191+2)*cos(sin(t*.091))*1;
2c00 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(
2c20 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
2c40 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=
2c60 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
2c80 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 1;ti=ti*.8;bf=bf*.9+bft*.1;ip=0;
2ca0 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c io=1;p=0;kk=if(below(kk,-10),10,
2cc0 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e kk-0.2);lx=0;ly=0;sw=getosc(sp,.
2ce0 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 05,0)*2;.n=min(100,sw*300).....t
2d00 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 57 00 00 00 6e 3d 31 i=5;bft=getosc(0.7,0,0);.W...n=1
2d20 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 01;tpi=acos(-1)*2;..Circle;sp=0.
2d40 30 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 05;kk=sp*20-10;mf=(2.5+rand(100)
2d60 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 *.01)*(rand(2)*2-1).........ooo.
2d80 01 00 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d ....$............ip=bnot(ip);io=
2da0 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d if(ip,1-io,io);p=if(ip,p,i);..u=
2dc0 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 t*mf+p*tpi*sw;px=cos(u)*(io*.2+1
2de0 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b .2);py=sin(u)*(io*.2+1.2);pz=kk;
2e00 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a ..px=px+ox;..py=py+oy;..pz=pz+oz
2e20 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
2e40 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
2e60 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
2e80 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);.
2ea0 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d .lx=x;ly=y;..x=if(dt,x3*dt,x);y=
2ec0 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 if(dt,y3*dt*af,y);..dt=below(sqr
2ee0 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 t(sqr(x-lx)+sqr(y-ly)),1)*above(
2f00 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 dt,0)*dt-.05;..hu=getosc(sp+i*.2
2f20 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d ,.1,0)*2+t;..red=sin(hu)*dt+dt;.
2f40 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 .green=sin(hu+2.09)*dt+dt;..blue
2f60 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 =sin(hu+4.18)*dt+dt;.W...t=t+0.0
2f80 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 73 28 73 69 2;ox=cos(t)*cos(t*.379+1)*cos(si
2fa0 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 28 2d 74 2a n(t*.141));oy=sin(t*.91)*cos(-t*
2fc0 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 29 2a 73 69 .71)*.4;oz=sin(t)*cos(-t*.41)*si
2fe0 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 n(cos(t*.631))-.2;ot=sin(t*.941)
3000 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a *cos(t*.514+1)*sin(cos(t*.219))*
3020 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 .7+1.9;ot=ot/sqrt(sqr(ox)+sqr(oy
3040 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 2e 38 2c 61 62 )+sqr(oz));ox=ox*ot;oy=min(.8,ab
3060 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 3b 72 79 3d 2d s(oy)*ot)*sign(oy);oz=oz*ot;ry=-
3080 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 2e 39 31 34 29 atan2(-ox,oz)-sin(t)*cos(t*.914)
30a0 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 31 39 31 2b 32 *.3;rz=-cos(t*.241)*cos(t*.191+2
30c0 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 )*cos(sin(t*.091))*1;rx=atan2(oy
30e0 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 63 78 3d 63 6f -.2,sqrt(sqr(ox)+sqr(oz)));cx=co
3100 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 73 s(rx);sx=sin(rx);cy=cos(ry);sy=s
3120 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 78 3d 30 in(ry);cz=cos(rz);sz=sin(rz);x=0
3140 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 69 2a 2e 38 3b ;y=0;af=w/h;t=t+ti*.01;ti=ti*.8;
3160 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b bf=bf*.9+bft*.1;ip=0;io=1;p=0;kk
3180 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d =if(below(kk,-10),10,kk-0.2);lx=
31a0 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 0;ly=0;sw=getosc(sp,.05,0)*2;.n=
31c0 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 min(100,sw*300).....ti=5;bft=get
31e0 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 osc(0.7,0,0);.X...n=101;tpi=acos
3200 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 30 37 35 3b 6b 6b 3d 73 70 2a 32 (-1)*2;..Circle;sp=0.075;kk=sp*2
3220 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 0-10;mf=(2.5+rand(100)*.01)*(ran
3240 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cc 04 d(2)*2-1).........ooo.....$.....
3260 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f .......ip=bnot(ip);io=if(ip,1-io
3280 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 ,io);p=if(ip,p,i);..u=t*mf+p*tpi
32a0 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e *sw;px=cos(u)*(io*.2+1.2);py=sin
32c0 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 (u)*(io*.2+1.2);pz=kk;..px=px+ox
32e0 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 ;..py=py+oy;..pz=pz+oz;..x1=px*c
3300 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 70 79 2a 63 y-pz*sy;z1=px*sy+pz*cy;..y2=py*c
3320 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 78 31 2a 63 x-z1*sx;z2=py*sx+z1*cx;..x3=x1*c
3340 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 69 66 28 61 z-y2*sz;y3=x1*sz+y2*cz;..dt=if(a
3360 62 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 bove(z2,.01),1/z2,0);..lx=x;ly=y
3380 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
33a0 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 t*af,y);..dt=below(sqrt(sqr(x-lx
33c0 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e )+sqr(y-ly)),1)*above(dt,0)*dt-.
33e0 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 05;..hu=getosc(sp+i*.2,.1,0)*2+t
3400 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e ;..red=sin(hu)*dt+dt;..green=sin
3420 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e (hu+2.09)*dt+dt;..blue=sin(hu+4.
3440 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 18)*dt+dt;.W...t=t+0.02;ox=cos(t
3460 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 29 29 )*cos(t*.379+1)*cos(sin(t*.141))
3480 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 6f 7a ;oy=sin(t*.91)*cos(-t*.71)*.4;oz
34a0 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 2e 36 =sin(t)*cos(-t*.41)*sin(cos(t*.6
34c0 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 31))-.2;ot=sin(t*.941)*cos(t*.51
34e0 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 4+1)*sin(cos(t*.219))*.7+1.9;ot=
3500 6f 74 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 ot/sqrt(sqr(ox)+sqr(oy)+sqr(oz))
3520 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a ;ox=ox*ot;oy=min(.8,abs(oy)*ot)*
3540 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 6f 78 2c sign(oy);oz=oz*ot;ry=-atan2(-ox,
3560 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 2d 63 6f oz)-sin(t)*cos(t*.914)*.3;rz=-co
3580 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 69 6e 28 s(t*.241)*cos(t*.191+2)*cos(sin(
35a0 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 t*.091))*1;rx=atan2(oy-.2,sqrt(s
35c0 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 78 3d 73 qr(ox)+sqr(oz)));cx=cos(rx);sx=s
35e0 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 63 7a 3d in(rx);cy=cos(ry);sy=sin(ry);cz=
3600 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 3d 77 2f cos(rz);sz=sin(rz);x=0;y=0;af=w/
3620 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 h;t=t+ti*.01;ti=ti*.8;bf=bf*.9+b
3640 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 ft*.1;ip=0;io=1;p=0;kk=if(below(
3660 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d kk,-10),10,kk-0.2);lx=0;ly=0;sw=
3680 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 getosc(sp,.05,0)*2;.n=min(100,sw
36a0 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c *300).....ti=5;bft=getosc(0.7,0,
36c0 30 29 3b 00 56 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 0);.V...n=101;tpi=acos(-1)*2;..C
36e0 69 72 63 6c 65 3b 73 70 3d 30 2e 31 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 ircle;sp=0.1;kk=sp*20-10;mf=(2.5
3700 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 +rand(100)*.01)*(rand(2)*2-1)...
3720 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e ......ooo.....$............ip=bn
3740 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 ot(ip);io=if(ip,1-io,io);p=if(ip
3760 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 ,p,i);..u=t*mf+p*tpi*sw;px=cos(u
3780 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 )*(io*.2+1.2);py=sin(u)*(io*.2+1
37a0 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b .2);pz=kk;..px=px+ox;..py=py+oy;
37c0 0d 0a 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 ..pz=pz+oz;..x1=px*cy-pz*sy;z1=p
37e0 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 70 x*sy+pz*cy;..y2=py*cx-z1*sx;z2=p
3800 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 78 y*sx+z1*cx;..x3=x1*cz-y2*sz;y3=x
3820 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 29 1*sz+y2*cz;..dt=if(above(z2,.01)
3840 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 ,1/z2,0);..lx=x;ly=y;..x=if(dt,x
3860 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 0d 0a 64 74 3*dt,x);y=if(dt,y3*dt*af,y);..dt
3880 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 =below(sqrt(sqr(x-lx)+sqr(y-ly))
38a0 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f ,1)*above(dt,0)*dt-.05;..hu=geto
38c0 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 sc(sp+i*.2,.1,0)*2+t;..red=sin(h
38e0 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 u)*dt+dt;..green=sin(hu+2.09)*dt
3900 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 +dt;..blue=sin(hu+4.18)*dt+dt;.W
3920 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 37 39 ...t=t+0.02;ox=cos(t)*cos(t*.379
3940 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 2e 39 +1)*cos(sin(t*.141));oy=sin(t*.9
3960 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 73 28 1)*cos(-t*.71)*.4;oz=sin(t)*cos(
3980 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 32 3b 6f 74 3d 73 -t*.41)*sin(cos(t*.631))-.2;ot=s
39a0 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 in(t*.941)*cos(t*.514+1)*sin(cos
39c0 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 (t*.219))*.7+1.9;ot=ot/sqrt(sqr(
39e0 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 79 ox)+sqr(oy)+sqr(oz));ox=ox*ot;oy
3a00 3d 6d 69 6e 28 2e 38 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 =min(.8,abs(oy)*ot)*sign(oy);oz=
3a20 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 63 oz*ot;ry=-atan2(-ox,oz)-sin(t)*c
3a40 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 6f os(t*.914)*.3;rz=-cos(t*.241)*co
3a60 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 31 3b 72 s(t*.191+2)*cos(sin(t*.091))*1;r
3a80 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 6f x=atan2(oy-.2,sqrt(sqr(ox)+sqr(o
3aa0 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 6f z)));cx=cos(rx);sx=sin(rx);cy=co
3ac0 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 73 s(ry);sy=sin(ry);cz=cos(rz);sz=s
3ae0 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 31 in(rz);x=0;y=0;af=w/h;t=t+ti*.01
3b00 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 ;ti=ti*.8;bf=bf*.9+bft*.1;ip=0;i
3b20 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b o=1;p=0;kk=if(below(kk,-10),10,k
3b40 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 k-0.2);lx=0;ly=0;sw=getosc(sp,.0
3b60 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 5,0)*2;.n=min(100,sw*300).....ti
3b80 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 =5;bft=getosc(0.7,0,0);.X...n=10
3ba0 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 31 1;tpi=acos(-1)*2;..Circle;sp=0.1
3bc0 32 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 25;kk=sp*20-10;mf=(2.5+rand(100)
3be0 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 *.01)*(rand(2)*2-1).........ooo.
3c00 01 00 00 00 24 00 00 00 cd 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d ....$............ip=bnot(ip);io=
3c20 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d if(ip,1-io,io);p=if(ip,p,i);..u=
3c40 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 t*mf+p*tpi*sw;px=cos(u)*(io*.2+1
3c60 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b .2);py=sin(u)*(io*.2+1.2);pz=kk;
3c80 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a ..px=px+ox;..py=py+oy;..pz=pz+oz
3ca0 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
3cc0 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
3ce0 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
3d00 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);.
3d20 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d .lx=x;ly=y;..x=if(dt,x3*dt,x);y=
3d40 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 if(dt,y3*dt*af,y);..dt=below(sqr
3d60 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 t(sqr(x-lx)+sqr(y-ly)),1)*above(
3d80 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 dt,0)*dt-.05;..hu=getosc(sp+i*.2
3da0 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d ,.1,0)*2+t;..red=sin(hu)*dt+dt;.
3dc0 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 .green=sin(hu+2.09)*dt+dt;..blue
3de0 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 =sin(hu+4.18)*dt+dt;.W...t=t+0.0
3e00 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 73 28 73 69 2;ox=cos(t)*cos(t*.379+1)*cos(si
3e20 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 28 2d 74 2a n(t*.141));oy=sin(t*.91)*cos(-t*
3e40 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 29 2a 73 69 .71)*.4;oz=sin(t)*cos(-t*.41)*si
3e60 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 n(cos(t*.631))-.2;ot=sin(t*.941)
3e80 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a *cos(t*.514+1)*sin(cos(t*.219))*
3ea0 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 .7+1.9;ot=ot/sqrt(sqr(ox)+sqr(oy
3ec0 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 2e 38 2c 61 62 )+sqr(oz));ox=ox*ot;oy=min(.8,ab
3ee0 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 3b 72 79 3d 2d s(oy)*ot)*sign(oy);oz=oz*ot;ry=-
3f00 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 2e 39 31 34 29 atan2(-ox,oz)-sin(t)*cos(t*.914)
3f20 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 31 39 31 2b 32 *.3;rz=-cos(t*.241)*cos(t*.191+2
3f40 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 )*cos(sin(t*.091))*1;rx=atan2(oy
3f60 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 63 78 3d 63 6f -.2,sqrt(sqr(ox)+sqr(oz)));cx=co
3f80 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 73 s(rx);sx=sin(rx);cy=cos(ry);sy=s
3fa0 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 78 3d 30 in(ry);cz=cos(rz);sz=sin(rz);x=0
3fc0 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 69 2a 2e 38 3b ;y=0;af=w/h;t=t+ti*.01;ti=ti*.8;
3fe0 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b bf=bf*.9+bft*.1;ip=0;io=1;p=0;kk
4000 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d =if(below(kk,-10),10,kk-0.2);lx=
4020 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 0;ly=0;sw=getosc(sp,.05,0)*2;.n=
4040 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 min(100,sw*300).....ti=5;bft=get
4060 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 57 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 osc(0.7,0,0);.W...n=101;tpi=acos
4080 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 31 35 3b 6b 6b 3d 73 70 2a 32 30 (-1)*2;..Circle;sp=0.15;kk=sp*20
40a0 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 -10;mf=(2.5+rand(100)*.01)*(rand
40c0 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 (2)*2-1).........ooo.....$......
40e0 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c ......ip=bnot(ip);io=if(ip,1-io,
4100 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a io);p=if(ip,p,i);..u=t*mf+p*tpi*
4120 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 sw;px=cos(u)*(io*.2+1.2);py=sin(
4140 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b u)*(io*.2+1.2);pz=kk;..px=px+ox;
4160 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 ..py=py+oy;..pz=pz+oz;..x1=px*cy
4180 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
41a0 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
41c0 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
41e0 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b ove(z2,.01),1/z2,0);..lx=x;ly=y;
4200 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 74 ..x=if(dt,x3*dt,x);y=if(dt,y3*dt
4220 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 *af,y);..dt=below(sqrt(sqr(x-lx)
4240 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 +sqr(y-ly)),1)*above(dt,0)*dt-.0
4260 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 5;..hu=getosc(sp+i*.2,.1,0)*2+t;
4280 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 ..red=sin(hu)*dt+dt;..green=sin(
42a0 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 hu+2.09)*dt+dt;..blue=sin(hu+4.1
42c0 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 8)*dt+dt;.W...t=t+0.02;ox=cos(t)
42e0 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 29 29 3b *cos(t*.379+1)*cos(sin(t*.141));
4300 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 6f 7a 3d oy=sin(t*.91)*cos(-t*.71)*.4;oz=
4320 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 2e 36 33 sin(t)*cos(-t*.41)*sin(cos(t*.63
4340 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 1))-.2;ot=sin(t*.941)*cos(t*.514
4360 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f +1)*sin(cos(t*.219))*.7+1.9;ot=o
4380 74 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 t/sqrt(sqr(ox)+sqr(oy)+sqr(oz));
43a0 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 ox=ox*ot;oy=min(.8,abs(oy)*ot)*s
43c0 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
43e0 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
4400 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
4420 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 *.091))*1;rx=atan2(oy-.2,sqrt(sq
4440 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
4460 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
4480 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
44a0 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 ;t=t+ti*.01;ti=ti*.8;bf=bf*.9+bf
44c0 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b t*.1;ip=0;io=1;p=0;kk=if(below(k
44e0 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 k,-10),10,kk-0.2);lx=0;ly=0;sw=g
4500 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a etosc(sp,.05,0)*2;.n=min(100,sw*
4520 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 300).....ti=5;bft=getosc(0.7,0,0
4540 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 );.X...n=101;tpi=acos(-1)*2;..Ci
4560 72 63 6c 65 3b 73 70 3d 30 2e 31 37 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e rcle;sp=0.175;kk=sp*20-10;mf=(2.
4580 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 5+rand(100)*.01)*(rand(2)*2-1)..
45a0 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cc 04 00 00 01 e4 01 00 00 69 70 3d 62 .......ooo.....$............ip=b
45c0 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 not(ip);io=if(ip,1-io,io);p=if(i
45e0 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 p,p,i);..u=t*mf+p*tpi*sw;px=cos(
4600 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b u)*(io*.2+1.2);py=sin(u)*(io*.2+
4620 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 1.2);pz=kk;..px=px+ox;..py=py+oy
4640 3b 0d 0a 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 ;..pz=pz+oz;..x1=px*cy-pz*sy;z1=
4660 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=
4680 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=
46a0 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
46c0 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c ),1/z2,0);..lx=x;ly=y;..x=if(dt,
46e0 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 0d 0a 64 x3*dt,x);y=if(dt,y3*dt*af,y);..d
4700 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 t=below(sqrt(sqr(x-lx)+sqr(y-ly)
4720 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 ),1)*above(dt,0)*dt-.05;..hu=get
4740 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 osc(sp+i*.2,.1,0)*2+t;..red=sin(
4760 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 hu)*dt+dt;..green=sin(hu+2.09)*d
4780 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 t+dt;..blue=sin(hu+4.18)*dt+dt;.
47a0 57 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 37 W...t=t+0.02;ox=cos(t)*cos(t*.37
47c0 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 2e 9+1)*cos(sin(t*.141));oy=sin(t*.
47e0 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 73 91)*cos(-t*.71)*.4;oz=sin(t)*cos
4800 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 32 3b 6f 74 3d (-t*.41)*sin(cos(t*.631))-.2;ot=
4820 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f sin(t*.941)*cos(t*.514+1)*sin(co
4840 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 s(t*.219))*.7+1.9;ot=ot/sqrt(sqr
4860 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
4880 79 3d 6d 69 6e 28 2e 38 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(.8,abs(oy)*ot)*sign(oy);oz
48a0 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)*
48c0 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
48e0 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 31 3b os(t*.191+2)*cos(sin(t*.091))*1;
4900 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(
4920 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
4940 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=
4960 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
4980 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 1;ti=ti*.8;bf=bf*.9+bft*.1;ip=0;
49a0 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c io=1;p=0;kk=if(below(kk,-10),10,
49c0 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e kk-0.2);lx=0;ly=0;sw=getosc(sp,.
49e0 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 05,0)*2;.n=min(100,sw*300).....t
4a00 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 56 00 00 00 6e 3d 31 i=5;bft=getosc(0.7,0,0);.V...n=1
4a20 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 01;tpi=acos(-1)*2;..Circle;sp=0.
4a40 32 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2;kk=sp*20-10;mf=(2.5+rand(100)*
4a60 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 .01)*(rand(2)*2-1).........ooo..
4a80 00 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 ...$............ip=bnot(ip);io=i
4aa0 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 f(ip,1-io,io);p=if(ip,p,i);..u=t
4ac0 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e *mf+p*tpi*sw;px=cos(u)*(io*.2+1.
4ae0 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 2);py=sin(u)*(io*.2+1.2);pz=kk;.
4b00 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b .px=px+ox;..py=py+oy;..pz=pz+oz;
4b20 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 3b ..x1=px*cy-pz*sy;z1=px*sy+pz*cy;
4b40 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 3b ..y2=py*cx-z1*sx;z2=py*sx+z1*cx;
4b60 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 3b ..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;
4b80 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 0a ..dt=if(above(z2,.01),1/z2,0);..
4ba0 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 lx=x;ly=y;..x=if(dt,x3*dt,x);y=i
4bc0 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 f(dt,y3*dt*af,y);..dt=below(sqrt
4be0 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 (sqr(x-lx)+sqr(y-ly)),1)*above(d
4c00 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c t,0)*dt-.05;..hu=getosc(sp+i*.2,
4c20 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a .1,0)*2+t;..red=sin(hu)*dt+dt;..
4c40 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d green=sin(hu+2.09)*dt+dt;..blue=
4c60 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 sin(hu+4.18)*dt+dt;.W...t=t+0.02
4c80 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
4ca0 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*.
4cc0 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
4ce0 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a (cos(t*.631))-.2;ot=sin(t*.941)*
4d00 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e cos(t*.514+1)*sin(cos(t*.219))*.
4d20 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 7+1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)
4d40 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 38 2c 61 62 73 +sqr(oz));ox=ox*ot;oy=min(.8,abs
4d60 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
4d80 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)*
4da0 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)
4dc0 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d *cos(sin(t*.091))*1;rx=atan2(oy-
4de0 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
4e00 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
4e20 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;
4e40 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 38 3b 62 y=0;af=w/h;t=t+ti*.01;ti=ti*.8;b
4e60 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d f=bf*.9+bft*.1;ip=0;io=1;p=0;kk=
4e80 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 if(below(kk,-10),10,kk-0.2);lx=0
4ea0 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d ;ly=0;sw=getosc(sp,.05,0)*2;.n=m
4ec0 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f in(100,sw*300).....ti=5;bft=geto
4ee0 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 sc(0.7,0,0);.X...n=101;tpi=acos(
4f00 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 32 32 35 3b 6b 6b 3d 73 70 2a 32 30 -1)*2;..Circle;sp=0.225;kk=sp*20
4f20 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 -10;mf=(2.5+rand(100)*.01)*(rand
4f40 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cd 04 00 (2)*2-1).........ooo.....$......
4f60 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c ......ip=bnot(ip);io=if(ip,1-io,
4f80 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a io);p=if(ip,p,i);..u=t*mf+p*tpi*
4fa0 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 sw;px=cos(u)*(io*.2+1.2);py=sin(
4fc0 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b u)*(io*.2+1.2);pz=kk;..px=px+ox;
4fe0 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 ..py=py+oy;..pz=pz+oz;..x1=px*cy
5000 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
5020 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
5040 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
5060 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b ove(z2,.01),1/z2,0);..lx=x;ly=y;
5080 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 74 ..x=if(dt,x3*dt,x);y=if(dt,y3*dt
50a0 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 *af,y);..dt=below(sqrt(sqr(x-lx)
50c0 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 +sqr(y-ly)),1)*above(dt,0)*dt-.0
50e0 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 5;..hu=getosc(sp+i*.2,.1,0)*2+t;
5100 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 ..red=sin(hu)*dt+dt;..green=sin(
5120 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 hu+2.09)*dt+dt;..blue=sin(hu+4.1
5140 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 8)*dt+dt;.W...t=t+0.02;ox=cos(t)
5160 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 29 29 3b *cos(t*.379+1)*cos(sin(t*.141));
5180 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 6f 7a 3d oy=sin(t*.91)*cos(-t*.71)*.4;oz=
51a0 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 2e 36 33 sin(t)*cos(-t*.41)*sin(cos(t*.63
51c0 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 1))-.2;ot=sin(t*.941)*cos(t*.514
51e0 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f +1)*sin(cos(t*.219))*.7+1.9;ot=o
5200 74 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 t/sqrt(sqr(ox)+sqr(oy)+sqr(oz));
5220 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 ox=ox*ot;oy=min(.8,abs(oy)*ot)*s
5240 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
5260 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
5280 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
52a0 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 *.091))*1;rx=atan2(oy-.2,sqrt(sq
52c0 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
52e0 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
5300 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
5320 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 ;t=t+ti*.01;ti=ti*.8;bf=bf*.9+bf
5340 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b t*.1;ip=0;io=1;p=0;kk=if(below(k
5360 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 k,-10),10,kk-0.2);lx=0;ly=0;sw=g
5380 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a etosc(sp,.05,0)*2;.n=min(100,sw*
53a0 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 300).....ti=5;bft=getosc(0.7,0,0
53c0 29 3b 00 57 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 );.W...n=101;tpi=acos(-1)*2;..Ci
53e0 72 63 6c 65 3b 73 70 3d 30 2e 32 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 rcle;sp=0.25;kk=sp*20-10;mf=(2.5
5400 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 +rand(100)*.01)*(rand(2)*2-1)...
5420 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e ......ooo.....$............ip=bn
5440 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 ot(ip);io=if(ip,1-io,io);p=if(ip
5460 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 ,p,i);..u=t*mf+p*tpi*sw;px=cos(u
5480 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 )*(io*.2+1.2);py=sin(u)*(io*.2+1
54a0 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b .2);pz=kk;..px=px+ox;..py=py+oy;
54c0 0d 0a 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 ..pz=pz+oz;..x1=px*cy-pz*sy;z1=p
54e0 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 70 x*sy+pz*cy;..y2=py*cx-z1*sx;z2=p
5500 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 78 y*sx+z1*cx;..x3=x1*cz-y2*sz;y3=x
5520 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 29 1*sz+y2*cz;..dt=if(above(z2,.01)
5540 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 ,1/z2,0);..lx=x;ly=y;..x=if(dt,x
5560 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 0d 0a 64 74 3*dt,x);y=if(dt,y3*dt*af,y);..dt
5580 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 =below(sqrt(sqr(x-lx)+sqr(y-ly))
55a0 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f ,1)*above(dt,0)*dt-.05;..hu=geto
55c0 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 sc(sp+i*.2,.1,0)*2+t;..red=sin(h
55e0 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 u)*dt+dt;..green=sin(hu+2.09)*dt
5600 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 +dt;..blue=sin(hu+4.18)*dt+dt;.W
5620 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 37 39 ...t=t+0.02;ox=cos(t)*cos(t*.379
5640 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 2e 39 +1)*cos(sin(t*.141));oy=sin(t*.9
5660 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 73 28 1)*cos(-t*.71)*.4;oz=sin(t)*cos(
5680 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 32 3b 6f 74 3d 73 -t*.41)*sin(cos(t*.631))-.2;ot=s
56a0 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 in(t*.941)*cos(t*.514+1)*sin(cos
56c0 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 (t*.219))*.7+1.9;ot=ot/sqrt(sqr(
56e0 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 79 ox)+sqr(oy)+sqr(oz));ox=ox*ot;oy
5700 3d 6d 69 6e 28 2e 38 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 =min(.8,abs(oy)*ot)*sign(oy);oz=
5720 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 63 oz*ot;ry=-atan2(-ox,oz)-sin(t)*c
5740 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 6f os(t*.914)*.3;rz=-cos(t*.241)*co
5760 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 31 3b 72 s(t*.191+2)*cos(sin(t*.091))*1;r
5780 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 6f x=atan2(oy-.2,sqrt(sqr(ox)+sqr(o
57a0 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 6f z)));cx=cos(rx);sx=sin(rx);cy=co
57c0 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 73 s(ry);sy=sin(ry);cz=cos(rz);sz=s
57e0 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 31 in(rz);x=0;y=0;af=w/h;t=t+ti*.01
5800 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 ;ti=ti*.8;bf=bf*.9+bft*.1;ip=0;i
5820 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b o=1;p=0;kk=if(below(kk,-10),10,k
5840 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 k-0.2);lx=0;ly=0;sw=getosc(sp,.0
5860 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 5,0)*2;.n=min(100,sw*300).....ti
5880 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 =5;bft=getosc(0.7,0,0);.X...n=10
58a0 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 32 1;tpi=acos(-1)*2;..Circle;sp=0.2
58c0 37 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 75;kk=sp*20-10;mf=(2.5+rand(100)
58e0 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 *.01)*(rand(2)*2-1).........ooo.
5900 01 00 00 00 24 00 00 00 cc 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d ....$............ip=bnot(ip);io=
5920 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d if(ip,1-io,io);p=if(ip,p,i);..u=
5940 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 t*mf+p*tpi*sw;px=cos(u)*(io*.2+1
5960 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b .2);py=sin(u)*(io*.2+1.2);pz=kk;
5980 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a ..px=px+ox;..py=py+oy;..pz=pz+oz
59a0 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
59c0 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
59e0 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
5a00 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);.
5a20 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d .lx=x;ly=y;..x=if(dt,x3*dt,x);y=
5a40 69 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 if(dt,y3*dt*af,y);..dt=below(sqr
5a60 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 t(sqr(x-lx)+sqr(y-ly)),1)*above(
5a80 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 dt,0)*dt-.05;..hu=getosc(sp+i*.2
5aa0 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d ,.1,0)*2+t;..red=sin(hu)*dt+dt;.
5ac0 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 .green=sin(hu+2.09)*dt+dt;..blue
5ae0 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 =sin(hu+4.18)*dt+dt;.W...t=t+0.0
5b00 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 73 28 73 69 2;ox=cos(t)*cos(t*.379+1)*cos(si
5b20 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 28 2d 74 2a n(t*.141));oy=sin(t*.91)*cos(-t*
5b40 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 29 2a 73 69 .71)*.4;oz=sin(t)*cos(-t*.41)*si
5b60 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 n(cos(t*.631))-.2;ot=sin(t*.941)
5b80 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a *cos(t*.514+1)*sin(cos(t*.219))*
5ba0 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 .7+1.9;ot=ot/sqrt(sqr(ox)+sqr(oy
5bc0 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 2e 38 2c 61 62 )+sqr(oz));ox=ox*ot;oy=min(.8,ab
5be0 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 3b 72 79 3d 2d s(oy)*ot)*sign(oy);oz=oz*ot;ry=-
5c00 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 2e 39 31 34 29 atan2(-ox,oz)-sin(t)*cos(t*.914)
5c20 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 31 39 31 2b 32 *.3;rz=-cos(t*.241)*cos(t*.191+2
5c40 29 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 )*cos(sin(t*.091))*1;rx=atan2(oy
5c60 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 63 78 3d 63 6f -.2,sqrt(sqr(ox)+sqr(oz)));cx=co
5c80 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 73 s(rx);sx=sin(rx);cy=cos(ry);sy=s
5ca0 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 78 3d 30 in(ry);cz=cos(rz);sz=sin(rz);x=0
5cc0 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 69 2a 2e 38 3b ;y=0;af=w/h;t=t+ti*.01;ti=ti*.8;
5ce0 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b bf=bf*.9+bft*.1;ip=0;io=1;p=0;kk
5d00 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d =if(below(kk,-10),10,kk-0.2);lx=
5d20 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 0;ly=0;sw=getosc(sp,.05,0)*2;.n=
5d40 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 min(100,sw*300).....ti=5;bft=get
5d60 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 56 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 osc(0.7,0,0);.V...n=101;tpi=acos
5d80 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 33 3b 6b 6b 3d 73 70 2a 32 30 2d (-1)*2;..Circle;sp=0.3;kk=sp*20-
5da0 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 10;mf=(2.5+rand(100)*.01)*(rand(
5dc0 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 2)*2-1).........ooo.....$.......
5de0 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 .....ip=bnot(ip);io=if(ip,1-io,i
5e00 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 o);p=if(ip,p,i);..u=t*mf+p*tpi*s
5e20 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 w;px=cos(u)*(io*.2+1.2);py=sin(u
5e40 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d )*(io*.2+1.2);pz=kk;..px=px+ox;.
5e60 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d .py=py+oy;..pz=pz+oz;..x1=px*cy-
5e80 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-
5ea0 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-
5ec0 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
5ee0 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d ve(z2,.01),1/z2,0);..lx=x;ly=y;.
5f00 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*
5f20 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b af,y);..dt=below(sqrt(sqr(x-lx)+
5f40 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 sqr(y-ly)),1)*above(dt,0)*dt-.05
5f60 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d ;..hu=getosc(sp+i*.2,.1,0)*2+t;.
5f80 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 .red=sin(hu)*dt+dt;..green=sin(h
5fa0 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 u+2.09)*dt+dt;..blue=sin(hu+4.18
5fc0 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a )*dt+dt;.W...t=t+0.02;ox=cos(t)*
5fe0 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 29 29 3b 6f cos(t*.379+1)*cos(sin(t*.141));o
6000 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 6f 7a 3d 73 y=sin(t*.91)*cos(-t*.71)*.4;oz=s
6020 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 2e 36 33 31 in(t)*cos(-t*.41)*sin(cos(t*.631
6040 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b ))-.2;ot=sin(t*.941)*cos(t*.514+
6060 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 1)*sin(cos(t*.219))*.7+1.9;ot=ot
6080 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 6f /sqrt(sqr(ox)+sqr(oy)+sqr(oz));o
60a0 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 x=ox*ot;oy=min(.8,abs(oy)*ot)*si
60c0 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 7a gn(oy);oz=oz*ot;ry=-atan2(-ox,oz
60e0 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 28 )-sin(t)*cos(t*.914)*.3;rz=-cos(
6100 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 2a t*.241)*cos(t*.191+2)*cos(sin(t*
6120 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 .091))*1;rx=atan2(oy-.2,sqrt(sqr
6140 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 6e (ox)+sqr(oz)));cx=cos(rx);sx=sin
6160 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 6f (rx);cy=cos(ry);sy=sin(ry);cz=co
6180 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 3b s(rz);sz=sin(rz);x=0;y=0;af=w/h;
61a0 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 t=t+ti*.01;ti=ti*.8;bf=bf*.9+bft
61c0 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b *.1;ip=0;io=1;p=0;kk=if(below(kk
61e0 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 ,-10),10,kk-0.2);lx=0;ly=0;sw=ge
6200 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 tosc(sp,.05,0)*2;.n=min(100,sw*3
6220 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 00).....ti=5;bft=getosc(0.7,0,0)
6240 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 ;.X...n=101;tpi=acos(-1)*2;..Cir
6260 63 6c 65 3b 73 70 3d 30 2e 33 32 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 cle;sp=0.325;kk=sp*20-10;mf=(2.5
6280 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 +rand(100)*.01)*(rand(2)*2-1)...
62a0 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cd 04 00 00 01 e4 01 00 00 69 70 3d 62 6e ......ooo.....$............ip=bn
62c0 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 ot(ip);io=if(ip,1-io,io);p=if(ip
62e0 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 ,p,i);..u=t*mf+p*tpi*sw;px=cos(u
6300 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 )*(io*.2+1.2);py=sin(u)*(io*.2+1
6320 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b .2);pz=kk;..px=px+ox;..py=py+oy;
6340 0d 0a 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 ..pz=pz+oz;..x1=px*cy-pz*sy;z1=p
6360 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 70 x*sy+pz*cy;..y2=py*cx-z1*sx;z2=p
6380 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 78 y*sx+z1*cx;..x3=x1*cz-y2*sz;y3=x
63a0 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 29 1*sz+y2*cz;..dt=if(above(z2,.01)
63c0 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 ,1/z2,0);..lx=x;ly=y;..x=if(dt,x
63e0 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 0d 0a 64 74 3*dt,x);y=if(dt,y3*dt*af,y);..dt
6400 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 =below(sqrt(sqr(x-lx)+sqr(y-ly))
6420 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f ,1)*above(dt,0)*dt-.05;..hu=geto
6440 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 sc(sp+i*.2,.1,0)*2+t;..red=sin(h
6460 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 u)*dt+dt;..green=sin(hu+2.09)*dt
6480 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 +dt;..blue=sin(hu+4.18)*dt+dt;.W
64a0 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 37 39 ...t=t+0.02;ox=cos(t)*cos(t*.379
64c0 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 2e 39 +1)*cos(sin(t*.141));oy=sin(t*.9
64e0 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 73 28 1)*cos(-t*.71)*.4;oz=sin(t)*cos(
6500 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 32 3b 6f 74 3d 73 -t*.41)*sin(cos(t*.631))-.2;ot=s
6520 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 in(t*.941)*cos(t*.514+1)*sin(cos
6540 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 (t*.219))*.7+1.9;ot=ot/sqrt(sqr(
6560 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 79 ox)+sqr(oy)+sqr(oz));ox=ox*ot;oy
6580 3d 6d 69 6e 28 2e 38 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 =min(.8,abs(oy)*ot)*sign(oy);oz=
65a0 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 63 oz*ot;ry=-atan2(-ox,oz)-sin(t)*c
65c0 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 6f os(t*.914)*.3;rz=-cos(t*.241)*co
65e0 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 31 3b 72 s(t*.191+2)*cos(sin(t*.091))*1;r
6600 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 6f x=atan2(oy-.2,sqrt(sqr(ox)+sqr(o
6620 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 6f z)));cx=cos(rx);sx=sin(rx);cy=co
6640 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 73 s(ry);sy=sin(ry);cz=cos(rz);sz=s
6660 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 31 in(rz);x=0;y=0;af=w/h;t=t+ti*.01
6680 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 ;ti=ti*.8;bf=bf*.9+bft*.1;ip=0;i
66a0 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b o=1;p=0;kk=if(below(kk,-10),10,k
66c0 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 k-0.2);lx=0;ly=0;sw=getosc(sp,.0
66e0 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 5,0)*2;.n=min(100,sw*300).....ti
6700 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 57 00 00 00 6e 3d 31 30 =5;bft=getosc(0.7,0,0);.W...n=10
6720 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 33 1;tpi=acos(-1)*2;..Circle;sp=0.3
6740 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 5;kk=sp*20-10;mf=(2.5+rand(100)*
6760 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 .01)*(rand(2)*2-1).........ooo..
6780 00 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 ...$............ip=bnot(ip);io=i
67a0 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 f(ip,1-io,io);p=if(ip,p,i);..u=t
67c0 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e *mf+p*tpi*sw;px=cos(u)*(io*.2+1.
67e0 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 2);py=sin(u)*(io*.2+1.2);pz=kk;.
6800 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b .px=px+ox;..py=py+oy;..pz=pz+oz;
6820 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 3b ..x1=px*cy-pz*sy;z1=px*sy+pz*cy;
6840 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 3b ..y2=py*cx-z1*sx;z2=py*sx+z1*cx;
6860 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 3b ..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;
6880 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 0a ..dt=if(above(z2,.01),1/z2,0);..
68a0 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 lx=x;ly=y;..x=if(dt,x3*dt,x);y=i
68c0 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 f(dt,y3*dt*af,y);..dt=below(sqrt
68e0 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 (sqr(x-lx)+sqr(y-ly)),1)*above(d
6900 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c t,0)*dt-.05;..hu=getosc(sp+i*.2,
6920 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a .1,0)*2+t;..red=sin(hu)*dt+dt;..
6940 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d green=sin(hu+2.09)*dt+dt;..blue=
6960 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 sin(hu+4.18)*dt+dt;.W...t=t+0.02
6980 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
69a0 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*.
69c0 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
69e0 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a (cos(t*.631))-.2;ot=sin(t*.941)*
6a00 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e cos(t*.514+1)*sin(cos(t*.219))*.
6a20 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 7+1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)
6a40 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 38 2c 61 62 73 +sqr(oz));ox=ox*ot;oy=min(.8,abs
6a60 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
6a80 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)*
6aa0 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)
6ac0 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d *cos(sin(t*.091))*1;rx=atan2(oy-
6ae0 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
6b00 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
6b20 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;
6b40 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 38 3b 62 y=0;af=w/h;t=t+ti*.01;ti=ti*.8;b
6b60 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d f=bf*.9+bft*.1;ip=0;io=1;p=0;kk=
6b80 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 if(below(kk,-10),10,kk-0.2);lx=0
6ba0 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d ;ly=0;sw=getosc(sp,.05,0)*2;.n=m
6bc0 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f in(100,sw*300).....ti=5;bft=geto
6be0 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 sc(0.7,0,0);.X...n=101;tpi=acos(
6c00 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 33 37 35 3b 6b 6b 3d 73 70 2a 32 30 -1)*2;..Circle;sp=0.375;kk=sp*20
6c20 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 -10;mf=(2.5+rand(100)*.01)*(rand
6c40 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cc 04 00 (2)*2-1).........ooo.....$......
6c60 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c ......ip=bnot(ip);io=if(ip,1-io,
6c80 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a io);p=if(ip,p,i);..u=t*mf+p*tpi*
6ca0 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 sw;px=cos(u)*(io*.2+1.2);py=sin(
6cc0 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b u)*(io*.2+1.2);pz=kk;..px=px+ox;
6ce0 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 ..py=py+oy;..pz=pz+oz;..x1=px*cy
6d00 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
6d20 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
6d40 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
6d60 6f 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b ove(z2,.01),1/z2,0);..lx=x;ly=y;
6d80 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 74 ..x=if(dt,x3*dt,x);y=if(dt,y3*dt
6da0 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 *af,y);..dt=below(sqrt(sqr(x-lx)
6dc0 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 +sqr(y-ly)),1)*above(dt,0)*dt-.0
6de0 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 5;..hu=getosc(sp+i*.2,.1,0)*2+t;
6e00 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 ..red=sin(hu)*dt+dt;..green=sin(
6e20 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 hu+2.09)*dt+dt;..blue=sin(hu+4.1
6e40 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 8)*dt+dt;.W...t=t+0.02;ox=cos(t)
6e60 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 29 29 3b *cos(t*.379+1)*cos(sin(t*.141));
6e80 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 6f 7a 3d oy=sin(t*.91)*cos(-t*.71)*.4;oz=
6ea0 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 2e 36 33 sin(t)*cos(-t*.41)*sin(cos(t*.63
6ec0 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 1))-.2;ot=sin(t*.941)*cos(t*.514
6ee0 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f +1)*sin(cos(t*.219))*.7+1.9;ot=o
6f00 74 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 t/sqrt(sqr(ox)+sqr(oy)+sqr(oz));
6f20 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 ox=ox*ot;oy=min(.8,abs(oy)*ot)*s
6f40 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
6f60 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
6f80 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
6fa0 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 *.091))*1;rx=atan2(oy-.2,sqrt(sq
6fc0 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
6fe0 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
7000 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
7020 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 ;t=t+ti*.01;ti=ti*.8;bf=bf*.9+bf
7040 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b t*.1;ip=0;io=1;p=0;kk=if(below(k
7060 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 k,-10),10,kk-0.2);lx=0;ly=0;sw=g
7080 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a etosc(sp,.05,0)*2;.n=min(100,sw*
70a0 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 300).....ti=5;bft=getosc(0.7,0,0
70c0 29 3b 00 56 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 );.V...n=101;tpi=acos(-1)*2;..Ci
70e0 72 63 6c 65 3b 73 70 3d 30 2e 34 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b rcle;sp=0.4;kk=sp*20-10;mf=(2.5+
7100 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 rand(100)*.01)*(rand(2)*2-1)....
7120 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f .....ooo.....$............ip=bno
7140 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c t(ip);io=if(ip,1-io,io);p=if(ip,
7160 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 p,i);..u=t*mf+p*tpi*sw;px=cos(u)
7180 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e *(io*.2+1.2);py=sin(u)*(io*.2+1.
71a0 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 2);pz=kk;..px=px+ox;..py=py+oy;.
71c0 0a 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
71e0 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
7200 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
7220 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),
7240 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 1/z2,0);..lx=x;ly=y;..x=if(dt,x3
7260 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=
7280 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c below(sqrt(sqr(x-lx)+sqr(y-ly)),
72a0 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 1)*above(dt,0)*dt-.05;..hu=getos
72c0 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 c(sp+i*.2,.1,0)*2+t;..red=sin(hu
72e0 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b )*dt+dt;..green=sin(hu+2.09)*dt+
7300 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 dt;..blue=sin(hu+4.18)*dt+dt;.W.
7320 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 37 39 2b ..t=t+0.02;ox=cos(t)*cos(t*.379+
7340 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 2e 39 31 1)*cos(sin(t*.141));oy=sin(t*.91
7360 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 73 28 2d )*cos(-t*.71)*.4;oz=sin(t)*cos(-
7380 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 32 3b 6f 74 3d 73 69 t*.41)*sin(cos(t*.631))-.2;ot=si
73a0 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 n(t*.941)*cos(t*.514+1)*sin(cos(
73c0 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f t*.219))*.7+1.9;ot=ot/sqrt(sqr(o
73e0 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 79 3d x)+sqr(oy)+sqr(oz));ox=ox*ot;oy=
7400 6d 69 6e 28 2e 38 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 min(.8,abs(oy)*ot)*sign(oy);oz=o
7420 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 63 6f z*ot;ry=-atan2(-ox,oz)-sin(t)*co
7440 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 6f 73 s(t*.914)*.3;rz=-cos(t*.241)*cos
7460 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 31 3b 72 78 (t*.191+2)*cos(sin(t*.091))*1;rx
7480 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 6f 7a =atan2(oy-.2,sqrt(sqr(ox)+sqr(oz
74a0 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 6f 73 )));cx=cos(rx);sx=sin(rx);cy=cos
74c0 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 73 69 (ry);sy=sin(ry);cz=cos(rz);sz=si
74e0 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 31 3b n(rz);x=0;y=0;af=w/h;t=t+ti*.01;
7500 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f ti=ti*.8;bf=bf*.9+bft*.1;ip=0;io
7520 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b =1;p=0;kk=if(below(kk,-10),10,kk
7540 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 -0.2);lx=0;ly=0;sw=getosc(sp,.05
7560 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d ,0)*2;.n=min(100,sw*300).....ti=
7580 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 5;bft=getosc(0.7,0,0);.X...n=101
75a0 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 34 32 ;tpi=acos(-1)*2;..Circle;sp=0.42
75c0 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 5;kk=sp*20-10;mf=(2.5+rand(100)*
75e0 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 .01)*(rand(2)*2-1).........ooo..
7600 00 00 00 24 00 00 00 cd 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 ...$............ip=bnot(ip);io=i
7620 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 f(ip,1-io,io);p=if(ip,p,i);..u=t
7640 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e *mf+p*tpi*sw;px=cos(u)*(io*.2+1.
7660 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 2);py=sin(u)*(io*.2+1.2);pz=kk;.
7680 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b .px=px+ox;..py=py+oy;..pz=pz+oz;
76a0 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 3b ..x1=px*cy-pz*sy;z1=px*sy+pz*cy;
76c0 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 3b ..y2=py*cx-z1*sx;z2=py*sx+z1*cx;
76e0 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 3b ..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;
7700 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 0a ..dt=if(above(z2,.01),1/z2,0);..
7720 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 lx=x;ly=y;..x=if(dt,x3*dt,x);y=i
7740 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 f(dt,y3*dt*af,y);..dt=below(sqrt
7760 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 (sqr(x-lx)+sqr(y-ly)),1)*above(d
7780 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c t,0)*dt-.05;..hu=getosc(sp+i*.2,
77a0 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a .1,0)*2+t;..red=sin(hu)*dt+dt;..
77c0 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d green=sin(hu+2.09)*dt+dt;..blue=
77e0 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 sin(hu+4.18)*dt+dt;.W...t=t+0.02
7800 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
7820 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*.
7840 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
7860 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a (cos(t*.631))-.2;ot=sin(t*.941)*
7880 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e cos(t*.514+1)*sin(cos(t*.219))*.
78a0 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 7+1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)
78c0 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 38 2c 61 62 73 +sqr(oz));ox=ox*ot;oy=min(.8,abs
78e0 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
7900 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)*
7920 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)
7940 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d *cos(sin(t*.091))*1;rx=atan2(oy-
7960 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
7980 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
79a0 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;
79c0 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 38 3b 62 y=0;af=w/h;t=t+ti*.01;ti=ti*.8;b
79e0 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d f=bf*.9+bft*.1;ip=0;io=1;p=0;kk=
7a00 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 if(below(kk,-10),10,kk-0.2);lx=0
7a20 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d ;ly=0;sw=getosc(sp,.05,0)*2;.n=m
7a40 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f in(100,sw*300).....ti=5;bft=geto
7a60 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 57 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 sc(0.7,0,0);.W...n=101;tpi=acos(
7a80 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 34 35 3b 6b 6b 3d 73 70 2a 32 30 2d -1)*2;..Circle;sp=0.45;kk=sp*20-
7aa0 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 10;mf=(2.5+rand(100)*.01)*(rand(
7ac0 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 2)*2-1).........ooo.....$.......
7ae0 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 .....ip=bnot(ip);io=if(ip,1-io,i
7b00 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 o);p=if(ip,p,i);..u=t*mf+p*tpi*s
7b20 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 w;px=cos(u)*(io*.2+1.2);py=sin(u
7b40 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d )*(io*.2+1.2);pz=kk;..px=px+ox;.
7b60 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d .py=py+oy;..pz=pz+oz;..x1=px*cy-
7b80 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-
7ba0 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-
7bc0 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
7be0 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d ve(z2,.01),1/z2,0);..lx=x;ly=y;.
7c00 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*
7c20 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b af,y);..dt=below(sqrt(sqr(x-lx)+
7c40 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 sqr(y-ly)),1)*above(dt,0)*dt-.05
7c60 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d ;..hu=getosc(sp+i*.2,.1,0)*2+t;.
7c80 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 .red=sin(hu)*dt+dt;..green=sin(h
7ca0 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 u+2.09)*dt+dt;..blue=sin(hu+4.18
7cc0 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a )*dt+dt;.W...t=t+0.02;ox=cos(t)*
7ce0 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 29 29 3b 6f cos(t*.379+1)*cos(sin(t*.141));o
7d00 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 6f 7a 3d 73 y=sin(t*.91)*cos(-t*.71)*.4;oz=s
7d20 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 2e 36 33 31 in(t)*cos(-t*.41)*sin(cos(t*.631
7d40 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b ))-.2;ot=sin(t*.941)*cos(t*.514+
7d60 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 1)*sin(cos(t*.219))*.7+1.9;ot=ot
7d80 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 6f /sqrt(sqr(ox)+sqr(oy)+sqr(oz));o
7da0 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 x=ox*ot;oy=min(.8,abs(oy)*ot)*si
7dc0 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 7a gn(oy);oz=oz*ot;ry=-atan2(-ox,oz
7de0 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 28 )-sin(t)*cos(t*.914)*.3;rz=-cos(
7e00 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 2a t*.241)*cos(t*.191+2)*cos(sin(t*
7e20 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 .091))*1;rx=atan2(oy-.2,sqrt(sqr
7e40 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 6e (ox)+sqr(oz)));cx=cos(rx);sx=sin
7e60 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 6f (rx);cy=cos(ry);sy=sin(ry);cz=co
7e80 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 3b s(rz);sz=sin(rz);x=0;y=0;af=w/h;
7ea0 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 t=t+ti*.01;ti=ti*.8;bf=bf*.9+bft
7ec0 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b *.1;ip=0;io=1;p=0;kk=if(below(kk
7ee0 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 ,-10),10,kk-0.2);lx=0;ly=0;sw=ge
7f00 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 tosc(sp,.05,0)*2;.n=min(100,sw*3
7f20 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 00).....ti=5;bft=getosc(0.7,0,0)
7f40 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 ;.X...n=101;tpi=acos(-1)*2;..Cir
7f60 63 6c 65 3b 73 70 3d 30 2e 34 37 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 cle;sp=0.475;kk=sp*20-10;mf=(2.5
7f80 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 +rand(100)*.01)*(rand(2)*2-1)...
7fa0 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cc 04 00 00 01 e4 01 00 00 69 70 3d 62 6e ......ooo.....$............ip=bn
7fc0 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 ot(ip);io=if(ip,1-io,io);p=if(ip
7fe0 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 ,p,i);..u=t*mf+p*tpi*sw;px=cos(u
8000 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 )*(io*.2+1.2);py=sin(u)*(io*.2+1
8020 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b .2);pz=kk;..px=px+ox;..py=py+oy;
8040 0d 0a 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 ..pz=pz+oz;..x1=px*cy-pz*sy;z1=p
8060 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 70 x*sy+pz*cy;..y2=py*cx-z1*sx;z2=p
8080 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 78 y*sx+z1*cx;..x3=x1*cz-y2*sz;y3=x
80a0 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 29 1*sz+y2*cz;..dt=if(above(z2,.01)
80c0 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 ,1/z2,0);..lx=x;ly=y;..x=if(dt,x
80e0 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 0d 0a 64 74 3*dt,x);y=if(dt,y3*dt*af,y);..dt
8100 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 =below(sqrt(sqr(x-lx)+sqr(y-ly))
8120 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f ,1)*above(dt,0)*dt-.05;..hu=geto
8140 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 sc(sp+i*.2,.1,0)*2+t;..red=sin(h
8160 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 u)*dt+dt;..green=sin(hu+2.09)*dt
8180 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 +dt;..blue=sin(hu+4.18)*dt+dt;.W
81a0 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 37 39 ...t=t+0.02;ox=cos(t)*cos(t*.379
81c0 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 2e 39 +1)*cos(sin(t*.141));oy=sin(t*.9
81e0 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 73 28 1)*cos(-t*.71)*.4;oz=sin(t)*cos(
8200 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 32 3b 6f 74 3d 73 -t*.41)*sin(cos(t*.631))-.2;ot=s
8220 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 in(t*.941)*cos(t*.514+1)*sin(cos
8240 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 (t*.219))*.7+1.9;ot=ot/sqrt(sqr(
8260 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 79 ox)+sqr(oy)+sqr(oz));ox=ox*ot;oy
8280 3d 6d 69 6e 28 2e 38 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 =min(.8,abs(oy)*ot)*sign(oy);oz=
82a0 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 63 oz*ot;ry=-atan2(-ox,oz)-sin(t)*c
82c0 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 6f os(t*.914)*.3;rz=-cos(t*.241)*co
82e0 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 31 3b 72 s(t*.191+2)*cos(sin(t*.091))*1;r
8300 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 6f x=atan2(oy-.2,sqrt(sqr(ox)+sqr(o
8320 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 6f z)));cx=cos(rx);sx=sin(rx);cy=co
8340 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 73 s(ry);sy=sin(ry);cz=cos(rz);sz=s
8360 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 31 in(rz);x=0;y=0;af=w/h;t=t+ti*.01
8380 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 ;ti=ti*.8;bf=bf*.9+bft*.1;ip=0;i
83a0 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b o=1;p=0;kk=if(below(kk,-10),10,k
83c0 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 k-0.2);lx=0;ly=0;sw=getosc(sp,.0
83e0 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 5,0)*2;.n=min(100,sw*300).....ti
8400 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 56 00 00 00 6e 3d 31 30 =5;bft=getosc(0.7,0,0);.V...n=10
8420 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 35 1;tpi=acos(-1)*2;..Circle;sp=0.5
8440 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e ;kk=sp*20-10;mf=(2.5+rand(100)*.
8460 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 01)*(rand(2)*2-1).........ooo...
8480 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 ..$............ip=bnot(ip);io=if
84a0 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a (ip,1-io,io);p=if(ip,p,i);..u=t*
84c0 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 mf+p*tpi*sw;px=cos(u)*(io*.2+1.2
84e0 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a );py=sin(u)*(io*.2+1.2);pz=kk;..
8500 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d px=px+ox;..py=py+oy;..pz=pz+oz;.
8520 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;.
8540 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;.
8560 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;.
8580 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 6c .dt=if(above(z2,.01),1/z2,0);..l
85a0 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 x=x;ly=y;..x=if(dt,x3*dt,x);y=if
85c0 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 (dt,y3*dt*af,y);..dt=below(sqrt(
85e0 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 sqr(x-lx)+sqr(y-ly)),1)*above(dt
8600 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e ,0)*dt-.05;..hu=getosc(sp+i*.2,.
8620 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 1,0)*2+t;..red=sin(hu)*dt+dt;..g
8640 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 reen=sin(hu+2.09)*dt+dt;..blue=s
8660 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b in(hu+4.18)*dt+dt;.W...t=t+0.02;
8680 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(
86a0 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
86c0 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(
86e0 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 cos(t*.631))-.2;ot=sin(t*.941)*c
8700 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 os(t*.514+1)*sin(cos(t*.219))*.7
8720 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b +1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)+
8740 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 38 2c 61 62 73 28 sqr(oz));ox=ox*ot;oy=min(.8,abs(
8760 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
8780 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)*.
87a0 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)*
87c0 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e cos(sin(t*.091))*1;rx=atan2(oy-.
87e0 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(
8800 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
8820 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
8840 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 38 3b 62 66 =0;af=w/h;t=t+ti*.01;ti=ti*.8;bf
8860 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 =bf*.9+bft*.1;ip=0;io=1;p=0;kk=i
8880 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b f(below(kk,-10),10,kk-0.2);lx=0;
88a0 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 ly=0;sw=getosc(sp,.05,0)*2;.n=mi
88c0 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 n(100,sw*300).....ti=5;bft=getos
88e0 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d c(0.7,0,0);.X...n=101;tpi=acos(-
8900 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 35 32 35 3b 6b 6b 3d 73 70 2a 32 30 2d 1)*2;..Circle;sp=0.525;kk=sp*20-
8920 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 10;mf=(2.5+rand(100)*.01)*(rand(
8940 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cd 04 00 00 2)*2-1).........ooo.....$.......
8960 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 .....ip=bnot(ip);io=if(ip,1-io,i
8980 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 o);p=if(ip,p,i);..u=t*mf+p*tpi*s
89a0 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 w;px=cos(u)*(io*.2+1.2);py=sin(u
89c0 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d )*(io*.2+1.2);pz=kk;..px=px+ox;.
89e0 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d .py=py+oy;..pz=pz+oz;..x1=px*cy-
8a00 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-
8a20 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-
8a40 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
8a60 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d ve(z2,.01),1/z2,0);..lx=x;ly=y;.
8a80 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*
8aa0 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b af,y);..dt=below(sqrt(sqr(x-lx)+
8ac0 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 sqr(y-ly)),1)*above(dt,0)*dt-.05
8ae0 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d ;..hu=getosc(sp+i*.2,.1,0)*2+t;.
8b00 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 .red=sin(hu)*dt+dt;..green=sin(h
8b20 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 u+2.09)*dt+dt;..blue=sin(hu+4.18
8b40 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a )*dt+dt;.W...t=t+0.02;ox=cos(t)*
8b60 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 29 29 3b 6f cos(t*.379+1)*cos(sin(t*.141));o
8b80 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 6f 7a 3d 73 y=sin(t*.91)*cos(-t*.71)*.4;oz=s
8ba0 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 2e 36 33 31 in(t)*cos(-t*.41)*sin(cos(t*.631
8bc0 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b ))-.2;ot=sin(t*.941)*cos(t*.514+
8be0 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 1)*sin(cos(t*.219))*.7+1.9;ot=ot
8c00 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 6f /sqrt(sqr(ox)+sqr(oy)+sqr(oz));o
8c20 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 x=ox*ot;oy=min(.8,abs(oy)*ot)*si
8c40 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 7a gn(oy);oz=oz*ot;ry=-atan2(-ox,oz
8c60 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 28 )-sin(t)*cos(t*.914)*.3;rz=-cos(
8c80 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 2a t*.241)*cos(t*.191+2)*cos(sin(t*
8ca0 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 .091))*1;rx=atan2(oy-.2,sqrt(sqr
8cc0 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 6e (ox)+sqr(oz)));cx=cos(rx);sx=sin
8ce0 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 6f (rx);cy=cos(ry);sy=sin(ry);cz=co
8d00 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 3b s(rz);sz=sin(rz);x=0;y=0;af=w/h;
8d20 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 t=t+ti*.01;ti=ti*.8;bf=bf*.9+bft
8d40 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b *.1;ip=0;io=1;p=0;kk=if(below(kk
8d60 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 ,-10),10,kk-0.2);lx=0;ly=0;sw=ge
8d80 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 tosc(sp,.05,0)*2;.n=min(100,sw*3
8da0 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 00).....ti=5;bft=getosc(0.7,0,0)
8dc0 3b 00 57 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 ;.W...n=101;tpi=acos(-1)*2;..Cir
8de0 63 6c 65 3b 73 70 3d 30 2e 35 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b cle;sp=0.55;kk=sp*20-10;mf=(2.5+
8e00 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 rand(100)*.01)*(rand(2)*2-1)....
8e20 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f .....ooo.....$............ip=bno
8e40 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c t(ip);io=if(ip,1-io,io);p=if(ip,
8e60 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 p,i);..u=t*mf+p*tpi*sw;px=cos(u)
8e80 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e *(io*.2+1.2);py=sin(u)*(io*.2+1.
8ea0 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 2);pz=kk;..px=px+ox;..py=py+oy;.
8ec0 0a 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
8ee0 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
8f00 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
8f20 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),
8f40 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 1/z2,0);..lx=x;ly=y;..x=if(dt,x3
8f60 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=
8f80 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c below(sqrt(sqr(x-lx)+sqr(y-ly)),
8fa0 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 1)*above(dt,0)*dt-.05;..hu=getos
8fc0 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 c(sp+i*.2,.1,0)*2+t;..red=sin(hu
8fe0 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b )*dt+dt;..green=sin(hu+2.09)*dt+
9000 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 dt;..blue=sin(hu+4.18)*dt+dt;.W.
9020 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 37 39 2b ..t=t+0.02;ox=cos(t)*cos(t*.379+
9040 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 2e 39 31 1)*cos(sin(t*.141));oy=sin(t*.91
9060 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 73 28 2d )*cos(-t*.71)*.4;oz=sin(t)*cos(-
9080 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 32 3b 6f 74 3d 73 69 t*.41)*sin(cos(t*.631))-.2;ot=si
90a0 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 n(t*.941)*cos(t*.514+1)*sin(cos(
90c0 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f t*.219))*.7+1.9;ot=ot/sqrt(sqr(o
90e0 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 79 3d x)+sqr(oy)+sqr(oz));ox=ox*ot;oy=
9100 6d 69 6e 28 2e 38 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 min(.8,abs(oy)*ot)*sign(oy);oz=o
9120 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 63 6f z*ot;ry=-atan2(-ox,oz)-sin(t)*co
9140 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 6f 73 s(t*.914)*.3;rz=-cos(t*.241)*cos
9160 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 31 3b 72 78 (t*.191+2)*cos(sin(t*.091))*1;rx
9180 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 6f 7a =atan2(oy-.2,sqrt(sqr(ox)+sqr(oz
91a0 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 6f 73 )));cx=cos(rx);sx=sin(rx);cy=cos
91c0 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 73 69 (ry);sy=sin(ry);cz=cos(rz);sz=si
91e0 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 31 3b n(rz);x=0;y=0;af=w/h;t=t+ti*.01;
9200 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f ti=ti*.8;bf=bf*.9+bft*.1;ip=0;io
9220 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b =1;p=0;kk=if(below(kk,-10),10,kk
9240 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 -0.2);lx=0;ly=0;sw=getosc(sp,.05
9260 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d ,0)*2;.n=min(100,sw*300).....ti=
9280 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 5;bft=getosc(0.7,0,0);.X...n=101
92a0 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 35 37 ;tpi=acos(-1)*2;..Circle;sp=0.57
92c0 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 5;kk=sp*20-10;mf=(2.5+rand(100)*
92e0 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 .01)*(rand(2)*2-1).........ooo..
9300 00 00 00 24 00 00 00 cc 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 ...$............ip=bnot(ip);io=i
9320 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 f(ip,1-io,io);p=if(ip,p,i);..u=t
9340 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e *mf+p*tpi*sw;px=cos(u)*(io*.2+1.
9360 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 2);py=sin(u)*(io*.2+1.2);pz=kk;.
9380 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b .px=px+ox;..py=py+oy;..pz=pz+oz;
93a0 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 3b ..x1=px*cy-pz*sy;z1=px*sy+pz*cy;
93c0 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 3b ..y2=py*cx-z1*sx;z2=py*sx+z1*cx;
93e0 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 3b ..x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;
9400 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 0a ..dt=if(above(z2,.01),1/z2,0);..
9420 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 lx=x;ly=y;..x=if(dt,x3*dt,x);y=i
9440 66 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 f(dt,y3*dt*af,y);..dt=below(sqrt
9460 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 (sqr(x-lx)+sqr(y-ly)),1)*above(d
9480 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c t,0)*dt-.05;..hu=getosc(sp+i*.2,
94a0 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a .1,0)*2+t;..red=sin(hu)*dt+dt;..
94c0 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d green=sin(hu+2.09)*dt+dt;..blue=
94e0 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 sin(hu+4.18)*dt+dt;.W...t=t+0.02
9500 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
9520 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*.
9540 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
9560 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a (cos(t*.631))-.2;ot=sin(t*.941)*
9580 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e cos(t*.514+1)*sin(cos(t*.219))*.
95a0 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 7+1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)
95c0 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 38 2c 61 62 73 +sqr(oz));ox=ox*ot;oy=min(.8,abs
95e0 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
9600 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)*
9620 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)
9640 2a 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d *cos(sin(t*.091))*1;rx=atan2(oy-
9660 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
9680 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
96a0 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;
96c0 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 38 3b 62 y=0;af=w/h;t=t+ti*.01;ti=ti*.8;b
96e0 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d f=bf*.9+bft*.1;ip=0;io=1;p=0;kk=
9700 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 if(below(kk,-10),10,kk-0.2);lx=0
9720 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d ;ly=0;sw=getosc(sp,.05,0)*2;.n=m
9740 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f in(100,sw*300).....ti=5;bft=geto
9760 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 56 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 sc(0.7,0,0);.V...n=101;tpi=acos(
9780 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 36 3b 6b 6b 3d 73 70 2a 32 30 2d 31 -1)*2;..Circle;sp=0.6;kk=sp*20-1
97a0 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 0;mf=(2.5+rand(100)*.01)*(rand(2
97c0 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 )*2-1).........ooo.....$........
97e0 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f ....ip=bnot(ip);io=if(ip,1-io,io
9800 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 );p=if(ip,p,i);..u=t*mf+p*tpi*sw
9820 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 ;px=cos(u)*(io*.2+1.2);py=sin(u)
9840 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a *(io*.2+1.2);pz=kk;..px=px+ox;..
9860 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 py=py+oy;..pz=pz+oz;..x1=px*cy-p
9880 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
98a0 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
98c0 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
98e0 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a e(z2,.01),1/z2,0);..lx=x;ly=y;..
9900 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 61 x=if(dt,x3*dt,x);y=if(dt,y3*dt*a
9920 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 f,y);..dt=below(sqrt(sqr(x-lx)+s
9940 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b qr(y-ly)),1)*above(dt,0)*dt-.05;
9960 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a ..hu=getosc(sp+i*.2,.1,0)*2+t;..
9980 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 red=sin(hu)*dt+dt;..green=sin(hu
99a0 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 +2.09)*dt+dt;..blue=sin(hu+4.18)
99c0 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 *dt+dt;.W...t=t+0.02;ox=cos(t)*c
99e0 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 29 29 3b 6f 79 os(t*.379+1)*cos(sin(t*.141));oy
9a00 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 6f 7a 3d 73 69 =sin(t*.91)*cos(-t*.71)*.4;oz=si
9a20 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 2e 36 33 31 29 n(t)*cos(-t*.41)*sin(cos(t*.631)
9a40 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 )-.2;ot=sin(t*.941)*cos(t*.514+1
9a60 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f )*sin(cos(t*.219))*.7+1.9;ot=ot/
9a80 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
9aa0 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 =ox*ot;oy=min(.8,abs(oy)*ot)*sig
9ac0 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)
9ae0 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
9b00 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*.
9b20 30 39 31 29 29 2a 31 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))*1;rx=atan2(oy-.2,sqrt(sqr(
9b40 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(
9b60 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
9b80 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
9ba0 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a =t+ti*.01;ti=ti*.8;bf=bf*.9+bft*
9bc0 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c .1;ip=0;io=1;p=0;kk=if(below(kk,
9be0 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 -10),10,kk-0.2);lx=0;ly=0;sw=get
9c00 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 osc(sp,.05,0)*2;.n=min(100,sw*30
9c20 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 0).....ti=5;bft=getosc(0.7,0,0);
9c40 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 .X...n=101;tpi=acos(-1)*2;..Circ
9c60 6c 65 3b 73 70 3d 30 2e 36 32 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b le;sp=0.625;kk=sp*20-10;mf=(2.5+
9c80 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 rand(100)*.01)*(rand(2)*2-1)....
9ca0 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cd 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f .....ooo.....$............ip=bno
9cc0 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c t(ip);io=if(ip,1-io,io);p=if(ip,
9ce0 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 p,i);..u=t*mf+p*tpi*sw;px=cos(u)
9d00 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e *(io*.2+1.2);py=sin(u)*(io*.2+1.
9d20 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 2);pz=kk;..px=px+ox;..py=py+oy;.
9d40 0a 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
9d60 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
9d80 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
9da0 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),
9dc0 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 1/z2,0);..lx=x;ly=y;..x=if(dt,x3
9de0 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=
9e00 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c below(sqrt(sqr(x-lx)+sqr(y-ly)),
9e20 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 1)*above(dt,0)*dt-.05;..hu=getos
9e40 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 c(sp+i*.2,.1,0)*2+t;..red=sin(hu
9e60 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b )*dt+dt;..green=sin(hu+2.09)*dt+
9e80 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 dt;..blue=sin(hu+4.18)*dt+dt;.W.
9ea0 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 37 39 2b ..t=t+0.02;ox=cos(t)*cos(t*.379+
9ec0 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 2e 39 31 1)*cos(sin(t*.141));oy=sin(t*.91
9ee0 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 73 28 2d )*cos(-t*.71)*.4;oz=sin(t)*cos(-
9f00 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 32 3b 6f 74 3d 73 69 t*.41)*sin(cos(t*.631))-.2;ot=si
9f20 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 n(t*.941)*cos(t*.514+1)*sin(cos(
9f40 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f t*.219))*.7+1.9;ot=ot/sqrt(sqr(o
9f60 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 79 3d x)+sqr(oy)+sqr(oz));ox=ox*ot;oy=
9f80 6d 69 6e 28 2e 38 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 min(.8,abs(oy)*ot)*sign(oy);oz=o
9fa0 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 63 6f z*ot;ry=-atan2(-ox,oz)-sin(t)*co
9fc0 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 6f 73 s(t*.914)*.3;rz=-cos(t*.241)*cos
9fe0 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 31 3b 72 78 (t*.191+2)*cos(sin(t*.091))*1;rx
a000 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 6f 7a =atan2(oy-.2,sqrt(sqr(ox)+sqr(oz
a020 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 6f 73 )));cx=cos(rx);sx=sin(rx);cy=cos
a040 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 73 69 (ry);sy=sin(ry);cz=cos(rz);sz=si
a060 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 31 3b n(rz);x=0;y=0;af=w/h;t=t+ti*.01;
a080 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f ti=ti*.8;bf=bf*.9+bft*.1;ip=0;io
a0a0 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b =1;p=0;kk=if(below(kk,-10),10,kk
a0c0 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 -0.2);lx=0;ly=0;sw=getosc(sp,.05
a0e0 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d ,0)*2;.n=min(100,sw*300).....ti=
a100 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 57 00 00 00 6e 3d 31 30 31 5;bft=getosc(0.7,0,0);.W...n=101
a120 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 36 35 ;tpi=acos(-1)*2;..Circle;sp=0.65
a140 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e ;kk=sp*20-10;mf=(2.5+rand(100)*.
a160 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 01)*(rand(2)*2-1).........ooo...
a180 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 ..$............ip=bnot(ip);io=if
a1a0 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a (ip,1-io,io);p=if(ip,p,i);..u=t*
a1c0 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 mf+p*tpi*sw;px=cos(u)*(io*.2+1.2
a1e0 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a );py=sin(u)*(io*.2+1.2);pz=kk;..
a200 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d px=px+ox;..py=py+oy;..pz=pz+oz;.
a220 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;.
a240 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;.
a260 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;.
a280 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 6c .dt=if(above(z2,.01),1/z2,0);..l
a2a0 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 x=x;ly=y;..x=if(dt,x3*dt,x);y=if
a2c0 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 (dt,y3*dt*af,y);..dt=below(sqrt(
a2e0 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 sqr(x-lx)+sqr(y-ly)),1)*above(dt
a300 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e ,0)*dt-.05;..hu=getosc(sp+i*.2,.
a320 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 1,0)*2+t;..red=sin(hu)*dt+dt;..g
a340 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 reen=sin(hu+2.09)*dt+dt;..blue=s
a360 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b in(hu+4.18)*dt+dt;.W...t=t+0.02;
a380 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(
a3a0 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
a3c0 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(
a3e0 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 cos(t*.631))-.2;ot=sin(t*.941)*c
a400 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 os(t*.514+1)*sin(cos(t*.219))*.7
a420 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b +1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)+
a440 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 38 2c 61 62 73 28 sqr(oz));ox=ox*ot;oy=min(.8,abs(
a460 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
a480 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)*.
a4a0 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)*
a4c0 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e cos(sin(t*.091))*1;rx=atan2(oy-.
a4e0 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(
a500 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
a520 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
a540 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 38 3b 62 66 =0;af=w/h;t=t+ti*.01;ti=ti*.8;bf
a560 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 =bf*.9+bft*.1;ip=0;io=1;p=0;kk=i
a580 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b f(below(kk,-10),10,kk-0.2);lx=0;
a5a0 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 ly=0;sw=getosc(sp,.05,0)*2;.n=mi
a5c0 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 n(100,sw*300).....ti=5;bft=getos
a5e0 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d c(0.7,0,0);.X...n=101;tpi=acos(-
a600 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 36 37 35 3b 6b 6b 3d 73 70 2a 32 30 2d 1)*2;..Circle;sp=0.675;kk=sp*20-
a620 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 10;mf=(2.5+rand(100)*.01)*(rand(
a640 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cc 04 00 00 2)*2-1).........ooo.....$.......
a660 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 .....ip=bnot(ip);io=if(ip,1-io,i
a680 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 o);p=if(ip,p,i);..u=t*mf+p*tpi*s
a6a0 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 w;px=cos(u)*(io*.2+1.2);py=sin(u
a6c0 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d )*(io*.2+1.2);pz=kk;..px=px+ox;.
a6e0 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d .py=py+oy;..pz=pz+oz;..x1=px*cy-
a700 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-
a720 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-
a740 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
a760 76 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d ve(z2,.01),1/z2,0);..lx=x;ly=y;.
a780 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*
a7a0 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b af,y);..dt=below(sqrt(sqr(x-lx)+
a7c0 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 sqr(y-ly)),1)*above(dt,0)*dt-.05
a7e0 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d ;..hu=getosc(sp+i*.2,.1,0)*2+t;.
a800 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 .red=sin(hu)*dt+dt;..green=sin(h
a820 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 u+2.09)*dt+dt;..blue=sin(hu+4.18
a840 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a )*dt+dt;.W...t=t+0.02;ox=cos(t)*
a860 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 29 29 3b 6f cos(t*.379+1)*cos(sin(t*.141));o
a880 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 6f 7a 3d 73 y=sin(t*.91)*cos(-t*.71)*.4;oz=s
a8a0 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 2e 36 33 31 in(t)*cos(-t*.41)*sin(cos(t*.631
a8c0 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b ))-.2;ot=sin(t*.941)*cos(t*.514+
a8e0 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 1)*sin(cos(t*.219))*.7+1.9;ot=ot
a900 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 6f /sqrt(sqr(ox)+sqr(oy)+sqr(oz));o
a920 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 x=ox*ot;oy=min(.8,abs(oy)*ot)*si
a940 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 7a gn(oy);oz=oz*ot;ry=-atan2(-ox,oz
a960 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 28 )-sin(t)*cos(t*.914)*.3;rz=-cos(
a980 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 2a t*.241)*cos(t*.191+2)*cos(sin(t*
a9a0 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 74 28 73 71 72 .091))*1;rx=atan2(oy-.2,sqrt(sqr
a9c0 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 6e (ox)+sqr(oz)));cx=cos(rx);sx=sin
a9e0 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 6f (rx);cy=cos(ry);sy=sin(ry);cz=co
aa00 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 3b s(rz);sz=sin(rz);x=0;y=0;af=w/h;
aa20 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 t=t+ti*.01;ti=ti*.8;bf=bf*.9+bft
aa40 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b *.1;ip=0;io=1;p=0;kk=if(below(kk
aa60 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 ,-10),10,kk-0.2);lx=0;ly=0;sw=ge
aa80 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 tosc(sp,.05,0)*2;.n=min(100,sw*3
aaa0 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 00).....ti=5;bft=getosc(0.7,0,0)
aac0 3b 00 56 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 ;.V...n=101;tpi=acos(-1)*2;..Cir
aae0 63 6c 65 3b 73 70 3d 30 2e 37 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 cle;sp=0.7;kk=sp*20-10;mf=(2.5+r
ab00 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 and(100)*.01)*(rand(2)*2-1).....
ab20 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 ....ooo.....$............ip=bnot
ab40 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 (ip);io=if(ip,1-io,io);p=if(ip,p
ab60 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a ,i);..u=t*mf+p*tpi*sw;px=cos(u)*
ab80 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 (io*.2+1.2);py=sin(u)*(io*.2+1.2
aba0 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a );pz=kk;..px=px+ox;..py=py+oy;..
abc0 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 2a pz=pz+oz;..x1=px*cy-pz*sy;z1=px*
abe0 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 2a sy+pz*cy;..y2=py*cx-z1*sx;z2=py*
ac00 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 2a sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1*
ac20 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 31 sz+y2*cz;..dt=if(above(z2,.01),1
ac40 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a /z2,0);..lx=x;ly=y;..x=if(dt,x3*
ac60 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 62 dt,x);y=if(dt,y3*dt*af,y);..dt=b
ac80 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 elow(sqrt(sqr(x-lx)+sqr(y-ly)),1
aca0 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 )*above(dt,0)*dt-.05;..hu=getosc
acc0 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 (sp+i*.2,.1,0)*2+t;..red=sin(hu)
ace0 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 *dt+dt;..green=sin(hu+2.09)*dt+d
ad00 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 t;..blue=sin(hu+4.18)*dt+dt;.W..
ad20 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
ad40 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)
ad60 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
ad80 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e *.41)*sin(cos(t*.631))-.2;ot=sin
ada0 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 (t*.941)*cos(t*.514+1)*sin(cos(t
adc0 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 *.219))*.7+1.9;ot=ot/sqrt(sqr(ox
ade0 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 79 3d 6d )+sqr(oy)+sqr(oz));ox=ox*ot;oy=m
ae00 69 6e 28 2e 38 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 in(.8,abs(oy)*ot)*sign(oy);oz=oz
ae20 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 63 6f 73 *ot;ry=-atan2(-ox,oz)-sin(t)*cos
ae40 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 6f 73 28 (t*.914)*.3;rz=-cos(t*.241)*cos(
ae60 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 31 3b 72 78 3d t*.191+2)*cos(sin(t*.091))*1;rx=
ae80 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 6f 7a 29 atan2(oy-.2,sqrt(sqr(ox)+sqr(oz)
aea0 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 6f 73 28 ));cx=cos(rx);sx=sin(rx);cy=cos(
aec0 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 73 69 6e ry);sy=sin(ry);cz=cos(rz);sz=sin
aee0 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 31 3b 74 (rz);x=0;y=0;af=w/h;t=t+ti*.01;t
af00 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d i=ti*.8;bf=bf*.9+bft*.1;ip=0;io=
af20 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 1;p=0;kk=if(below(kk,-10),10,kk-
af40 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 0.2);lx=0;ly=0;sw=getosc(sp,.05,
af60 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 0)*2;.n=min(100,sw*300).....ti=5
af80 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b ;bft=getosc(0.7,0,0);.X...n=101;
afa0 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 37 32 35 tpi=acos(-1)*2;..Circle;sp=0.725
afc0 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e ;kk=sp*20-10;mf=(2.5+rand(100)*.
afe0 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 01)*(rand(2)*2-1).........ooo...
b000 00 00 24 00 00 00 cd 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 ..$............ip=bnot(ip);io=if
b020 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a (ip,1-io,io);p=if(ip,p,i);..u=t*
b040 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 mf+p*tpi*sw;px=cos(u)*(io*.2+1.2
b060 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a );py=sin(u)*(io*.2+1.2);pz=kk;..
b080 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d px=px+ox;..py=py+oy;..pz=pz+oz;.
b0a0 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;.
b0c0 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;.
b0e0 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;.
b100 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 6c .dt=if(above(z2,.01),1/z2,0);..l
b120 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a 64 74 2c 78 29 3b 79 3d 69 66 x=x;ly=y;..x=if(dt,x3*dt,x);y=if
b140 28 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 (dt,y3*dt*af,y);..dt=below(sqrt(
b160 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 sqr(x-lx)+sqr(y-ly)),1)*above(dt
b180 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e ,0)*dt-.05;..hu=getosc(sp+i*.2,.
b1a0 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 1,0)*2+t;..red=sin(hu)*dt+dt;..g
b1c0 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 reen=sin(hu+2.09)*dt+dt;..blue=s
b1e0 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b in(hu+4.18)*dt+dt;.W...t=t+0.02;
b200 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(
b220 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
b240 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(
b260 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 cos(t*.631))-.2;ot=sin(t*.941)*c
b280 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 os(t*.514+1)*sin(cos(t*.219))*.7
b2a0 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b +1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)+
b2c0 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 38 2c 61 62 73 28 sqr(oz));ox=ox*ot;oy=min(.8,abs(
b2e0 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
b300 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)*.
b320 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)*
b340 63 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e cos(sin(t*.091))*1;rx=atan2(oy-.
b360 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(
b380 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
b3a0 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
b3c0 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 38 3b 62 66 =0;af=w/h;t=t+ti*.01;ti=ti*.8;bf
b3e0 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 =bf*.9+bft*.1;ip=0;io=1;p=0;kk=i
b400 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b f(below(kk,-10),10,kk-0.2);lx=0;
b420 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 ly=0;sw=getosc(sp,.05,0)*2;.n=mi
b440 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 n(100,sw*300).....ti=5;bft=getos
b460 63 28 30 2e 37 2c 30 2c 30 29 3b 00 57 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d c(0.7,0,0);.W...n=101;tpi=acos(-
b480 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 37 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 1)*2;..Circle;sp=0.75;kk=sp*20-1
b4a0 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 0;mf=(2.5+rand(100)*.01)*(rand(2
b4c0 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 )*2-1).........ooo.....$........
b4e0 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f ....ip=bnot(ip);io=if(ip,1-io,io
b500 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 );p=if(ip,p,i);..u=t*mf+p*tpi*sw
b520 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 ;px=cos(u)*(io*.2+1.2);py=sin(u)
b540 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a *(io*.2+1.2);pz=kk;..px=px+ox;..
b560 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 py=py+oy;..pz=pz+oz;..x1=px*cy-p
b580 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
b5a0 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
b5c0 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
b5e0 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a e(z2,.01),1/z2,0);..lx=x;ly=y;..
b600 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 61 x=if(dt,x3*dt,x);y=if(dt,y3*dt*a
b620 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 f,y);..dt=below(sqrt(sqr(x-lx)+s
b640 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b qr(y-ly)),1)*above(dt,0)*dt-.05;
b660 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a ..hu=getosc(sp+i*.2,.1,0)*2+t;..
b680 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 red=sin(hu)*dt+dt;..green=sin(hu
b6a0 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 +2.09)*dt+dt;..blue=sin(hu+4.18)
b6c0 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 *dt+dt;.W...t=t+0.02;ox=cos(t)*c
b6e0 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 29 29 3b 6f 79 os(t*.379+1)*cos(sin(t*.141));oy
b700 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 6f 7a 3d 73 69 =sin(t*.91)*cos(-t*.71)*.4;oz=si
b720 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 2e 36 33 31 29 n(t)*cos(-t*.41)*sin(cos(t*.631)
b740 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 )-.2;ot=sin(t*.941)*cos(t*.514+1
b760 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f )*sin(cos(t*.219))*.7+1.9;ot=ot/
b780 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
b7a0 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 =ox*ot;oy=min(.8,abs(oy)*ot)*sig
b7c0 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)
b7e0 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
b800 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*.
b820 30 39 31 29 29 2a 31 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))*1;rx=atan2(oy-.2,sqrt(sqr(
b840 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(
b860 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
b880 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
b8a0 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a =t+ti*.01;ti=ti*.8;bf=bf*.9+bft*
b8c0 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c .1;ip=0;io=1;p=0;kk=if(below(kk,
b8e0 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 -10),10,kk-0.2);lx=0;ly=0;sw=get
b900 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 osc(sp,.05,0)*2;.n=min(100,sw*30
b920 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 0).....ti=5;bft=getosc(0.7,0,0);
b940 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 .X...n=101;tpi=acos(-1)*2;..Circ
b960 6c 65 3b 73 70 3d 30 2e 37 37 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b le;sp=0.775;kk=sp*20-10;mf=(2.5+
b980 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 rand(100)*.01)*(rand(2)*2-1)....
b9a0 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cc 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f .....ooo.....$............ip=bno
b9c0 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c t(ip);io=if(ip,1-io,io);p=if(ip,
b9e0 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 p,i);..u=t*mf+p*tpi*sw;px=cos(u)
ba00 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e *(io*.2+1.2);py=sin(u)*(io*.2+1.
ba20 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 2);pz=kk;..px=px+ox;..py=py+oy;.
ba40 0a 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
ba60 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
ba80 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
baa0 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),
bac0 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 1/z2,0);..lx=x;ly=y;..x=if(dt,x3
bae0 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=
bb00 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c below(sqrt(sqr(x-lx)+sqr(y-ly)),
bb20 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 1)*above(dt,0)*dt-.05;..hu=getos
bb40 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 c(sp+i*.2,.1,0)*2+t;..red=sin(hu
bb60 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b )*dt+dt;..green=sin(hu+2.09)*dt+
bb80 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 dt;..blue=sin(hu+4.18)*dt+dt;.W.
bba0 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 37 39 2b ..t=t+0.02;ox=cos(t)*cos(t*.379+
bbc0 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 2e 39 31 1)*cos(sin(t*.141));oy=sin(t*.91
bbe0 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 73 28 2d )*cos(-t*.71)*.4;oz=sin(t)*cos(-
bc00 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 32 3b 6f 74 3d 73 69 t*.41)*sin(cos(t*.631))-.2;ot=si
bc20 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 n(t*.941)*cos(t*.514+1)*sin(cos(
bc40 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f t*.219))*.7+1.9;ot=ot/sqrt(sqr(o
bc60 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 79 3d x)+sqr(oy)+sqr(oz));ox=ox*ot;oy=
bc80 6d 69 6e 28 2e 38 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 min(.8,abs(oy)*ot)*sign(oy);oz=o
bca0 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 63 6f z*ot;ry=-atan2(-ox,oz)-sin(t)*co
bcc0 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 6f 73 s(t*.914)*.3;rz=-cos(t*.241)*cos
bce0 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 31 3b 72 78 (t*.191+2)*cos(sin(t*.091))*1;rx
bd00 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 6f 7a =atan2(oy-.2,sqrt(sqr(ox)+sqr(oz
bd20 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 6f 73 )));cx=cos(rx);sx=sin(rx);cy=cos
bd40 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 73 69 (ry);sy=sin(ry);cz=cos(rz);sz=si
bd60 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 31 3b n(rz);x=0;y=0;af=w/h;t=t+ti*.01;
bd80 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f ti=ti*.8;bf=bf*.9+bft*.1;ip=0;io
bda0 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b =1;p=0;kk=if(below(kk,-10),10,kk
bdc0 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 -0.2);lx=0;ly=0;sw=getosc(sp,.05
bde0 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d ,0)*2;.n=min(100,sw*300).....ti=
be00 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 56 00 00 00 6e 3d 31 30 31 5;bft=getosc(0.7,0,0);.V...n=101
be20 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 38 3b ;tpi=acos(-1)*2;..Circle;sp=0.8;
be40 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 kk=sp*20-10;mf=(2.5+rand(100)*.0
be60 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 1)*(rand(2)*2-1).........ooo....
be80 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 .$............ip=bnot(ip);io=if(
bea0 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d ip,1-io,io);p=if(ip,p,i);..u=t*m
bec0 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 f+p*tpi*sw;px=cos(u)*(io*.2+1.2)
bee0 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 ;py=sin(u)*(io*.2+1.2);pz=kk;..p
bf00 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a x=px+ox;..py=py+oy;..pz=pz+oz;..
bf20 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 0a x1=px*cy-pz*sy;z1=px*sy+pz*cy;..
bf40 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 0a y2=py*cx-z1*sx;z2=py*sx+z1*cx;..
bf60 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 0a x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;..
bf80 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 6c 78 dt=if(above(z2,.01),1/z2,0);..lx
bfa0 3d 78 3b 6c 79 3d 79 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 =x;ly=y;..x=if(dt,x3*dt,x);y=if(
bfc0 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 dt,y3*dt*af,y);..dt=below(sqrt(s
bfe0 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c qr(x-lx)+sqr(y-ly)),1)*above(dt,
c000 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 0)*dt-.05;..hu=getosc(sp+i*.2,.1
c020 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 ,0)*2+t;..red=sin(hu)*dt+dt;..gr
c040 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 een=sin(hu+2.09)*dt+dt;..blue=si
c060 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f n(hu+4.18)*dt+dt;.W...t=t+0.02;o
c080 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 74 x=cos(t)*cos(t*.379+1)*cos(sin(t
c0a0 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 31 *.141));oy=sin(t*.91)*cos(-t*.71
c0c0 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 63 )*.4;oz=sin(t)*cos(-t*.41)*sin(c
c0e0 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f os(t*.631))-.2;ot=sin(t*.941)*co
c100 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b s(t*.514+1)*sin(cos(t*.219))*.7+
c120 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)+s
c140 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 38 2c 61 62 73 28 6f qr(oz));ox=ox*ot;oy=min(.8,abs(o
c160 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 61 y)*ot)*sign(oy);oz=oz*ot;ry=-ata
c180 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 33 n2(-ox,oz)-sin(t)*cos(t*.914)*.3
c1a0 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 63 ;rz=-cos(t*.241)*cos(t*.191+2)*c
c1c0 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 os(sin(t*.091))*1;rx=atan2(oy-.2
c1e0 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 72 ,sqrt(sqr(ox)+sqr(oz)));cx=cos(r
c200 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 28 x);sx=sin(rx);cy=cos(ry);sy=sin(
c220 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 3d ry);cz=cos(rz);sz=sin(rz);x=0;y=
c240 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 38 3b 62 66 3d 0;af=w/h;t=t+ti*.01;ti=ti*.8;bf=
c260 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 bf*.9+bft*.1;ip=0;io=1;p=0;kk=if
c280 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c (below(kk,-10),10,kk-0.2);lx=0;l
c2a0 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e y=0;sw=getosc(sp,.05,0)*2;.n=min
c2c0 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 (100,sw*300).....ti=5;bft=getosc
c2e0 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 (0.7,0,0);.X...n=101;tpi=acos(-1
c300 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 38 32 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 )*2;..Circle;sp=0.825;kk=sp*20-1
c320 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 0;mf=(2.5+rand(100)*.01)*(rand(2
c340 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cd 04 00 00 01 )*2-1).........ooo.....$........
c360 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f ....ip=bnot(ip);io=if(ip,1-io,io
c380 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 );p=if(ip,p,i);..u=t*mf+p*tpi*sw
c3a0 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 ;px=cos(u)*(io*.2+1.2);py=sin(u)
c3c0 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a *(io*.2+1.2);pz=kk;..px=px+ox;..
c3e0 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 py=py+oy;..pz=pz+oz;..x1=px*cy-p
c400 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
c420 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
c440 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
c460 65 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a e(z2,.01),1/z2,0);..lx=x;ly=y;..
c480 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 61 x=if(dt,x3*dt,x);y=if(dt,y3*dt*a
c4a0 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 f,y);..dt=below(sqrt(sqr(x-lx)+s
c4c0 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b qr(y-ly)),1)*above(dt,0)*dt-.05;
c4e0 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a ..hu=getosc(sp+i*.2,.1,0)*2+t;..
c500 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 red=sin(hu)*dt+dt;..green=sin(hu
c520 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 +2.09)*dt+dt;..blue=sin(hu+4.18)
c540 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 *dt+dt;.W...t=t+0.02;ox=cos(t)*c
c560 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 29 29 3b 6f 79 os(t*.379+1)*cos(sin(t*.141));oy
c580 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 6f 7a 3d 73 69 =sin(t*.91)*cos(-t*.71)*.4;oz=si
c5a0 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 2e 36 33 31 29 n(t)*cos(-t*.41)*sin(cos(t*.631)
c5c0 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 )-.2;ot=sin(t*.941)*cos(t*.514+1
c5e0 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f )*sin(cos(t*.219))*.7+1.9;ot=ot/
c600 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
c620 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 =ox*ot;oy=min(.8,abs(oy)*ot)*sig
c640 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)
c660 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
c680 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*.
c6a0 30 39 31 29 29 2a 31 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))*1;rx=atan2(oy-.2,sqrt(sqr(
c6c0 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(
c6e0 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
c700 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
c720 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a =t+ti*.01;ti=ti*.8;bf=bf*.9+bft*
c740 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c .1;ip=0;io=1;p=0;kk=if(below(kk,
c760 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 -10),10,kk-0.2);lx=0;ly=0;sw=get
c780 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 osc(sp,.05,0)*2;.n=min(100,sw*30
c7a0 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 0).....ti=5;bft=getosc(0.7,0,0);
c7c0 00 57 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 .W...n=101;tpi=acos(-1)*2;..Circ
c7e0 6c 65 3b 73 70 3d 30 2e 38 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 le;sp=0.85;kk=sp*20-10;mf=(2.5+r
c800 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 and(100)*.01)*(rand(2)*2-1).....
c820 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cc 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 ....ooo.....$............ip=bnot
c840 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 (ip);io=if(ip,1-io,io);p=if(ip,p
c860 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a ,i);..u=t*mf+p*tpi*sw;px=cos(u)*
c880 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 (io*.2+1.2);py=sin(u)*(io*.2+1.2
c8a0 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a );pz=kk;..px=px+ox;..py=py+oy;..
c8c0 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 2a pz=pz+oz;..x1=px*cy-pz*sy;z1=px*
c8e0 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 2a sy+pz*cy;..y2=py*cx-z1*sx;z2=py*
c900 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 2a sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1*
c920 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 31 sz+y2*cz;..dt=if(above(z2,.01),1
c940 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a /z2,0);..lx=x;ly=y;..x=if(dt,x3*
c960 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 62 dt,x);y=if(dt,y3*dt*af,y);..dt=b
c980 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 elow(sqrt(sqr(x-lx)+sqr(y-ly)),1
c9a0 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 )*above(dt,0)*dt-.05;..hu=getosc
c9c0 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 (sp+i*.2,.1,0)*2+t;..red=sin(hu)
c9e0 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 *dt+dt;..green=sin(hu+2.09)*dt+d
ca00 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 t;..blue=sin(hu+4.18)*dt+dt;.W..
ca20 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
ca40 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)
ca60 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
ca80 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e *.41)*sin(cos(t*.631))-.2;ot=sin
caa0 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 (t*.941)*cos(t*.514+1)*sin(cos(t
cac0 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 *.219))*.7+1.9;ot=ot/sqrt(sqr(ox
cae0 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 79 3d 6d )+sqr(oy)+sqr(oz));ox=ox*ot;oy=m
cb00 69 6e 28 2e 38 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 in(.8,abs(oy)*ot)*sign(oy);oz=oz
cb20 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 63 6f 73 *ot;ry=-atan2(-ox,oz)-sin(t)*cos
cb40 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 6f 73 28 (t*.914)*.3;rz=-cos(t*.241)*cos(
cb60 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 31 3b 72 78 3d t*.191+2)*cos(sin(t*.091))*1;rx=
cb80 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 6f 7a 29 atan2(oy-.2,sqrt(sqr(ox)+sqr(oz)
cba0 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 6f 73 28 ));cx=cos(rx);sx=sin(rx);cy=cos(
cbc0 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 73 69 6e ry);sy=sin(ry);cz=cos(rz);sz=sin
cbe0 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 31 3b 74 (rz);x=0;y=0;af=w/h;t=t+ti*.01;t
cc00 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d i=ti*.8;bf=bf*.9+bft*.1;ip=0;io=
cc20 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 1;p=0;kk=if(below(kk,-10),10,kk-
cc40 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 0.2);lx=0;ly=0;sw=getosc(sp,.05,
cc60 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 0)*2;.n=min(100,sw*300).....ti=5
cc80 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 56 00 00 00 6e 3d 31 30 31 3b ;bft=getosc(0.7,0,0);.V...n=101;
cca0 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 39 3b 6b tpi=acos(-1)*2;..Circle;sp=0.9;k
ccc0 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 k=sp*20-10;mf=(2.5+rand(100)*.01
cce0 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 )*(rand(2)*2-1).........ooo.....
cd00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 $............ip=bnot(ip);io=if(i
cd20 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 p,1-io,io);p=if(ip,p,i);..u=t*mf
cd40 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b +p*tpi*sw;px=cos(u)*(io*.2+1.2);
cd60 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 py=sin(u)*(io*.2+1.2);pz=kk;..px
cd80 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 =px+ox;..py=py+oy;..pz=pz+oz;..x
cda0 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 0a 79 1=px*cy-pz*sy;z1=px*sy+pz*cy;..y
cdc0 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 0a 78 2=py*cx-z1*sx;z2=py*sx+z1*cx;..x
cde0 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 0a 64 3=x1*cz-y2*sz;y3=x1*sz+y2*cz;..d
ce00 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 6c 78 3d t=if(above(z2,.01),1/z2,0);..lx=
ce20 78 3b 6c 79 3d 79 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 x;ly=y;..x=if(dt,x3*dt,x);y=if(d
ce40 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 t,y3*dt*af,y);..dt=below(sqrt(sq
ce60 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 r(x-lx)+sqr(y-ly)),1)*above(dt,0
ce80 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c )*dt-.05;..hu=getosc(sp+i*.2,.1,
cea0 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 0)*2+t;..red=sin(hu)*dt+dt;..gre
cec0 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e en=sin(hu+2.09)*dt+dt;..blue=sin
cee0 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 (hu+4.18)*dt+dt;.W...t=t+0.02;ox
cf00 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 74 2a =cos(t)*cos(t*.379+1)*cos(sin(t*
cf20 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 31 29 .141));oy=sin(t*.91)*cos(-t*.71)
cf40 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 63 6f *.4;oz=sin(t)*cos(-t*.41)*sin(co
cf60 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 s(t*.631))-.2;ot=sin(t*.941)*cos
cf80 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 (t*.514+1)*sin(cos(t*.219))*.7+1
cfa0 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 71 .9;ot=ot/sqrt(sqr(ox)+sqr(oy)+sq
cfc0 72 28 6f 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 r(oz));ox=ox*ot;oy=min(.8,abs(oy
cfe0 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 61 6e )*ot)*sign(oy);oz=oz*ot;ry=-atan
d000 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 33 3b 2(-ox,oz)-sin(t)*cos(t*.914)*.3;
d020 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 63 6f rz=-cos(t*.241)*cos(t*.191+2)*co
d040 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c s(sin(t*.091))*1;rx=atan2(oy-.2,
d060 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 72 78 sqrt(sqr(ox)+sqr(oz)));cx=cos(rx
d080 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 28 72 );sx=sin(rx);cy=cos(ry);sy=sin(r
d0a0 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 3d 30 y);cz=cos(rz);sz=sin(rz);x=0;y=0
d0c0 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 38 3b 62 66 3d 62 ;af=w/h;t=t+ti*.01;ti=ti*.8;bf=b
d0e0 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 f*.9+bft*.1;ip=0;io=1;p=0;kk=if(
d100 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 below(kk,-10),10,kk-0.2);lx=0;ly
d120 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 =0;sw=getosc(sp,.05,0)*2;.n=min(
d140 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 100,sw*300).....ti=5;bft=getosc(
d160 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 0.7,0,0);.X...n=101;tpi=acos(-1)
d180 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 38 37 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 *2;..Circle;sp=0.875;kk=sp*20-10
d1a0 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 ;mf=(2.5+rand(100)*.01)*(rand(2)
d1c0 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 ce 04 00 00 01 e4 *2-1).........ooo.....$.........
d1e0 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 ...ip=bnot(ip);io=if(ip,1-io,io)
d200 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b ;p=if(ip,p,i);..u=t*mf+p*tpi*sw;
d220 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a px=cos(u)*(io*.2+1.2);py=sin(u)*
d240 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 (io*.2+1.2);pz=kk;..px=px+ox;..p
d260 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a 78 31 3d 70 78 2a 63 79 2d 70 7a y=py+oy;..pz=pz+oz;..x1=px*cy-pz
d280 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 31 *sy;z1=px*sy+pz*cy;..y2=py*cx-z1
d2a0 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 32 *sx;z2=py*sx+z1*cx;..x3=x1*cz-y2
d2c0 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 65 *sz;y3=x1*sz+y2*cz;..dt=if(above
d2e0 28 7a 32 2c 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 (z2,.01),1/z2,0);..lx=x;ly=y;..x
d300 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
d320 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 ,y);..dt=below(sqrt(sqr(x-lx)+sq
d340 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d r(y-ly)),1)*above(dt,0)*dt-.05;.
d360 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 .hu=getosc(sp+i*.2,.1,0)*2+t;..r
d380 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b ed=sin(hu)*dt+dt;..green=sin(hu+
d3a0 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 2.09)*dt+dt;..blue=sin(hu+4.18)*
d3c0 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f 73 28 74 29 2a 63 6f dt+dt;.W...t=t+0.02;ox=cos(t)*co
d3e0 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=
d400 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
d420 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))
d440 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 -.2;ot=sin(t*.941)*cos(t*.514+1)
d460 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 *sin(cos(t*.219))*.7+1.9;ot=ot/s
d480 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 3d qrt(sqr(ox)+sqr(oy)+sqr(oz));ox=
d4a0 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f 74 29 2a 73 69 67 6e ox*ot;oy=min(.8,abs(oy)*ot)*sign
d4c0 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 2d (oy);oz=oz*ot;ry=-atan2(-ox,oz)-
d4e0 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 2a sin(t)*cos(t*.914)*.3;rz=-cos(t*
d500 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 30 .241)*cos(t*.191+2)*cos(sin(t*.0
d520 39 31 29 29 2a 31 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 91))*1;rx=atan2(oy-.2,sqrt(sqr(o
d540 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 72 x)+sqr(oz)));cx=cos(rx);sx=sin(r
d560 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 28 x);cy=cos(ry);sy=sin(ry);cz=cos(
d580 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 3d rz);sz=sin(rz);x=0;y=0;af=w/h;t=
d5a0 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e t+ti*.01;ti=ti*.8;bf=bf*.9+bft*.
d5c0 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 1;ip=0;io=1;p=0;kk=if(below(kk,-
d5e0 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 10),10,kk-0.2);lx=0;ly=0;sw=geto
d600 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 sc(sp,.05,0)*2;.n=min(100,sw*300
d620 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 ).....ti=5;bft=getosc(0.7,0,0);.
d640 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c X...n=101;tpi=acos(-1)*2;..Circl
d660 65 3b 73 70 3d 30 2e 39 32 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 e;sp=0.925;kk=sp*20-10;mf=(2.5+r
d680 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 and(100)*.01)*(rand(2)*2-1).....
d6a0 01 00 00 00 6f 6f 6f 00 01 00 00 00 24 00 00 00 cd 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 ....ooo.....$............ip=bnot
d6c0 28 69 70 29 3b 69 6f 3d 69 66 28 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 (ip);io=if(ip,1-io,io);p=if(ip,p
d6e0 2c 69 29 3b 0d 0a 75 3d 74 2a 6d 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a ,i);..u=t*mf+p*tpi*sw;px=cos(u)*
d700 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 (io*.2+1.2);py=sin(u)*(io*.2+1.2
d720 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a );pz=kk;..px=px+ox;..py=py+oy;..
d740 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 2a pz=pz+oz;..x1=px*cy-pz*sy;z1=px*
d760 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 2a sy+pz*cy;..y2=py*cx-z1*sx;z2=py*
d780 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 2a sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1*
d7a0 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 31 sz+y2*cz;..dt=if(above(z2,.01),1
d7c0 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d 78 3b 6c 79 3d 79 3b 0d 0a 78 3d 69 66 28 64 74 2c 78 33 2a /z2,0);..lx=x;ly=y;..x=if(dt,x3*
d7e0 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 62 dt,x);y=if(dt,y3*dt*af,y);..dt=b
d800 65 6c 6f 77 28 73 71 72 74 28 73 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 elow(sqrt(sqr(x-lx)+sqr(y-ly)),1
d820 29 2a 61 62 6f 76 65 28 64 74 2c 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 )*above(dt,0)*dt-.05;..hu=getosc
d840 28 73 70 2b 69 2a 2e 32 2c 2e 31 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 (sp+i*.2,.1,0)*2+t;..red=sin(hu)
d860 2a 64 74 2b 64 74 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 *dt+dt;..green=sin(hu+2.09)*dt+d
d880 74 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 t;..blue=sin(hu+4.18)*dt+dt;.W..
d8a0 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
d8c0 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)
d8e0 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
d900 2a 2e 34 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e *.41)*sin(cos(t*.631))-.2;ot=sin
d920 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 (t*.941)*cos(t*.514+1)*sin(cos(t
d940 2a 2e 32 31 39 29 29 2a 2e 37 2b 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 *.219))*.7+1.9;ot=ot/sqrt(sqr(ox
d960 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 79 3d 6d )+sqr(oy)+sqr(oz));ox=ox*ot;oy=m
d980 69 6e 28 2e 38 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 in(.8,abs(oy)*ot)*sign(oy);oz=oz
d9a0 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 63 6f 73 *ot;ry=-atan2(-ox,oz)-sin(t)*cos
d9c0 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 6f 73 28 (t*.914)*.3;rz=-cos(t*.241)*cos(
d9e0 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 31 3b 72 78 3d t*.191+2)*cos(sin(t*.091))*1;rx=
da00 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 6f 7a 29 atan2(oy-.2,sqrt(sqr(ox)+sqr(oz)
da20 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 6f 73 28 ));cx=cos(rx);sx=sin(rx);cy=cos(
da40 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 73 69 6e ry);sy=sin(ry);cz=cos(rz);sz=sin
da60 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 31 3b 74 (rz);x=0;y=0;af=w/h;t=t+ti*.01;t
da80 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d i=ti*.8;bf=bf*.9+bft*.1;ip=0;io=
daa0 31 3b 70 3d 30 3b 6b 6b 3d 69 66 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 1;p=0;kk=if(below(kk,-10),10,kk-
dac0 30 2e 32 29 3b 6c 78 3d 30 3b 6c 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 0.2);lx=0;ly=0;sw=getosc(sp,.05,
dae0 30 29 2a 32 3b 20 6e 3d 6d 69 6e 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 0)*2;.n=min(100,sw*300).....ti=5
db00 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 00 57 00 00 00 6e 3d 31 30 31 3b ;bft=getosc(0.7,0,0);.W...n=101;
db20 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 39 35 3b tpi=acos(-1)*2;..Circle;sp=0.95;
db40 6b 6b 3d 73 70 2a 32 30 2d 31 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 kk=sp*20-10;mf=(2.5+rand(100)*.0
db60 31 29 2a 28 72 61 6e 64 28 32 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 1)*(rand(2)*2-1).........ooo....
db80 00 24 00 00 00 ce 04 00 00 01 e4 01 00 00 69 70 3d 62 6e 6f 74 28 69 70 29 3b 69 6f 3d 69 66 28 .$............ip=bnot(ip);io=if(
dba0 69 70 2c 31 2d 69 6f 2c 69 6f 29 3b 70 3d 69 66 28 69 70 2c 70 2c 69 29 3b 0d 0a 75 3d 74 2a 6d ip,1-io,io);p=if(ip,p,i);..u=t*m
dbc0 66 2b 70 2a 74 70 69 2a 73 77 3b 70 78 3d 63 6f 73 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 f+p*tpi*sw;px=cos(u)*(io*.2+1.2)
dbe0 3b 70 79 3d 73 69 6e 28 75 29 2a 28 69 6f 2a 2e 32 2b 31 2e 32 29 3b 70 7a 3d 6b 6b 3b 0d 0a 70 ;py=sin(u)*(io*.2+1.2);pz=kk;..p
dc00 78 3d 70 78 2b 6f 78 3b 0d 0a 70 79 3d 70 79 2b 6f 79 3b 0d 0a 70 7a 3d 70 7a 2b 6f 7a 3b 0d 0a x=px+ox;..py=py+oy;..pz=pz+oz;..
dc20 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 0a x1=px*cy-pz*sy;z1=px*sy+pz*cy;..
dc40 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 0a y2=py*cx-z1*sx;z2=py*sx+z1*cx;..
dc60 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 0a x3=x1*cz-y2*sz;y3=x1*sz+y2*cz;..
dc80 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 6c 78 dt=if(above(z2,.01),1/z2,0);..lx
dca0 3d 78 3b 6c 79 3d 79 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 =x;ly=y;..x=if(dt,x3*dt,x);y=if(
dcc0 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 64 74 3d 62 65 6c 6f 77 28 73 71 72 74 28 73 dt,y3*dt*af,y);..dt=below(sqrt(s
dce0 71 72 28 78 2d 6c 78 29 2b 73 71 72 28 79 2d 6c 79 29 29 2c 31 29 2a 61 62 6f 76 65 28 64 74 2c qr(x-lx)+sqr(y-ly)),1)*above(dt,
dd00 30 29 2a 64 74 2d 2e 30 35 3b 0d 0a 68 75 3d 67 65 74 6f 73 63 28 73 70 2b 69 2a 2e 32 2c 2e 31 0)*dt-.05;..hu=getosc(sp+i*.2,.1
dd20 2c 30 29 2a 32 2b 74 3b 0d 0a 72 65 64 3d 73 69 6e 28 68 75 29 2a 64 74 2b 64 74 3b 0d 0a 67 72 ,0)*2+t;..red=sin(hu)*dt+dt;..gr
dd40 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30 39 29 2a 64 74 2b 64 74 3b 0d 0a 62 6c 75 65 3d 73 69 een=sin(hu+2.09)*dt+dt;..blue=si
dd60 6e 28 68 75 2b 34 2e 31 38 29 2a 64 74 2b 64 74 3b 00 57 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f n(hu+4.18)*dt+dt;.W...t=t+0.02;o
dd80 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 74 x=cos(t)*cos(t*.379+1)*cos(sin(t
dda0 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 31 *.141));oy=sin(t*.91)*cos(-t*.71
ddc0 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 63 )*.4;oz=sin(t)*cos(-t*.41)*sin(c
dde0 6f 73 28 74 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f os(t*.631))-.2;ot=sin(t*.941)*co
de00 73 28 74 2a 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 37 2b s(t*.514+1)*sin(cos(t*.219))*.7+
de20 31 2e 39 3b 6f 74 3d 6f 74 2f 73 71 72 74 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 79 29 2b 73 1.9;ot=ot/sqrt(sqr(ox)+sqr(oy)+s
de40 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 38 2c 61 62 73 28 6f qr(oz));ox=ox*ot;oy=min(.8,abs(o
de60 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 61 y)*ot)*sign(oy);oz=oz*ot;ry=-ata
de80 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 33 n2(-ox,oz)-sin(t)*cos(t*.914)*.3
dea0 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 63 ;rz=-cos(t*.241)*cos(t*.191+2)*c
dec0 6f 73 28 73 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 os(sin(t*.091))*1;rx=atan2(oy-.2
dee0 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 72 ,sqrt(sqr(ox)+sqr(oz)));cx=cos(r
df00 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 28 x);sx=sin(rx);cy=cos(ry);sy=sin(
df20 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 3d ry);cz=cos(rz);sz=sin(rz);x=0;y=
df40 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 38 3b 62 66 3d 0;af=w/h;t=t+ti*.01;ti=ti*.8;bf=
df60 62 66 2a 2e 39 2b 62 66 74 2a 2e 31 3b 69 70 3d 30 3b 69 6f 3d 31 3b 70 3d 30 3b 6b 6b 3d 69 66 bf*.9+bft*.1;ip=0;io=1;p=0;kk=if
df80 28 62 65 6c 6f 77 28 6b 6b 2c 2d 31 30 29 2c 31 30 2c 6b 6b 2d 30 2e 32 29 3b 6c 78 3d 30 3b 6c (below(kk,-10),10,kk-0.2);lx=0;l
dfa0 79 3d 30 3b 73 77 3d 67 65 74 6f 73 63 28 73 70 2c 2e 30 35 2c 30 29 2a 32 3b 20 6e 3d 6d 69 6e y=0;sw=getosc(sp,.05,0)*2;.n=min
dfc0 28 31 30 30 2c 73 77 2a 33 30 30 29 00 1a 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 (100,sw*300).....ti=5;bft=getosc
dfe0 28 30 2e 37 2c 30 2c 30 29 3b 00 58 00 00 00 6e 3d 31 30 31 3b 74 70 69 3d 61 63 6f 73 28 2d 31 (0.7,0,0);.X...n=101;tpi=acos(-1
e000 29 2a 32 3b a4 20 43 69 72 63 6c 65 3b 73 70 3d 30 2e 39 37 35 3b 6b 6b 3d 73 70 2a 32 30 2d 31 )*2;..Circle;sp=0.975;kk=sp*20-1
e020 30 3b 6d 66 3d 28 32 2e 35 2b 72 61 6e 64 28 31 30 30 29 2a 2e 30 31 29 2a 28 72 61 6e 64 28 32 0;mf=(2.5+rand(100)*.01)*(rand(2
e040 29 2a 32 2d 31 29 00 02 00 00 00 01 00 00 00 6f 6f 6f 00 01 00 00 00 28 00 00 00 04 00 00 00 01 )*2-1).........ooo.....(........
e060 00 03 80 24 00 00 00 2e 04 00 00 01 5e 01 00 00 73 64 31 3d 28 73 64 31 2a 34 31 31 2b 39 31 31 ...$........^...sd1=(sd1*411+911
e080 29 25 32 30 30 30 3b 0d 0a 73 64 32 3d 28 73 64 32 2a 31 31 37 39 2b 33 37 39 31 29 25 32 30 30 )%2000;..sd2=(sd2*1179+3791)%200
e0a0 30 3b 0d 0a 73 64 33 3d 28 73 64 33 2a 33 32 37 33 2b 36 35 34 31 29 25 32 30 30 30 3b 0d 0a 70 0;..sd3=(sd3*3273+6541)%2000;..p
e0c0 7a 3d 28 73 64 33 2d 31 30 30 30 29 2a 2e 30 31 3b 70 78 3d 28 73 64 31 2d 31 30 30 30 29 2a 2e z=(sd3-1000)*.01;px=(sd1-1000)*.
e0e0 30 31 3b 70 79 3d 28 73 64 32 2d 31 30 30 30 29 2a 2e 30 31 3b 0d 0a 70 78 3d 70 78 3b 70 79 3d 01;py=(sd2-1000)*.01;..px=px;py=
e100 70 79 3b 70 7a 3d 70 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 py;pz=pz;..x1=px*cy-pz*sy;z1=px*
e120 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 2a sy+pz*cy;..y2=py*cx-z1*sx;z2=py*
e140 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 2a sx+z1*cx;..x3=x1*cz-y2*sz;y3=x1*
e160 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 30 31 29 2c sz+y2*cz;..dt=if(above(z2,.001),
e180 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(
e1a0 64 74 2c 79 33 2a 64 74 2a 61 66 2c 79 29 3b 0d 0a 72 65 64 3d 64 74 2a 34 3b 67 72 65 65 6e 3d dt,y3*dt*af,y);..red=dt*4;green=
e1c0 72 65 64 3b 62 6c 75 65 3d 72 65 64 3b 00 0f 02 00 00 74 3d 74 2b 30 2e 30 32 3b 6f 78 3d 63 6f red;blue=red;.....t=t+0.02;ox=co
e1e0 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
e200 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
e220 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
e240 2a 2e 36 33 31 29 29 2d 2e 32 3b 6f 74 3d 73 69 6e 28 74 2a 2e 39 34 31 29 2a 63 6f 73 28 74 2a *.631))-.2;ot=sin(t*.941)*cos(t*
e260 2e 35 31 34 2b 31 29 2a 73 69 6e 28 63 6f 73 28 74 2a 2e 32 31 39 29 29 2a 2e 35 2b 31 2e 36 3b .514+1)*sin(cos(t*.219))*.5+1.6;
e280 6f 74 3d 6f 74 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 ot=ot/sqrt(sqr(ox)+sqr(oy)+sqr(o
e2a0 7a 29 29 3b 6f 78 3d 6f 78 2a 6f 74 3b 6f 79 3d 6d 69 6e 28 2e 38 2c 61 62 73 28 6f 79 29 2a 6f z));ox=ox*ot;oy=min(.8,abs(oy)*o
e2c0 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(-
e2e0 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=
e300 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
e320 69 6e 28 74 2a 2e 30 39 31 29 29 2a 31 3b 72 78 3d 61 74 61 6e 32 28 6f 79 2d 2e 32 2c 73 71 72 in(t*.091))*1;rx=atan2(oy-.2,sqr
e340 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
e360 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);
e380 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
e3a0 3d 77 2f 68 3b 74 3d 74 2b 74 69 2a 2e 30 31 3b 74 69 3d 74 69 2a 2e 38 3b 62 66 3d 62 66 2a 2e =w/h;t=t+ti*.01;ti=ti*.8;bf=bf*.
e3c0 39 2b 62 66 74 2a 2e 31 3b 73 64 31 3d 34 31 34 3b 73 64 32 3d 37 31 31 3b 73 64 33 3d 34 31 34 9+bft*.1;sd1=414;sd2=711;sd3=414
e3e0 00 82 00 00 00 74 69 3d 35 3b 62 66 74 3d 67 65 74 6f 73 63 28 30 2e 37 2c 30 2c 30 29 3b 73 62 .....ti=5;bft=getosc(0.7,0,0);sb
e400 6f 3d 69 66 28 73 62 6f 2b 67 65 74 6f 73 63 28 2e 37 39 2c 30 2c 30 29 2a 31 30 30 25 31 30 2c o=if(sbo+getosc(.79,0,0)*100%10,
e420 73 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 sbo,6.28);sbs=if(equal(sbo,6.28)
e440 2c 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 ,(getosc(.1,0,0)*256%2)*2-1,sbs)
e460 3b 6c 69 3d 31 3b 00 1e 00 00 00 6e 3d 31 30 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 2a 32 3b ;li=1;.....n=100;tpi=acos(-1)*2;
e480 a4 20 53 74 61 72 73 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00 00 ..Stars;.................