SamplePlayer v1.3 Author: Atte André Jensen (atte.dk), 2008 Simple sampleplayer, using ftables to store sample. Changelog: 1.3 * Minor code cleanup 1.2 * Works with both stereo and mono samples * Pan now pans both left and right 1.1 * Added 'loop' option 1.0 * Initial release git_sample_player_<INSTR_NAME> ftgen 0, 0, 0, 1, "<file>", 0, 0, 0 ivol = p4; 0-1 kfreq = p5; ckgoto(kfreq > 0), nonzero kfreq = <baseFreq> goto done nonzero: kfreq = (kfreq >= 20) ? kfreq : cpspch(kfreq) done: ; defaults ivol = (ivol == 0) ? 1 : ivol kcps = 1 ibasefreq = <baseFreq> ; setup iamp = 20000 ifn = git_sample_player_<INSTR_NAME> i_nb_chn= ftchnls(git_sample_player_<INSTR_NAME>) kpan = <pan> ; calculate kamp = iamp * ivol * <vol> ; generate audio if (i_nb_chn == 1) then aoutl loscil3 kamp, kfreq, ifn, ibasefreq, <loop> aoutr = aoutl elseif(i_nb_chn == 2) then aoutl, aoutr loscil3 kamp, kfreq, ifn, ibasefreq, <loop> else aoutl = 0 aoutr = 0 endif ; output blueMixerOut aoutl * (1 - kpan), aoutr * (1 + kpan) file 18 68 300 baseFreq 22 104 7.00 100 vol 289 159 true 0.0 1.0 1.0 60 true loop 139 119 Loop false true 102 12 <html><font size="6"><b>SamplePlayer</b></font></html> 167 40 v 1.3 pan 227 159 true -1.0 1.0 0.0 60 true 247 235 Pan 298 235 Volume 26 123 Base Frequency