File: dial.pd

package info (click to toggle)
pd-lua 0.12.23%2Bds-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,912 kB
  • sloc: ansic: 3,733; lisp: 66; makefile: 64
file content (99 lines) | stat: -rw-r--r-- 2,762 bytes parent folder | download | duplicates (2)
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
#N canvas 543 350 734 300 12;
#X declare -lib pdlua;
#X obj 40 50 dial;
#X floatatom 40 10 5 0 0 0 - phase -, f 5;
#X obj 200 70 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X text 200 40 clock;
#X obj 200 94 metro 1000;
#X floatatom 200 152 5 0 0 0 - - -, f 5;
#X msg 150 210 0;
#X obj 200 260 s phase;
#X text 350 40 random speedometer;
#X obj 350 70 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 350 152 5 0 0 0 - - -, f 5;
#X obj 350 219 line;
#X obj 350 264 s phase;
#X msg 350 190 \$1 100;
#X obj 350 94 metro 100;
#X obj 20 12 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X floatatom 40 210 5 0 0 0 - - -, f 5;
#X obj 40 264 v phase;
#X obj 570 70 adc~;
#X obj 630 70 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 570 264 s phase;
#X text 570 40 dB meter;
#X obj 570 123 env~;
#X obj 570 99 *~ 0.5;
#X obj 570 186 expr ($f1-50)/100;
#X floatatom 570 152 5 0 0 0 - - -, f 5;
#X text 590 206 0..100 dB -> -0.5..+0.5 phase, f 16;
#X msg 630 94 \; pd dsp \$1;
#N canvas 767 395 479 405 colors-and-size 0;
#X text 120 70 black on white;
#X text 120 100 white on black;
#X text 120 230 orange;
#X text 20 20 fg = foreground color (hand and border) \, bg = background
color (face), f 40;
#X text 20 140 rgb colors;
#X msg 20 70 fg 1 \, bg 0;
#X msg 20 100 fg 0 \, bg 1;
#X text 120 300 teal;
#X text 120 330 orange;
#X obj 20 370 outlet;
#X msg 20 300 bg 0 128 128;
#X msg 20 170 fg 0 183 235;
#X text 120 170 cyan;
#X text 120 200 teal;
#X msg 20 200 fg 0 128 128;
#X text 120 270 cyan;
#X msg 20 270 bg 0 183 235;
#X text 190 200 foreground;
#X text 190 300 background;
#X msg 20 230 fg 255 165 0;
#X msg 20 330 bg 255 165 0;
#X floatatom 300 300 5 50 127 0 - - -, f 5;
#X msg 300 328 size \$1;
#X text 280 250 size of the dial -- this sets the object size, f 24
;
#X connect 5 0 9 0;
#X connect 6 0 9 0;
#X connect 10 0 9 0;
#X connect 11 0 9 0;
#X connect 14 0 9 0;
#X connect 16 0 9 0;
#X connect 19 0 9 0;
#X connect 20 0 9 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 90 10 pd colors-and-size;
#X text 230 10 <--- click to open;
#X obj 200 123 expr phase + 1/60.;
#X obj 350 123 expr random(-100 \, 100)/300.;
#X obj 570 10 declare -lib pdlua;
#X connect 0 0 16 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 4 0 30 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 9 0 14 0;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 13 0 11 0;
#X connect 14 0 31 0;
#X connect 15 0 0 0;
#X connect 16 0 17 0;
#X connect 18 0 23 0;
#X connect 18 1 23 0;
#X connect 19 0 27 0;
#X connect 22 0 25 0;
#X connect 23 0 22 0;
#X connect 24 0 20 0;
#X connect 25 0 24 0;
#X connect 28 0 0 0;
#X connect 30 0 5 0;
#X connect 31 0 10 0;