I quickly updated Kjell's example, as ZGE isn't happy anymore with names being the same as components File:File, Sound:Sound and Sample:Sample. Weirdly enough, KeyPress:KeyPress isn't an issue.
Code: Select all
<?xml version="1.0" encoding="iso-8859-1" ?>
<ZApplication Name="App" Caption="SFXR" CustomScreenWidth="320" CustomScreenHeight="240" MouseVisible="255" FileVersion="2">
<OnLoaded>
<ZLibrary Comment="SFXR">
<Source>
<![CDATA[//
float SampleLength()
{
return (p_env_attack*p_env_attack+
p_env_sustain*p_env_sustain+
p_env_decay*p_env_decay)*100000;
}
//
void ResetSample(int restart)
{
// Base
if(!restart)phase = 0;
period = 100/(p_base_freq*p_base_freq+0.001);
fperiod = period;
fmaxperiod = 100/(p_freq_limit*p_freq_limit+0.001);
fslide = 1-pow(p_freq_ramp,3)*0.01;
fdslide = pow(p_freq_dramp,3)*-0.000001;
// Square
square_duty = 0.5-p_duty*0.5;
square_slide = p_duty_ramp*-0.00005;
// Arpeggio
arp_time = 0;
arp_limit = p_arp_speed != 1 ? pow(1-p_arp_speed,2)*20000+32 : 0;
arp_mod = p_arp_mod >= 0 ? 1-pow(p_arp_mod,2)*0.9 : 1+pow(p_arp_mod,2)*10;
if(!restart)
{
sampling = 1;
// Filter
fltp = 0;
fltdp = 0;
fltw = pow(p_lpf_freq,3)*0.1;
fltw_d = 1+p_lpf_ramp*0.0001;
fltdmp = 5/(1+pow(p_lpf_resonance,2)*20)*(0.01+fltw);
if(fltdmp > 0.8)fltdmp = 0.8;
fltphp = 0;
flthp = pow(p_hpf_freq,2)*0.1;
flthp_d = 1+p_hpf_ramp*0.0003;
// Vibrato
vib_phase = 0;
vib_speed = pow(p_vib_speed,2)*0.01;
vib_amp = p_vib_strength*0.5;
// Envelope
env_stage = 0;
env_time = 0;
env_length[0] = p_env_attack*p_env_attack*100000;
env_length[1] = p_env_sustain*p_env_sustain*100000;
env_length[2] = p_env_decay*p_env_decay*100000;
// Phaser
fphase = pow(p_pha_offset,2)*1020;
if(p_pha_offset < 0)fphase *= -1;
fdphase = pow(p_pha_ramp,2);
if(p_pha_ramp < 0)fdphase *= -1;
iphase = fphase;
ipp = 0;
// Noise
fnoise = rnd()*2-1;
ppnoise = 0;
// Repeat
rep_time = 0;
rep_limit = p_repeat_speed ? pow(1-p_repeat_speed,2)*20000+32 : 0;
}
}
//
void SynthSample(int start, int end, int quality)
{
// Repeat
float l_rep_time = rep_time;
float l_rep_limit = rep_limit;
// Arpeggio
float l_arp_time = arp_time;
float l_arp_mod = arp_mod;
float l_arp_limit = arp_limit;
// Base
int l_wave_type = wave_type;
float l_phase = phase;
float l_period = period;
float l_fperiod = fperiod;
float l_fmaxperiod = fmaxperiod;
float l_fslide = fslide;
float l_fdslide = fdslide;
// Square
float l_square_duty = square_duty;
float l_square_slide = square_slide;
// Vibrato
float l_vib_phase = vib_phase;
float l_vib_speed = vib_speed;
float l_vib_amp = vib_amp;
// Envelope
float l_env_vol;
float l_env_length;
float l_env_stage = env_stage;
float l_env_time = env_time;
float l_env_punch = p_env_punch;
float l_env_length_0 = env_length[0];
float l_env_length_1 = env_length[1];
float l_env_length_2 = env_length[2];
// Noise
float l_fnoise = fnoise;
int l_ppnoise = ppnoise;
// Phaser
float l_fphase = fphase;
float l_fdphase = fdphase;
int l_iphase = iphase;
int l_ipp = ipp;
// Filter
float l_lpf_freq = p_lpf_freq;
float l_fltp = fltp;
float l_fltdp = fltdp;
float l_fltdmp = fltdmp;
float l_flthp = flthp;
float l_flthp_d = flthp_d;
float l_fltw = fltw;
float l_fltw_d = fltw_d;
float l_fltphp = fltphp;
// Supersampler
float sp = pow(2,quality);
float ss = 8/sp;
// Synth
int l_sampling = sampling;
for(int i=start; i<end; i++)
{
if(!l_sampling)
{
buffer[i] = 0;
continue;
}
// Repeat
if(l_rep_limit)
{
l_rep_time++;
if(l_rep_time >= l_rep_limit)
{
l_rep_time = 0;
ResetSample(1);
// Local
l_period = period;
l_fperiod = fperiod;
l_fslide = fslide;
l_square_duty = square_duty;
l_arp_time = arp_time;
l_arp_limit = arp_limit;
}
}
// Arpeggio
l_arp_time++;
if(l_arp_limit != 0 && l_arp_time >= l_arp_limit)
{
l_arp_limit = 0;
l_fperiod *= l_arp_mod;
}
// Base
l_fslide += l_fdslide;
l_fperiod *= l_fslide;
if(l_fperiod > l_fmaxperiod)
{
l_fperiod = l_fmaxperiod;
l_sampling = 0;
}
// Square
if(l_wave_type == 0)
{
l_square_duty += l_square_slide;
if(l_square_duty < 0)l_square_duty = 0;
if(l_square_duty > 0.5)l_square_duty = 0.5;
}
// Vibrato
float rfperiod = l_fperiod;
if(l_vib_amp > 0)
{
l_vib_phase += l_vib_speed;
rfperiod = l_fperiod*(1+sin(l_vib_phase)*l_vib_amp);
}
l_period = rfperiod;
if(l_period < 8)l_period = 8;
// Envelope
l_env_time++;
switch(l_env_stage)
{
case 0: l_env_length = l_env_length_0; break;
case 1: l_env_length = l_env_length_1; break;
case 2: l_env_length = l_env_length_2; break;
}
if(l_env_time > l_env_length)
{
l_env_time = 0;
l_env_stage++;
}
float tl = l_env_time ? l_env_time/l_env_length : 0;
switch(l_env_stage)
{
case 0: l_env_vol = tl; break;
case 1: l_env_vol = 1+(1-tl)*2*l_env_punch; break;
case 2: l_env_vol = 1-tl; break;
}
// Phaser
if(l_fphase || l_fdphase)
{
l_fphase += l_fdphase;
l_iphase = abs(l_fphase);
if(l_iphase > 1023)l_iphase = 1023;
}
// Filter
if(l_flthp_d != 0)
{
l_flthp *= l_flthp_d;
if(l_flthp < 0.00001)l_flthp = 0.00001;
if(l_flthp > 0.1)l_flthp = 0.1;
}
// Supersampler
float ssample = 0;
for(int si=0; si<sp; si++)
{
float sample = 0;
l_phase += ss;
if(l_phase >= l_period)l_phase = l_phase-floor(l_phase/l_period)*l_period;
float fp = l_phase/l_period;
switch(l_wave_type)
{
case 0: sample = fp < l_square_duty ? -0.5 : 0.5; break;
case 1: sample = 1-fp*2; break;
case 2: sample = sin(fp*PI*2); break;
case 3: int pnoise = fp*32;
if(pnoise != l_ppnoise){l_fnoise = rnd()*2-1; l_ppnoise = pnoise;}
sample = l_fnoise; break;
}
// Filter
float pp = l_fltp;
l_fltw *= l_fltw_d;
if(l_fltw < 0)l_fltw = 0;
if(l_fltw > 0.1)l_fltw = 0.1;
if(l_lpf_freq != 1)
{
l_fltdp += (sample-l_fltp)*l_fltw;
l_fltdp -= l_fltdp*l_fltdmp;
}
else
{
l_fltp = sample;
l_fltdp = 0;
}
l_fltp += l_fltdp;
l_fltphp += l_fltp-pp;
l_fltphp -= l_fltphp*l_flthp;
sample = l_fltphp;
// Phaser
if(l_fphase || l_fdphase)
{
phaser_buffer[l_ipp&1023] = sample;
sample += phaser_buffer[(l_ipp-l_iphase+1024)&1023];
l_ipp = (l_ipp+1)&1023;
}
// Accumulate
ssample += sample;
}
buffer[i] = ssample*l_env_vol*sound_vol*2/sp;
}
// Repeat
rep_time = l_rep_time;
// Arpeggio
arp_time = l_arp_time;
arp_limit = l_arp_limit;
// Base
phase = l_phase;
period = l_period;
fperiod = l_fperiod;
fslide = l_fslide;
// Square
square_duty = l_square_duty;
// Vibrato
vib_phase = l_vib_phase;
// Envelope
env_time = l_env_time;
env_stage = l_env_stage;
// Noise
fnoise = l_fnoise;
ppnoise = l_ppnoise;
// Phaser
fphase = l_fphase;
iphase = l_iphase;
ipp = l_ipp;
// Filter
fltw = l_fltw;
flthp = l_flthp;
fltp = l_fltp;
fltdp = l_fltdp;
fltphp = l_fltphp;
// Synth
sampling = l_sampling;
}]]>
</Source>
</ZLibrary>
<SetAppState State="Demo"/>
</OnLoaded>
<States>
<AppState Name="Demo">
<Definitions>
<Sample Name="MySample" Length="0.5084">
<Producers>
<SampleExpression>
<Expression>
<![CDATA[//
this.Sample = buffer[this.Time*44100];]]>
</Expression>
</SampleExpression>
</Producers>
</Sample>
<Sound Name="MySound" Length="0.5" Volume="0.29" Mod0Active="1" Mod0Destination="1" Mod0Amount="1" Env0Active="1" Env0ReleaseTime="0.2" Sample="MySample" SampleRepeatPosition="-1" UseSampleHz="255"/>
<Array Name="Key" Type="1" Dimensions="1" SizeDim1="2" SizeDim2="3"/>
</Definitions>
<OnUpdate>
<Repeat Name="KeyRepeat" Count="2">
<OnIteration>
<ZExpression>
<Expression>
<![CDATA[//
int K = KeyRepeat.Iteration;
//
Key[K,1] = Key[K,0];
Key[K,0] = 0;
//
KeyPress.CharCode = 82+K;]]>
</Expression>
</ZExpression>
<KeyPress Name="KeyPress" CharCode="83">
<OnPressed>
<ZExpression>
<Expression>
<![CDATA[//
Key[KeyRepeat.Iteration,0] = 1;]]>
</Expression>
</ZExpression>
</OnPressed>
</KeyPress>
<ZExpression>
<Expression>
<![CDATA[//
int K = KeyRepeat.Iteration;
//
Key[K,2] = Key[K,0] && !Key[K,1];]]>
</Expression>
</ZExpression>
</OnIteration>
</Repeat>
<Condition>
<Expression>
<![CDATA[//
return Key[0,2];]]>
</Expression>
<OnTrue>
<FileAction File="MyFile"/>
<ZExpression>
<Expression>
<![CDATA[//
float S = SampleLength(); // Get the sample length
float L = S/44100; // Get the sample length in seconds
//
MySound.Length = L; // Set the Sound component length
MySample.Length = L; // Set the Sample component length
//
ResetSample(0); // Reset the synthesizer
SynthSample(0,S,3); // Synthesize the entire sample]]>
</Expression>
</ZExpression>
<RefreshContent Component="MySample"/>
</OnTrue>
</Condition>
<Condition>
<Expression>
<![CDATA[//
return Key[1,2];]]>
</Expression>
<OnTrue>
<PlaySound Sound="MySound"/>
</OnTrue>
</Condition>
</OnUpdate>
</AppState>
</States>
<Content>
<Group Comment="SFXR">
<Children>
<Group Comment="File">
<Children>
<File Name="MyFile" FileName="Sample.sfs">
<OnRead>
<Repeat Name="FileRead" Count="33">
<OnIteration>
<FileMoveData Property="Data"/>
<ZExpression>
<Expression>
<![CDATA[//
switch(FileRead.Iteration)
{
case 4: wave_type = Data; break;
case 7: MyFile.Encoding = 1; break;
case 8: sound_vol = Data; break;
case 9: p_base_freq = Data; break;
case 10: p_freq_limit = Data; break;
case 11: p_freq_ramp = Data; break;
case 12: p_freq_dramp = Data; break;
case 13: p_duty = Data; break;
case 14: p_duty_ramp = Data; break;
case 15: p_vib_strength = Data; break;
case 16: p_vib_speed = Data; break;
case 18: p_env_attack = Data; break;
case 19: p_env_sustain = Data; break;
case 20: p_env_decay = Data; break;
case 21: p_env_punch = Data; MyFile.Encoding = 0; break;
case 22: MyFile.Encoding = 1; break;
case 23: p_lpf_resonance = Data; break;
case 24: p_lpf_freq = Data; break;
case 25: p_lpf_ramp = Data; break;
case 26: p_hpf_freq = Data; break;
case 27: p_hpf_ramp = Data; break;
case 28: p_pha_offset = Data; break;
case 29: p_pha_ramp = Data; break;
case 30: p_repeat_speed = Data; break;
case 31: p_arp_speed = Data; break;
case 32: p_arp_mod = Data; MyFile.Encoding = 0; break;
}]]>
</Expression>
</ZExpression>
</OnIteration>
</Repeat>
</OnRead>
</File>
<Variable Name="Data"/>
</Children>
</Group>
<Group Comment="Sample">
<Children>
<Group Comment="Synth">
<Children>
<Variable Name="sampling" Type="1"/>
<Array Name="buffer" SizeDim1="132300"/>
</Children>
</Group>
<Group Comment="Base">
<Children>
<Variable Name="phase"/>
<Variable Name="period"/>
<Variable Name="fperiod"/>
<Variable Name="fmaxperiod"/>
<Variable Name="fslide"/>
<Variable Name="fdslide"/>
</Children>
</Group>
<Group Comment="Square">
<Children>
<Variable Name="square_duty"/>
<Variable Name="square_slide"/>
</Children>
</Group>
<Group Comment="Vibrato">
<Children>
<Variable Name="vib_phase"/>
<Variable Name="vib_speed"/>
<Variable Name="vib_amp"/>
</Children>
</Group>
<Group Comment="Envelope">
<Children>
<Variable Name="env_stage"/>
<Variable Name="env_time"/>
<Array Name="env_length" SizeDim1="3"/>
</Children>
</Group>
<Group Comment="Filter">
<Children>
<Variable Name="fltp"/>
<Variable Name="fltdp"/>
<Variable Name="fltw"/>
<Variable Name="fltw_d"/>
<Variable Name="fltdmp"/>
<Variable Name="fltphp"/>
<Variable Name="flthp"/>
<Variable Name="flthp_d"/>
</Children>
</Group>
<Group Comment="Noise">
<Children>
<Variable Name="fnoise"/>
<Variable Name="ppnoise" Type="1"/>
</Children>
</Group>
<Group Comment="Phaser">
<Children>
<Variable Name="fphase"/>
<Variable Name="fdphase"/>
<Variable Name="iphase" Type="1"/>
<Variable Name="ipp" Type="1"/>
<Array Name="phaser_buffer" SizeDim1="1024"/>
</Children>
</Group>
<Group Comment="Repeat">
<Children>
<Variable Name="rep_time"/>
<Variable Name="rep_limit"/>
</Children>
</Group>
<Group Comment="Arpeggio">
<Children>
<Variable Name="arp_time"/>
<Variable Name="arp_mod"/>
<Variable Name="arp_limit"/>
</Children>
</Group>
</Children>
</Group>
<Group Comment="Parameters">
<Children>
<Group Comment="Base">
<Children>
<Variable Name="wave_type" Type="1"/>
<Variable Name="sound_vol"/>
<Variable Name="p_base_freq"/>
<Variable Name="p_freq_limit"/>
<Variable Name="p_freq_ramp"/>
<Variable Name="p_freq_dramp"/>
</Children>
</Group>
<Group Comment="Square">
<Children>
<Variable Name="p_duty"/>
<Variable Name="p_duty_ramp"/>
</Children>
</Group>
<Group Comment="Vibrato">
<Children>
<Variable Name="p_vib_speed"/>
<Variable Name="p_vib_strength"/>
</Children>
</Group>
<Group Comment="Envelope">
<Children>
<Variable Name="p_env_attack"/>
<Variable Name="p_env_sustain"/>
<Variable Name="p_env_decay"/>
<Variable Name="p_env_punch"/>
</Children>
</Group>
<Group Comment="Filter">
<Children>
<Variable Name="p_lpf_freq"/>
<Variable Name="p_lpf_ramp"/>
<Variable Name="p_lpf_resonance"/>
<Variable Name="p_hpf_freq"/>
<Variable Name="p_hpf_ramp"/>
</Children>
</Group>
<Group Comment="Phaser">
<Children>
<Variable Name="p_pha_offset"/>
<Variable Name="p_pha_ramp"/>
</Children>
</Group>
<Group Comment="Repeat">
<Children>
<Variable Name="p_repeat_speed"/>
</Children>
</Group>
<Group Comment="Arpeggio">
<Children>
<Variable Name="p_arp_speed"/>
<Variable Name="p_arp_mod"/>
</Children>
</Group>
</Children>
</Group>
</Children>
</Group>
</Content>
</ZApplication>
And I'm already happy, as sfxr/jsfxr is simpler to use for me than the
ZGE sound interface, as I understand how to make other sounds than "brrrrrr" and "piiiiii'
But now I'm wondering if sfxr could be wrapped to work as an external library (dll and so), just like ZGEBullet, so that we could synthesize sounds in real time. Therefore, I'm trying to compile it, for starters. Sourcecode on
original website is missing a lot of files. So I'm trying to compile
one of the many clones over github, but it is using SDL1.2 and 32bits, so I'm still navigating around that.
Do you think making such a library for ZGE is doable?
(named zsfxr, to stay in the trend)
