summaryrefslogtreecommitdiff
path: root/js/AutoHarmonograph.js
blob: b4158dba0c89b09dc78f1b3954e39e59cf126193 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
var t = 0;
var pp;
var Ax, Ay, fx, fy, dx, dy, basepx, basepy;
var AMAX = 1000;
var DMIN = 0.0001;
var DMAX = 0.0003;
var FMAX = 0.1;
var PMAX = 6.28;
var ADIF = AMAX / 10;
var DDIF = DMAX / 10;
var FDIF = FMAX / 10;
var PDIF = PMAX / 10;


function sinExp(A, t, f, p, d)
{
	return A*sin(t*f + p) * exp(-d*t);
}

var Pendulum = function()
{
	this.xy = floor(random(2));
	if (this.xy === 0)
		this.p = random(-PDIF, PDIF)+basepx;
	else
		this.p = random(-PDIF, PDIF)+basepy;
		
	pendulums.push(this);
}

Pendulum.prototype.swing = function()
{
	if (this.xy === 0)
	{
		var x = sinExp(Ay, t, fx, this.p, dx);
		var y = 0;
	}
	else
	{
		var x = 0;
		var y = sinExp(Ax, t, fy, this.p, dy);
	}
	return [x, y];
}

var pendulums = [];


function calculate()
{
	var xsum = 0;
	var ysum = 0;
	var sw;
	for (var i = 0; i < pendulums.length; i++)
	{
		sw = pendulums[i].swing();
		xsum += sw[0];
		ysum += sw[1];
	}
	return [xsum/pendulums.length, ysum/pendulums.length];
}


function setup()
{
	document.getElementById("npendulums").value = 10;
	document.getElementById("DMAX").value = DMAX;
}

function start()
{
	
	createCanvas(800, 800);
	frameRate(1000);
	DMAX = document.getElementById("DMAX").value;
	basepx = random(PMAX);
	basepy = random(PMAX);
	Ax = random(AMAX);
	Ay = random(AMAX);
	fx = random(FMAX);
	fy = random(FMAX);
	dx = random(DMIN, DMAX);
	dy = random(DMIN, DMAX);
	
	pendulums = [];
	
	for (var i = 0; i < document.getElementById("npendulums").value; i++)
		new Pendulum();
	
}

function saveCanvas()
{
	save("AutoHarmonograph.png");
}

function draw()
{
	translate(width/2, height/2);
	curr = calculate();
	if (t !== 0)
		line(pp[0], pp[1], curr[0], curr[1]);
	
	
	t++;
	pp = curr;
}