«bufferdisplay» by redFrik

on 10 Feb'12 12:53 in graphic

works with both qt and cocoa. i get a steady 60fps on my machine. try lowering 'l= 1024' at the top if it's too heavy on your cpu.

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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
//redFrik - bufferdisplay
(
l= 1024;								//global window/buffer size in pixels/samples
s.latency= 0.05;
s.waitForBoot{
	
	//--variables
	var theta= 0;
	var fps= 60;
	var arr= Array.fill(l, 0);
	var cnt= 0;
	
	//--window setup
	var width= l, height= l;
	var w= Window("waveform", Rect(99, 99, width, height), false);
	var u= UserView(w, Rect(0, 0, width, height));
	var w2= width*0.5;
	var h2= height*0.5;
	
	//--buffer
	b= Buffer.alloc(s, l, 1);
	s.sync;
	
	//--interface
	~trails= 1;
	~speed= 0;
	~amp= 0.5;
	~version= 0;
	
	//--main loop
	u.drawFunc= {
		
		//uncomment framerate display in the two lines below to gain some speed
		Pen.color= Color.white;
		Pen.stringAtPoint(""++u.frameRate, Point(10, 10));
		
		
		//--
		b.getn(0, b.numFrames-1, {|data| arr= data});
		
		if(cnt==0, {
			Pen.fillColor= Color.black;	//erase first time
			Pen.fillRect(Rect(0, 0, width, height));
		});
		
		Pen.fillColor= Color.grey(0, ~trails);
		Pen.fillRect(u.bounds);			//manually clear
		Pen.strokeColor= Color.green;
		
		switch(~version,
			0, {									//line
				Pen.rotate(theta, w2, h2);
				Pen.translate(0, h2);
				arr.do{|y, x|
					var p= Point(x, y*(height*~amp));
					if(x==0, {Pen.moveTo(p)}, {Pen.lineTo(p)});
				};
				Pen.stroke;
			},
			1, {									//warp
				Pen.rotate(theta, w2, h2);
				Pen.translate(w2, h2);
				arr.do{|y, x|
					var p= Point(x*~amp, y*~amp).rotate(y*2pi);
					if(x==0, {Pen.moveTo(p)}, {Pen.lineTo(p)});
				};
				Pen.stroke;
			},
			2, {									//flower
				Pen.translate(w2, h2);
				Pen.moveTo(Point(arr[0], 0)*arr[0]);
				arr.do{|y, x|
					var p= Point(y, x)*y;
					var a= x%width/width*2pi+theta;
					Pen.lineTo(p.rotate(a));
				};
				Pen.stroke;
			}
		);
		theta= theta+~speed;
		cnt= cnt+1;
		
		
	};
	
	//--window management
	u.clearOnRefresh= false;			//do not erase - just draw on top of
	w.onClose= {
		b.free;
	};
	w.front;
	CmdPeriod.doOnce({if(w.isClosed.not, {w.close})});
	u.animate= true;
};
)


//some synth that writes into the buffer
v= {RecordBuf.ar(Saw.ar, b)}.play

//change these while the program is running
~trails= 0.2;
~speed= 0.1;
~speed= -0.05;
~trails= 0.01;
~amp= 0.02;
~speed= pi*0.25;
~amp= 0.2;
~version= 1;
~trails= 0.2;
~version= 2;
~version= 1;
~speed= 2pi*1.001;
~amp= 0.5;
v.free;

v= {RecordBuf.ar(SinOsc.ar(0, BPF.ar(VarSaw.ar(MouseX.kr(1, 1000, 1)), MouseY.kr(50, 5000, 1), 0.5)), b)}.play
~version= 1;
~trails= 0.01;
~speed= -0.03;
~speed= -0.05;
~trails= 1;
~amp= 0.5;
~speed= 2pi*0.25;
~trails= 0.1
~amp= 0.2;
~version= 2;
~version= 0;
~speed= 2pi*1.001;
~amp= 10;
~speed= 0;
v.free
raw 2713 chars (focus & ctrl+a+c to copy)
reception
comments
Andy Friend user 11 Feb'13 05:36

Just great, as usual