blob: 027a28dde4a285f9dd51de0ed58e34f6745681c8 (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 d5 03 00	Nullsoft.AVS.Preset.0.2.........
0020	00 d1 03 00 00 20 57 68 61 63 6b 6f 20 41 56 53 20 56 20 2d 20 4e 65 6f 6e 20 43 6f 61 73 74 65	......Whacko.AVS.V.-.Neon.Coaste
0040	72 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 2d 2d	r..-----------------------------
0060	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 41 20 70 72 65	-----------------------....A.pre
0080	73 65 74 20 77 69 74 68 20 6f 6e 6c 79 20 33 20 66 75 6e 63 74 69 6f 6e 61 6c 20 63 6f 6d 70 6f	set.with.only.3.functional.compo
00a0	6e 65 6e 74 73 2e 2e 20 6f 66 20 77 68 69 63 68 20 6f 6e 65 20 69 73 20 73 75 70 65 72 2d 6c 6f	nents...of.which.one.is.super-lo
00c0	61 64 65 64 20 3a 29 2e 0d 0a 0d 0a 54 68 69 73 20 65 61 73 69 6c 79 20 71 75 61 6c 69 66 69 65	aded.:).....This.easily.qualifie
00e0	73 20 61 73 20 74 68 65 20 6d 6f 73 74 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 73 75 70 65 72 73	s.as.the.most.complicated.supers
0100	63 6f 70 65 20 65 76 65 72 3a 20 69 74 20 77 65 69 67 68 73 20 69 6e 20 61 74 20 61 20 68 65 61	cope.ever:.it.weighs.in.at.a.hea
0120	76 79 20 34 4b 2e 20 53 6f 20 68 6f 77 20 65 78 61 63 74 6c 79 20 64 6f 65 73 20 69 74 20 77 6f	vy.4K..So.how.exactly.does.it.wo
0140	72 6b 3f 20 54 68 65 20 72 6f 6c 6c 65 72 63 6f 61 73 74 65 72 20 74 72 61 63 6b 20 69 73 20 62	rk?.The.rollercoaster.track.is.b
0160	75 69 6c 74 20 6f 75 74 20 6f 66 20 70 72 69 6d 69 74 69 76 65 20 73 65 67 6d 65 6e 74 73 3a 20	uilt.out.of.primitive.segments:.
0180	6c 69 6e 65 73 20 61 6e 64 20 63 69 72 63 6c 65 20 61 72 63 73 2e 20 54 68 65 20 72 65 73 75 6c	lines.and.circle.arcs..The.resul
01a0	74 20 69 73 20 73 6d 6f 6f 74 68 65 64 20 69 6e 74 6f 20 61 20 63 6f 6e 74 69 6e 75 6f 75 73 20	t.is.smoothed.into.a.continuous.
01c0	74 72 61 63 6b 2e 0d 0a 0d 0a 54 68 69 73 20 62 61 73 69 63 20 63 75 72 76 65 20 69 73 20 74 72	track.....This.basic.curve.is.tr
01e0	61 6e 73 66 6f 72 6d 65 64 20 69 6e 74 6f 20 74 68 65 20 74 77 6f 20 63 6f 6e 6e 65 63 74 65 64	ansformed.into.the.two.connected
0200	20 72 61 69 6c 73 20 74 68 72 6f 75 67 68 20 73 6f 6d 65 20 63 6c 65 76 65 72 20 76 65 63 74 6f	.rails.through.some.clever.vecto
0220	72 20 6d 61 74 68 20 77 68 69 63 68 20 61 6c 73 6f 20 63 61 6c 63 75 6c 61 74 65 73 20 74 68 65	r.math.which.also.calculates.the
0240	20 63 61 6d 65 72 61 27 73 20 70 6f 73 69 74 69 6f 6e 20 61 6e 64 20 72 6f 74 61 74 69 6f 6e 2e	.camera's.position.and.rotation.
0260	0d 0a 0d 0a 49 6e 20 74 68 65 20 65 6e 64 20 79 6f 75 20 68 61 76 65 20 74 68 69 73 20 72 65 61	....In.the.end.you.have.this.rea
0280	6c 6c 79 20 63 6f 6f 6c 2c 20 64 69 73 63 6f 20 72 6f 6c 6c 65 72 63 6f 61 73 74 65 72 2c 20 77	lly.cool,.disco.rollercoaster,.w
02a0	68 69 63 68 20 74 6f 6f 6b 20 34 20 64 61 79 73 20 6f 66 20 77 6f 72 6b 20 3a 50 2e 0d 0a 0d 0a	hich.took.4.days.of.work.:P.....
02c0	2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d	--------------------------------
02e0	2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 55 6e 43 6f 6e 65 44 20 2f 20 53 74 65 76	----------------..UnConeD./.Stev
0300	65 6e 20 57 69 74 74 65 6e 73 0d 0a 5b 20 73 74 65 76 65 6e 40 61 63 6b 6f 2e 6e 65 74 20 2d 20	en.Wittens..[.steven@acko.net.-.
0320	77 77 77 2e 61 63 6b 6f 2e 6e 65 74 20 5d 0d 0a 0d 0a 28 49 66 20 79 6f 75 20 77 69 73 68 20 74	www.acko.net.]....(If.you.wish.t
0340	6f 20 75 73 65 20 74 68 69 73 20 70 72 65 73 65 74 20 70 61 72 74 69 61 6c 6c 79 20 6f 72 20 77	o.use.this.preset.partially.or.w
0360	68 6f 6c 65 20 69 6e 20 79 6f 75 72 20 6f 77 6e 20 70 72 65 73 65 74 73 20 6f 72 20 70 61 63 6b	hole.in.your.own.presets.or.pack
0380	73 2c 20 79 6f 75 20 6d 61 79 20 64 6f 20 73 6f 20 70 72 6f 76 69 64 65 64 20 74 68 61 74 20 61	s,.you.may.do.so.provided.that.a
03a0	20 63 6c 65 61 72 20 63 72 65 64 69 74 20 6d 65 73 73 61 67 65 20 69 73 20 69 6e 63 6c 75 64 65	.clear.credit.message.is.include
03c0	64 20 69 6e 20 79 6f 75 72 20 70 72 65 73 65 74 2c 20 61 6c 6f 6e 67 20 77 69 74 68 20 6d 79 20	d.in.your.preset,.along.with.my.
03e0	63 6f 6e 74 61 63 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 29 00 2c 00 00 00 04 00 00 00 01 00	contact.information.).,.........
0400	00 00 28 00 00 00 04 00 00 00 02 00 03 80 24 00 00 00 d0 0f 00 00 01 3c 0d 00 00 6a 78 3d 6b 78	..(...........$........<...jx=kx
0420	3b 6a 7a 3d 6b 7a 3b 6b 78 3d 69 78 3b 6b 7a 3d 69 7a 3b 0d 0a 68 69 3d 2d 68 69 3b 68 70 3d 28	;jz=kz;kx=ix;kz=iz;..hi=-hi;hp=(
0440	68 70 2b 31 29 25 33 3b 0d 0a 69 3d 69 2a 33 31 2e 38 32 3b 0d 0a 0d 0a a4 20 31 73 74 20 2d 20	hp+1)%3;..i=i*31.82;......1st.-.
0460	4c 69 6e 65 3b 0d 0a 75 31 3d 69 3b 0d 0a 70 78 3d 69 2a 2e 35 3b 70 79 3d 2e 35 2d 63 6f 73 28	Line;..u1=i;..px=i*.5;py=.5-cos(
0480	69 2a 31 2e 32 35 29 2a 2e 35 3b 70 7a 3d 30 3b 0d 0a 0d 0a a4 20 32 6e 64 20 2d 20 31 38 30 20	i*1.25)*.5;pz=0;......2nd.-.180.
04a0	43 6f 72 6e 65 72 3b 0d 0a 70 63 3d 62 61 6e 64 28 61 62 6f 76 65 28 69 2c 31 29 2c 62 65 6c 6f	Corner;..pc=band(above(i,1),belo
04c0	77 28 69 2c 34 2e 33 33 29 29 3b 0d 0a 75 31 3d 28 69 2d 31 29 2a 74 70 69 2a 2e 33 3b 0d 0a 70	w(i,4.33));..u1=(i-1)*tpi*.3;..p
04e0	78 3d 69 66 28 70 63 2c 73 69 6e 28 75 31 29 2a 2e 35 2b 2e 35 2c 70 78 29 3b 70 79 3d 69 66 28	x=if(pc,sin(u1)*.5+.5,px);py=if(
0500	70 63 2c 2e 35 2d 63 6f 73 28 69 2a 31 2e 32 35 29 2a 2e 35 2c 70 79 29 3b 70 7a 3d 69 66 28 70	pc,.5-cos(i*1.25)*.5,py);pz=if(p
0520	63 2c 63 6f 73 28 75 31 29 2a 2e 35 2d 2e 35 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 33 74 68 20 2d 20	c,cos(u1)*.5-.5,pz);......3th.-.
0540	4c 69 6e 65 3b 0d 0a 70 63 3d 62 61 6e 64 28 61 62 6f 76 65 28 69 2c 34 2e 33 33 29 2c 62 65 6c	Line;..pc=band(above(i,4.33),bel
0560	6f 77 28 69 2c 35 2e 30 32 29 29 3b 0d 0a 75 31 3d 28 69 2d 34 2e 33 33 29 3b 75 32 3d 75 31 2a	ow(i,5.02));..u1=(i-4.33);u2=u1*
0580	31 2e 33 33 3b 0d 0a 70 78 3d 69 66 28 70 63 2c 2d 75 31 2a 2e 35 2b 2e 35 2c 70 78 29 3b 70 79	1.33;..px=if(pc,-u1*.5+.5,px);py
05a0	3d 69 66 28 70 63 2c 2e 35 2d 63 6f 73 28 69 2a 31 2e 32 35 29 2a 2e 35 2c 70 79 29 3b 70 7a 3d	=if(pc,.5-cos(i*1.25)*.5,py);pz=
05c0	69 66 28 70 63 2c 2d 31 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 34 74 68 20 2d 20 4c 6f 6f 70 3b 0d 0a	if(pc,-1,pz);......4th.-.Loop;..
05e0	70 63 3d 62 61 6e 64 28 61 62 6f 76 65 28 69 2c 35 2e 30 32 29 2c 62 65 6c 6f 77 28 69 2c 39 2e	pc=band(above(i,5.02),below(i,9.
0600	34 36 29 29 3b 0d 0a 75 31 3d 28 69 2d 35 2e 30 32 29 2a 74 70 69 2a 2e 34 35 3b 0d 0a 70 78 3d	46));..u1=(i-5.02)*tpi*.45;..px=
0620	69 66 28 70 63 2c 2d 73 69 6e 28 75 31 29 2a 2e 34 2b 2e 31 35 35 2c 70 78 29 3b 70 79 3d 69 66	if(pc,-sin(u1)*.4+.155,px);py=if
0640	28 70 63 2c 2e 34 2d 2e 34 2a 63 6f 73 28 75 31 29 2c 70 79 29 3b 70 7a 3d 69 66 28 70 63 2c 2d	(pc,.4-.4*cos(u1),py);pz=if(pc,-
0660	31 2b 75 31 2a 2e 30 33 33 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 35 74 68 20 2d 20 53 6f 66 74 20 43	1+u1*.033,pz);......5th.-.Soft.C
0680	68 69 63 61 6e 65 20 4c 65 66 74 20 55 70 3b 0d 0a 70 63 3d 62 61 6e 64 28 61 62 6f 76 65 28 69	hicane.Left.Up;..pc=band(above(i
06a0	2c 39 2e 34 36 29 2c 62 65 6c 6f 77 28 69 2c 31 30 2e 39 36 29 29 3b 0d 0a 75 31 3d 28 69 2d 39	,9.46),below(i,10.96));..u1=(i-9
06c0	2e 34 36 29 3b 75 32 3d 75 31 2a 2e 36 3b 0d 0a 70 78 3d 69 66 28 70 63 2c 2d 75 31 2a 2e 35 2b	.46);u2=u1*.6;..px=if(pc,-u1*.5+
06e0	2e 31 35 35 2c 70 78 29 3b 70 79 3d 69 66 28 70 63 2c 2e 33 2d 63 6f 73 28 75 31 29 2a 2e 33 2c	.155,px);py=if(pc,.3-cos(u1)*.3,
0700	70 79 29 3b 70 7a 3d 69 66 28 70 63 2c 2d 2e 37 39 32 2d 28 33 2a 73 71 72 28 75 32 29 2d 32 2a	py);pz=if(pc,-.792-(3*sqr(u2)-2*
0720	73 71 72 28 75 32 29 2a 75 32 29 2a 2e 31 32 35 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 36 74 68 20 2d	sqr(u2)*u2)*.125,pz);......6th.-
0740	20 43 6f 72 6e 65 72 20 52 69 67 68 74 3b 0d 0a 70 63 3d 62 61 6e 64 28 61 62 6f 76 65 28 69 2c	.Corner.Right;..pc=band(above(i,
0760	31 30 2e 39 36 29 2c 62 65 6c 6f 77 28 69 2c 31 33 2e 32 36 29 29 3b 0d 0a 75 31 3d 28 69 2d 31	10.96),below(i,13.26));..u1=(i-1
0780	30 2e 39 36 29 3b 75 32 3d 75 31 2a 2e 36 3b 0d 0a 70 78 3d 69 66 28 70 63 2c 2d 73 69 6e 28 75	0.96);u2=u1*.6;..px=if(pc,-sin(u
07a0	31 29 2a 2e 34 2d 2e 35 39 2c 70 78 29 3b 70 79 3d 69 66 28 70 63 2c 2e 33 2d 63 6f 73 28 75 31	1)*.4-.59,px);py=if(pc,.3-cos(u1
07c0	2b 31 2e 34 39 35 29 2a 2e 33 2c 70 79 29 3b 70 7a 3d 69 66 28 70 63 2c 2d 63 6f 73 28 75 31 29	+1.495)*.3,py);pz=if(pc,-cos(u1)
07e0	2a 2e 34 2d 2e 35 31 34 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 37 74 68 20 2d 20 4c 69 6e 65 20 64 72	*.4-.514,pz);......7th.-.Line.dr
0800	6f 70 3b 0d 0a 70 63 3d 62 61 6e 64 28 61 62 6f 76 65 28 69 2c 31 33 2e 32 36 29 2c 62 65 6c 6f	op;..pc=band(above(i,13.26),belo
0820	77 28 69 2c 31 35 2e 31 39 29 29 3b 0d 0a 75 31 3d 28 69 2d 31 33 2e 32 36 29 3b 75 32 3d 75 31	w(i,15.19));..u1=(i-13.26);u2=u1
0840	2a 2e 36 3b 0d 0a 70 78 3d 69 66 28 70 63 2c 75 31 2a 2e 33 35 2d 2e 38 39 2c 70 78 29 3b 70 79	*.6;..px=if(pc,u1*.35-.89,px);py
0860	3d 69 66 28 70 63 2c 2e 34 2d 63 6f 73 28 75 31 2b 34 2e 33 35 29 2a 2e 34 2c 70 79 29 3b 70 7a	=if(pc,.4-cos(u1+4.35)*.4,py);pz
0880	3d 69 66 28 70 63 2c 75 31 2a 2e 33 39 35 2d 2e 32 35 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 38 74 68	=if(pc,u1*.395-.25,pz);......8th
08a0	20 2d 20 33 36 30 20 48 65 6c 69 78 20 55 70 20 4c 65 66 74 3b 0d 0a 70 63 3d 62 61 6e 64 28 61	.-.360.Helix.Up.Left;..pc=band(a
08c0	62 6f 76 65 28 69 2c 31 35 2e 31 39 29 2c 62 65 6c 6f 77 28 69 2c 31 39 2e 31 38 29 29 3b 0d 0a	bove(i,15.19),below(i,19.18));..
08e0	75 31 3d 28 69 2d 31 35 2e 31 39 29 2a 74 70 69 2a 2e 35 2d 2e 38 34 3b 75 32 3d 28 69 2d 31 35	u1=(i-15.19)*tpi*.5-.84;u2=(i-15
0900	2e 31 39 29 2a 2e 32 35 30 36 3b 0d 0a 70 78 3d 69 66 28 70 63 2c 63 6f 73 28 75 31 29 2a 2e 33	.19)*.2506;..px=if(pc,cos(u1)*.3
0920	35 2d 2e 34 35 2c 70 78 29 3b 70 79 3d 69 66 28 70 63 2c 28 33 2a 73 71 72 28 75 32 29 2d 32 2a	5-.45,px);py=if(pc,(3*sqr(u2)-2*
0940	73 71 72 28 75 32 29 2a 75 32 29 2a 2e 32 2c 70 79 29 3b 70 7a 3d 69 66 28 70 63 2c 73 69 6e 28	sqr(u2)*u2)*.2,py);pz=if(pc,sin(
0960	75 31 29 2a 2e 33 35 2b 2e 37 37 32 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 39 74 68 20 2d 20 32 37 30	u1)*.35+.772,pz);......9th.-.270
0980	20 43 6f 72 6e 65 72 20 52 69 67 68 74 20 48 75 6d 70 65 64 3b 0d 0a 70 63 3d 62 61 6e 64 28 61	.Corner.Right.Humped;..pc=band(a
09a0	62 6f 76 65 28 69 2c 31 39 2e 31 38 29 2c 62 65 6c 6f 77 28 69 2c 32 35 2e 36 32 29 29 3b 0d 0a	bove(i,19.18),below(i,25.62));..
09c0	75 31 3d 2d 28 69 2d 31 39 2e 31 38 29 2a 74 70 69 2a 2e 32 33 2d 2e 38 34 2d 33 2e 31 34 3b 75	u1=-(i-19.18)*tpi*.23-.84-3.14;u
09e0	32 3d 69 2d 31 39 2e 31 38 3b 0d 0a 70 78 3d 69 66 28 70 63 2c 63 6f 73 28 75 31 29 2a 2e 36 2b	2=i-19.18;..px=if(pc,cos(u1)*.6+
0a00	2e 31 38 36 2c 70 78 29 3b 70 79 3d 69 66 28 70 63 2c 2e 32 35 2b 63 6f 73 28 75 32 2a 31 2e 39	.186,px);py=if(pc,.25+cos(u2*1.9
0a20	34 29 2a 2e 31 35 2d 28 63 6f 73 28 28 69 2d 31 39 2e 31 38 29 2a 2e 34 38 37 29 2a 2e 31 2b 2e	4)*.15-(cos((i-19.18)*.487)*.1+.
0a40	31 29 2c 70 79 29 3b 70 7a 3d 69 66 28 70 63 2c 73 69 6e 28 75 31 29 2a 2e 36 2b 2e 30 36 35 2c	1),py);pz=if(pc,sin(u1)*.6+.065,
0a60	70 7a 29 3b 0d 0a 0d 0a a4 20 31 30 74 68 20 2d 20 4c 69 6e 65 20 44 72 6f 70 3b 0d 0a 70 63 3d	pz);......10th.-.Line.Drop;..pc=
0a80	62 61 6e 64 28 61 62 6f 76 65 28 69 2c 32 35 2e 36 32 29 2c 62 65 6c 6f 77 28 69 2c 32 37 2e 32	band(above(i,25.62),below(i,27.2
0aa0	36 29 29 3b 0d 0a 75 31 3d 28 69 2d 32 35 2e 36 32 29 3b 75 32 3d 75 31 2a 2e 36 3b 0d 0a 70 78	6));..u1=(i-25.62);u2=u1*.6;..px
0ac0	3d 69 66 28 70 63 2c 2d 75 31 2a 2e 33 35 2d 2e 32 33 38 2c 70 78 29 3b 70 79 3d 69 66 28 70 63	=if(pc,-u1*.35-.238,px);py=if(pc
0ae0	2c 2e 32 2d 63 6f 73 28 75 31 2a 32 2b 33 2e 31 34 29 2a 2e 32 2c 70 79 29 3b 70 7a 3d 69 66 28	,.2-cos(u1*2+3.14)*.2,py);pz=if(
0b00	70 63 2c 75 31 2a 2e 33 35 2d 2e 33 35 39 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 31 31 74 68 20 2d 20	pc,u1*.35-.359,pz);......11th.-.
0b20	32 37 30 20 43 6f 72 6e 65 72 20 4c 65 66 74 3b 0d 0a 70 63 3d 62 61 6e 64 28 61 62 6f 76 65 28	270.Corner.Left;..pc=band(above(
0b40	69 2c 32 37 2e 32 36 29 2c 62 65 6c 6f 77 28 69 2c 32 39 2e 37 35 29 29 3b 0d 0a 75 31 3d 28 69	i,27.26),below(i,29.75));..u1=(i
0b60	2d 32 37 2e 32 36 29 2a 74 70 69 2a 2e 35 2b 2e 37 38 3b 75 32 3d 69 2d 31 39 2e 31 38 3b 0d 0a	-27.26)*tpi*.5+.78;u2=i-19.18;..
0b80	70 78 3d 69 66 28 70 63 2c 63 6f 73 28 75 31 29 2a 2e 33 33 2d 31 2e 30 34 39 2c 70 78 29 3b 70	px=if(pc,cos(u1)*.33-1.049,px);p
0ba0	79 3d 69 66 28 70 63 2c 30 2c 70 79 29 3b 70 7a 3d 69 66 28 70 63 2c 73 69 6e 28 75 31 29 2a 2e	y=if(pc,0,py);pz=if(pc,sin(u1)*.
0bc0	33 33 2d 2e 30 31 33 35 2c 70 7a 29 3b 0d 0a 0d 0a a4 20 31 32 74 68 20 2d 20 43 68 69 63 61 6e	33-.0135,pz);......12th.-.Chican
0be0	65 20 6c 65 66 74 3b 0d 0a 70 63 3d 61 62 6f 76 65 28 69 2c 32 39 2e 37 35 29 3b 0d 0a 75 31 3d	e.left;..pc=above(i,29.75);..u1=
0c00	28 69 2d 32 39 2e 37 35 29 3b 75 32 3d 75 31 2a 31 2e 35 3b 0d 0a 70 78 3d 69 66 28 70 63 2c 75	(i-29.75);u2=u1*1.5;..px=if(pc,u
0c20	31 2a 2e 35 2d 31 2e 30 34 2c 70 78 29 3b 70 79 3d 69 66 28 70 63 2c 30 2c 70 79 29 3b 70 7a 3d	1*.5-1.04,px);py=if(pc,0,py);pz=
0c40	69 66 28 70 63 2c 2d 30 2e 33 35 2a 28 63 6f 73 28 75 32 29 2a 2e 35 2b 2e 35 29 2c 70 7a 29 3b	if(pc,-0.35*(cos(u2)*.5+.5),pz);
0c60	0d 0a 0d 0a a4 20 53 6d 6f 6f 74 68 20 69 6e 74 6f 20 61 20 63 6f 6e 74 69 6e 75 6f 75 73 20 73	......Smooth.into.a.continuous.s
0c80	70 6c 69 6e 65 3b 0d 0a 70 79 3d 70 79 2a 69 66 28 6d 66 2d 34 2c 2d 31 2c 31 29 2b 2e 35 3b 70	pline;..py=py*if(mf-4,-1,1)+.5;p
0ca0	78 3d 70 78 2a 69 66 28 6d 66 25 32 2c 31 2c 2d 31 29 3b 0d 0a 70 78 3d 28 70 78 2a 2e 31 2b 69	x=px*if(mf%2,1,-1);..px=(px*.1+i
0cc0	78 2a 2e 39 30 35 29 3b 0d 0a 70 79 3d 28 70 79 2a 2e 31 2b 69 79 2a 2e 39 30 35 29 3b 0d 0a 70	x*.905);..py=(py*.1+iy*.905);..p
0ce0	7a 3d 28 70 7a 2a 2e 31 2b 69 7a 2a 2e 39 30 35 29 3b 0d 0a 0d 0a a4 20 53 74 6f 72 65 20 63 61	z=(pz*.1+iz*.905);......Store.ca
0d00	6d 65 72 61 20 70 6f 73 69 74 69 6f 6e 20 6f 6e 20 72 61 69 6c 3b 0d 0a 70 63 3d 62 65 6c 6f 77	mera.position.on.rail;..pc=below
0d20	28 69 2c 75 29 3b 6f 6f 78 3d 69 66 28 70 63 2c 70 78 2c 6f 6f 78 29 3b 6f 6f 79 3d 69 66 28 70	(i,u);oox=if(pc,px,oox);ooy=if(p
0d40	63 2c 70 79 2c 6f 6f 79 29 3b 6f 6f 7a 3d 69 66 28 70 63 2c 70 7a 2c 6f 6f 7a 29 3b 0d 0a 69 78	c,py,ooy);ooz=if(pc,pz,ooz);..ix
0d60	3d 70 78 3b 69 79 3d 70 79 3b 69 7a 3d 70 7a 3b 0d 0a 0d 0a a4 20 43 61 6c 63 75 6c 61 74 65 20	=px;iy=py;iz=pz;......Calculate.
0d80	72 61 69 6c 73 20 61 6e 64 20 62 61 6e 6b 69 6e 67 2f 74 77 69 73 74 69 6e 67 3b 0d 0a 72 65 64	rails.and.banking/twisting;..red
0da0	3d 62 6f 72 28 62 65 6c 6f 77 28 69 2c 35 2e 30 32 29 2c 61 62 6f 76 65 28 69 2c 39 2e 38 36 29	=bor(below(i,5.02),above(i,9.86)
0dc0	29 3b 0d 0a 72 65 64 3d 69 66 28 72 65 64 2c 61 74 61 6e 32 28 69 7a 2d 6b 7a 2c 69 78 2d 6b 78	);..red=if(red,atan2(iz-kz,ix-kx
0de0	29 2c 33 2e 31 34 2a 69 66 28 6d 66 25 32 2c 31 2c 30 29 29 3b 0d 0a 75 31 3d 63 6f 73 28 72 65	),3.14*if(mf%2,1,0));..u1=cos(re
0e00	64 29 3b 75 32 3d 73 69 6e 28 72 65 64 29 3b 0d 0a 62 6c 75 65 3d 2d 75 32 3b 67 72 65 65 6e 3d	d);u2=sin(red);..blue=-u2;green=
0e20	75 31 3b 0d 0a 75 31 3d 69 78 2b 6a 78 2d 6b 78 2a 32 3b 75 32 3d 69 7a 2b 6a 7a 2d 6b 7a 2a 32	u1;..u1=ix+jx-kx*2;u2=iz+jz-kz*2
0e40	3b 0d 0a 62 79 3d 28 62 79 2a 37 2d 28 28 69 7a 2d 6a 7a 29 2a 75 31 2d 28 69 78 2d 6a 78 29 2a	;..by=(by*7-((iz-jz)*u1-(ix-jx)*
0e60	75 32 29 2a 38 30 30 30 29 2a 2e 31 32 35 2a 69 66 28 61 62 6f 76 65 28 69 2c 33 30 2e 38 32 29	u2)*8000)*.125*if(above(i,30.82)
0e80	2c 28 33 31 2e 38 32 2d 69 29 2c 31 29 3b 0d 0a 72 65 64 3d 73 71 72 28 62 6c 75 65 29 2b 73 71	,(31.82-i),1);..red=sqr(blue)+sq
0ea0	72 28 67 72 65 65 6e 29 3b 0d 0a 72 72 7a 3d 69 66 28 70 63 2c 28 61 74 61 6e 32 28 72 65 64 2c	r(green);..rrz=if(pc,(atan2(red,
0ec0	62 79 29 2d 31 2e 35 37 29 2a 69 66 28 62 65 6c 6f 77 28 6d 66 2c 32 29 2c 31 2c 2d 31 29 2c 72	by)-1.57)*if(below(mf,2),1,-1),r
0ee0	72 7a 29 3b 0d 0a 70 63 3d 68 69 2a 2e 30 34 2f 73 71 72 74 28 72 65 64 2b 73 71 72 28 62 79 29	rz);..pc=hi*.04/sqrt(red+sqr(by)
0f00	29 3b 0d 0a 70 78 3d 70 78 2d 6f 78 2b 62 6c 75 65 2a 70 63 3b 70 79 3d 70 79 2d 6f 79 2b 62 79	);..px=px-ox+blue*pc;py=py-oy+by
0f20	2a 70 63 3b 70 7a 3d 70 7a 2d 6f 7a 2b 67 72 65 65 6e 2a 70 63 3b 0d 0a 0d 0a 78 31 3d 70 78 2a	*pc;pz=pz-oz+green*pc;....x1=px*
0f40	63 79 2b 70 7a 2a 73 79 3b 7a 31 3d 70 7a 2a 63 79 2d 70 78 2a 73 79 3b 0d 0a 79 32 3d 70 79 2a	cy+pz*sy;z1=pz*cy-px*sy;..y2=py*
0f60	63 78 2b 7a 31 2a 73 78 3b 7a 32 3d 7a 31 2a 63 78 2d 70 79 2a 73 78 3b 0d 0a 78 33 3d 78 31 2a	cx+z1*sx;z2=z1*cx-py*sx;..x3=x1*
0f80	63 7a 2b 79 32 2a 73 7a 3b 79 33 3d 79 32 2a 63 7a 2d 78 31 2a 73 7a 2b 2e 30 38 3b 0d 0a 75 31	cz+y2*sz;y3=y2*cz-x1*sz+.08;..u1
0fa0	3d 69 66 28 61 62 6f 76 65 28 7a 32 2c 30 2e 30 31 29 2c 31 2f 7a 32 2c 30 29 3b 0d 0a 6c 78 3d	=if(above(z2,0.01),1/z2,0);..lx=
0fc0	67 78 3b 6c 79 3d 67 79 3b 0d 0a 67 78 3d 6d 78 3b 67 79 3d 6d 79 3b 0d 0a 6d 78 3d 78 33 2a 75	gx;ly=gy;..gx=mx;gy=my;..mx=x3*u
0fe0	31 3b 6d 79 3d 69 66 28 75 31 2c 79 33 2a 75 31 2c 34 29 3b 0d 0a 78 3d 69 66 28 68 70 2d 31 2c	1;my=if(u1,y3*u1,4);..x=if(hp-1,
1000	69 66 28 68 70 2d 32 2c 6d 78 2c 67 78 29 2c 6c 78 29 3b 79 3d 69 66 28 68 70 2d 31 2c 69 66 28	if(hp-2,mx,gx),lx);y=if(hp-1,if(
1020	68 70 2d 32 2c 6d 79 2c 67 79 29 2c 6c 79 29 3b 0d 0a 78 3d 6d 61 78 28 2d 31 2e 31 2c 6d 69 6e	hp-2,my,gy),ly);..x=max(-1.1,min
1040	28 31 2e 31 2c 78 29 29 2a 31 2e 31 3b 79 3d 6d 61 78 28 2d 31 2e 31 2c 6d 69 6e 28 31 2e 32 2c	(1.1,x))*1.1;y=max(-1.1,min(1.2,
1060	79 29 29 2a 77 2a 31 2e 31 3b 0d 0a 70 63 3d 69 66 28 68 70 2d 31 2c 31 2c 30 29 3b 0d 0a 62 78	y))*w*1.1;..pc=if(hp-1,1,0);..bx
1080	3d 73 69 67 6e 28 75 31 29 2a 62 65 6c 6f 77 28 61 62 73 28 67 78 2d 78 29 2b 61 62 73 28 67 79	=sign(u1)*below(abs(gx-x)+abs(gy
10a0	2d 79 29 2c 2e 39 39 29 2a 62 65 6c 6f 77 28 6d 79 2c 32 29 2a 62 65 6c 6f 77 28 6c 79 2c 32 29	-y),.99)*below(my,2)*below(ly,2)
10c0	3b 0d 0a 75 31 3d 28 31 2e 31 2d 7a 32 2a 28 2e 39 2b 70 63 2a 2e 32 29 2b 70 63 2a 2e 33 29 3b	;..u1=(1.1-z2*(.9+pc*.2)+pc*.3);
10e0	75 32 3d 6d 61 78 28 30 2c 73 69 6e 28 69 2a 2e 31 31 34 2a 32 30 30 29 29 2a 2e 32 2b 61 62 73	u2=max(0,sin(i*.114*200))*.2+abs
1100	28 67 65 74 6f 73 63 28 69 2a 2e 30 33 2c 30 2c 30 29 2a 70 63 29 2a 32 3b 0d 0a 72 65 64 3d 62	(getosc(i*.03,0,0)*pc)*2;..red=b
1120	78 2a 28 75 31 2a 63 72 2b 75 32 29 3b 67 72 65 65 6e 3d 62 78 2a 28 75 31 2a 63 67 2b 75 32 29	x*(u1*cr+u2);green=bx*(u1*cg+u2)
1140	3b 62 6c 75 65 3d 62 78 2a 28 75 31 2a 63 62 2b 75 32 29 3b 0d 0a 00 f0 01 00 00 72 65 64 3d 62	;blue=bx*(u1*cb+u2);.......red=b
1160	6f 72 28 62 65 6c 6f 77 28 75 2c 35 2e 30 32 29 2c 61 62 6f 76 65 28 75 2c 39 2e 38 36 29 29 3b	or(below(u,5.02),above(u,9.86));
1180	72 78 3d 28 61 74 61 6e 32 28 73 71 72 74 28 73 71 72 28 6f 6f 7a 2d 6f 7a 29 2b 73 71 72 28 6f	rx=(atan2(sqrt(sqr(ooz-oz)+sqr(o
11a0	6f 78 2d 6f 78 29 29 2c 6f 6f 79 2d 6f 79 29 2d 31 2e 35 37 29 3b 72 79 3d 69 66 28 72 65 64 2c	ox-ox)),ooy-oy)-1.57);ry=if(red,
11c0	61 74 61 6e 32 28 6f 6f 7a 2d 6f 7a 2c 6f 6f 78 2d 6f 78 29 2d 31 2e 35 37 2c 2d 31 2e 35 37 2a	atan2(ooz-oz,oox-ox)-1.57,-1.57*
11e0	73 69 67 6e 28 6f 6f 78 2d 6f 78 29 29 3b 72 7a 3d 72 72 7a 2b 28 31 2d 72 65 64 29 2a 28 31 2e	sign(oox-ox));rz=rrz+(1-red)*(1.
1200	35 37 2b 31 2e 35 37 2a 73 69 67 6e 28 6f 6f 78 2d 6f 78 29 2a 69 66 28 6d 66 25 32 2c 31 2c 2d	57+1.57*sign(oox-ox)*if(mf%2,1,-
1220	31 29 2a 69 66 28 62 65 6c 6f 77 28 6d 66 2c 32 29 2c 31 2c 2d 31 29 29 3b 6f 78 3d 6f 6f 78 3b	1)*if(below(mf,2),1,-1));ox=oox;
1240	6f 79 3d 6f 6f 79 3b 6f 7a 3d 6f 6f 7a 3b 74 3d 74 2b 31 2f 6e 2a 69 66 28 62 65 6c 6f 77 28 6d	oy=ooy;oz=ooz;t=t+1/n*if(below(m
1260	66 2c 32 29 2c 31 2c 2d 31 29 3b 74 3d 69 66 28 62 65 6c 6f 77 28 74 2c 30 29 2c 74 2b 31 2c 69	f,2),1,-1);t=if(below(t,0),t+1,i
1280	66 28 61 62 6f 76 65 28 74 2c 31 29 2c 74 2d 31 2c 74 29 29 3b 75 3d 74 2a 33 31 2e 38 32 3b 63	f(above(t,1),t-1,t));u=t*31.82;c
12a0	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 3b	x=cos(rx);sx=sin(rx);cy=cos(ry);
12c0	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 29	sy=sin(ry);cz=cos(rz);sz=sin(rz)
12e0	3b 70 63 3d 30 3b 68 69 3d 31 3b 63 72 3d 73 69 6e 28 68 75 29 2a 2e 35 2b 2e 35 3b 63 67 3d 73	;pc=0;hi=1;cr=sin(hu)*.5+.5;cg=s
1300	69 6e 28 68 75 2b 32 2e 30 39 29 2a 2e 35 2b 2e 35 3b 63 62 3d 73 69 6e 28 68 75 2b 34 2e 31 38	in(hu+2.09)*.5+.5;cb=sin(hu+4.18
1320	29 2a 2e 35 2b 2e 35 3b 77 3d 77 2f 68 3b 68 70 3d 30 3b 6d 78 3d 30 3b 6d 79 3d 32 3b 68 75 3d	)*.5+.5;w=w/h;hp=0;mx=0;my=2;hu=
1340	68 75 2b 2e 30 30 35 2a 6d 66 00 30 00 00 00 a4 20 52 6f 6c 6c 65 72 20 43 6f 61 73 74 65 72 20	hu+.005*mf.0.....Roller.Coaster.
1360	54 72 61 63 6b 3b 20 68 75 3d 68 75 2b 67 65 74 6f 73 63 28 30 2c 30 2c 30 29 2a 31 30 3b 00 53	Track;.hu=hu+getosc(0,0,0)*10;.S
1380	00 00 00 6e 3d 34 38 30 3b 74 70 69 3d 61 63 6f 73 28 2d 31 29 3b 6f 78 3d 30 3b 6f 79 3d 30 3b	...n=480;tpi=acos(-1);ox=0;oy=0;
13a0	6f 7a 3d 30 3b 6f 6f 78 3d 30 3b 6f 6f 79 3d 30 3b 6f 6f 7a 3d 30 3b 72 72 7a 3d 30 3b 6d 66 3d	oz=0;oox=0;ooy=0;ooz=0;rrz=0;mf=
13c0	67 65 74 6f 73 63 28 2e 37 2c 30 2c 30 29 2a 32 30 30 25 34 3b 00 02 00 00 00 01 00 00 00 ff ff	getosc(.7,0,0)*200%4;...........
13e0	ff 00 01 00 00 00	......