blob: ddd9298ada2b0801cfe1d6017a0d57dad54f793c (plain) (blame)

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 1d 06 00	Nullsoft.AVS.Preset.0.2.........
0020	00 19 06 00 00 20 57 68 61 63 6b 6f 20 41 56 53 20 56 49 20 2d 20 5a 65 72 6f 2d 47 20 4d 61 7a	......Whacko.AVS.VI.-.Zero-G.Maz
0040	65 20 49 49 49 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	e.III..-------------------------
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 2d 2d 2d 0d	-------------------------------.
0080	0a 0d 0a 49 20 6b 6e 6f 77 2c 20 6d 61 6b 69 6e 67 20 74 77 6f 20 76 65 72 73 69 6f 6e 20 6f 66	...I.know,.making.two.version.of
00a0	20 70 72 65 73 65 74 20 69 73 20 62 61 64 2c 20 73 6f 20 77 68 79 20 6d 61 6b 65 20 74 68 72 65	.preset.is.bad,.so.why.make.thre
00c0	65 3f 20 57 65 6c 6c 2c 20 62 65 63 61 75 73 65 20 49 20 73 74 69 6c 6c 20 77 61 73 6e 27 74 20	e?.Well,.because.I.still.wasn't.
00e0	73 61 74 69 73 66 69 65 64 20 77 69 74 68 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 5a 47 20 4d	satisfied.with.the.previous.ZG.M
0100	61 7a 65 73 2e 20 45 76 65 6e 20 76 65 72 73 69 6f 6e 20 49 49 20 77 61 73 20 6d 6f 72 65 20 6f	azes..Even.version.II.was.more.o
0120	66 20 61 20 68 61 63 6b 20 74 68 61 6e 20 61 20 6e 69 63 65 20 70 72 65 73 65 74 2e 0d 0a 0d 0a	f.a.hack.than.a.nice.preset.....
0140	41 6e 79 77 61 79 2c 20 49 20 74 68 69 6e 6b 20 79 6f 75 27 6c 6c 20 61 67 72 65 65 20 77 69 74	Anyway,.I.think.you'll.agree.wit
0160	68 20 6d 65 20 74 68 61 74 20 74 68 69 73 20 69 73 20 72 65 61 6c 6c 79 20 68 6f 77 20 69 74 20	h.me.that.this.is.really.how.it.
0180	73 68 6f 75 6c 64 27 76 65 20 62 65 65 6e 20 66 72 6f 6d 20 74 68 65 20 62 65 67 69 6e 6e 69 6e	should've.been.from.the.beginnin
01a0	67 20 3a 29 2e 20 49 20 75 73 65 64 20 63 79 6c 69 6e 64 72 69 63 61 6c 20 74 75 6e 6e 65 6c 73	g.:)..I.used.cylindrical.tunnels
01c0	20 69 6e 73 74 65 61 64 20 6f 66 20 73 71 75 61 72 65 20 6f 6e 65 73 2e 2e 2e 20 69 74 20 77 61	.instead.of.square.ones....it.wa
01e0	73 20 61 63 74 75 61 6c 6c 79 20 65 61 73 69 65 72 20 6f 6e 20 74 68 65 20 63 6f 64 65 20 73 69	s.actually.easier.on.the.code.si
0200	64 65 2c 20 61 6e 64 20 69 74 20 6c 6f 6f 6b 73 20 31 30 20 74 69 6d 65 73 20 62 65 74 74 65 72	de,.and.it.looks.10.times.better
0220	20 61 73 20 77 65 6c 6c 2e 20 53 65 63 6f 6e 64 6c 79 2c 20 49 20 63 6f 64 65 64 20 73 75 70 70	.as.well..Secondly,.I.coded.supp
0240	6f 72 74 20 66 6f 72 20 69 6e 63 6f 6d 70 6c 65 74 65 20 69 6e 74 65 72 73 65 63 74 69 6f 6e 73	ort.for.incomplete.intersections
0260	2c 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 6d 61 6b 65 20 69 74 20 72 65 73 65 6d 62 6c 65 20 61	,.in.order.to.make.it.resemble.a
0280	20 72 65 61 6c 20 6d 61 7a 65 2e 0d 0a 0d 0a 53 74 69 6c 6c 3a 20 74 68 65 20 63 61 6d 65 72 61	.real.maze.....Still:.the.camera
02a0	20 63 61 6e 20 6f 6e 6c 79 20 65 6e 74 65 72 20 6f 6e 65 20 6f 66 20 74 68 65 20 32 20 74 75 6e	.can.only.enter.one.of.the.2.tun
02c0	6e 65 6c 73 20 61 6c 6f 6e 67 20 74 68 65 20 7a 2d 61 78 69 73 2e 20 41 6e 64 20 6e 6f 77 20 79	nels.along.the.z-axis..And.now.y
02e0	6f 75 27 72 65 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 74 68 65 20 70 72 65 73 65 74 20 61 6e 64 20	ou're.looking.at.the.preset.and.
0300	77 61 74 63 68 69 6e 67 20 69 74 20 7a 6f 6f 6d 20 61 62 6f 75 74 20 69 6e 20 61 6c 6c 20 64 69	watching.it.zoom.about.in.all.di
0320	72 65 63 74 69 6f 6e 73 21 20 48 6f 77 20 64 6f 65 73 20 69 74 20 77 6f 72 6b 3f 20 57 65 6c 6c	rections!.How.does.it.work?.Well
0340	2c 20 74 68 65 20 63 61 6d 65 72 61 20 63 6f 6d 65 73 20 6f 75 74 20 6f 66 20 74 68 65 20 6e 65	,.the.camera.comes.out.of.the.ne
0360	67 61 74 69 76 65 20 5a 2d 74 75 6e 6e 65 6c 2c 20 69 74 20 72 6f 74 61 74 65 73 20 61 6e 64 20	gative.Z-tunnel,.it.rotates.and.
0380	73 74 61 72 74 73 20 61 63 63 65 6c 65 72 61 74 69 6e 67 2e 20 4a 75 73 74 20 61 73 20 69 74 20	starts.accelerating..Just.as.it.
03a0	69 73 20 61 62 6f 75 74 20 74 6f 20 65 6e 74 65 72 20 74 68 65 20 6e 65 78 74 20 74 75 6e 6e 65	is.about.to.enter.the.next.tunne
03c0	6c 2c 20 74 68 65 20 63 61 6d 65 72 61 20 69 73 20 69 6e 73 74 61 6e 74 6c 79 20 6d 6f 76 65 64	l,.the.camera.is.instantly.moved
03e0	20 62 61 63 6b 20 64 65 65 70 20 69 6e 74 6f 20 74 68 65 20 6e 65 67 61 74 69 76 65 20 5a 2d 74	.back.deep.into.the.negative.Z-t
0400	75 6e 6e 65 6c 2c 20 77 69 74 68 20 74 68 65 20 63 6f 72 72 65 63 74 20 6f 66 66 73 65 74 20 73	unnel,.with.the.correct.offset.s
0420	6f 20 74 68 61 74 20 74 68 65 20 74 65 78 74 75 72 65 20 64 6f 65 73 6e 27 74 20 73 6b 69 70 2e	o.that.the.texture.doesn't.skip.
0440	20 54 6f 20 74 68 65 20 76 69 65 77 65 72 2c 20 74 68 69 73 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20	.To.the.viewer,.this.looks.like.
0460	61 20 73 6d 6f 6f 74 68 20 6d 6f 76 65 6d 65 6e 74 20 77 69 74 68 6f 74 75 20 73 6b 69 70 73 2c	a.smooth.movement.withotu.skips,
0480	20 62 75 74 20 69 6e 20 66 61 63 74 2c 20 74 68 65 72 65 20 69 73 20 73 74 69 6c 6c 20 6f 6e 6c	.but.in.fact,.there.is.still.onl
04a0	79 20 6f 6e 65 20 64 79 6e 61 6d 69 63 20 69 6e 74 65 72 73 65 63 74 69 6f 6e 2e 0d 0a 0d 0a 41	y.one.dynamic.intersection.....A
04c0	6e 6f 74 68 65 72 20 61 64 76 61 6e 74 61 67 65 20 6f 66 20 75 73 69 6e 67 20 63 79 6c 69 6e 64	nother.advantage.of.using.cylind
04e0	65 72 73 20 69 73 20 74 68 61 74 20 74 68 65 72 65 20 61 72 65 20 6c 65 73 73 20 75 67 6c 79 20	ers.is.that.there.are.less.ugly.
0500	65 64 67 65 73 2e 20 54 68 65 20 6f 6e 6c 79 20 62 61 64 20 63 61 73 65 20 69 73 20 77 68 65 72	edges..The.only.bad.case.is.wher
0520	65 20 74 68 65 20 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 69 73 20 61 20 39 30 b0 20 63 6f 72 6e	e.the.intersection.is.a.90..corn
0540	65 72 2c 20 77 68 65 72 65 20 61 20 73 70 68 65 72 65 20 69 73 20 75 73 65 64 20 74 6f 20 63 6f	er,.where.a.sphere.is.used.to.co
0560	76 65 72 20 74 68 65 20 68 6f 6c 65 2e 0d 0a 0d 0a 0d 0a 53 74 65 76 65 6e 20 57 69 74 74 65 6e	ver.the.hole.......Steven.Witten
0580	73 20 2f 20 55 6e 43 6f 6e 65 44 0d 0a 73 74 65 76 65 6e 40 61 63 6b 6f 2e 6e 65 74 20 2d 20 77	s./.UnConeD..steven@acko.net.-.w
05a0	77 77 2e 61 63 6b 6f 2e 6e 65 74 0d 0a 0d 0a 28 49 66 20 79 6f 75 20 77 69 73 68 20 74 6f 20 75	ww.acko.net....(If.you.wish.to.u
05c0	73 65 20 61 6e 79 20 70 61 72 74 20 6f 66 20 74 68 69 73 20 70 72 65 73 65 74 20 69 6e 20 79 6f	se.any.part.of.this.preset.in.yo
05e0	75 72 20 6f 77 6e 20 70 61 63 6b 73 20 79 6f 75 20 61 72 65 20 66 72 65 65 20 74 6f 20 64 6f 20	ur.own.packs.you.are.free.to.do.
0600	73 6f 2c 20 6f 6e 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 74 68 61 74 20 79 6f 75 20 69 6e	so,.on.the.condition.that.you.in
0620	63 6c 75 64 65 20 6d 79 20 63 6f 6e 74 61 63 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 29 00 fe ff	clude.my.contact.information)...
0640	ff ff 75 03 00 00 80 00 00 01 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	..u.......$.....................
0660	00 00 00 00 00 00 00 01 00 00 00 14 00 00 00 04 00 00 00 01 00 00 00 24 00 00 00 41 01 00 00 01	.......................$...A....
0680	00 01 00 00 70 78 3d 73 69 6e 28 67 65 74 6f 73 63 28 69 2a 2e 33 33 2b 2e 33 33 2c 30 2c 30 29	....px=sin(getosc(i*.33+.33,0,0)
06a0	2a 35 29 3b 0d 0a 70 79 3d 73 69 6e 28 67 65 74 6f 73 63 28 69 2a 2e 33 33 2c 30 2c 30 29 2a 35	*5);..py=sin(getosc(i*.33,0,0)*5
06c0	29 3b 0d 0a 73 3d 62 65 6c 6f 77 28 61 62 73 28 70 78 29 2c 61 62 73 28 70 79 29 29 3b 0d 0a 78	);..s=below(abs(px),abs(py));..x
06e0	3d 69 66 28 73 2c 78 2c 70 78 29 3b 0d 0a 79 3d 69 66 28 73 2c 70 79 2c 79 29 3b 0d 0a 68 75 3d	=if(s,x,px);..y=if(s,py,y);..hu=
0700	74 2b 67 65 74 6f 73 63 28 69 2a 2e 33 33 2b 2e 36 36 2c 30 2c 30 29 2a 2e 31 2b 2e 30 31 3b 0d	t+getosc(i*.33+.66,0,0)*.1+.01;.
0720	0a 63 76 3d 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 29 2a 2e 35 3b 0d 0a 72 65 64 3d	.cv=abs(getosc(i,0,0))*.5;..red=
0740	73 69 6e 28 68 75 29 2a 63 76 2b 63 76 3b 0d 0a 67 72 65 65 6e 3d 73 69 6e 28 68 75 2b 32 2e 30	sin(hu)*cv+cv;..green=sin(hu+2.0
0760	39 29 2a 63 76 2b 63 76 3b 0d 0a 62 6c 75 65 3d 73 69 6e 28 68 75 2b 34 2e 31 38 29 2a 63 76 2b	9)*cv+cv;..blue=sin(hu+4.18)*cv+
0780	63 76 3b 00 09 00 00 00 74 3d 74 2d 30 2e 30 35 00 11 00 00 00 74 3d 72 61 6e 64 28 36 32 38 29	cv;.....t=t-0.05.....t=rand(628)
07a0	2a 2e 30 31 3b 00 06 00 00 00 6e 3d 31 30 30 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00	*.01;.....n=100.................
07c0	21 00 00 00 1c 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 f4 01 00 00 03 00 00 00	!...............................
07e0	00 00 00 00 28 00 00 00 04 00 00 00 01 00 05 80 24 00 00 00 e0 00 00 00 01 a0 00 00 00 72 3d 69	....(...........$............r=i
0800	2a 74 70 69 3b 0d 0a 78 3d 63 6f 73 28 72 29 3b 20 79 3d 73 69 6e 28 72 29 3b 0d 0a 73 3d 62 65	*tpi;..x=cos(r);.y=sin(r);..s=be
0820	6c 6f 77 28 61 62 73 28 78 29 2c 61 62 73 28 79 29 29 3b 0d 0a 78 3d 69 66 28 73 2c 78 2a 31 2e	low(abs(x),abs(y));..x=if(s,x*1.
0840	34 2c 73 69 67 6e 28 78 29 29 3b 0d 0a 79 3d 69 66 28 73 2c 73 69 67 6e 28 79 29 2c 79 2a 31 2e	4,sign(x));..y=if(s,sign(y),y*1.
0860	34 29 3b 0d 0a 63 76 3d 61 62 73 28 67 65 74 6f 73 63 28 69 2c 30 2c 30 29 29 2a 2e 32 2b 2e 30	4);..cv=abs(getosc(i,0,0))*.2+.0
0880	31 3b 0d 0a 72 65 64 3d 63 76 3b 67 72 65 65 6e 3d 63 76 3b 62 6c 75 65 3d 63 76 3b 00 09 00 00	1;..red=cv;green=cv;blue=cv;....
08a0	00 74 3d 74 2d 30 2e 30 35 00 00 00 00 00 16 00 00 00 6e 3d 31 30 30 3b 74 70 69 3d 61 63 6f 73	.t=t-0.05.........n=100;tpi=acos
08c0	28 2d 31 29 2a 32 3b 00 02 00 00 00 01 00 00 00 ff ff ff 00 01 00 00 00 fe ff ff ff c7 00 00 00	(-1)*2;.........................
08e0	82 02 01 00 24 80 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00	....$...........................
0900	00 01 00 00 00 0f 00 00 00 21 00 00 00 ff 7f 00 00 01 04 00 00 00 79 3d 30 00 00 00 00 00 00 00	.........!............y=0.......
0920	00 00 00 00 00 00 00 00 00 00 00 00 00 00 19 00 00 00 14 00 00 00 01 00 00 00 75 75 75 00 01 00	..........................uuu...
0940	00 00 00 00 00 00 00 00 00 00 fe ff ff ff 39 00 00 00 80 00 00 0a 24 80 00 00 00 80 00 00 00 00	..............9.......$.........
0960	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 12 00 00 00 0c 00 00 00 01	................................
0980	00 00 00 01 00 00 00 00 00 00 00 19 00 00 00 14 00 00 00 01 00 00 00 75 75 75 00 01 00 00 00 00	.......................uuu......
09a0	00 00 00 00 00 00 00 12 00 00 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 24 00 00 00 9e	...........................$....
09c0	00 00 00 01 09 00 00 00 78 3d 30 3b 79 3d 30 3b 00 56 00 00 00 74 3d 74 2b 30 2e 30 32 3b 72 65	........x=0;y=0;.V...t=t+0.02;re
09e0	64 3d 73 69 6e 28 68 75 65 2b 74 29 2a 2e 35 2b 2e 35 3b 67 72 65 65 6e 3d 73 69 6e 28 68 75 65	d=sin(hue+t)*.5+.5;green=sin(hue
0a00	2b 32 2e 30 39 2b 74 29 2a 2e 35 2b 2e 37 3b 62 6c 75 65 3d 73 69 6e 28 68 75 65 2b 34 2e 31 38	+2.09+t)*.5+.7;blue=sin(hue+4.18
0a20	2b 74 29 2a 2e 35 2b 2e 39 3b 00 16 00 00 00 68 75 65 3d 68 75 65 2b 72 61 6e 64 28 33 31 34 29	+t)*.5+.9;.....hue=hue+rand(314)
0a40	2a 2e 30 31 00 08 00 00 00 6e 3d 31 3b 74 3d 30 00 02 00 00 00 01 00 00 00 ff ff ff 00 00 00 00	*.01.....n=1;t=0................
0a60	00 0f 00 00 00 25 00 00 00 ff 7f 00 00 01 08 00 00 00 78 3d 30 3b 79 3d 30 00 00 00 00 00 00 00	.....%............x=0;y=0.......
0a80	00 00 01 00 00 00 00 00 00 00 00 00 00 00 fe ff ff ff 39 00 00 00 82 02 01 01 24 80 00 00 00 80	..................9.......$.....
0aa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 12 00 00 00 0c	................................
0ac0	00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 2b 00 00 00 e1 0f 00 00 01 a0 07 00 00 a3 20 53 65	...............+..............Se
0ae0	74 20 75 70 20 72 61 79 73 3b 0d 0a 71 79 3d 79 2a 61 66 3b 0d 0a 64 78 31 3d 78 2a 63 7a 2d 71	t.up.rays;..qy=y*af;..dx1=x*cz-q
0b00	79 2a 73 7a 3b 64 79 31 3d 78 2a 73 7a 2b 71 79 2a 63 7a 3b 0d 0a 64 79 32 3d 64 79 31 2a 63 78	y*sz;dy1=x*sz+qy*cz;..dy2=dy1*cx
0b20	2d 73 78 2a 2e 38 35 3b 64 7a 32 3d 64 79 31 2a 73 78 2b 63 78 2a 2e 38 35 3b 0d 0a 64 78 33 3d	-sx*.85;dz2=dy1*sx+cx*.85;..dx3=
0b40	64 78 31 2a 63 79 2d 64 7a 32 2a 73 79 3b 64 7a 32 3d 64 78 31 2a 73 79 2b 64 7a 32 2a 63 79 3b	dx1*cy-dz2*sy;dz2=dx1*sy+dz2*cy;
0b60	0d 0a 71 78 3d 73 71 72 28 64 78 33 29 3b 71 79 3d 73 71 72 28 64 79 32 29 3b 71 7a 3d 73 71 72	..qx=sqr(dx3);qy=sqr(dy2);qz=sqr
0b80	28 64 7a 32 29 3b 0d 0a 6a 78 3d 64 78 33 2a 6f 78 3b 6a 79 3d 64 79 32 2a 6f 79 3b 6a 7a 3d 64	(dz2);..jx=dx3*ox;jy=dy2*oy;jz=d
0ba0	7a 32 2a 6f 7a 3b 0d 0a 0d 0a a3 20 53 6f 6c 76 65 20 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 73	z2*oz;......Solve.intersection.s
0bc0	70 68 65 72 65 3b 0d 0a 64 78 31 3d 71 78 2b 71 79 2b 71 7a 3b 64 79 31 3d 28 6a 79 2b 6a 78 2b	phere;..dx1=qx+qy+qz;dy1=(jy+jx+
0be0	6a 7a 29 3b 0d 0a 78 3d 28 73 71 72 28 64 79 31 29 2d 64 78 31 2a 28 73 71 72 28 6f 79 29 2b 73	jz);..x=(sqr(dy1)-dx1*(sqr(oy)+s
0c00	71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 2d 28 72 6d 2a 36 2e 35 2b 33 2e 39 39 29 29 29 3b 0d	qr(ox)+sqr(oz)-(rm*6.5+3.99)));.
0c20	0a 72 3d 28 64 79 31 2b 73 71 72 74 28 78 29 29 2f 64 78 31 3b 72 3d 69 66 28 62 65 6c 6f 77 28	.r=(dy1+sqrt(x))/dx1;r=if(below(
0c40	78 2c 30 29 2c 2d 31 30 30 30 2c 72 29 3b 0d 0a 0d 0a a3 20 53 6f 6c 76 65 20 63 79 6c 69 6e 64	x,0),-1000,r);......Solve.cylind
0c60	65 72 20 61 6c 6f 6e 67 20 7a 2d 61 78 69 73 3b 0d 0a 64 78 31 3d 71 78 2b 71 79 3b 64 79 31 3d	er.along.z-axis;..dx1=qx+qy;dy1=
0c80	28 6a 79 2b 6a 78 29 3b 0d 0a 78 3d 28 73 71 72 28 64 79 31 29 2d 64 78 31 2a 28 73 71 72 28 6f	(jy+jx);..x=(sqr(dy1)-dx1*(sqr(o
0ca0	79 29 2b 73 71 72 28 6f 78 29 2d 34 29 29 3b 0d 0a 6b 31 3d 28 64 79 31 2b 73 71 72 74 28 78 29	y)+sqr(ox)-4));..k1=(dy1+sqrt(x)
0cc0	29 2f 64 78 31 3b 6b 31 3d 69 66 28 62 65 6c 6f 77 28 78 2c 30 29 2c 2d 31 30 30 30 2c 6b 31 29	)/dx1;k1=if(below(x,0),-1000,k1)
0ce0	3b 0d 0a a3 20 45 78 63 6c 75 64 65 20 64 69 73 61 62 6c 65 64 20 74 75 6e 6e 65 6c 73 3b 0d 0a	;....Exclude.disabled.tunnels;..
0d00	7a 66 69 78 3d 62 61 6e 64 28 62 6e 6f 74 28 70 61 74 25 32 29 2c 61 62 6f 76 65 28 64 7a 32 2a	zfix=band(bnot(pat%2),above(dz2*
0d20	6b 31 2d 6f 7a 2c 30 29 29 3b 0d 0a 6b 31 3d 69 66 28 7a 66 69 78 2c 2d 31 30 30 30 2c 6b 31 29	k1-oz,0));..k1=if(zfix,-1000,k1)
0d40	3b 0d 0a 0d 0a a3 20 53 6f 6c 76 65 20 63 79 6c 69 6e 64 65 72 20 61 6c 6f 6e 67 20 78 2d 61 78	;......Solve.cylinder.along.x-ax
0d60	69 73 3b 0d 0a 64 78 31 3d 71 7a 2b 71 79 3b 64 79 31 3d 28 6a 79 2b 6a 7a 29 3b 0d 0a 78 3d 28	is;..dx1=qz+qy;dy1=(jy+jz);..x=(
0d80	73 71 72 28 64 79 31 29 2d 64 78 31 2a 28 73 71 72 28 6f 79 29 2b 73 71 72 28 6f 7a 29 2d 34 29	sqr(dy1)-dx1*(sqr(oy)+sqr(oz)-4)
0da0	29 3b 0d 0a 6b 32 3d 28 64 79 31 2b 73 71 72 74 28 78 29 29 2f 64 78 31 3b 6b 32 3d 69 66 28 62	);..k2=(dy1+sqrt(x))/dx1;k2=if(b
0dc0	65 6c 6f 77 28 78 2c 30 29 2c 2d 31 30 30 30 2c 6b 32 29 3b 0d 0a a3 20 45 78 63 6c 75 64 65 20	elow(x,0),-1000,k2);....Exclude.
0de0	64 69 73 61 62 6c 65 64 20 74 75 6e 6e 65 6c 73 3b 0d 0a 6b 32 3d 69 66 28 62 61 6e 64 28 62 6e	disabled.tunnels;..k2=if(band(bn
0e00	6f 74 28 61 62 6f 76 65 28 70 61 74 2c 31 35 2e 39 39 29 29 2c 62 65 6c 6f 77 28 64 78 33 2a 6b	ot(above(pat,15.99)),below(dx3*k
0e20	32 2d 6f 78 2c 30 29 29 2c 2d 31 30 30 30 2c 6b 32 29 3b 0d 0a 6b 32 3d 69 66 28 62 61 6e 64 28	2-ox,0)),-1000,k2);..k2=if(band(
0e40	62 6e 6f 74 28 61 62 6f 76 65 28 70 61 74 25 31 36 2c 37 2e 39 39 29 29 2c 61 62 6f 76 65 28 64	bnot(above(pat%16,7.99)),above(d
0e60	78 33 2a 6b 32 2d 6f 78 2c 30 29 29 2c 2d 31 30 30 30 2c 6b 32 29 3b 0d 0a 0d 0a 0d 0a a3 20 53	x3*k2-ox,0)),-1000,k2);........S
0e80	6f 6c 76 65 20 63 79 6c 69 6e 64 65 72 20 61 6c 6f 6e 67 20 79 2d 61 78 69 73 3b 0d 0a 64 78 31	olve.cylinder.along.y-axis;..dx1
0ea0	3d 71 7a 2b 71 78 3b 64 79 31 3d 28 6a 78 2b 6a 7a 29 3b 0d 0a 78 3d 28 73 71 72 28 64 79 31 29	=qz+qx;dy1=(jx+jz);..x=(sqr(dy1)
0ec0	2d 64 78 31 2a 28 73 71 72 28 6f 78 29 2b 73 71 72 28 6f 7a 29 2d 34 29 29 3b 0d 0a 6b 33 3d 28	-dx1*(sqr(ox)+sqr(oz)-4));..k3=(
0ee0	64 79 31 2b 73 71 72 74 28 78 29 29 2f 64 78 31 3b 6b 33 3d 69 66 28 62 65 6c 6f 77 28 78 2c 30	dy1+sqrt(x))/dx1;k3=if(below(x,0
0f00	29 2c 2d 31 30 30 30 2c 6b 33 29 3b 0d 0a a3 20 45 78 63 6c 75 64 65 20 64 69 73 61 62 6c 65 64	),-1000,k3);....Exclude.disabled
0f20	20 74 75 6e 6e 65 6c 73 3b 0d 0a 6b 33 3d 69 66 28 62 61 6e 64 28 62 6e 6f 74 28 61 62 6f 76 65	.tunnels;..k3=if(band(bnot(above
0f40	28 70 61 74 25 38 2c 33 2e 39 39 29 29 2c 62 65 6c 6f 77 28 64 79 32 2a 6b 33 2d 6f 79 2c 30 29	(pat%8,3.99)),below(dy2*k3-oy,0)
0f60	29 2c 2d 31 30 30 30 2c 6b 33 29 3b 0d 0a 6b 33 3d 69 66 28 62 61 6e 64 28 62 6e 6f 74 28 61 62	),-1000,k3);..k3=if(band(bnot(ab
0f80	6f 76 65 28 70 61 74 25 34 2c 31 2e 39 39 29 29 2c 61 62 6f 76 65 28 64 79 32 2a 6b 33 2d 6f 79	ove(pat%4,1.99)),above(dy2*k3-oy
0fa0	2c 30 29 29 2c 2d 31 30 30 30 2c 6b 33 29 3b 0d 0a 0d 0a a3 20 46 69 6e 64 20 69 6e 74 65 72 73	,0)),-1000,k3);......Find.inters
0fc0	65 63 74 69 6f 6e 20 70 6f 69 6e 74 20 61 6e 64 20 74 65 78 74 75 72 65 20 69 74 3b 0d 0a 69 78	ection.point.and.texture.it;..ix
0fe0	3d 64 78 33 2a 6b 31 2d 6f 78 3b 69 79 3d 64 79 32 2a 6b 31 2d 6f 79 3b 69 7a 3d 64 7a 32 2a 6b	=dx3*k1-ox;iy=dy2*k1-oy;iz=dz2*k
1000	31 2d 6f 7a 3b 0d 0a 71 79 3d 72 3b 0d 0a 72 3d 69 66 28 62 6f 72 28 62 65 6c 6f 77 28 73 71 72	1-oz;..qy=r;..r=if(bor(below(sqr
1020	74 28 73 71 72 28 69 78 29 2b 73 71 72 28 69 79 29 2b 73 71 72 28 69 7a 29 29 2c 32 2e 38 32 38	t(sqr(ix)+sqr(iy)+sqr(iz)),2.828
1040	34 29 2c 7a 66 69 78 29 2c 6d 61 78 28 6d 61 78 28 71 79 2c 6b 33 29 2c 6d 61 78 28 6b 32 2c 6b	4),zfix),max(max(qy,k3),max(k2,k
1060	31 29 29 2c 6b 31 29 3b 0d 0a 69 78 3d 64 78 33 2a 72 3b 69 79 3d 64 79 32 2a 72 3b 69 7a 3d 64	1)),k1);..ix=dx3*r;iy=dy2*r;iz=d
1080	7a 32 2a 72 3b 0d 0a 64 3d 73 71 72 74 28 69 78 2a 69 78 2b 69 79 2a 69 79 2b 69 7a 2a 69 7a 29	z2*r;..d=sqrt(ix*ix+iy*iy+iz*iz)
10a0	3b 0d 0a 69 78 3d 69 78 2d 6f 78 3b 69 79 3d 69 79 2d 6f 79 3b 69 7a 3d 69 7a 2d 6f 7a 3b 0d 0a	;..ix=ix-ox;iy=iy-oy;iz=iz-oz;..
10c0	78 3d 69 66 28 65 71 75 61 6c 28 72 2c 6b 31 29 2c 61 73 69 6e 28 73 69 6e 28 61 62 73 28 61 74	x=if(equal(r,k1),asin(sin(abs(at
10e0	61 6e 32 28 69 78 2c 69 79 29 29 29 29 2a 30 2e 33 31 37 2a 38 2d 34 2c 78 29 3b 0d 0a 78 3d 69	an2(ix,iy))))*0.317*8-4,x);..x=i
1100	66 28 65 71 75 61 6c 28 72 2c 6b 32 29 2c 61 73 69 6e 28 73 69 6e 28 61 62 73 28 61 74 61 6e 32	f(equal(r,k2),asin(sin(abs(atan2
1120	28 69 7a 2c 69 79 29 29 29 29 2a 30 2e 33 31 37 2a 38 2d 34 2c 78 29 3b 0d 0a 78 3d 69 66 28 65	(iz,iy))))*0.317*8-4,x);..x=if(e
1140	71 75 61 6c 28 72 2c 6b 33 29 2c 61 73 69 6e 28 73 69 6e 28 61 62 73 28 61 74 61 6e 32 28 69 78	qual(r,k3),asin(sin(abs(atan2(ix
1160	2c 69 7a 29 29 29 29 2a 30 2e 33 31 37 2a 38 2d 34 2c 78 29 3b 0d 0a 78 3d 69 66 28 65 71 75 61	,iz))))*0.317*8-4,x);..x=if(equa
1180	6c 28 72 2c 71 79 29 2c 61 73 69 6e 28 73 69 6e 28 61 62 73 28 61 74 61 6e 32 28 69 78 2c 69 7a	l(r,qy),asin(sin(abs(atan2(ix,iz
11a0	29 29 29 29 2a 30 2e 33 31 37 2a 38 2d 34 2c 78 29 3b 0d 0a 0d 0a 79 3d 69 66 28 65 71 75 61 6c	))))*0.317*8-4,x);....y=if(equal
11c0	28 72 2c 6b 31 29 2c 69 7a 2c 79 29 3b 0d 0a 79 3d 69 66 28 65 71 75 61 6c 28 72 2c 6b 32 29 2c	(r,k1),iz,y);..y=if(equal(r,k2),
11e0	61 62 73 28 69 78 29 2c 79 29 3b 0d 0a 79 3d 69 66 28 65 71 75 61 6c 28 72 2c 6b 33 29 2c 61 62	abs(ix),y);..y=if(equal(r,k3),ab
1200	73 28 69 79 29 2c 79 29 3b 0d 0a 79 3d 69 66 28 65 71 75 61 6c 28 72 2c 71 79 29 2c 61 73 69 6e	s(iy),y);..y=if(equal(r,qy),asin
1220	28 73 69 6e 28 61 62 73 28 61 74 61 6e 32 28 69 79 2c 73 71 72 74 28 73 71 72 28 69 78 29 2b 73	(sin(abs(atan2(iy,sqrt(sqr(ix)+s
1240	71 72 28 69 7a 29 29 29 29 29 29 2a 32 2c 79 29 3b 0d 0a 0d 0a 61 6c 70 68 61 3d 6d 69 6e 28 31	qr(iz))))))*2,y);....alpha=min(1
1260	2c 6d 61 78 28 30 2c 34 2e 30 35 2a 65 78 70 28 2d 64 2a 2e 35 29 29 29 3b 0d 0a 00 e7 07 00 00	,max(0,4.05*exp(-d*.5)));.......
1280	74 3d 74 2b 30 2e 30 30 35 2b 74 69 2a 2e 31 3b 70 74 3d 70 74 2d 2e 30 35 3b 0d 0a 0d 0a 72 79	t=t+0.005+ti*.1;pt=pt-.05;....ry
12a0	74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 38 29 2c 31 2c 30 29 3b 0d 0a 72 79 74 3d 69 66 28	t=if(equal(pat,8),1,0);..ryt=if(
12c0	65 71 75 61 6c 28 70 61 74 2c 39 29 2c 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75	equal(pat,9),1,ryt);..ryt=if(equ
12e0	61 6c 28 70 61 74 2c 31 30 29 2c 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c	al(pat,10),1,ryt);..ryt=if(equal
1300	28 70 61 74 2c 31 33 29 2c 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c 28 70	(pat,13),1,ryt);..ryt=if(equal(p
1320	61 74 2c 31 35 29 2c 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74	at,15),1,ryt);..ryt=if(equal(pat
1340	2c 31 36 29 2c 2d 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c	,16),-1,ryt);..ryt=if(equal(pat,
1360	31 38 29 2c 2d 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 31	18),-1,ryt);..ryt=if(equal(pat,1
1380	39 29 2c 2d 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 32 34	9),-1,ryt);..ryt=if(equal(pat,24
13a0	29 2c 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 32 37 29 2c	),1,ryt);..ryt=if(equal(pat,27),
13c0	2d 31 2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 32 39 29 2c 31	-1,ryt);..ryt=if(equal(pat,29),1
13e0	2c 72 79 74 29 3b 0d 0a 72 79 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 33 31 29 2c 31 2c 72	,ryt);..ryt=if(equal(pat,31),1,r
1400	79 74 29 3b 0d 0a 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 32 29 2c 31 2c 30 29	yt);....rxt=if(equal(pat,2),1,0)
1420	3b 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 33 29 2c 31 2c 72 78 74 29 3b 0d 0a	;..rxt=if(equal(pat,3),1,rxt);..
1440	72 78 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 34 29 2c 2d 31 2c 72 78 74 29 3b 0d 0a 72 78	rxt=if(equal(pat,4),-1,rxt);..rx
1460	74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 35 29 2c 2d 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d	t=if(equal(pat,5),-1,rxt);..rxt=
1480	69 66 28 65 71 75 61 6c 28 70 61 74 2c 36 29 2c 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28	if(equal(pat,6),1,rxt);..rxt=if(
14a0	65 71 75 61 6c 28 70 61 74 2c 31 31 29 2c 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71	equal(pat,11),1,rxt);..rxt=if(eq
14c0	75 61 6c 28 70 61 74 2c 31 32 29 2c 2d 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71 75	ual(pat,12),-1,rxt);..rxt=if(equ
14e0	61 6c 28 70 61 74 2c 31 34 29 2c 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c	al(pat,14),1,rxt);..rxt=if(equal
1500	28 70 61 74 2c 32 30 29 2c 2d 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c 28	(pat,20),-1,rxt);..rxt=if(equal(
1520	70 61 74 2c 32 31 29 2c 2d 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c 28 70	pat,21),-1,rxt);..rxt=if(equal(p
1540	61 74 2c 32 32 29 2c 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74	at,22),1,rxt);..rxt=if(equal(pat
1560	2c 32 33 29 2c 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 32	,23),1,rxt);..rxt=if(equal(pat,2
1580	36 29 2c 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 32 38 29	6),1,rxt);..rxt=if(equal(pat,28)
15a0	2c 2d 31 2c 72 78 74 29 3b 0d 0a 72 78 74 3d 69 66 28 65 71 75 61 6c 28 70 61 74 2c 33 30 29 2c	,-1,rxt);..rxt=if(equal(pat,30),
15c0	2d 31 2c 72 78 74 29 3b 0d 0a 0d 0a 71 7a 3d 62 6f 72 28 65 71 75 61 6c 28 70 61 74 2c 32 35 29	-1,rxt);....qz=bor(equal(pat,25)
15e0	2c 62 6f 72 28 65 71 75 61 6c 28 70 61 74 2c 31 37 29 2c 65 71 75 61 6c 28 70 61 74 2c 37 29 29	,bor(equal(pat,17),equal(pat,7))
1600	29 3b 0d 0a 0d 0a a3 20 50 68 61 73 65 20 30 3a 20 52 6f 74 61 74 69 6f 6e 3b 0d 0a 72 78 74 3d	);......Phase.0:.Rotation;..rxt=
1620	2d 72 78 74 2a 61 63 6f 73 28 2d 31 29 2a 2e 35 3b 0d 0a 72 79 74 3d 2d 72 79 74 2a 61 63 6f 73	-rxt*acos(-1)*.5;..ryt=-ryt*acos
1640	28 2d 31 29 2a 2e 35 3b 0d 0a 78 3d 28 72 78 2d 72 78 74 29 3b 72 78 3d 69 66 28 70 68 2c 72 78	(-1)*.5;..x=(rx-rxt);rx=if(ph,rx
1660	2c 69 66 28 62 65 6c 6f 77 28 61 62 73 28 78 29 2c 2e 30 35 29 2c 72 78 74 2c 72 78 2d 73 69 67	,if(below(abs(x),.05),rxt,rx-sig
1680	6e 28 78 29 2a 2e 31 33 2a 28 2e 31 2b 73 69 6e 28 61 62 73 28 78 2a 32 29 29 29 29 29 3b 0d 0a	n(x)*.13*(.1+sin(abs(x*2)))));..
16a0	79 3d 28 72 79 2d 72 79 74 29 3b 72 79 3d 69 66 28 70 68 2c 72 79 2c 69 66 28 62 65 6c 6f 77 28	y=(ry-ryt);ry=if(ph,ry,if(below(
16c0	61 62 73 28 79 29 2c 2e 30 35 29 2c 72 79 74 2c 72 79 2d 73 69 67 6e 28 79 29 2a 2e 31 33 2a 28	abs(y),.05),ryt,ry-sign(y)*.13*(
16e0	2e 31 2b 73 69 6e 28 61 62 73 28 79 2a 32 29 29 29 29 29 3b 0d 0a 6f 7a 3d 69 66 28 70 68 2c 6f	.1+sin(abs(y*2)))));..oz=if(ph,o
1700	7a 2c 69 66 28 71 7a 2c 6f 7a 2d 2e 33 2c 6f 7a 2a 2e 39 2a 6d 69 6e 28 31 2c 6d 61 78 28 61 62	z,if(qz,oz-.3,oz*.9*min(1,max(ab
1720	73 28 78 29 2c 61 62 73 28 79 29 29 29 29 29 3b 0d 0a 0d 0a a3 20 50 68 61 73 65 20 31 3a 20 41	s(x),abs(y)))));......Phase.1:.A
1740	63 63 65 6c 65 72 61 74 69 6f 6e 3b 0d 0a 6f 7a 3d 69 66 28 62 61 6e 64 28 65 71 75 61 6c 28 70	cceleration;..oz=if(band(equal(p
1760	68 2c 31 29 2c 71 7a 29 2c 6f 7a 2d 2e 33 2c 6f 7a 29 3b 0d 0a 70 68 3d 69 66 28 70 68 2c 70 68	h,1),qz),oz-.3,oz);..ph=if(ph,ph
1780	2c 69 66 28 69 66 28 71 7a 2c 62 65 6c 6f 77 28 6f 7a 2c 2e 35 29 2c 62 61 6e 64 28 65 71 75 61	,if(if(qz,below(oz,.5),band(equa
17a0	6c 28 72 78 2c 72 78 74 29 2c 65 71 75 61 6c 28 72 79 2c 72 79 74 29 29 29 2c 31 2c 70 68 29 29	l(rx,rxt),equal(ry,ryt))),1,ph))
17c0	3b 0d 0a 78 3d 6d 69 6e 28 31 2c 28 2e 31 2b 61 62 73 28 6f 78 29 2b 61 62 73 28 6f 79 29 29 29	;..x=min(1,(.1+abs(ox)+abs(oy)))
17e0	2a 2e 33 3b 0d 0a 6f 78 3d 69 66 28 65 71 75 61 6c 28 70 68 2c 31 29 2c 6f 78 2b 73 69 67 6e 28	*.3;..ox=if(equal(ph,1),ox+sign(
1800	72 79 74 29 2a 78 2c 6f 78 29 3b 0d 0a 6f 79 3d 69 66 28 65 71 75 61 6c 28 70 68 2c 31 29 2c 6f	ryt)*x,ox);..oy=if(equal(ph,1),o
1820	79 2b 73 69 67 6e 28 72 78 74 29 2a 78 2c 6f 79 29 3b 0d 0a 78 3d 69 66 28 65 71 75 61 6c 28 70	y+sign(rxt)*x,oy);..x=if(equal(p
1840	68 2c 31 29 2c 69 66 28 61 62 6f 76 65 28 69 66 28 71 7a 2c 73 71 72 28 6f 7a 29 2c 73 71 72 28	h,1),if(above(if(qz,sqr(oz),sqr(
1860	6f 78 29 2b 73 71 72 28 6f 79 29 29 2c 34 29 2c 31 2c 30 29 2c 30 29 3b 0d 0a 70 68 3d 69 66 28	ox)+sqr(oy)),4),1,0),0);..ph=if(
1880	78 2c 32 2c 70 68 29 3b 0d 0a 72 78 3d 69 66 28 78 2c 30 2c 72 78 29 3b 72 79 3d 69 66 28 78 2c	x,2,ph);..rx=if(x,0,rx);ry=if(x,
18a0	30 2c 72 79 29 3b 0d 0a 6f 7a 3d 69 66 28 78 2c 31 34 2c 6f 7a 29 3b 0d 0a 6f 78 3d 69 66 28 78	0,ry);..oz=if(x,14,oz);..ox=if(x
18c0	2c 30 2c 6f 78 29 3b 6f 79 3d 69 66 28 78 2c 30 2c 6f 79 29 3b 0d 0a 0d 0a a3 20 44 65 63 69 64	,0,ox);oy=if(x,0,oy);......Decid
18e0	65 20 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 73 68 61 70 65 20 61 6e 64 20 6f 70 74 69 6f 6e 61	e.intersection.shape.and.optiona
1900	6c 20 72 6f 6f 6d 3b 0d 0a 70 61 74 3d 69 66 28 78 2c 72 61 6e 64 28 33 30 29 2b 32 2c 70 61 74	l.room;..pat=if(x,rand(30)+2,pat
1920	29 3b 0d 0a 72 6d 3d 69 66 28 78 2c 65 71 75 61 6c 28 72 61 6e 64 28 34 30 29 2c 31 29 2c 72 6d	);..rm=if(x,equal(rand(40),1),rm
1940	29 3b 0d 0a 0d 0a a3 20 50 68 61 73 65 20 32 3a 20 53 6c 6f 77 20 64 6f 77 6e 3b 0d 0a 6f 7a 3d	);......Phase.2:.Slow.down;..oz=
1960	69 66 28 65 71 75 61 6c 28 70 68 2c 32 29 2c 6f 7a 2d 2e 33 2c 6f 7a 29 3b 0d 0a 70 68 3d 69 66	if(equal(ph,2),oz-.3,oz);..ph=if
1980	28 62 61 6e 64 28 65 71 75 61 6c 28 70 68 2c 32 29 2c 62 65 6c 6f 77 28 61 62 73 28 6f 7a 29 2c	(band(equal(ph,2),below(abs(oz),
19a0	33 29 29 2c 30 2c 70 68 29 3b 0d 0a 72 7a 3d 74 2b 73 69 6e 28 74 2a 34 2d 33 2e 31 34 31 35 29	3)),0,ph);..rz=t+sin(t*4-3.1415)
19c0	2a 2e 32 35 3b 0d 0a 0d 0a 78 3d 73 69 6e 28 70 74 2a 2e 39 31 34 29 2a 63 6f 73 28 70 74 2a 2e	*.25;....x=sin(pt*.914)*cos(pt*.
19e0	31 34 31 29 2a 63 6f 73 28 73 69 6e 28 70 74 2a 2e 34 31 31 29 29 2a 2e 37 3b 0d 0a 63 78 3d 63	141)*cos(sin(pt*.411))*.7;..cx=c
1a00	6f 73 28 72 78 2b 78 29 3b 73 78 3d 73 69 6e 28 72 78 2b 78 29 3b 63 79 3d 63 6f 73 28 72 79 2b	os(rx+x);sx=sin(rx+x);cy=cos(ry+
1a20	2e 30 30 31 29 3b 73 79 3d 73 69 6e 28 72 79 2b 2e 30 30 31 29 3b 63 7a 3d 63 6f 73 28 72 7a 29	.001);sy=sin(ry+.001);cz=cos(rz)
1a40	3b 73 7a 3d 73 69 6e 28 72 7a 29 3b 0d 0a 0d 0a 61 66 3d 68 2f 77 3b 0d 0a 74 69 3d 74 69 2a 2e	;sz=sin(rz);....af=h/w;..ti=ti*.
1a60	39 3b 0d 0a 0d 0a 00 10 00 00 00 74 69 3d 72 61 6e 64 28 32 29 2a 32 2d 31 3b 00 19 00 00 00 74	9;.........ti=rand(2)*2-1;.....t
1a80	3d 30 3b 70 61 74 3d 72 61 6e 64 28 33 30 29 2b 32 3b 70 68 3d 30 3b 00 01 00 00 00 01 00 00 00	=0;pat=rand(30)+2;ph=0;.........
1aa0	10 00 00 00 10 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00	........................