unpunch.pd 81.4 KB
Newer Older
3001
#X connect 5 0 6 0;
3002
#X connect 6 0 12 0;
3003
#X connect 7 0 8 0;
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 14 0;
#X connect 11 0 9 1;
#X connect 11 0 7 1;
#X connect 11 0 5 1;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 18 1;
#X connect 17 0 19 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 0 0;
#X restore 271 569 pd clr.*;
#X obj 317 508 / 113;
#X obj 216 608 set \$0.note vel c, f 19;
#X obj 51 321 t a a;
#X obj 271 480 get \$0.note gid;
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
#N canvas 83 99 410 208 id->pointer 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 40 63 s \$0.convert.id->pointer.get;
#X obj 40 86 r \$0.convert.id->pointer;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
3036
3037
#X restore 171 353 pd id->pointer;
#N canvas 83 99 410 208 gid->gclr 0;
3038
3039
3040
3041
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
3042
3043
#X obj 40 63 s \$0.convert.gid->gclr.get;
#X obj 40 86 r \$0.convert.gid->gclr;
3044
3045
3046
3047
3048
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
3049
3050
3051
3052
3053
3054
#X restore 271 537 pd gid->gclr;
#X obj 6 100 t a a, f 38;
#X msg 6 123 \$1 \$2;
#N canvas 83 99 410 208 step|pitch->id 0;
#X obj 40 63 s \$0.convert.step|pitch->id.get;
#X obj 40 86 r \$0.convert.step|pitch->id;
3055
3056
3057
3058
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
#X connect 1 0 4 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 5 0;
#X restore 6 168 pd step|pitch->id;
#X obj 6 194 route -1;
#X obj 6 145 t a a;
#X obj 6 217 b;
#X obj 6 298 s error;
#X obj 6 240 list append;
#X msg 6 271 note change velocity: no such note (\$1 \$2);
#X msg 231 135 \$3;
#X text 258 135 velocity;
#X obj 171 376 route -1;
#X obj 216 478 f;
#X obj 231 400 t a a;
#X obj 216 435 t b p p, f 19;
3077
3078
#X connect 0 0 1 0;
#X connect 1 0 2 0;
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 13 0;
#X connect 6 0 8 1;
#X connect 7 0 6 1;
#X connect 9 0 3 0;
#X connect 9 1 11 0;
#X connect 10 0 12 0;
#X connect 11 0 24 0;
#X connect 12 0 6 0;
#X connect 13 0 14 0;
#X connect 13 1 22 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 16 1 9 0;
#X connect 17 0 15 0;
#X connect 17 1 20 1;
#X connect 18 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 19 0;
#X connect 22 0 3 1;
#X connect 22 0 26 0;
#X connect 24 1 27 0;
#X connect 25 0 8 0;
#X connect 26 0 25 1;
#X connect 26 1 7 0;
#X connect 27 0 25 0;
#X connect 27 1 10 0;
#X connect 27 2 8 2;
#X restore 19 307 pd note.change.velocity;
3110
#N canvas 202 202 384 665 note.change.gid 0;
3111
3112
3113
#X obj 6 8 r \$0.global.receive;
#X obj 6 31 route note;
#X obj 6 54 route change;
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
#X obj 6 77 route gid;
#N canvas 83 99 410 208 step|pitch->id 0;
#X obj 40 63 s \$0.convert.step|pitch->id.get;
#X obj 40 86 r \$0.convert.step|pitch->id;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X connect 1 0 4 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 5 0;
#X restore 6 175 pd step|pitch->id;
#X obj 6 198 route -1;
#X obj 6 100 t a a, f 35;
#X msg 6 128 \$1 \$2;
#X obj 6 224 b;
#X obj 6 305 s error;
#X obj 6 247 list append;
#X msg 6 278 note change gid: no such note (\$1 \$2);
#X obj 6 151 t a a;
#X msg 213 129 \$3;
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
#N canvas 320 203 446 363 clr.* 0;
#X obj 28 62 t a a a;
#X obj 28 112 div 100;
#X obj 78 113 mod 100;
#X obj 78 136 div 10;
#X obj 128 112 mod 10;
#X obj 28 165 *;
#X obj 28 188 int;
#X obj 78 165 *;
#X obj 78 188 int;
#X obj 128 165 *;
#X obj 128 188 int;
#X obj 230 103 inlet;
#X obj 28 212 min 9;
#X obj 78 212 min 9;
#X obj 128 212 min 9;
#X obj 28 235 * 100;
#X obj 78 235 * 10;
#X obj 128 235 * 1;
#X obj 28 262 +;
#X obj 28 285 +;
#X obj 28 311 outlet;
#X obj 28 24 inlet;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 0 2 4 0;
#X connect 1 0 5 0;
3164
#X connect 2 0 3 0;
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
#X connect 3 0 7 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 14 0;
#X connect 11 0 9 1;
#X connect 11 0 7 1;
#X connect 11 0 5 1;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 18 1;
#X connect 17 0 19 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 0 0;
3185
3186
#X restore 199 577 pd clr.*;
#X obj 227 511 / 113;
3187
3188
3189
3190
3191
3192
3193
#N canvas 83 99 410 208 id->pointer 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 40 63 s \$0.convert.id->pointer.get;
#X obj 40 86 r \$0.convert.id->pointer;
3194
3195
3196
3197
3198
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
3199
#X restore 127 366 pd id->pointer;
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
#N canvas 83 99 410 208 gid->gclr 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 40 63 s \$0.convert.gid->gclr.get;
#X obj 40 86 r \$0.convert.gid->gclr;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
#X restore 199 545 pd gid->gclr;
#X obj 127 389 route -1;
#X obj 172 491 f;
#X obj 172 448 t b p p, f 19;
#X obj 51 363 pack f f;
#X obj 51 325 t a a;
#X obj 51 390 s \$0.gid;
#X obj 227 483 get \$0.note vel;
#X obj 172 621 set \$0.note gid c, f 19;
#X obj 172 514 t a a;
3222
3223
#X connect 0 0 1 0;
#X connect 1 0 2 0;
3224
3225
3226
3227
3228
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 5 1 22 0;
3229
#X connect 6 0 7 0;
3230
#X connect 6 1 13 0;
3231
#X connect 7 0 12 0;
3232
3233
3234
3235
3236
3237
3238
3239
3240
#X connect 8 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 4 0;
#X connect 12 1 10 1;
#X connect 13 0 21 1;
#X connect 13 0 19 1;
#X connect 14 0 25 1;
#X connect 15 0 14 1;
3241
#X connect 16 0 18 0;
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
#X connect 17 0 14 0;
#X connect 18 1 20 0;
#X connect 19 0 26 0;
#X connect 20 0 19 0;
#X connect 20 1 24 0;
#X connect 20 2 25 2;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 22 1 16 0;
#X connect 24 0 15 0;
#X connect 26 0 25 0;
#X connect 26 1 17 0;
3254
#X restore 19 330 pd note.change.gid;
3255
#N canvas 842 143 401 476 inspector 0;
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
#X obj 42 89 t a a a a a a;
#X obj 117 113 tabread \$0.active;
#X obj 102 158 tabread \$0.step;
#X obj 87 205 tabread \$0.pitch;
#X obj 72 252 tabread \$0.duration;
#X obj 57 299 tabread \$0.velocity;
#X obj 42 349 tabread \$0.gid;
#X msg 42 372 gid \$1;
#X msg 57 322 velocity \$1;
#X msg 72 275 duration \$1;
#X msg 87 228 pitch \$1;
#X msg 117 136 active \$1;
#X obj 42 59 t a a, f 30;
#X obj 117 435 print NOTE;
#X floatatom 42 19 5 0 0 0 - - -, f 5;
#X msg 219 290 -- ID \$1 ------------;
#X msg 102 181 step \$1;
#X connect 0 0 6 0;
#X connect 0 1 5 0;
#X connect 0 2 4 0;
#X connect 0 3 3 0;
#X connect 0 4 2 0;
#X connect 0 5 1 0;
#X connect 1 0 11 0;
#X connect 2 0 16 0;
#X connect 3 0 10 0;
#X connect 4 0 9 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 13 0;
#X connect 8 0 13 0;
#X connect 9 0 13 0;
#X connect 10 0 13 0;
#X connect 11 0 13 0;
#X connect 12 0 0 0;
#X connect 12 1 15 0;
#X connect 14 0 12 0;
#X connect 15 0 13 0;
#X connect 16 0 13 0;
3295
#X restore 430 497 pd inspector;
Roman Haefeli's avatar
Roman Haefeli committed
3296
3297
3298
3299
#N canvas 0 99 393 172 errors 0;
#X obj 15 14 r error;
#X obj 15 37 print ERROR:;
#X connect 0 0 1 0;
3300
3301
3302
#X restore 350 497 pd errors;
#X obj 20 434 s \$0.global.receive.seq;
#X obj 20 387 t a a;
3303
3304
3305
3306
3307
3308
#X msg 206 69 \; \$1.stepsperpage 64 \; \$1.page 0 \; \$1.pitchrange
48 \; \$1.stepviswidth 15 \; \$1.stepvisheight 14 \; \$1.canvastopmargin
53 \; \$1.canvasleftmargin 30 \; \$1.stepkeycolor1 887 \; \$1.stepkeycolor2
777 \; \$1.griddivision 4 \; \$1.gridsubdivision 4 \; \$1.gidcolorlist
800 840 80 68 208 808 \; \$1.default.vel 64 \; \$1.default.gid 0 \;
\$1.default.dur 4 \; \$1.default.show 0 \; \$1.init bang \;;
3309
#X connect 0 0 31 0;
3310
#X connect 1 0 2 0;
3311
#X connect 2 0 58 0;
3312
#X connect 3 0 2 0;
3313
3314
3315
#X connect 4 0 31 0;
#X connect 7 0 31 0;
#X connect 9 0 31 0;
3316
#X connect 11 0 12 0;
3317
3318
3319
3320
3321
3322
#X connect 12 0 40 0;
#X connect 12 0 41 0;
#X connect 12 0 42 0;
#X connect 12 0 43 0;
#X connect 12 0 44 0;
#X connect 12 0 45 0;
3323
3324
3325
3326
3327
#X connect 13 0 14 0;
#X connect 13 1 9 0;
#X connect 13 2 4 0;
#X connect 13 3 7 0;
#X connect 13 4 0 0;
3328
3329
3330
#X connect 14 0 31 0;
#X connect 16 0 26 0;
#X connect 25 0 28 0;
3331
#X connect 27 0 57 0;
3332
3333
3334
3335
3336
3337
3338
3339
#X connect 29 0 25 0;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 36 0 38 0;
#X connect 36 1 35 0;
#X connect 37 0 39 0;
#X connect 37 1 13 0;
#X connect 46 0 13 0;
3340
3341
#X connect 57 0 56 0;
#X connect 57 1 17 0;