SCClassLibrary/Common/Audio/FSinOsc.sc

   1 /*
   2         FSinOsc - fixed frequency sine oscillator
   3         arguments :
   4                 freq - frequency in cycles per second. Must be a scalar.
   5                 mul - multiply by signal or scalar
   6                 add - add to signal or scalar
   7
   8         This unit generator uses a very fast algorithm for generating a sine
   9         wave at a fixed frequency.
  10 */
  11
  12 FSinOsc : UGen {
  13         *ar { arg freq=440.0, iphase = 0.0, mul = 1.0, add = 0.0;
  14                 ^this.multiNew('audio', freq, iphase).madd(mul, add)
  15         }
  16         *kr { arg freq=440.0, iphase = 0.0, mul = 1.0, add = 0.0;
  17                 ^this.multiNew('control', freq, iphase).madd(mul, add)
  18         }
  19 }
  20
  21
  22 Klang : UGen {
  23         *ar { arg specificationsArrayRef, freqscale = 1.0, freqoffset = 0.0;
  24                         ^this.multiNewList(['audio', freqscale,
  25                                                 freqoffset, specificationsArrayRef] )
  26         }
  27         *new1 { arg rate, freqscale, freqoffset, arrayRef;
  28                 var specs, freqs, amps, phases;
  29                 # freqs, amps, phases = arrayRef.dereference;
  30                 specs = [freqs,
  31                                 amps ?? {Array.fill(freqs.size,1.0)},
  32                                 phases ?? {Array.fill(freqs.size,0.0)}
  33                                 ].flop.flat;
  34
  35                 ^super.new.rate_(rate).addToSynth.init([freqscale,freqoffset] ++ specs);
  36         }
  37         init { arg theInputs;
  38                 // store the inputs as an array
  39                 inputs = theInputs;
  40         }
  41         argNamesInputsOffset { ^2 }
  42 }
  43
  44 Klank : UGen {
  45         *ar { arg specificationsArrayRef, input, freqscale = 1.0, freqoffset = 0.0, decayscale = 1.0;
  46                         ^this.multiNewList(['audio',  input, freqscale,
  47                                                 freqoffset, decayscale, specificationsArrayRef] )
  48         }
  49         *new1 { arg rate, input, freqscale, freqoffset, decayscale, arrayRef;
  50                 var specs, freqs, amps, times;
  51                 # freqs, amps, times = arrayRef.dereference;
  52                 specs = [freqs,
  53                                 amps ?? {Array.fill(freqs.size,1.0)},
  54                                 times ?? {Array.fill(freqs.size,1.0)}
  55                                 ].flop.flat;
  56
  57                 ^super.new.rate_(rate).addToSynth.init([input,freqscale,freqoffset,decayscale] ++ specs);
  58         }
  59         init { arg theInputs;
  60                 // store the inputs as an array
  61                 inputs = theInputs;
  62         }
  63         argNamesInputsOffset { ^2 }
  64 }
  65
  66 DynKlank : UGen {
  67
  68         *ar { arg specificationsArrayRef, input, freqscale = 1.0, freqoffset = 0.0, decayscale = 1.0;
  69                 ^this.multiNew(\audio, specificationsArrayRef, input, freqscale, freqoffset, decayscale)
  70         }
  71
  72         *kr { arg specificationsArrayRef, input, freqscale = 1.0, freqoffset = 0.0, decayscale = 1.0;
  73                 ^this.multiNew(\control, specificationsArrayRef, input, freqscale, freqoffset, decayscale)
  74         }
  75
  76         *new1 { arg rate, specificationsArrayRef, input, freqscale = 1.0, freqoffset = 0.0, decayscale = 1.0;
  77                 var spec = specificationsArrayRef.value;
  78                 var selector = this.methodSelectorForRate(rate);
  79                 ^Ringz.perform(selector,
  80                                 input,
  81                                 spec[0] ? #[440.0] * freqscale + freqoffset,
  82                                 spec[2] ? #[1.0] * decayscale,
  83                                 spec[1] ? #[1.0]
  84                 ).sum
  85         }
  86 }
  87
  88 DynKlang : UGen {
  89
  90         *ar { arg specificationsArrayRef, freqscale = 1.0, freqoffset = 0.0;
  91                 ^this.multiNew(\audio, specificationsArrayRef, freqscale, freqoffset);
  92         }
  93
  94         *kr { arg specificationsArrayRef, freqscale = 1.0, freqoffset = 0.0;
  95                 ^this.multiNew(\control, specificationsArrayRef, freqscale, freqoffset);
  96         }
  97
  98         *new1 { arg rate, specificationsArrayRef, freqscale = 1.0, freqoffset = 0.0;
  99                 var spec = specificationsArrayRef.value;
 100                 var selector = this.methodSelectorForRate(rate);
 101                 ^SinOsc.perform(selector,
 102                                 spec[0] ? #[440.0] * freqscale + freqoffset,
 103                                 spec[2] ? #[0.0],
 104                                 spec[1] ? #[1.0]
 105                 ).sum
 106         }
 107 }
 108
 109
 110 Blip : UGen {
 111         *ar { arg freq=440.0, numharm = 200.0, mul = 1.0, add = 0.0;
 112                 ^this.multiNew('audio', freq, numharm).madd(mul, add)
 113         }
 114         *kr { arg freq=440.0, numharm = 200.0, mul = 1.0, add = 0.0;
 115                 ^this.multiNew('control', freq, numharm).madd(mul, add)
 116         }
 117 }
 118
 119 Saw : UGen {
 120         *ar { arg freq=440.0, mul = 1.0, add = 0.0;
 121                 ^this.multiNew('audio', freq).madd(mul, add)
 122         }
 123         *kr { arg freq=440.0, mul = 1.0, add = 0.0;
 124                 ^this.multiNew('control', freq).madd(mul, add)
 125         }
 126 }
 127
 128 Pulse : UGen {
 129         *ar { arg freq=440.0, width = 0.5, mul = 1.0, add = 0.0;
 130                 ^this.multiNew('audio', freq, width).madd(mul, add)
 131         }
 132         *kr { arg freq=440.0, width = 0.5, mul = 1.0, add = 0.0;
 133                 ^this.multiNew('control', freq, width).madd(mul, add)
 134         }
 135 }