-
Notifications
You must be signed in to change notification settings - Fork 0
/
meantoneTemperament.pd
88 lines (88 loc) · 2.23 KB
/
meantoneTemperament.pd
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
#N canvas 554 23 763 723 12;
#X obj 71 204 text define -k meantone;
#A set 76.049 \; 193.157 \; 310.265 \; 5/4 \; 503.422 \; 579.471 \;
696.578 \; 25/16 \; 889.735 \; 1006.84 \; 1082.89 \; 2/1 \;;
#X msg 85 170 close;
#X obj 70 391 text get meantone;
#X floatatom 70 357 5 0 0 0 - - -;
#X msg 70 273 0;
#X msg 103 273 1;
#X msg 136 273 2;
#X msg 169 273 3;
#X obj 477 244 text size meantone;
#X obj 477 219 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 477 273 5 0 0 0 - - -;
#X obj 71 236 print whatever;
#X obj 477 416 text delete meantone;
#X msg 202 273 4;
#X msg 235 273 5;
#X msg 268 273 6;
#X msg 301 273 7;
#X msg 477 387 0;
#X msg 334 273 8;
#X msg 367 273 9;
#X msg 400 273 10;
#X msg 433 273 11;
#X obj 477 301 - 12;
#X floatatom 477 330 5 0 0 0 - - -;
#X obj 477 358 until;
#X obj 70 459 r cents;
#X obj 70 427 s cents;
#X obj 70 497 route float symbol;
#X floatatom 70 532 5 0 0 0 - - -;
#X obj 70 626 print cents;
#X obj 162 626 print numerator;
#X obj 229 597 print denominator;
#X obj 162 532 s2l /;
#X obj 162 565 unpack f f;
#X text 228 531 (from zexy library);
#X obj 477 189 delay 10;
#X text 302 52 Meantone Temperament for 12 Notes;
#X obj 477 481 text size meantone;
#X floatatom 477 510 5 0 0 0 - - -;
#X obj 477 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 71 102 openpanel;
#X obj 71 52 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 71 132 read -c \$1;
#X obj 139 170 t b;
#X connect 0 0 11 0;
#X connect 1 0 0 0;
#X connect 2 0 26 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 3 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 22 0;
#X connect 13 0 3 0;
#X connect 14 0 3 0;
#X connect 15 0 3 0;
#X connect 16 0 3 0;
#X connect 17 0 12 0;
#X connect 18 0 3 0;
#X connect 19 0 3 0;
#X connect 20 0 3 0;
#X connect 21 0 3 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 17 0;
#X connect 25 0 27 0;
#X connect 27 0 28 0;
#X connect 27 1 32 0;
#X connect 28 0 29 0;
#X connect 32 0 33 0;
#X connect 33 0 30 0;
#X connect 33 1 31 0;
#X connect 35 0 9 0;
#X connect 37 0 38 0;
#X connect 39 0 37 0;
#X connect 40 0 42 0;
#X connect 41 0 40 0;
#X connect 42 0 0 0;
#X connect 42 0 43 0;
#X connect 43 0 35 0;