[Audacity-nyquist] Loop problem fixed

[paul b. <sni...@fa...>]

The fix for stack overflow works on my windows 98 with a broken mouse.
It is changed slightly to a sum of square roots. Perhaps a square
membrane will vibrate in this way, I have to check. The addition of
silence to the beginning and end caused the plug-in to crash, so I
commented out the last line to normalise.


;nyquist plug-in
;version 1
;type generate
;name "Heartbeat ver 1 ..."
;action "Overtones..."
;control p "Fundamental" real "Frequency" 25 0.01 100
;control n "number" int "overtones" 140 1 500
;control q "Quality" int "resonance" 10 1 50
;control bp "Bandpass Filter" int "center" 130 50 500

(setq newsound (s-rest)) ; initialise newsound

(setq newsound
   (dotimes (i n newsound) ; return newsound
      (setq newsound (sim newsound (hzosc (+(sqrt (* p i)) p))))))

(setq newsound (bandpass2 newsound bp q)) ; filter

(scale 0.075 (seq (s-rest 0.25) newsound (s-rest 0.25)))
;(mult (/ 1.0 (peak newsound (truncate *sound-srate*))) newsound) 
-- 
  paul beach
  sni...@fa...