PhaseShaper - OrchPHASESHAPER - Orch
version 1.1
Released: 2007.12.14
Author: Steven Yi
This instrument is modeled after the Casio CZ-101 and its Phase Distortion Synthesis (called phaseshaping here by the author, due to its likeness to waveshaping but on the phasor). The PhaseShaper instrument is not meant to exactly replicate the CZ-101 but instead is inspired by it, intentionally leaving out some features (like noise modulation and amp key follow) and adding in unique ones (like the ability to draw in the phaseshaping tables). It is suggested the user read about the CZ-101 before using this instrument. This instruments oscilators are made up of a phasor indexing into a phaseshape table, which in turns yields the indexes to use to read into a sine wave table.
Some notes on using this synthesizer:
-for each oscilator you can draw each phaseshaping table to affect the waveform for that oscilator
-the amplitude envelope functions as a standard ADSR
-the wave envelope will determine how much of the phaseshaping to apply to the phasor; using a 0 value for wave envelope will give a straight phasor and thus a simple sine tone will be generated, while a 1.0 value for the wave envelope will yield the fully phaseshaped phasor, yielding the complex waveform; values in between will yield an interpolated value between the straight phasor and fully phaseshaped phasor. The wave envelope will have range between the values given for Wave Min and Wave Max, allowing the user to configure the degree to which the wave envelope will affect the phaseshaping.
-if "Use Amp Env" is selected for the Wave Envelope, the wave env ADSR settings will be ignored and the value from the amplitude envelope will be used in its place
-if "Wave Key Follow" is selected, the value of the wave envelope will be further rescaled depending on the frequency of the note. The "Follow Range" allows the user to configure the minimum and maximum frequency in cps to affect the sound. The frequency of the note then will affect how much of the wave envelope will be applied, from the Wave Low to the Wave High in the Follow Range section. Notice that the Wave Low value here should be higher than the the Wave High value in this section. This is so that for notes at lower frequencies they will get a fuller range of the wave envelope, while notes at higher frequencies will have a smaller range of the wave envelope (which produces a tone closer to a sine wave). This is very much akin to how many acoustic instruments behave.
-the Detune parameter only affects the detuned version of the Oscilators (Osc 1' and 2'), and those are only used if the 1 + 2' or 1 + 1' oscilator paths are used.
-the Mix parameter will determine how much of Oscilator 1 and how much of Oscilator 2 to use when using 1 + 2' or 1 + 1' oscilator paths. This will also affect the signals when Ring Modulate is chosen.
-the vibrato parameters allow for a delay in seconds before vibrato starts as well as time it takes to go from no vibrato to full vibrato once vibrato is set to begin; oscilator 2 can be set to share the vibrato settings of oscilator 1
[History]
v1.1 - 2007.12.14
-fixed use of envelopes (OSC 2 attack was not being used due to incorrect setting of widget property, some OSC2 values were using OSC1 settings)
-removed use of balance opcode
-fixed calculation of p3 addition to check release time of OSC 1 or OSC 2
v1.0 - 2007.12.08
-initial releasegiphaseshape_<INSTR_ID> ftgen 0, 0, 65537, -7, <phaseshape_phaseshape>
giphaseshape2_<INSTR_ID> ftgen 0, 0, 65537, -7, <phaseshape2_phaseshape>
;[once]{
gi_sine ftgen 0, 0, 65537, 10, 1
;}
ipch getFrequency p4
ipch2 getFrequency p5
kpchline line ipch, p3, ipch2
iamp = ampdb(p6)
iSpace = p7
ienvType = p8
if (ienvType == 0) then
if (<mix> == 1 || <mix> == 4) then
p3 = p3 + <release>
elseif (<mix> == 2) then
p3 = p3 + <release2>
else
iextra = (<release> > <release2>) ? <release> : <release2>
p3 = p3 + iextra
endif
endif
kenv yiEnvelope ienvType, <attack>, <decay>, <sustain>, <release>
kenv2 yiEnvelope ienvType, <attack2>, <decay2>, <sustain2>, <release2>
kmix = <mix>
kwavemin = <waveMin>
kwavemax = <waveMax>
kwaverange = kwavemin - kwavemax
kwavemin2 = <waveMin2>
kwavemax2 = <waveMax2>
kwaverange2 = kwavemax2 - kwavemin2
kfollowWaveLow = <followWaveLow>
kfollowWaveHigh = <followWaveHigh>
kfollowWaveRange = kfollowWaveHigh - kfollowWaveHigh
kfollowWaveLow2 = <followWaveLow2>
kfollowWaveHigh2 = <followWaveHigh2>
kfollowWaveRange2 = kfollowWaveHigh2 - kfollowWaveHigh2
ilfoType = <lfoType>
klfoAmp = <lfoAmp>
klfoFreq = <lfoFreq>
ilfoDelay = <lfoDelay>
ilfoRise = <lfoRise>
if (<lfoType2> == -2) then
ilfoType2 = <lfoType>
klfoAmp2 = <lfoAmp>
klfoFreq2 = <lfoFreq>
ilfoDelay2 = <lfoDelay>
ilfoRise2 = <lfoRise>
else
ilfoType2 = <lfoType2>
klfoAmp2 = <lfoAmp2>
klfoFreq2 = <lfoFreq2>
ilfoDelay2 = <lfoDelay2>
ilfoRise2 = <lfoRise2>
endif
/* SOUND GENERATION CODE */
if (ilfoType < 0) then
alfo = 0
else
alfo lfo klfoAmp, klfoFreq, ilfoType
alfodelay linseg 0, ilfoDelay, 0, ilfoRise, 1, .1, 1
alfo = alfodelay * alfo
endif
andx phasor kpchline + alfo
; Oscilator 1
if (kmix == 2) kgoto skipOscil1
andx2 table3 andx, giphaseshape_<INSTR_ID>, 1
if (<useAmpEnv> == 1) then
kwaveenv = kenv
else
kwaveenv adsr <waveAttack>, <waveDecay>, <waveSustain>, <waveRelease>
endif
kwaveenv = (kwaveenv * kwaverange) + kwavemin
if (<waveKeyFollow> == 1) then
kwaverange rangeValue kpchline, <followRangeMin>, <followRangeMax>
kwaverange = (kwaverange * kfollowWaveRange) + kfollowWaveHigh
kwaveenv = kwaverange * kwaveenv
endif
andx2 sigMix kwaveenv, andx, andx2
aout table3 andx2, gi_sine, 1
; Osilator 1'
if (kmix != 4) kgoto skipOscil1
andxdetune phasor kpchline * <detune>
andx2 table3 andxdetune, giphaseshape_<INSTR_ID>, 1
if (<useAmpEnv> == 1) then
kwaveenv = kenv
else
kwaveenv adsr <waveAttack>, <waveDecay>, <waveSustain>, <waveRelease>
endif
kwaveenv = (kwaveenv * kwaverange) + kwavemin
if (<waveKeyFollow> == 1) then
; kwaverange calculated in Oscilator 1
kwaveenv = kwaverange * kwaveenv
endif
andx2 sigMix kwaveenv, andx, andx2
aout_detune table3 andx2, gi_sine, 1
skipOscil1:
/* OSCILATOR 2 */
if (kmix == 1 || kmix == 4) kgoto skipOscil2
if (ilfoType2 < 0) then
alfo = 0
else
alfo lfo klfoAmp2, klfoFreq2, ilfoType2
alfodelay linseg 0, ilfoDelay2, 0, ilfoRise2, 1, .1, 1
alfo = alfodelay * alfo
endif
andx phasor kpchline + alfo
; Oscilator 2
if (kmix != 2) kgoto skipOscil2
andx2 table3 andx, giphaseshape2_<INSTR_ID>, 1
if (<useAmpEnv2> == 1) then
kwaveenv = kenv2
else
kwaveenv adsr <waveAttack2>, <waveDecay2>, <waveSustain2>, <waveRelease2>
endif
kwaveenv = (kwaveenv * kwaverange2) + kwavemin2
if (<waveKeyFollow2> == 1) then
kwaverange rangeValue kpchline, <followRangeMin2>, <followRangeMax2>
kwaverange = (kwaverange * kfollowWaveRange2) + kfollowWaveLow2
kwaveenv = kwaverange * kwaveenv
endif
andx2 sigMix kwaveenv, andx, andx2
aout2 table3 andx2, gi_sine, 1
skipOscil2:
; Osilator 2'
if (kmix != 3) kgoto skipOscil2end
andxdetune phasor kpchline * <detune2>
andx2 table3 andxdetune, giphaseshape2_<INSTR_ID>, 1
if (<useAmpEnv2> == 1) then
kwaveenv = kenv2
else
kwaveenv adsr <waveAttack2>, <waveDecay2>, <waveSustain2>, <waveRelease2>
endif
kwaveenv = (kwaveenv * kwaverange2) + kwavemin2
if (<waveKeyFollow2> == 1) then
;kwaverange calculated in Oscilator 2
kwaveenv = kwaverange * kwaveenv
endif
andx2 sigMix kwaveenv, andx, andx2
aout2_detune table3 andx2, gi_sine, 1
skipOscil2end:
aout = aout * kenv
aout_detune = aout_detune * kenv
aout2 = aout2 * kenv2
aout2_detune = aout2_detune * kenv2
if (kmix == 2) then
aout = aout2
elseif (kmix == 3) then
if (<ringModulate> == 1) then
aout sigMixRing <mixerPercent>, aout, aout2_detune
else
aout sigMix <mixerPercent>, aout, aout2_detune
endif
elseif (kmix == 4) then
if (<ringModulate> == 1) then
aout sigMixRing <mixerPercent>, aout, aout_detune
else
aout sigMix <mixerPercent>, aout, aout_detune
endif
endif
aout = aout * iamp
aLeft, aRight pan_equal_power aout, iSpace
blueMixerOut aLeft, aRightdecay66296true0.01.00.007465333750truesustain119296true0.01.00.9403894550truerelease172296true0.010.00.00868006450trueattack13296true0.010.00.002509774650true172787027712027717327711251phaseshape116633016065537.0trueCommafalsefalsemix76413711221 + 2'31 + 1'42trueringModulate761163falsetruewaveDecay64413true0.01.00.1871445650truewaveSustain117413true0.01.00.633701150truewaveRelease170413true0.010.00.146122350truewaveAttack11413true0.010.00.09999999450true153946839411839417139411368waveKeyFollow226369falsetruewaveMin233413true0.01.00.3830677650true23239410484followRangeMin10531true20.020000.0345.5138250truefollowRangeMax70531true20.020000.02097.916350true1251270512useAmpEnv126369truetruedecay2450296true0.01.00.01598575950truesustain2503296true0.01.00.9222160650truerelease2556296true0.010.00.01538215650trueattack2397296true0.010.00.12247570650true401277454277504277557277395251phaseshape23956633016065537.0trueCommafalsefalsewaveDecay2448413true0.01.00.01457233150truewaveSustain2501413true0.01.00.02092005350truewaveRelease2554413true0.010.00.146122350truewaveAttack2395413true0.010.00.02550true399394452394502394555394395368waveKeyFollow2606369falsetrue394484followRangeMin2394531true20.020000.060.050truefollowRangeMax2455531true20.020000.04400.386750true395512452512useAmpEnv2506369truetrue146485detune151530true1.0E-48.01.050true150511528486detune2533531true1.0E-48.01.050true53251276435mixerPercent76465true0.01.00.7374735550true106113939539waveMax292413true0.01.01.050true291394waveMin2615413true0.01.00.4765429850true614394waveMax2674413true0.01.01.050true673394followWaveLow10623true0.01.01.050truefollowWaveHigh70623true0.01.00.1991320650true860468604followWaveLow2394623true0.01.00.5217250650truefollowWaveHigh2454623true0.01.00.1800782450true389604449604lfoAmp233531true0.0100.00.8656943450truelfoFreq290531true0.020.00.537690750true232512290512lfoDelay233623true0.010.00.263897350true229604233484lfoType229696Disabled-1Sine0Triangle1Square (Bipolar)2Square (Unipolar)3Saw Tooth4Saw Tooth (Down)50truelfoAmp2615533true0.0100.01.629198350truelfoFreq2672533true0.020.02.079996350true614514672514lfoDelay2615625true0.010.00.150true611606lfoType2611698Use Osc 1 Setting-2Disabled-1Sine0Triangle1Square (Bipolar)2Square (Unipolar)3Saw Tooth4Saw Tooth (Down)50true615486lfoRise290623true0.010.00.1816256650true290604674606lfoRise2672624true0.010.00.263897350truever2:0.0025097746ver2:0.0021455435ver2:0.0074653337ver2:0.015985759ver2:1ver2:1ver2:2097.9162597656ver2:4400.38671875ver2:345.5138244629ver2:60ver2:0.199132055ver2:0.1800782382ver2:1ver2:0.5217250586ver2:0.865694344ver2:1.6291983128ver2:0.2638972998ver2:0.1000000015ver2:0.5376906991ver2:2.0799963474ver2:0.1816256642ver2:0.2638972998002ver2:0.7374735475version=2@_@phaseshape:0.0:0.0:0.2361111:0.2837838:0.39583334:0.6418919:0.6944444:0.7702703:1.0:1.0version=2@_@phaseshape:0.0:0.0:0.28819445:0.527027:1.0:1.0ver2:0.0086800642ver2:0.0153821558falsever2:0.9403894544ver2:0.9222160578truetruever2:0.099999994ver2:0.0250000004ver2:0.1871445626ver2:0.0145723308falsefalsever2:1ver2:1ver2:0.3830677569ver2:0.4765429795ver2:0.1461223066ver2:0.1461223066ver2:0.633701086ver2:0.0209200531ver2:0.0025097746ver2:0.0021455435ver2:0.0074653337ver2:0.015985759ver2:1ver2:1.7769999504ver2:2097.9162597656ver2:4400.38671875ver2:345.5138244629ver2:60ver2:0.199132055ver2:0.1800782382ver2:1ver2:0.5217250586ver2:0.865694344ver2:1.6291983128ver2:0.2638972998ver2:0.1000000015ver2:0.5376906991ver2:2.0799963474ver2:0.1816256642ver2:0.2638972998102ver2:0.2864866555version=2@_@phaseshape:0.0:0.0:0.2361111:0.2837838:0.39583334:0.6418919:0.6944444:0.7702703:1.0:1.0version=2@_@phaseshape:0.0:0.0:0.28819445:0.527027:1.0:1.0ver2:0.0086800642ver2:0.0153821558falsever2:0.9403894544ver2:0.9222160578truetruever2:0.099999994ver2:0.0250000004ver2:0.1871445626ver2:0.0145723308falsefalsever2:1ver2:1ver2:0.3830677569ver2:0.4765429795ver2:0.1461223066ver2:0.1461223066ver2:0.633701086ver2:0.0209200531ver2:0.7630395293ver2:0.7459443808ver2:0.0074653337ver2:0.015985759ver2:1ver2:1ver2:2097.9162597656ver2:4400.38671875ver2:345.5138244629ver2:60ver2:0.199132055ver2:0.1800782382ver2:1ver2:0.5217250586ver2:0.865694344ver2:1.6291983128ver2:0.2638972998ver2:0.1000000015ver2:0.5376906991ver2:2.0799963474ver2:0.1816256642ver2:0.2638972998102ver2:0.2864866555version=2@_@phaseshape:0.0:0.0:0.2361111:0.2837838:0.39583334:0.6418919:0.6944444:0.7702703:1.0:1.0version=2@_@phaseshape:0.0:0.0:0.28819445:0.527027:1.0:1.0ver2:0.0086800642ver2:0.0153821558falsever2:0.9403894544ver2:0.9222160578falsefalsever2:0.6126334667ver2:1.4041087627ver2:0.1871445626ver2:0.0145723308falsefalsever2:1ver2:1ver2:0.8277792335ver2:0.7675464153ver2:0.1461223066ver2:0.1461223066ver2:0.633701086ver2:0.0209200531ver2:1.4848703146ver2:2.2545216084ver2:0.2265958488ver2:0.7324813604ver2:2.0322134495ver2:6.1101360321ver2:15946.8759765625ver2:19871.357421875ver2:12620.3388671875ver2:1971.7719726562ver2:0.0825177878ver2:0.4699362218ver2:0.942504406ver2:0.6658129096ver2:1.1149544716ver2:80.1294937134ver2:0.0619423613ver2:2.2327432632ver2:1.8310955763ver2:2.7975308895ver2:1.3833731413ver2:5.6871542931373ver2:0.8503993154version=2@_@phaseshape:0.0:0.0:0.2361111:0.2837838:0.39583334:0.6418919:0.6944444:0.7702703:1.0:1.0version=2@_@phaseshape:0.0:0.0:0.28819445:0.527027:1.0:1.0ver2:0ver2:4.1149697304falsever2:0ver2:0.5175994635truefalsever2:1.0097606182ver2:3.9776842594ver2:0.9351066351ver2:0.3300595582falsefalsever2:0.5515425205ver2:0.4091310501ver2:0.4243190885ver2:0.2966817617ver2:3.7564327717ver2:3.9626896381ver2:0.7421127558ver2:0.1548743546getFrequencyiiipch xin
iout = (ipch < 15 ? cpspch(ipch) : ipch)
xout iout
yiEnvelopekiooooooienvType, iattack, idecay, isus, irel, iOldAmp, iNewAmp xin
itie tival
idur = p3
iEndAmp = iNewAmp / iOldAmp
if (ienvType == 0) then
kenv adsr iattack, idecay, isus, irel
elseif (ienvType == 1) then
kenv linseg 0, p3 * .5, 1, p3 * .5, 0
kenv logcurve kenv, 1.5
elseif (ienvType == 2) then
kenv linseg 0, p3 - .1, 1, .1, 0
elseif (ienvType == 3) then
if (itie == 0 && p3 < 0) then
; this is an initial note within a group of tied notes
kenv linseg 0, .2, 1, .2, 1
elseif (p3 > 0 && itie == 1) then
; this is an end note out of a group of tied notes
kenv linseg 1, p3 - 1, 1, 1, 0
elseif (p3 > 0 && itie == 0) then
; this is a stand alone note
kenv adsr iattack, idecay, isus, irel
else
; this is a middle note within a group of tied notes (p3 < 0 && itie == 1)
kenv line 1, abs(p3), iEndAmp
endif
endif
xout kenv
sigMixakaakmix, asig1, asig2 xin
xout (asig1 * (1 - kmix)) + (asig2 * kmix)sigMixRingakaakmix, asig1, asig2 xin
xout (asig1 * (1 - kmix)) * (asig2 * kmix)rangeValuekkkkkfreq, kmin, kmax xin
if (kfreq <= kmin) then
kval = 1
elseif (kfreq >= kmax) then
kval = 0
else
krange = kmax - kmin
kval = 1 - ((kfreq - kmin) / krange)
endif
xout kval
This will return 1 if below or equal to min and 0 as it approaches max. Currently this is done only linearly.pan_equal_poweraaakain, kpan xin
kangl = $M_PI_2 * (kpan + 0.5)
xout ain * sin(kangl), ain * cos(kangl)
pan_equal_power - Equal Power Panning
SYNTAX
a1, a2 pan_equal_power asig, kpan
CREDITS
Author: Michael Gogins, converted by Steven Yi, Rewritten by Istvan Varga for SpeednoiseModulateaaasig xin
arnd random 0,1
xout asig * arnd