PA1DSP - Fun with BasicDSP
      PA1DSP 


         HomeArticlesBasicDSPKaaSDRProgrammingProjects




            BasicDSP

            Fun with BasicDSP

            A simple RX script

            A PLL example

      Fun with BasicDSP
      Here are several scripts (without much explanation) you can try in 
      BasicDSP. If you don’t have BasicDSP, you can download it here.
      Use a .WAV file as a source by selecting ‘WAV file’ as the input source 
      and click the ‘Open wave file’ button to select the .WAV. If you want to 
      use an .MP3, you must first convert it to .WAV using an external tool, 
      such as WINAMP. 
      You can also use the soundcard’s input as a source by selecting 
      ‘Soundcard’.
      Copy-past the script of your choice into BasicDSP and press the Run 
      button. (You might need to remove some of the comments from the scripts to 
      make them work -- it’s a weird problem, we’re working on it.)
      A variable stereo expander:
      ; Stereo expander script 
      ; Slider1 determines the amount of extra stereo
      samplerate = 44100
      diff = inL - inR ; calc difference between left and right
      outL = (inL + slider1*diff) * 0.7 ; process left
      outR = (inR - slider1*diff) * 0.7 ; process right
      A vocal destroyer:
      ; vocal destroyer
      samplerate = 44100
      center = (inL + inR) * 0.5
      outL = (inL - center)
      outR = (inR - center)
      Sweeping filter:
      ; sweeping filter
      samplerate = 44100
      Q = 0.01 + (1-slider2);
      F = slider1*slider1*slider1;
      HP_left = inL - LP_left - BP_left*Q
      BP_left = BP_left + HP_left * F
      LP_left = LP_left + BP_left * F
      HP_right = inR - LP_right - BP_right*Q
      BP_right = BP_right + HP_right * F
      LP_right = LP_right + BP_right * F
      outL = LP_left
      outR = LP_right
      ; also try the BP and HP variants as output!
      A frequency shifter:
      ; frequency shifter
      samplerate = 44100
      saw = mod1(saw + slider1*0.1 + 1e-7);
      s1 = sin1(saw)
      c1 = cos1(saw)
      outL = inL * s1 + inR * c1;
      outR = inR * s1 - inL * c1;



       © 2006-2009  Niels Moseley     email: n.a.moseley at alumnus.utwente.nl