| ofs | hex dump | ascii |
|---|
| 0000 | 4e 75 6c 6c 73 6f 66 74 20 41 56 53 20 50 72 65 73 65 74 20 30 2e 32 1a 00 15 00 00 00 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;................. |