1<CsoundSynthesizer> 2<CsLicense> 3Copyright (C) 2013 by Michael Gogins. 4All rights reserved. 5</CsLicense> 6<CsOptions> 7-odac -m3 -d 8</CsOptions> 9<CsInstruments> 10sr = 48000 11ksmps = 100 12nchnls = 2 130dbfs = 5000000 14 15;#define FLTK #fltk# 16;#define CSOUNDQT0 #csoundqt# 17 18gkslider1 init 0 19gkslider2 init 0 20gkslider3 init 0 21gkslider4 init 0 22gkslider5 init 0 23gkbutt1 init 0 24gkbutt2 init 0 25gkbutt3 init 0 26gkbutt4 init 0 27gkbutt5 init 0 28gktrackpadx init 0 29gktrackpady init 0 30gkaccelerometerx init 0 31gkaccelerometery init 0 32gkaccelerometerz init 0 33 34#ifdef FLTK 35FLpanel "Csound 6", 510, 580, 150, 150 36gkslider1, ihslider1 FLslider "slider1", 0, 1, 0, 23, -1, 500, 20, 5, 5 37FLsetVal_i 1, ihslider1 38gkslider2, ihslider2 FLslider "slider2", 0, 1, 0, 23, -1, 500, 20, 5, 55 39FLsetVal_i 0.5, ihslider2 40gkslider3, ihslider3 FLslider "slider3", 0, 1, 0, 23, -1, 500, 20, 5, 105 41FLsetVal_i (1-0.5)/(8-0.5), ihslider3 42gkslider4, ihslider4 FLslider "slider4", 0, 1, 0, 23, -1, 500, 20, 5, 155 43FLsetVal_i 0, ihslider4 44gkslider5, ihslider5 FLslider "slider5", 0, 1, 0, 23, -1, 500, 20, 5, 205 45FLsetVal_i 0, ihslider5 46gktrackpadx, gktrackpady, ihtrackpadx, ihtrackpady FLjoy "trackpad.x/trackpad.y", 0, 1, 0, 1, 0, 0, -1, -1, 500, 250, 5, 250 47FLsetVal_i 0.5, ihtrackpadx 48FLsetVal_i (0.75-0.5)/(1-0.5), ihtrackpady 49gkbutt1, ihbutt1 FLbutton "butt1", 1, 0, 21, 100, 40, 5, 530 , -1 50gkbutt2, ihbutt2 FLbutton "butt2", 1, 0, 21, 100, 40, 105, 530 , -1 51gkbutt3, ihbutt3 FLbutton "butt3", 1, 0, 21, 100, 40, 205, 530 , -1 52gkbutt4, ihbutt4 FLbutton "butt4", 1, 0, 21, 100, 40, 305, 530 , -1 53gkbutt5, ihbutt5 FLbutton "butt5", 1, 0, 21, 100, 40, 405, 530 , -1 54FLrun 55#endif 56 57connect "Bower", "outleft", "ReverbLeft", "inleft" 58connect "Bower", "outright", "ReverbRight", "inright" 59connect "Phaser", "outleft", "ReverbLeft", "inleft" 60connect "Phaser", "outright", "ReverbRight", "inright" 61connect "Droner", "outleft", "ReverbLeft", "inleft" 62connect "Droner", "outright", "ReverbRight", "inright" 63connect "Sweeper", "outleft", "ReverbLeft", "inleft" 64connect "Sweeper", "outright", "ReverbRight", "inright" 65connect "Buzzer", "outleft", "ReverbLeft", "inleft" 66connect "Buzzer", "outright", "ReverbRight", "inright" 67connect "Blower", "outleft", "ReverbLeft", "inleft" 68connect "Blower", "outright", "ReverbRight", "inright" 69connect "Shiner", "outleft", "ReverbLeft", "inleft" 70connect "Shiner", "outright", "ReverbRight", "inright" 71; connect "ReverbLeft", "outleft", "ParametricEQ", "inleft" 72; connect "ReverbRight", "outright", "ParametricEQ", "inright" 73; connect "ParametricEQ", "outleft", "MasterOutput", "inleft" 74; connect "ParametricEQ", "outright", "MasterOutput", "inright" 75connect "ReverbLeft", "outleft", "MasterOutput", "inleft" 76connect "ReverbRight", "outright", "MasterOutput", "inright" 77 78#ifndef FLTK 79alwayson "Controls" 80#endif 81alwayson "VariablesForControls" 82alwayson "ReverbLeft" 83alwayson "ReverbRight" 84alwayson "ParametricEQ" 85alwayson "MasterOutput" 86 87opcode ratio2midinn, i, iii 88ifundamental, inumerator, idenominator xin 89ihertz = ifundamental * inumerator / idenominator 90; print ihertz 91; m = 12*log2(fm/440 Hz) + 69 92ilog2 = log(2) 93imidinn = 12 * (log(ihertz / 440) / ilog2) + 69 94; print imidinn 95xout imidinn 96endop 97 98instr 101 99iinsno = p1 100istart = p2 101iduration = p3 102ifundamental = p4 103inumerator = p5 104idenominator = p6 105ivelocity = p7 106ipan = p8 107iratio = inumerator / idenominator 108ihertz = ifundamental * iratio 109ikey ratio2midinn ifundamental, inumerator, idenominator 110event_i "i", "Droner", 0, iduration, ikey, ivelocity, 0, ipan 111endin 112 113instr 102 114iinsno = p1 115istart = p2 116iduration = p3 117ifundamental = p4 118inumerator = p5 119idenominator = p6 120ivelocity = p7 121ipan = p8 122iratio = inumerator / idenominator 123ihertz = ifundamental * iratio 124ikey ratio2midinn ifundamental, inumerator, idenominator 125event_i "i", "Phaser", 0, iduration, ikey, ivelocity, 0, ipan 126endin 127 128instr 103 129iinsno = p1 130istart = p2 131iduration = p3 132ifundamental = p4 133inumerator = p5 134idenominator = p6 135ivelocity = p7 136ipan = p8 137iratio = inumerator / idenominator 138ihertz = ifundamental * iratio 139ikey ratio2midinn ifundamental, inumerator, idenominator 140event_i "i", "Droner", 0, iduration, ikey, ivelocity, 0, ipan 141endin 142 143instr 104 144iinsno = p1 145istart = p2 146iduration = p3 147ifundamental = p4 148inumerator = p5 149idenominator = p6 150ivelocity = p7 151ipan = p8 152iratio = inumerator / idenominator 153ihertz = ifundamental * iratio 154ikey ratio2midinn ifundamental, inumerator, idenominator 155event_i "i", "Blower", 0, iduration, ikey, ivelocity, 0, ipan 156endin 157 158gioverlap = 20 159 160gkDistortFactor init 0.4 161gkFirstHarmonic init 0.4 162instr Droner 163iinsno = p1 164istart = p2 165iduration = p3 166ikey = p4 167ivelocity = p5 168iphase = p6 169ipan = p7 170print iinsno, istart, iduration, ikey, ivelocity, iphase, ipan 171k1 init .5 172k2 init .05 173k3 init .1 174k4 init .2 175k5 init .1 176k6 init .05 177k7 init .1 178k8 init 0 179k9 init 0 180k10 init 0 181k3 = gkslider1 182k4 = gkslider2 183k5 = gkslider3 184k6 = gkslider4 185k7 = gkslider5 186kwaveform init 0 187iamp = ampdb(ivelocity) 188iattack = gioverlap 189idecay = gioverlap 190isustain = p3 - gioverlap 191p3 = iattack + isustain + idecay 192kenvelope transeg 0.0, iattack / 2.0, 1.5, iamp / 2.0, iattack / 2.0, -1.5, iamp, isustain, 0.0, iamp, idecay / 2.0, 1.5, iamp / 2.0, idecay / 2.0, -1.5, 0 193ihertz = cpsmidinn(ikey) 194print ihertz 195isine ftgenonce 0, 0, 65536, 10, 1, 0, .02 196if kwaveform == 0 then 197asignal poscil3 1, ihertz, isine 198endif 199if kwaveform == 1 then 200asignal vco2 1, ihertz, 8 ; integrated saw 201endif 202if kwaveform == 2 then 203asignal vco2 1, ihertz, 12 ; triangle 204endif 205asignal chebyshevpoly asignal, 0, k1, k2, k3, k4, k5, k6, k7, k8, k9, k10 206asignal = asignal * kenvelope * 10 207aleft, aright pan2 asignal, ipan 208adamping linseg 0, 0.03, 1, p3 - 0.1, 1, 0.07, 0 209aleft = adamping * aleft 210aright = adamping * aright 211outleta "outleft", aleft 212outleta "outright", aright 213endin 214 215instr Bower 216iinsno = p1 217istart = p2 218iduration = p3 219ikey = p4 220ivelocity = p5 221iphase = p6 222ipan = p7 223print iinsno, istart, iduration, ikey, ivelocity, iphase, ipan 224iamp = ampdb(ivelocity) * 200 225iattack = gioverlap 226idecay = gioverlap 227isustain = p3 - gioverlap 228p3 = iattack + isustain + idecay 229kenvelope transeg 0.0, iattack / 2.0, 1.5, iamp / 2.0, iattack / 2.0, -1.5, iamp, isustain, 0.0, iamp, idecay / 2.0, 1.5, iamp / 2.0, idecay / 2.0, -1.5, 0 230ihertz = cpsmidinn(ikey) 231kamp = kenvelope 232kfreq = ihertz 233kpres = 0.25 234; krat rspline 0.006,0.988,0.1,0.4 235krat rspline 0.006,0.988,1,4 236kvibf = 4.5 237kvibamp = 0 238iminfreq = 20 239isine ftgenonce 0,0,65536,10,1 240aSig wgbow kamp,kfreq,kpres,krat,kvibf,kvibamp,isine,iminfreq 241;aSig butlp aSig,2000 242;aSig pareq aSig,80,6,0.707 243aleft, aright pan2 aSig / 7, ipan 244adamping linseg 0, 0.03, 1, p3 - 0.1, 1, 0.07, 0 245aleft = adamping * aleft 246aright = adamping * aright 247outleta "outleft", aleft 248outleta "outright", aright 249endin 250 251gkratio1 = 1 252gkratio2 = 1/3 253gkindex1 = 1 254gkindex2 = 0.0125 255instr Phaser 256iinsno = p1 257istart = p2 258iduration = p3 259ikey = p4 260ivelocity = p5 261iphase = p6 262ipan = p7 263print iinsno, istart, iduration, ikey, ivelocity, iphase, ipan 264iamp = ampdb(ivelocity) * 12 265iattack = gioverlap 266idecay = gioverlap 267isustain = p3 - gioverlap 268p3 = iattack + isustain + idecay 269kenvelope transeg 0.0, iattack / 2.0, 1.5, iamp / 2.0, iattack / 2.0, -1.5, iamp, isustain, 0.0, iamp, idecay / 2.0, 1.5, iamp / 2.0, idecay / 2.0, -1.5, 0 270ihertz = cpsmidinn(ikey) 271isine ftgenonce 0,0,65536,10,1 272khertz = ihertz 273ifunction1 = isine 274ifunction2 = isine 275a1,a2 crosspm gkratio1, gkratio2, gkindex1, gkindex2, khertz, ifunction1, ifunction2 276aleft, aright pan2 a1+a2, ipan 277adamping linseg 0, 0.03, 1, p3 - 0.1, 1, 0.07, 0 278aleft = adamping * aleft * kenvelope 279aright = adamping * aright * kenvelope 280outleta "outleft", aleft 281outleta "outright", aright 282endin 283 284gkbritel init 0 285gkbriteh init 2.9 286gkbritels init .2 / 3 287gkbritehs init 2.5 / 2 288instr Sweeper 289iinsno = p1 290istart = p2 291iduration = p3 292ikey = p4 293ivelocity = p5 294iphase = p6 295ipan = p7 296print iinsno, istart, iduration, ikey, ivelocity, iphase, ipan 297iamp = ampdb(ivelocity) 298gisine ftgenonce 0, 0, 65536, 10, 1 299gioctfn ftgenonce 0, 0, 65536, -19, 1, 0.5, 270, 0.5 300iattack = gioverlap 301idecay = gioverlap 302isustain = p3 - gioverlap 303p3 = iattack + isustain + idecay 304kenvelope transeg 0.0, iattack / 2.0, 1.5, iamp / 2.0, iattack / 2.0, -1.5, iamp, isustain, 0.0, iamp, idecay / 2.0, 1.5, iamp / 2.0, idecay / 2.0, -1.5, 0 305ihertz = cpsmidinn(ikey) 306icps = ihertz 307kamp expseg 0.001,0.02,0.2,p3-0.01,0.001 308ktonemoddep jspline 0.01,0.05,0.2 309ktonemodrte jspline 6,0.1,0.2 310ktone poscil3 ktonemoddep, ktonemodrte, gisine 311kbrite rspline gkbritel, gkbriteh, gkbritels, gkbritehs 312ibasfreq init icps 313ioctcnt init 3 314iphs init 0 315;a1 hsboscil kamp, ktone, kbrite, ibasfreq, gisine, gioctfn, ioctcnt, iphs 316a1 hsboscil kenvelope, ktone, kbrite, ibasfreq, gisine, gioctfn, ioctcnt, iphs 317amod poscil3 0.25, ibasfreq*(1/3), gisine 318arm = a1*amod 319kmix expseg 0.001, 0.01, rnd(1), rnd(3)+0.3, 0.001 320kmix=.25 321a1 ntrpol a1, arm, kmix 322;a1 pareq a1/10, 400, 15, .707 323;a1 tone a1, 500 324kpanrte jspline 5, 0.05, 0.1 325kpandep jspline 0.9, 0.2, 0.4 326kpan poscil3 kpandep, kpanrte, gisine 327a1,a2 pan2 a1, kpan 328a1 delay a1, rnd(0.1) 329a2 delay a2, rnd(0.11) 330kenv linsegr 1, 1, 0 331kenv = kenvelope 332aleft = a1*kenv*.02 333aright = a2*kenv*.02 334adamping linseg 0, 0.03, 1, p3 - 0.1, 1, 0.07, 0 335aleft = adamping * aleft 336aright = adamping * aright 337outleta "outleft", aleft 338outleta "outright", aright 339endin 340 341instr Buzzer 342iinsno = p1 343istart = p2 344iduration = p3 345ikey = p4 346ivelocity = p5 347iphase = p6 348ipan = p7 349print iinsno, istart, iduration, ikey, ivelocity, iphase, ipan 350iamp = ampdb(ivelocity) * 4 351iattack = gioverlap 352idecay = gioverlap 353isustain = p3 - gioverlap 354p3 = iattack + isustain + idecay 355kenvelope transeg 0.0, iattack / 2.0, 1.5, iamp / 2.0, iattack / 2.0, -1.5, iamp, isustain, 0.0, iamp, idecay / 2.0, 1.5, iamp / 2.0, idecay / 2.0, -1.5, 0 356ihertz = cpsmidinn(ikey) 357;asignal gbuzz kenvelope, ihertz, 3, gkFirstHarmonic, gkDistortFactor, gisine 358isine ftgenonce 0, 0, 65536, 10, 1 359gkHarmonics = gkslider1 * 20 360asignal buzz kenvelope, ihertz, gkHarmonics, isine 361asignal = asignal * 3 362;asignal vco2 kenvelope, ihertz, 12 363;asignal poscil3 kenvelope, ihertz, giharmonics 364;asignal distort asignal, gkDistortFactor * .4, giwaveshaping 365aleft, aright pan2 asignal, ipan 366adamping linseg 0, 0.03, 1, p3 - 0.1, 1, 0.07, 0 367aleft = adamping * aleft 368aright = adamping * aright 369outleta "outleft", aleft 370outleta "outright", aright 371endin 372 373instr Shiner 374iinsno = p1 375istart = p2 376iduration = p3 377ikey = p4 378ivelocity = p5 379iphase = p6 380ipan = p7 381print iinsno, istart, iduration, ikey, ivelocity, iphase, ipan 382iamp = ampdb(ivelocity) * 4 383iattack = gioverlap 384idecay = gioverlap 385isustain = p3 - gioverlap 386p3 = iattack + isustain + idecay 387kenvelope transeg 0.0, iattack / 2.0, 1.5, iamp / 2.0, iattack / 2.0, -1.5, iamp, isustain, 0.0, iamp, idecay / 2.0, 1.5, iamp / 2.0, idecay / 2.0, -1.5, 0 388ihertz = cpsmidinn(ikey) 389;asignal gbuzz kenvelope, ihertz, 3, gkFirstHarmonic, gkDistortFactor, gisine 390gkHarmonics = gkslider1 * 20 391;asignal buzz kenvelope, ihertz, gkHarmonics, gisine 392;asignal = asignal 393asignal vco2 kenvelope * 4, ihertz, 12 394;asignal poscil3 kenvelope, ihertz, giharmonics 395;asignal distort asignal, gkDistortFactor * .4, giwaveshaping 396aleft, aright pan2 asignal, ipan 397adamping linseg 0, 0.03, 1, p3 - 0.1, 1, 0.07, 0 398aleft = adamping * aleft 399aright = adamping * aright 400outleta "outleft", aleft 401outleta "outright", aright 402endin 403 404gkgrainDensity init 150 405gkgrainDuration init 0.2 406gkgrainAmplitudeRange init 100 407gkgrainFrequencyRange init .033 408instr Blower 409 ////////////////////////////////////////////// 410 // Original by Hans Mikelson. 411 // Adapted by Michael Gogins. 412 ////////////////////////////////////////////// 413 pset 0, 0, 3600 414i_instrument = p1 415i_time = p2 416i_duration = p3 417i_midikey = p4 418i_midivelocity = p5 419i_phase = p6 420i_pan = p6 421i_depth = p8 422i_height = p9 423i_pitchclassset = p10 424i_homogeneity = p11 425ifrequency = cpsmidinn(i_midikey) 426iamplitude = ampdb(i_midivelocity) / 200 427 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 428 ; f1 0 65536 1 "hahaha.aif" 0 4 0 429 ; f2 0 1024 7 0 224 1 800 0 430 ; f3 0 8192 7 1 8192 -1 431 ; f4 0 1024 7 0 512 1 512 0 432 ; f5 0 1024 10 1 .3 .1 0 .2 .02 0 .1 .04 433 ; f6 0 1024 10 1 0 .5 0 .33 0 .25 0 .2 0 .167 434 ; a0 14 50 435 ; p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 436 ; Start Dur Amp Freq GrTab WinTab FqcRng Dens Fade 437 ; i1 0.0 6.5 700 9.00 5 4 .210 200 1.8 438 ; i1 3.2 3.5 800 7.08 . 4 .042 100 0.8 439 ; i1 5.1 5.2 600 7.10 . 4 .0320 100 0.9 440 ; i1 7.2 6.6 900 8.03 . 4 .021 150 1.6 441 ; i1 21.3 4.5 1000 9.00 . 4 .031 150 1.2 442 ; i1 26.5 13.5 1100 6.09 . 4 .121 150 1.5 443 ; i1 30.7 9.3 900 8.05 . 4 .014 150 2.5 444 ; i1 34.2 8.8 700 10.02 . 4 .14 150 1.6 445igrtab ftgenonce 0, 0, 65536, 10, 1, .3, .1, 0, .2, .02, 0, .1, .04 446iwintab ftgenonce 0, 0, 65536, 10, 1, 0, .5, 0, .33, 0, .25, 0, .2, 0, .167 447iHz = ifrequency 448ip4 = iamplitude 449ip5 = iHz 450ip6 = igrtab 451ip7 = iwintab 452ip8 = 0.033 453ip8 = .002 454ip9 = 150 455ip9 = 100 456ip10 = 1.6 457ip10 = 3 458idur = p3 459iamp = iamplitude ; p4 460ifqc = iHz ; cpspch(p5) 461igrtab = ip6 462iwintab = ip7 463ifrng = ip8 464idens = ip9 465ifade = ip10 466igdur = 0.2 467iattack = gioverlap 468idecay = gioverlap 469isustain = p3 - gioverlap 470p3 = iattack + isustain + idecay 471kenvelope transeg 0.0, iattack / 2.0, 1.5, iamp / 2.0, iattack / 2.0, -1.5, iamp, isustain, 0.0, iamp, idecay / 2.0, 1.5, iamp / 2.0, idecay / 2.0, -1.5, 0 472; kamp linseg 0, ifade, 1, idur - 2 * ifade, 1, ifade, 0 473kamp = kenvelope 474; Amp Fqc Dense AmpOff PitchOff GrDur GrTable WinTable MaxGrDur 475aoutl grain ip4, ifqc, gkgrainDensity, gkgrainAmplitudeRange, ifqc * gkgrainFrequencyRange, gkgrainDuration, igrtab, iwintab, 5 476aoutr grain ip4, ifqc, gkgrainDensity, gkgrainAmplitudeRange, ifqc * gkgrainFrequencyRange, gkgrainDuration, igrtab, iwintab, 5 477aleft = aoutl * kamp * iamplitude 478aright = aoutr * kamp * iamplitude 479adamping linseg 0, 0.03, 1, p3 - 0.1, 1, 0.07, 0 480aleft = adamping * aleft 481aright = adamping * aright 482outleta "outleft", aleft 483outleta "outright", aright 484prints "instr %4d t %9.4f d %9.4f k %9.4f v %9.4f p %9.4f\n", p1, p2, p3, p4, p5, p7 485endin 486 487gkReverbFeedback init 0.975 488gkDelayModulation init 0.875 489 490 491#ifdef CSOUNDQT 492 493instr ReverbLeft 494; p4 = gain of reverb. Adjust empirically 495; for desired reverb time. .6 gives 496; a good small "live" room sound, .8 497; a small hall, .9 a large hall, 498; .99 an enormous stone cavern. 499 500; p5 = amount of random pitch modulation 501; for the delay lines. 1 is the "normal" 502; amount, but this may be too high for 503; held pitches such as piano tones. 504; Adjust to taste. 505 506; p6 = cutoff frequency of lowpass filters 507; in feedback loops of delay lines, 508; in Hz. Lower cutoff frequencies results 509; in a sound with more high-frequency 510; damping. 511 512; 8 delay line FDN reverb, with feedback matrix based upon 513; physical modeling scattering junction of 8 lossless waveguides 514; of equal characteristic impedance. Based on Julius O. Smith III, 515; "A New Approach to Digital Reverberation using Closed Waveguide 516; Networks," Proceedings of the International Computer Music 517; Conference 1985, p. 47-53 (also available as a seperate 518; publication from CCRMA), as well as some more recent papers by 519; Smith and others. 520; Coded by Sean Costello, October 1999 521itone = 16000 522asignal inleta "inleft" 523afilt1 init 0 524afilt2 init 0 525afilt3 init 0 526afilt4 init 0 527afilt5 init 0 528afilt6 init 0 529afilt7 init 0 530afilt8 init 0 531idel1 = (2473.000/sr) 532idel2 = (2767.000/sr) 533idel3 = (3217.000/sr) 534idel4 = (3557.000/sr) 535idel5 = (3907.000/sr) 536idel6 = (4127.000/sr) 537idel7 = (2143.000/sr) 538idel8 = (1933.000/sr) 539; k1-k8 are used to add random pitch modulation to the 540; delay lines. Helps eliminate metallic overtones 541; in the reverb sound. 542k1 randi .001, 3.1, .06 543k2 randi .0011, 3.5, .9 544k3 randi .0017, 1.11, .7 545k4 randi .0006, 3.973, .3 546k5 randi .001, 2.341, .63 547k6 randi .0011, 1.897, .7 548k7 randi .0017, 0.891, .9 549k8 randi .0006, 3.221, .44 550; apj is used to calculate "resultant junction pressure" for 551; the scattering junction of 8 lossless waveguides 552.; of equal characteristic impedance. If you wish to 553; add more delay lines, simply add them to the following 554; equation, and replace the .25 by 2/N, where N is the 555; number of delay lines. 556apj = .25 * (afilt1 + afilt2 + afilt3 + afilt4 + afilt5 + afilt6 + afilt7 + afilt8) 557adum1 delayr 1 558adel1 deltapi idel1 + k1 * gkDelayModulation 559 delayw asignal + apj - afilt1 560adum2 delayr 1 561adel2 deltapi idel2 + k2 * gkDelayModulation 562 delayw asignal + apj - afilt2 563adum3 delayr 1 564adel3 deltapi idel3 + k3 * gkDelayModulation 565 delayw asignal + apj - afilt3 566adum4 delayr 1 567adel4 deltapi idel4 + k4 * gkDelayModulation 568 delayw asignal + apj - afilt4 569adum5 delayr 1 570adel5 deltapi idel5 + k5 * gkDelayModulation 571 delayw asignal + apj - afilt5 572adum6 delayr 1 573adel6 deltapi idel6 + k6 * gkDelayModulation 574 delayw asignal + apj - afilt6 575adum7 delayr 1 576adel7 deltapi idel7 + k7 * gkDelayModulation 577 delayw asignal + apj - afilt7 578adum8 delayr 1 579adel8 deltapi idel8 + k8 * gkDelayModulation 580 delayw asignal + apj - afilt8 581; 1st order lowpass filters in feedback 582; loops of delay lines. 583afilt1 tone adel1 * gkReverbFeedback, itone 584afilt2 tone adel2 * gkReverbFeedback, itone 585afilt3 tone adel3 * gkReverbFeedback, itone 586afilt4 tone adel4 * gkReverbFeedback, itone 587afilt5 tone adel5 * gkReverbFeedback, itone 588afilt6 tone adel6 * gkReverbFeedback, itone 589afilt7 tone adel7 * gkReverbFeedback, itone 590afilt8 tone adel8 * gkReverbFeedback, itone 591; The outputs of the delay lines are summed 592; and sent to the stereo outputs. This could 593; easily be modified for a 4 or 8-channel 594; sound system. 595aout1 = (afilt1 + afilt3 + afilt5 + afilt7) 596aout2 = (afilt2 + afilt4 + afilt6 + afilt8) 597aleft = aout1 + aout2 598; To the master output. 599outleta "outleft", aleft 600endin 601 602instr ReverbRight 603; p4 = gain of reverb. Adjust empirically 604; for desired reverb time. .6 gives 605; a good small "live" room sound, .8 606; a small hall, .9 a large hall, 607; .99 an enormous stone cavern. 608 609; p5 = amount of random pitch modulation 610; for the delay lines. 1 is the "normal" 611; amount, but this may be too high for 612; held pitches such as piano tones. 613; Adjust to taste. 614 615; p6 = cutoff frequency of lowpass filters 616; in feedback loops of delay lines, 617; in Hz. Lower cutoff frequencies results 618; in a sound with more high-frequency 619; damping. 620 621; 8 delay line FDN reverb, with feedback matrix based upon 622; physical modeling scattering junction of 8 lossless waveguides 623; of equal characteristic impedance. Based on Julius O. Smith III, 624; "A New Approach to Digital Reverberation using Closed Waveguide 625; Networks," Proceedings of the International Computer Music 626; Conference 1985, p. 47-53 (also available as a seperate 627; publication from CCRMA), as well as some more recent papers by 628; Smith and others. 629; Coded by Sean Costello, October 1999 630itone = 16000 631asignal inleta "inright" 632afilt1 init 0 633afilt2 init 0 634afilt3 init 0 635afilt4 init 0 636afilt5 init 0 637afilt6 init 0 638afilt7 init 0 639afilt8 init 0 640idel1 = (2473.000/sr) 641idel2 = (2767.000/sr) 642idel3 = (3217.000/sr) 643idel4 = (3557.000/sr) 644idel5 = (3907.000/sr) 645idel6 = (4127.000/sr) 646idel7 = (2143.000/sr) 647idel8 = (1933.000/sr) 648; k1-k8 are used to add random pitch modulation to the 649; delay lines. Helps eliminate metallic overtones 650; in the reverb sound. 651k1 randi .001, 3.1, .06 652k2 randi .0011, 3.5, .9 653k3 randi .0017, 1.11, .7 654k4 randi .0006, 3.973, .3 655k5 randi .001, 2.341, .63 656k6 randi .0011, 1.897, .7 657k7 randi .0017, 0.891, .9 658k8 randi .0006, 3.221, .44 659; apj is used to calculate "resultant junction pressure" for 660; the scattering junction of 8 lossless waveguides 661.; of equal characteristic impedance. If you wish to 662; add more delay lines, simply add them to the following 663; equation, and replace the .25 by 2/N, where N is the 664; number of delay lines. 665apj = .25 * (afilt1 + afilt2 + afilt3 + afilt4 + afilt5 + afilt6 + afilt7 + afilt8) 666adum1 delayr 1 667adel1 deltapi idel1 + k1 * gkDelayModulation 668 delayw asignal + apj - afilt1 669adum2 delayr 1 670adel2 deltapi idel2 + k2 * gkDelayModulation 671 delayw asignal + apj - afilt2 672adum3 delayr 1 673adel3 deltapi idel3 + k3 * gkDelayModulation 674 delayw asignal + apj - afilt3 675adum4 delayr 1 676adel4 deltapi idel4 + k4 * gkDelayModulation 677 delayw asignal + apj - afilt4 678adum5 delayr 1 679adel5 deltapi idel5 + k5 * gkDelayModulation 680 delayw asignal + apj - afilt5 681adum6 delayr 1 682adel6 deltapi idel6 + k6 * gkDelayModulation 683 delayw asignal + apj - afilt6 684adum7 delayr 1 685adel7 deltapi idel7 + k7 * gkDelayModulation 686 delayw asignal + apj - afilt7 687adum8 delayr 1 688adel8 deltapi idel8 + k8 * gkDelayModulation 689 delayw asignal + apj - afilt8 690; 1st order lowpass filters in feedback 691; loops of delay lines. 692afilt1 tone adel1 * gkReverbFeedback, itone 693afilt2 tone adel2 * gkReverbFeedback, itone 694afilt3 tone adel3 * gkReverbFeedback, itone 695afilt4 tone adel4 * gkReverbFeedback, itone 696afilt5 tone adel5 * gkReverbFeedback, itone 697afilt6 tone adel6 * gkReverbFeedback, itone 698afilt7 tone adel7 * gkReverbFeedback, itone 699afilt8 tone adel8 * gkReverbFeedback, itone 700; The outputs of the delay lines are summed 701; and sent to the stereo outputs. This could 702; easily be modified for a 4 or 8-channel 703; sound system. 704aout1 = (afilt1 + afilt3 + afilt5 + afilt7) 705aout2 = (afilt2 + afilt4 + afilt6 + afilt8) 706aright = aout1 + aout2 707outleta "outright", aright 708endin 709 710#else 711 712instr ReverbLeft 713aleft init 0 714azero init 0 715aleft inleta "inleft" 716aleft, aright reverbsc aleft, azero, gkReverbFeedback, 15000. 717outleta "outleft", aleft 718endin 719 720instr ReverbRight 721aleft init 0 722azero init 0 723aright inleta "inright" 724aleft, aright reverbsc azero, aright, gkReverbFeedback, 15000.0 725outleta "outright", aright 726endin 727 728#endif 729 730gkCenterHz init 200 731gkGain init 1 732gkQ init 0.7071067 ; sqrt(.5) 733instr ParametricEQ 734aleft inleta "inleft" 735aright inleta "inright" 736aleft pareq aleft, gkCenterHz, ampdb(gkGain), gkQ, 0 737aright pareq aright, gkCenterHz, ampdb(gkGain), gkQ, 0 738outleta "outleft", aleft 739outleta "outright", aright 740endin 741 742gkMasterLevel init 4 743instr MasterOutput 744aleft inleta "inleft" 745aright inleta "inright" 746aleft *= gkMasterLevel 747aright *= gkMasterLevel 748outs aleft, aright 749;fout "Drone-IV-performance.wav", 16, aleft, aright 750endin 751 752instr Controls 753#ifdef CSOUNDQT 754gkslider1 invalue "slider1" 755gkslider2 invalue "slider2" 756gkslider3 invalue "slider3" 757gkslider4 invalue "slider4" 758gkslider5 invalue "slider5" 759gkbutt1 invalue "butt1" 760gkbutt2 invalue "butt2" 761gkbutt3 invalue "butt3" 762gkbutt4 invalue "butt4" 763gkbutt5 invalue "butt5" 764gktrackpadx invalue "trackpad.x" 765gktrackpady invalue "trackpad.y" 766gkaccelerometerx invalue "accelerometerX" 767gkaccelerometery invalue "accelerometerY" 768gkaccelerometerz invalue "accelerometerZ" 769#else 770gkslider1 chnget "slider1" 771gkslider2 chnget "slider2" 772gkslider3 chnget "slider3" 773gkslider4 chnget "slider4" 774gkslider5 chnget "slider5" 775gkbutt1 chnget "butt1" 776gkbutt2 chnget "butt2" 777gkbutt3 chnget "butt3" 778gkbutt4 chnget "butt4" 779gkbutt5 chnget "butt5" 780gktrackpadx chnget "trackpad.x" 781gktrackpady chnget "trackpad.y" 782gkaccelerometerx chnget "accelerometerX" 783gkaccelerometery chnget "accelerometerY" 784gkaccelerometerz chnget "accelerometerZ" 785#endif 786endin 787 788instr VariablesForControls 789if gkslider1 > 0 then 790 gkFirstHarmonic = gkslider1 * 2 791 gkgrainDensity = gkslider1 * 400 792 gkratio2 = gkslider1 ;1/3 793endif 794if gkslider2 > 0 then 795 gkDistortFactor = gkslider2 * 2 796 gkgrainDuration = 0.005 + gkslider2 / 2 797 gkindex1 = gkslider2 * 3;1 798endif 799if gkslider3 > 0 then 800 gkVolume = gkslider3 * 5 801 gkgrainAmplitudeRange = gkslider3 * 300 802 gkindex2 = gkslider3 ;0.0125 803endif 804if gkslider4 > 0 then 805 gkgrainFrequencyRange = gkslider4 / 10 806endif 807if gktrackpady > 0 then 808 gkDelayModulation = gktrackpady * 2 809 ; gkGain = gktrackpady * 2 - 1 810endif 811if gktrackpadx > 0 then 812 gkReverbFeedback = (2/3) + (gktrackpadx / 3) 813 ; gkCenterHz = 100 + gktrackpadx * 3000 814endif 815kbutt1 trigger gkbutt1, .5, 0 816if kbutt1 > 0 then 817 gkbritels = gkbritels / 1.5 818 gkbritehs = gkbritehs / 1.5 819 ; gkQ = gkQ / 2 820endif 821kbutt2 trigger gkbutt2, .5, 0 822if kbutt2 > 0 then 823 gkbritels = gkbritels * 1.5 824 gkbritehs = gkbritehs * 1.5 825 ; gkQ = gkQ * 2 826endif 827 828endin 829 830</CsInstruments> 831<CsScore> 832 833; Change the tempo, if you like. 834t 0 27 835 836; p1 p2 p3 p4 p5 p6 p7 p8 837; insno onset duration fundamental numerator denominator velocity pan 838 839; C E B 840i 101 0 60 [1 * 60] 1 1 60 [-1 + 1 / 2] 841i 101 0 60 [2 * 60] 5 4 60 [-1 + 3 / 2] 842i 101 0 60 [3 * 60] 28 15 60 [-1 + 2 / 2] 843; C Ab E B 844i 104 30 30 [1 * 60] 8 5 60 [-1 + 2 / 2] 845; G F# B 846i 102 60 60 [1 * 60] 3 2 60 [-1 + 1 / 2] 847i 102 60 30 [2 * 60] 45 32 64 [-1 + 2 / 2] 848i 102 60 60 [3 * 60] 28 15 64 [-1 + 3 / 2] 849; G F B 850i 102 90 30 [2 * 60] 4 3 64 [-1 + 2 / 2] 851; C E B 852i 103 120 60 [1 * 60] 1 1 64 [-1 + 1 / 2] 853i 103 120 60 [2 * 60] 5 4 56 [-1 + 2 / 2] 854i 103 120 30 [3 * 60] 28 15 56 [-1 + 3 / 2] 855i 103 150 30 [4 * 60] 1 1 58 [-1 + 3 / 2] 856;i 103 120 60 [3 * 60] 1 1 56 [-1 + 3 / 2] 857e 10.0 858</CsScore> 859</CsoundSynthesizer> 860 861<bsbPanel> 862 <label>Widgets</label> 863 <objectName/> 864 <x>0</x> 865 <y>0</y> 866 <width>611</width> 867 <height>695</height> 868 <visible>true</visible> 869 <uuid/> 870 <bgcolor mode="background"> 871 <r>0</r> 872 <g>85</g> 873 <b>0</b> 874 </bgcolor> 875 <bsbObject type="BSBHSlider" version="2"> 876 <objectName>slider1</objectName> 877 <x>20</x> 878 <y>47</y> 879 <width>502</width> 880 <height>25</height> 881 <uuid>{5e269dfb-9532-41d3-83d8-d42cfde539f7}</uuid> 882 <visible>true</visible> 883 <midichan>0</midichan> 884 <midicc>0</midicc> 885 <minimum>0.00000000</minimum> 886 <maximum>1.00000000</maximum> 887 <value>0.58167331</value> 888 <mode>lin</mode> 889 <mouseControl act="jump">continuous</mouseControl> 890 <resolution>-1.00000000</resolution> 891 <randomizable group="0">false</randomizable> 892 </bsbObject> 893 <bsbObject type="BSBLabel" version="2"> 894 <objectName/> 895 <x>21</x> 896 <y>22</y> 897 <width>504</width> 898 <height>25</height> 899 <uuid>{e87c67e0-c4b2-407f-bb2f-242be34a52ec}</uuid> 900 <visible>true</visible> 901 <midichan>0</midichan> 902 <midicc>0</midicc> 903 <label>slider1</label> 904 <alignment>left</alignment> 905 <font>Arial</font> 906 <fontsize>16</fontsize> 907 <precision>3</precision> 908 <color> 909 <r>0</r> 910 <g>255</g> 911 <b>0</b> 912 </color> 913 <bgcolor mode="nobackground"> 914 <r>255</r> 915 <g>255</g> 916 <b>255</b> 917 </bgcolor> 918 <bordermode>noborder</bordermode> 919 <borderradius>1</borderradius> 920 <borderwidth>1</borderwidth> 921 </bsbObject> 922 <bsbObject type="BSBHSlider" version="2"> 923 <objectName>slider2</objectName> 924 <x>20</x> 925 <y>94</y> 926 <width>502</width> 927 <height>25</height> 928 <uuid>{91144bb6-31e1-44e5-9d98-53b6c9c93532}</uuid> 929 <visible>true</visible> 930 <midichan>0</midichan> 931 <midicc>0</midicc> 932 <minimum>0.00000000</minimum> 933 <maximum>1.00000000</maximum> 934 <value>0.43824701</value> 935 <mode>lin</mode> 936 <mouseControl act="jump">continuous</mouseControl> 937 <resolution>-1.00000000</resolution> 938 <randomizable group="0">false</randomizable> 939 </bsbObject> 940 <bsbObject type="BSBLabel" version="2"> 941 <objectName/> 942 <x>21</x> 943 <y>69</y> 944 <width>504</width> 945 <height>26</height> 946 <uuid>{236a0eb0-fd30-47c2-8845-25315155f74b}</uuid> 947 <visible>true</visible> 948 <midichan>0</midichan> 949 <midicc>0</midicc> 950 <label>slider2</label> 951 <alignment>left</alignment> 952 <font>Arial</font> 953 <fontsize>16</fontsize> 954 <precision>3</precision> 955 <color> 956 <r>0</r> 957 <g>255</g> 958 <b>0</b> 959 </color> 960 <bgcolor mode="nobackground"> 961 <r>255</r> 962 <g>255</g> 963 <b>255</b> 964 </bgcolor> 965 <bordermode>noborder</bordermode> 966 <borderradius>1</borderradius> 967 <borderwidth>1</borderwidth> 968 </bsbObject> 969 <bsbObject type="BSBHSlider" version="2"> 970 <objectName>slider3</objectName> 971 <x>20</x> 972 <y>141</y> 973 <width>502</width> 974 <height>25</height> 975 <uuid>{ad3f9dd8-7147-4f62-9770-e09aa418e837}</uuid> 976 <visible>true</visible> 977 <midichan>0</midichan> 978 <midicc>0</midicc> 979 <minimum>0.00000000</minimum> 980 <maximum>1.00000000</maximum> 981 <value>0.58565737</value> 982 <mode>lin</mode> 983 <mouseControl act="jump">continuous</mouseControl> 984 <resolution>-1.00000000</resolution> 985 <randomizable group="0">false</randomizable> 986 </bsbObject> 987 <bsbObject type="BSBLabel" version="2"> 988 <objectName/> 989 <x>21</x> 990 <y>116</y> 991 <width>502</width> 992 <height>28</height> 993 <uuid>{8c8248ab-8c18-484d-b822-91f9f4956fdb}</uuid> 994 <visible>true</visible> 995 <midichan>0</midichan> 996 <midicc>0</midicc> 997 <label>slider3</label> 998 <alignment>left</alignment> 999 <font>Arial</font> 1000 <fontsize>16</fontsize> 1001 <precision>3</precision> 1002 <color> 1003 <r>0</r> 1004 <g>255</g> 1005 <b>0</b> 1006 </color> 1007 <bgcolor mode="nobackground"> 1008 <r>255</r> 1009 <g>255</g> 1010 <b>255</b> 1011 </bgcolor> 1012 <bordermode>noborder</bordermode> 1013 <borderradius>1</borderradius> 1014 <borderwidth>1</borderwidth> 1015 </bsbObject> 1016 <bsbObject type="BSBHSlider" version="2"> 1017 <objectName>slider4</objectName> 1018 <x>20</x> 1019 <y>188</y> 1020 <width>502</width> 1021 <height>25</height> 1022 <uuid>{93eb0db1-8e07-421f-8121-357e84ff85e4}</uuid> 1023 <visible>true</visible> 1024 <midichan>0</midichan> 1025 <midicc>0</midicc> 1026 <minimum>0.00000000</minimum> 1027 <maximum>1.00000000</maximum> 1028 <value>0.50796813</value> 1029 <mode>lin</mode> 1030 <mouseControl act="jump">continuous</mouseControl> 1031 <resolution>-1.00000000</resolution> 1032 <randomizable group="0">false</randomizable> 1033 </bsbObject> 1034 <bsbObject type="BSBLabel" version="2"> 1035 <objectName/> 1036 <x>21</x> 1037 <y>163</y> 1038 <width>502</width> 1039 <height>28</height> 1040 <uuid>{2bdfdb11-1cc5-40fa-af6e-774ea1cab987}</uuid> 1041 <visible>true</visible> 1042 <midichan>0</midichan> 1043 <midicc>0</midicc> 1044 <label>slider4</label> 1045 <alignment>left</alignment> 1046 <font>Arial</font> 1047 <fontsize>16</fontsize> 1048 <precision>3</precision> 1049 <color> 1050 <r>0</r> 1051 <g>255</g> 1052 <b>0</b> 1053 </color> 1054 <bgcolor mode="nobackground"> 1055 <r>255</r> 1056 <g>255</g> 1057 <b>255</b> 1058 </bgcolor> 1059 <bordermode>noborder</bordermode> 1060 <borderradius>1</borderradius> 1061 <borderwidth>1</borderwidth> 1062 </bsbObject> 1063 <bsbObject type="BSBHSlider" version="2"> 1064 <objectName>slider5</objectName> 1065 <x>20</x> 1066 <y>235</y> 1067 <width>502</width> 1068 <height>28</height> 1069 <uuid>{f7ecf097-1755-4681-8f8f-d4b1acfdc09a}</uuid> 1070 <visible>true</visible> 1071 <midichan>0</midichan> 1072 <midicc>0</midicc> 1073 <minimum>0.00000000</minimum> 1074 <maximum>1.00000000</maximum> 1075 <value>0.11952191</value> 1076 <mode>lin</mode> 1077 <mouseControl act="jump">continuous</mouseControl> 1078 <resolution>-1.00000000</resolution> 1079 <randomizable group="0">false</randomizable> 1080 </bsbObject> 1081 <bsbObject type="BSBLabel" version="2"> 1082 <objectName/> 1083 <x>21</x> 1084 <y>210</y> 1085 <width>502</width> 1086 <height>28</height> 1087 <uuid>{13642f66-f23b-4727-86a3-74ba1ffb5cf1}</uuid> 1088 <visible>true</visible> 1089 <midichan>0</midichan> 1090 <midicc>0</midicc> 1091 <label>slider5</label> 1092 <alignment>left</alignment> 1093 <font>Arial</font> 1094 <fontsize>16</fontsize> 1095 <precision>3</precision> 1096 <color> 1097 <r>0</r> 1098 <g>255</g> 1099 <b>0</b> 1100 </color> 1101 <bgcolor mode="nobackground"> 1102 <r>255</r> 1103 <g>255</g> 1104 <b>255</b> 1105 </bgcolor> 1106 <bordermode>noborder</bordermode> 1107 <borderradius>1</borderradius> 1108 <borderwidth>1</borderwidth> 1109 </bsbObject> 1110 <bsbObject type="BSBButton" version="2"> 1111 <objectName>butt5</objectName> 1112 <x>422</x> 1113 <y>273</y> 1114 <width>100</width> 1115 <height>30</height> 1116 <uuid>{94adda4c-f3e4-4bdc-8d82-eff3a6c64422}</uuid> 1117 <visible>true</visible> 1118 <midichan>0</midichan> 1119 <midicc>0</midicc> 1120 <type>event</type> 1121 <pressedValue>1.00000000</pressedValue> 1122 <stringvalue/> 1123 <text>butt5</text> 1124 <image>/</image> 1125 <eventLine>i1 0 10</eventLine> 1126 <latch>false</latch> 1127 <latched>false</latched> 1128 </bsbObject> 1129 <bsbObject type="BSBButton" version="2"> 1130 <objectName>butt3</objectName> 1131 <x>220</x> 1132 <y>273</y> 1133 <width>100</width> 1134 <height>30</height> 1135 <uuid>{a8e83217-4340-4868-9762-60ac5272411c}</uuid> 1136 <visible>true</visible> 1137 <midichan>0</midichan> 1138 <midicc>0</midicc> 1139 <type>event</type> 1140 <pressedValue>1.00000000</pressedValue> 1141 <stringvalue/> 1142 <text>butt3</text> 1143 <image>/</image> 1144 <eventLine>i1 0 10</eventLine> 1145 <latch>false</latch> 1146 <latched>false</latched> 1147 </bsbObject> 1148 <bsbObject type="BSBButton" version="2"> 1149 <objectName>butt1</objectName> 1150 <x>20</x> 1151 <y>273</y> 1152 <width>100</width> 1153 <height>30</height> 1154 <uuid>{558ef416-b71a-40cd-a160-02f70770ca0e}</uuid> 1155 <visible>true</visible> 1156 <midichan>0</midichan> 1157 <midicc>0</midicc> 1158 <type>event</type> 1159 <pressedValue>1.00000000</pressedValue> 1160 <stringvalue/> 1161 <text>butt1</text> 1162 <image>/</image> 1163 <eventLine>i1 0 10</eventLine> 1164 <latch>false</latch> 1165 <latched>true</latched> 1166 </bsbObject> 1167 <bsbObject type="BSBButton" version="2"> 1168 <objectName>butt2</objectName> 1169 <x>120</x> 1170 <y>273</y> 1171 <width>100</width> 1172 <height>30</height> 1173 <uuid>{dfa120a7-83a3-498c-997e-20c936989eb1}</uuid> 1174 <visible>true</visible> 1175 <midichan>0</midichan> 1176 <midicc>0</midicc> 1177 <type>event</type> 1178 <pressedValue>1.00000000</pressedValue> 1179 <stringvalue/> 1180 <text>butt2</text> 1181 <image>/</image> 1182 <eventLine>i1 0 10</eventLine> 1183 <latch>false</latch> 1184 <latched>true</latched> 1185 </bsbObject> 1186 <bsbObject type="BSBButton" version="2"> 1187 <objectName>butt4</objectName> 1188 <x>321</x> 1189 <y>273</y> 1190 <width>100</width> 1191 <height>30</height> 1192 <uuid>{3225236c-43f3-4276-a227-920e79b83baf}</uuid> 1193 <visible>true</visible> 1194 <midichan>0</midichan> 1195 <midicc>0</midicc> 1196 <type>event</type> 1197 <pressedValue>1.00000000</pressedValue> 1198 <stringvalue/> 1199 <text>butt4</text> 1200 <image>/</image> 1201 <eventLine>i1 0 10</eventLine> 1202 <latch>false</latch> 1203 <latched>false</latched> 1204 </bsbObject> 1205 <bsbObject type="BSBController" version="2"> 1206 <objectName>trackpad.x</objectName> 1207 <x>21</x> 1208 <y>349</y> 1209 <width>502</width> 1210 <height>154</height> 1211 <uuid>{7bdad897-657c-4a54-9206-709cc8534ebb}</uuid> 1212 <visible>true</visible> 1213 <midichan>0</midichan> 1214 <midicc>0</midicc> 1215 <objectName2>trackpad.y</objectName2> 1216 <xMin>0.00000000</xMin> 1217 <xMax>1.00000000</xMax> 1218 <yMin>0.00000000</yMin> 1219 <yMax>1.00000000</yMax> 1220 <xValue>0.54780876</xValue> 1221 <yValue>0.15584416</yValue> 1222 <type>crosshair</type> 1223 <pointsize>1</pointsize> 1224 <fadeSpeed>0.00000000</fadeSpeed> 1225 <mouseControl act="press">jump</mouseControl> 1226 <color> 1227 <r>0</r> 1228 <g>234</g> 1229 <b>0</b> 1230 </color> 1231 <randomizable group="0" mode="both">false</randomizable> 1232 <bgcolor> 1233 <r>0</r> 1234 <g>0</g> 1235 <b>0</b> 1236 </bgcolor> 1237 </bsbObject> 1238 <bsbObject type="BSBDisplay" version="2"> 1239 <objectName>slider1</objectName> 1240 <x>443</x> 1241 <y>23</y> 1242 <width>80</width> 1243 <height>25</height> 1244 <uuid>{7ef693ee-baeb-4c01-bbea-44d8b884b57f}</uuid> 1245 <visible>true</visible> 1246 <midichan>0</midichan> 1247 <midicc>0</midicc> 1248 <label>0.582</label> 1249 <alignment>right</alignment> 1250 <font>Arial</font> 1251 <fontsize>15</fontsize> 1252 <precision>3</precision> 1253 <color> 1254 <r>0</r> 1255 <g>255</g> 1256 <b>0</b> 1257 </color> 1258 <bgcolor mode="nobackground"> 1259 <r>255</r> 1260 <g>255</g> 1261 <b>255</b> 1262 </bgcolor> 1263 <bordermode>noborder</bordermode> 1264 <borderradius>1</borderradius> 1265 <borderwidth>1</borderwidth> 1266 </bsbObject> 1267 <bsbObject type="BSBDisplay" version="2"> 1268 <objectName>slider1</objectName> 1269 <x>443</x> 1270 <y>211</y> 1271 <width>80</width> 1272 <height>25</height> 1273 <uuid>{1ebffaf7-0a51-4395-af00-21494aad303c}</uuid> 1274 <visible>true</visible> 1275 <midichan>0</midichan> 1276 <midicc>0</midicc> 1277 <label>0.582</label> 1278 <alignment>right</alignment> 1279 <font>Arial</font> 1280 <fontsize>15</fontsize> 1281 <precision>3</precision> 1282 <color> 1283 <r>0</r> 1284 <g>255</g> 1285 <b>0</b> 1286 </color> 1287 <bgcolor mode="nobackground"> 1288 <r>255</r> 1289 <g>255</g> 1290 <b>255</b> 1291 </bgcolor> 1292 <bordermode>noborder</bordermode> 1293 <borderradius>1</borderradius> 1294 <borderwidth>1</borderwidth> 1295 </bsbObject> 1296 <bsbObject type="BSBDisplay" version="2"> 1297 <objectName>slider4</objectName> 1298 <x>443</x> 1299 <y>166</y> 1300 <width>80</width> 1301 <height>25</height> 1302 <uuid>{4a8f2804-f935-48ce-a461-6e0d42a1a9e3}</uuid> 1303 <visible>true</visible> 1304 <midichan>0</midichan> 1305 <midicc>0</midicc> 1306 <label>0.508</label> 1307 <alignment>right</alignment> 1308 <font>Arial</font> 1309 <fontsize>15</fontsize> 1310 <precision>3</precision> 1311 <color> 1312 <r>0</r> 1313 <g>255</g> 1314 <b>0</b> 1315 </color> 1316 <bgcolor mode="nobackground"> 1317 <r>255</r> 1318 <g>255</g> 1319 <b>255</b> 1320 </bgcolor> 1321 <bordermode>noborder</bordermode> 1322 <borderradius>1</borderradius> 1323 <borderwidth>1</borderwidth> 1324 </bsbObject> 1325 <bsbObject type="BSBDisplay" version="2"> 1326 <objectName>slider3</objectName> 1327 <x>443</x> 1328 <y>118</y> 1329 <width>80</width> 1330 <height>25</height> 1331 <uuid>{d26c20e9-dfb7-4d91-bea8-456064879ffb}</uuid> 1332 <visible>true</visible> 1333 <midichan>0</midichan> 1334 <midicc>0</midicc> 1335 <label>0.586</label> 1336 <alignment>right</alignment> 1337 <font>Arial</font> 1338 <fontsize>15</fontsize> 1339 <precision>3</precision> 1340 <color> 1341 <r>0</r> 1342 <g>255</g> 1343 <b>0</b> 1344 </color> 1345 <bgcolor mode="nobackground"> 1346 <r>255</r> 1347 <g>255</g> 1348 <b>255</b> 1349 </bgcolor> 1350 <bordermode>noborder</bordermode> 1351 <borderradius>1</borderradius> 1352 <borderwidth>1</borderwidth> 1353 </bsbObject> 1354 <bsbObject type="BSBDisplay" version="2"> 1355 <objectName>slider2</objectName> 1356 <x>443</x> 1357 <y>70</y> 1358 <width>80</width> 1359 <height>25</height> 1360 <uuid>{c5bc6516-4212-4bfc-a3ab-9267190771ff}</uuid> 1361 <visible>true</visible> 1362 <midichan>0</midichan> 1363 <midicc>0</midicc> 1364 <label>0.438</label> 1365 <alignment>right</alignment> 1366 <font>Arial</font> 1367 <fontsize>15</fontsize> 1368 <precision>3</precision> 1369 <color> 1370 <r>0</r> 1371 <g>255</g> 1372 <b>0</b> 1373 </color> 1374 <bgcolor mode="nobackground"> 1375 <r>255</r> 1376 <g>255</g> 1377 <b>255</b> 1378 </bgcolor> 1379 <bordermode>noborder</bordermode> 1380 <borderradius>1</borderradius> 1381 <borderwidth>1</borderwidth> 1382 </bsbObject> 1383 <bsbObject type="BSBDisplay" version="2"> 1384 <objectName>trackpad.x</objectName> 1385 <x>444</x> 1386 <y>316</y> 1387 <width>80</width> 1388 <height>25</height> 1389 <uuid>{875228fc-e82f-43c2-83bb-5cc963facc98}</uuid> 1390 <visible>true</visible> 1391 <midichan>0</midichan> 1392 <midicc>0</midicc> 1393 <label>0.548</label> 1394 <alignment>right</alignment> 1395 <font>Arial</font> 1396 <fontsize>15</fontsize> 1397 <precision>3</precision> 1398 <color> 1399 <r>0</r> 1400 <g>255</g> 1401 <b>0</b> 1402 </color> 1403 <bgcolor mode="nobackground"> 1404 <r>255</r> 1405 <g>255</g> 1406 <b>255</b> 1407 </bgcolor> 1408 <bordermode>noborder</bordermode> 1409 <borderradius>1</borderradius> 1410 <borderwidth>1</borderwidth> 1411 </bsbObject> 1412 <bsbObject type="BSBDisplay" version="2"> 1413 <objectName>trackpad.y</objectName> 1414 <x>531</x> 1415 <y>350</y> 1416 <width>80</width> 1417 <height>25</height> 1418 <uuid>{ae997c24-fc31-43b0-89aa-db0a8ffde4b7}</uuid> 1419 <visible>true</visible> 1420 <midichan>0</midichan> 1421 <midicc>0</midicc> 1422 <label>0.156</label> 1423 <alignment>left</alignment> 1424 <font>Arial</font> 1425 <fontsize>15</fontsize> 1426 <precision>3</precision> 1427 <color> 1428 <r>0</r> 1429 <g>255</g> 1430 <b>0</b> 1431 </color> 1432 <bgcolor mode="nobackground"> 1433 <r>255</r> 1434 <g>255</g> 1435 <b>255</b> 1436 </bgcolor> 1437 <bordermode>noborder</bordermode> 1438 <borderradius>1</borderradius> 1439 <borderwidth>1</borderwidth> 1440 </bsbObject> 1441 <bsbObject type="BSBScope" version="2"> 1442 <objectName/> 1443 <x>20</x> 1444 <y>514</y> 1445 <width>504</width> 1446 <height>181</height> 1447 <uuid>{f79d2676-2f95-4b20-94c4-f63775334ac9}</uuid> 1448 <visible>true</visible> 1449 <midichan>0</midichan> 1450 <midicc>0</midicc> 1451 <value>-255.00000000</value> 1452 <type>scope</type> 1453 <zoomx>2.00000000</zoomx> 1454 <zoomy>1.00000000</zoomy> 1455 <dispx>1.00000000</dispx> 1456 <dispy>1.00000000</dispy> 1457 <mode>0.00000000</mode> 1458 </bsbObject> 1459</bsbPanel> 1460<bsbPresets> 1461</bsbPresets> 1462