dpat updates

[SugarCubes.git] / DanHorwitz.pde

//----------------------------------------------------------------------------------------------------------------------------------\r
public class Pong extends DPat {\r
	SinLFO x,y,z,dx,dy,dz; \r
	float cRad;	DParam pSize;\r
	Pick 	pChoose;\r
	xyz 	v = new xyz(), vMir =  new xyz();\r
\r
	Pong(GLucose glucose) {\r
		super(glucose);\r
		cRad = mMax.x/10;\r
		addModulator(dx = new SinLFO(6000,  500, 30000	)).trigger();\r
		addModulator(dy = new SinLFO(3000,  500, 22472	)).trigger();\r
		addModulator(dz = new SinLFO(1000,  500, 18420	)).trigger();\r
		addModulator(x  = new SinLFO(cRad, mMax.x - cRad, 0)).trigger();	x.modulateDurationBy(dx);\r
		addModulator(y  = new SinLFO(cRad, mMax.y - cRad, 0)).trigger();	y.modulateDurationBy(dy);\r
		addModulator(z  = new SinLFO(cRad, mMax.z - cRad, 0)).trigger();	z.modulateDurationBy(dz);\r
	    pSize	= addParam	("Size"			, 0.4	);\r
	    pChoose = addPick	("Animiation"	, 0, 2, new String[] {"Pong", "Ball", "Cone"}	);\r
	}\r
\r
	void  	StartRun(double deltaMs) 	{ cRad = mMax.x*pSize.Val()/6; }\r
	color	CalcPoint(xyz p) 	  	{\r
		v.set(x.getValuef(), y.getValuef(), z.getValuef());\r
		switch(pChoose.Cur()) {\r
		case 0: vMir.set(mMax); vMir.subtract(p);\r
				return color(0,0,c1c(1 - min(v.distance(p), v.distance(vMir))*.5/cRad));	// balls\r
		case 1: return color(0,0,c1c(1 - v.distance(p)*.5/cRad));							// ball\r
		case 2: vMir.set(mMax.x/2,0,mMax.z/2);\r
				return color(0,0,c1c(1 - CalcCone(p,v,vMir) * max(.02,.45-pSize.Val())));  	// spot\r
		}\r
		return color(0,0,0);\r
	}\r
}\r
//----------------------------------------------------------------------------------------------------------------------------------\r
public class NDat {\r
	float 	xz, yz, zz, hue, sat, speed, angle, den;\r
	float	xoff,yoff,zoff;\r
	float	sinAngle, cosAngle;\r
	boolean isActive;\r
	NDat 		  () { isActive=false; }\r
	boolean	Active() { return isActive; }\r
	void	set 	(float _hue, float _sat, float _xz, float _yz, float _zz, float _den, float _speed, float _angle) {\r
		isActive = true;\r
		hue=_hue; sat=_sat; xz=_xz; yz=_yz; zz =_zz; den=_den; speed=_speed; angle=_angle;\r
		xoff = random(100e3); yoff = random(100e3); zoff = random(100e3);\r
	}\r
}\r
\r
public class Noise extends DPat\r
{\r
	int			CurAnim, iSymm;\r
	int 		XSym=1,YSym=2,RadSym=3;\r
	float 		zTime , zTheta=0, zSin, zCos, rtime, ttime, transAdd;\r
	DParam 		pSpeed , pDensity, pRotZ;\r
	Pick 		pChoose, pSymm;\r
	int			_ND = 4;\r
	NDat		N[] = new NDat[_ND];\r
\r
	Noise(GLucose glucose) {\r
		super(glucose);\r
		pRotZ	= addParam("RotZ"	 , .5 );	pSpeed		= addParam("Fast", .55);\r
		pDensity= addParam("Dens" 	 , .5);\r
		pSymm 	= addPick("Symmetry" , 0, 3, new String[] {"None", "X", "Y", "Radial"}	);\r
		pChoose = addPick("Animation", 6, 7, new String[] {"Drip", "Cloud", "Rain", "Fire", "Machine", "Spark","VWave", "Wave"}	);\r
		for (int i=0; i<_ND; i++) N[i] = new NDat();\r
	}\r
\r
	void StartPattern() { zTime = random(500); zTheta=0; rtime = 0; ttime = 0; transAdd=0; }\r
	void StartRun(double deltaMs) {\r
		zTime 	+= deltaMs*(pSpeed.Val()-.5)*.002	;\r
		zTheta	+= deltaMs*(pRotZ .Val()-.5)*.01	;\r
		rtime	+= deltaMs;\r
		iSymm	 = pSymm.Cur();\r
		transAdd = 1*(1 - constrain(rtime - ttime,0,1000)/1000);\r
		zSin	= sin(zTheta);\r
		zCos	= cos(zTheta);\r
\r
		if (pChoose.Cur() != CurAnim) {\r
			CurAnim = pChoose.Cur(); ttime = rtime;\r
			pRotZ		.reset();	zTheta 		= 0;\r
			pDensity	.reset();	pSpeed		.reset();	\r
			for (int i=0; i<_ND; i++) { N[i].isActive = false; }\r
			\r
			switch(CurAnim) {\r
			//                          hue sat xz  yz  zz  den mph angle\r
			case 0: N[0].set(0  ,0  ,75 ,75 ,150,45 ,3  ,0  ); pSharp.set(1 ); break; 	// drip\r
			case 1: N[0].set(0  ,0  ,100,100,200,45 ,3  ,180); pSharp.set(0 ); break;	// clouds\r
			case 2: N[0].set(0  ,0  ,2  ,400,2  ,20 ,3  ,0  ); pSharp.set(.5); break;	// rain\r
			case 3: N[0].set(40 ,1  ,100,100,200,10 ,1  ,180); \r
					N[1].set(0  ,1  ,100,100,200,10 ,5  ,180); pSharp.set(0 ); break;	// fire 1\r
			case 4: N[0].set(0  ,1  ,40 ,40 ,40 ,15 ,2.5,180);\r
					N[1].set(20 ,1  ,40 ,40 ,40 ,15 ,4  ,0  );\r
					N[2].set(40 ,1  ,40 ,40 ,40 ,15 ,2  ,90 );\r
					N[3].set(60 ,1  ,40 ,40 ,40 ,15 ,3  ,-90); pSharp.set(.5); break; // machine\r
			case 5: N[0].set(0  ,1  ,400,100,2  ,15 ,3  ,90 );\r
					N[1].set(20 ,1  ,400,100,2  ,15 ,2.5,0  );\r
					N[2].set(40 ,1  ,100,100,2  ,15 ,2  ,180);\r
					N[3].set(60 ,1  ,100,100,2  ,15 ,1.5,270); pSharp.set(.5); break; // spark\r
			}\r
\r
			DG.UpdateLights();\r
		}\r
		\r
		for (int i=0; i<_ND; i++) if (N[i].Active()) {\r
			N[i].sinAngle = sin(radians(N[i].angle));\r
			N[i].cosAngle = cos(radians(N[i].angle));\r
		}\r
	}\r
\r
	color CalcPoint(xyz P) {\r
		color c = 0;\r
		P.RotateZ(mCtr, zSin, zCos);\r
		\r
		if (CurAnim == 6 || CurAnim == 7) {\r
			P.setNorm();\r
			return color(0,0, 100 * (\r
							constrain(1-50*(1-pDensity.Val())*abs(P.y-sin(zTime*10  + P.x*(300))*.5 - .5),0,1) + \r
			(CurAnim == 7 ? constrain(1-50*(1-pDensity.Val())*abs(P.x-sin(zTime*10  + P.y*(300))*.5 - .5),0,1) : 0))\r
			);\r
		}			\r
			\r
		if (iSymm == XSym && P.x > mMax.x/2) P.x = mMax.x-P.x;\r
		if (iSymm == YSym && P.y > mMax.y/2) P.y = mMax.y-P.y;\r
\r
		for (int i=0;i<_ND; i++) if (N[i].Active()) {\r
			NDat  n     = N[i];\r
			float zx    = zTime * n.speed * n.sinAngle,\r
				  zy    = zTime * n.speed * n.cosAngle;\r
			\r
			float b     = (iSymm==RadSym ? noise(zTime*n.speed+n.xoff-Dist(P,mCtr)/n.xz)\r
										 : noise(P.x/n.xz+zx+n.xoff,P.y/n.yz+zy+n.yoff,P.z/n.zz+n.zoff))\r
							*1.8;\r
\r
			b += 	n.den/100 -.4 + pDensity.Val() -1;\r
			b +=	transAdd;\r
			c = 	blendColor(c,color(n.hue,100*n.sat,c1c(b)),ADD);\r
		}\r
		return c;\r
	}\r
}\r
//----------------------------------------------------------------------------------------------------------------------------------\r
public class Play extends DPat\r
{\r
	public class rAngle {\r
		float 	prvA, dstA, c;\r
		float 	prvR, dstR, r;		\r
		float 	_cos, _sin, x, y;\r
		float 	fixAngle	(float a, float b) { return a<b ?\r
										(abs(a-b) > abs(a+2*PI-b) ? a : a+2*PI) :\r
										(abs(a-b) > abs(a-2*PI-b) ? a : a-2*PI)	; }\r
		float	getX(float r)	{	return mCtr.x + _cos*r; }\r
		float	getY(float r)	{	return mCtr.y + _sin*r; }\r
		void	move() 			{	c 		= interp(t,prvA,dstA); \r
									r 		= interp(t,prvR,dstR);\r
									_cos 	= cos(c); 	_sin 	= sin(c);\r
	                               x 		= getX(r); 	y 		= getY(r);		}		\r
		void	set() 			{	prvA 	= dstA; 	dstA 	= random(2*PI); 	prvA = fixAngle(prvA, dstA);\r
									prvR 	= dstR; 	dstR 	= random(mCtr.y);									}\r
	}\r
\r
	int		nBeats	=  	0;\r
	DParam 	pAmp, pRadius, pBounce;\r
	DParam	pRotX, pRotY, pRotZ;\r
\r
	float 	t,amp,rad,bnc;\r
	\r
	ArrayList<rWave> waves = new ArrayList<rWave>(10);\r
	\r
	rAngle	a1 = new rAngle(), a2 = new rAngle(),\r
			a3 = new rAngle(), a4 = new rAngle();\r
	xyz		cPrev 	= new xyz(), cRand	= new xyz(),\r
			cMid 	= new xyz(), V 		= new xyz(),\r
			Theta 	= new xyz(), TSin	= new xyz(),\r
			TCos	= new xyz(), cMidNorm = new xyz(),\r
			Pn		= new xyz();\r
	float	LastBeat=3, LastMeasure=3;\r
	int		CurRandTempo = 1, CurRandTPat = 1;\r
\r
\r
	Pick	pTimePattern, pTempoMult, pShape, pForm;\r
	int		RandCube;\r
\r
	Play(GLucose glucose) {\r
		super(glucose);\r
		pRotX 		= addParam("RotX", .5);\r
		pRotY 		= addParam("RotY", .5);\r
		pRotZ 		= addParam("RotZ", .5);\r
	    pRadius		= addParam("Rad" 	, .1  	);\r
		pBounce		= addParam("Bnc"	, .2	);\r
	    pAmp  		= addParam("Amp" 	, .2	);\r
		pTempoMult 	= addPick ("TMult"	, 0 , 5		, new String[] {"1x", "2x", "4x", "8x", "16x", "Rand"	}	);\r
		pTimePattern= addPick ("TPat"	, 6 , 7		, new String[] {"Bounce", "Sin", "Roll", "Quant", "Accel", "Deccel", "Slide", "Rand"}	);\r		pShape	 	= addPick ("Shape"	, 2 , 15	, new String[] {"Line", "Tap", "V", "RandV",\r
																	"Pyramid", "Wings", "W2", "Clock",\r
																	"Triangle", "Quad", "Sphere", "Cone",\r
																	"Noise", "Wave", "?", "?"} 						);\r
		pForm	 	= addPick ("Form"	, 2 , 2		, new String[] {"Bar", "Volume", "Fade"}												);\r
	}\r
\r
	public class rWave {\r
		float v0, a0, x0, t,damp,a;\r
		boolean bDone=false;\r
		final float len=8;\r
		rWave(float _x0, float _a0, float _v0, float _damp) { x0=_x0*len; a0=_a0; v0=_v0; t=0; damp = _damp; }\r
		void move(double deltaMs) {\r
			t += deltaMs*.001;\r
			if (t>4) bDone=true;\r
		}\r
		float val(float _x) {\r
			_x*=len;\r
			float dist = t*v0 - abs(_x-x0);\r
			if (dist<0) { a=1; return 0; }\r
			a  = a0*exp(-dist*damp) * exp(-abs(_x-x0)/(.2*len)); // * max(0,1-t/dur)\r
			return	-a*sin(dist);\r
		}\r
	}\r
\r
	void StartRun(double deltaMs) {\r
		t 	= lx.tempo.rampf();\r
		amp = pAmp.Val();\r
		rad	= pRadius.getValuef();\r
		bnc	= pBounce.getValuef();		\r
\r
		Theta	.set(pRotX.Val()*PI*2, pRotY.Val()*PI*2, pRotZ.Val()*PI*2);\r
		TSin	.set(sin(Theta.x), sin(Theta.y), sin(Theta.z));\r
		TCos	.set(cos(Theta.x), cos(Theta.y), cos(Theta.z));\r
\r
		if (t<LastMeasure) {\r
			if (random(3) < 1) { CurRandTempo = int(random(4)); if (CurRandTempo == 3) CurRandTempo = int(random(4));	}\r
			if (random(3) < 1) { CurRandTPat  = pShape.Cur() > 6 ? 2+int(random(5)) : int(random(7)); 					}\r
		} LastMeasure = t;\r
			\r
		int nTempo = pTempoMult	 .Cur(); if (nTempo == 5) nTempo = CurRandTempo;\r
		int nTPat  = pTimePattern.Cur(); if (nTPat  == 7) nTPat  = CurRandTPat ;\r
\r
		switch (nTempo) {\r
			case 0: 	t = t;								break;\r
			case 1: 	t = (t*2. )%1.;						break;\r
			case 2: 	t = (t*4. )%1.;						break;\r
			case 3: 	t = (t*8. )%1.;						break;\r
			case 4: 	t = (t*16.)%1.;						break;\r
		}\r
\r
		int i=0; while (i< waves.size()) {\r
			rWave w = waves.get(i);\r
			w.move(deltaMs); if (w.bDone) waves.remove(i); else i++;\r
		}\r
\r
		if (t<LastBeat) {\r
			cPrev.set(cRand); cRand.setRand();\r
			a1.set(); a2.set(); a3.set(); a4.set();\r
			waves.add(new rWave(\r
						random(1),		// location\r
						bnc*10,			// bounciness\r
						7,				// velocity\r
						2*(1-amp)));	// dampiness\r
			if (waves.size() > 5) waves.remove(0);\r
		} LastBeat = t;\r
\r
		switch (nTPat) {\r
			case 0: 	t = sin(PI*t);							break;	// bounce\r
			case 1: 	t = norm(sin(2*PI*(t+PI/2)),-1,1);		break;	// sin\r
			case 2: 	t = t; 									break;	// roll\r
			case 3: 	t = constrain(int(t*8)/7.,0,1);			break;	// quant\r
			case 4: 	t = t*t*t;								break;	// accel\r
			case 5: 	t = sin(PI*t*.5);						break;	// deccel\r
			case 6: 	t = .5*(1-cos(PI*t));					break;	// slide\r
		}\r
		\r
		cMid.set		(cPrev);	cMid.interpolate	(t,cRand);\r
		cMidNorm.set	(cMid);		cMidNorm.setNorm();\r
		a1.move(); a2.move(); a3.move(); a4.move();\r
	}\r
\r
	color CalcPoint(xyz Px) {\r
		if (Theta.x != 0) Px.RotateX(mCtr, TSin.x, TCos.x);\r
		if (Theta.y != 0) Px.RotateY(mCtr, TSin.y, TCos.y);\r
		if (Theta.z != 0) Px.RotateZ(mCtr, TSin.z, TCos.z);\r
		\r
		Pn.set(Px); Pn.setNorm();\r
\r
		float mp	= min(Pn.x, Pn.z);\r
		float yt 	= map(t,0,1,.5-bnc/2,.5+bnc/2);\r
		float r;\r
\r
		switch (pShape.Cur()) {\r
		case 0:		V.set(Pn.x, yt							 	, Pn.z); 							break;	// bouncing line\r
		case 1:		V.set(Pn.x, map(cos(PI*t * Pn.x),-1,1,0,1)  , Pn.z); 							break;	// top tap\r
		case 2:		V.set(Pn.x, bnc*map(Pn.x<.5?Pn.x:1-Pn.x,0,.5 ,0,t-.5)+.5, Pn.z);				break;	// V shape\r
		case 3:		V.set(Pn.x, Pn.x < cMidNorm.x ? map(Pn.x,0,cMidNorm.x, .5,yt) :\r
												map(Pn.x,cMidNorm.x,1, yt,.5), Pn.z);	  			break;	//  Random V shape\r
\r
		case 4:		V.set(Pn.x,	.5*(Pn.x < cMidNorm.x ? 	map(Pn.x,0,cMidNorm.x, .5,yt) :\r
														map(Pn.x,cMidNorm.x,1, yt,.5)) +\r
							.5*(Pn.z < cMidNorm.z ? 	map(Pn.z,0,cMidNorm.z, .5,yt) :\r
														map(Pn.z,cMidNorm.z,1, yt,.5)), Pn.z); 		break;	//  Random Pyramid shape\r
													\r
		case 5:		V.set(Pn.x, bnc*map((Pn.x-.5)*(Pn.x-.5),0,.25,0,t-.5)+.5, Pn.z);				break;	// wings\r
		case 6:		V.set(Pn.x, bnc*map((mp  -.5)*(mp  -.5),0,.25,0,t-.5)+.5, Pn.z);				break;	// wings\r
\r
\r
\r
		case 7:		return color(0,0, min(\r
						distToSeg(Px.x, Px.y, a1.getX(70),a1.getY(70), mCtr.x, mCtr.y),\r
						distToSeg(Px.x, Px.y, a2.getX(40),a2.getY(40), mCtr.x, mCtr.y)) <rad*40?100:0); // clock\r
\r
		case 8:		r = amp*200 * map(bnc,0,1,1,sin(PI*t)); return color(0,0, min(\r
						distToSeg(Px.x, Px.y, a1.getX(r),a1.getY(r), a2.getX(r),a2.getY(r)),\r
						distToSeg(Px.x, Px.y, a2.getX(r),a2.getY(r), a3.getX(r),a3.getY(r)),\r
						distToSeg(Px.x, Px.y, a3.getX(r),a3.getY(r), a1.getX(r),a1.getY(r))				// triangle\r
						) <rad*40?100:0);\r
						\r
		case 9:		r = amp*200 * map(bnc,0,1,1,sin(PI*t)); return color(0,0, min(\r
						distToSeg(Px.x, Px.y, a1.getX(r),a1.getY(r), a2.getX(r),a2.getY(r)),\r
						distToSeg(Px.x, Px.y, a2.getX(r),a2.getY(r), a3.getX(r),a3.getY(r)),\r
						distToSeg(Px.x, Px.y, a3.getX(r),a3.getY(r), a4.getX(r),a4.getY(r)),\r
						distToSeg(Px.x, Px.y, a4.getX(r),a4.getY(r), a1.getX(r),a1.getY(r))				// quad\r
						) <rad*40?100:0); // shape\r
\r
						\r
		case 10:	r = map(bnc,0,1,a1.r,amp*200*sin(PI*t)); \r
					return color(0,0,c1c(.9+2*rad - dist(Px.x,Px.y,a1.getX(r),a1.getY(r))*.03) );		// sphere\r
\r
		case 11:	return color(0,0,c1c(1 - CalcCone(Px,cMid,mCtr) * 0.02 > .5?1:0));  				// cone\r
\r
		case 12:	return color(100 + noise(Pn.x,Pn.y,Pn.z + (NoiseMove+50000)/1000.)*200,\r
						85,c1c(Pn.y < noise(Pn.x + NoiseMove/2000.,Pn.z)*(1+amp)-amp/2.-.1 ? 1 : 0));	// noise\r
\r
		case 13:	float y=0; for (rWave w : waves) y += .5*w.val(Pn.x);\r
					V.set(Pn.x, .7+y, Pn.z);\r
					break;\r
\r
		default:	return color(0,0,0);\r
		}\r
\r
		switch (pForm.Cur()) {\r
			case 0:		return color(0,0,c1c(1 - V.distance(Pn)/rad > .5?1:0));\r
			case 1:		return color(0,0,c1c(Pn.y < V.y ?1:0));\r
			case 2:		return color(0,0,c1c(1 - V.distance(Pn)/rad));\r
\r
			default:	return color(0,0,c1c(Pn.y < V.y ?1:0));\r
		}\r
	}\r
}\r
//----------------------------------------------------------------------------------------------------------------------------------\r