Fehlermeldung "defekter Header von Nyquist Erweiterung"

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    • Fehlermeldung "defekter Header von Nyquist Erweiterung"

      Hallo alle zusammen,

      seit zwei Tagen versuche ich nun den Plug-In "Subliminal" zu aktivieren... Habe die Datei kopiert und in den Plugin Ordner kopiert. Der steht auch korrekt in der Liste der möglichen Erweiterungen/Effekte, aber wenn ich ihn aktivieren versuche kommt immer die Fehlermeldung:
      defekter Header von Nyquist-Erweiterung
      Was mache ich falsch???
      Ich sehe selbst keinen Fehler in dem Programm...bin aber eher eine Laie.
      Ich arbeite mit einem Mac.Habe auch andere Plug-In Texte probiert die ich im internet gefunden hatte, aber nie ein Erfolg.

      Könnte jemand mir bitte helfen, ich bin langsam schon sehr verzweifelt. Vielen lieben Dank schon im Voraus!!! <3
      Gruß, Tuulia

      Hier der Plug-in Text:


      ;nyquist plug-in
      ;version 1
      ;type process
      ;name "Subliminal..."
      ;action "Subliminal..."
      ;control carrier "Carrier" real "Hz" 17500 14000 20000

      (setf *nyquist-srate* (/ *sound-srate* 2.0))

      (setf carrier (max 14000 (min carrier (- *nyquist-srate* 3000))))

      ;; We have two Nyquist frequencies, carrier/2 and *sound-srate*/2.
      ;; The CUTOFF is the maximum allowed frequency in the modulator.
      ;; It must not be greater than carrier/2, but also not greater than
      ;; the difference between the carrier and *sound-srate*/2, because
      ;; otherwise the modulated carrier aliases.

      (setf cutoff (min (/ carrier 2.0) (- *nyquist-srate* carrier)))

      (defun cut (function sound frequency)
      (dotimes (ignore 10 sound)
      (setf sound (funcall function sound frequency))))

      (defun subliminal (sound)
      (let ((result (mult 2 (cut #'lowpass8 (hp sound 80) cutoff)
      (hzosc carrier))))
      (cut #'highpass8 result carrier)))

      (if (< *sound-srate* 44100)
      ;; (princ "The track sample frequency must be minimum 44100Hz.")
      (princ "Die Samplefrequenz der Tonspur muss mindestens 44100Hz sein.")
      (multichan-expand #'subliminal s))