Silent Subliminals mit Audacity

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

    • Silent Subliminals mit Audacity

      Wikipedia: Subliminal (Psychologie) Karl J. Wargan: Was sind Subliminals?

      Nachdem ich schon mehrere dutzend mal erklärt habe dass mein Ultraschall Plugin im hörbaren Audiofrequenzbereich nur unbrauchbaren Müll, aber keine subliminalen Botschaften erzeugt, hat carlo_muenchen tatsächlich eine brauchbare Lösung gefunden.

      Originalidee siehe:

      * Silent subliminal function - Text ist in englisch
      * Audio mit Ultraschall - Text ist in deutsch

      Ich habe daraus ein Plugin gebastelt, mit dem Mono und Stereo-Tonspuren bearbeitet werden können:

      [m];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))
      [/m]


      Anleitung für Gäste: Text aus dem Kasten in einen Texteditor kopieren (Text mit der Maus markieren, Strg+c drücken, Texteditor aufmachen - Windows Notepad o.ä. - und mit Strg+v einfügen). Textdatei dann in Audacity/Plug-Ins als "subliminal.ny" speichern, wichtig: Dateiendung muss ".ny" sein, sonst erkennt Audacity den Text nicht als Plugin.

      Anleitung für Forumsmitglieder: Die "subliminal.ny" Datei von hier unten mit "Rechtsklick > Speichern unter" im Audacity "Plug-Ins" Ordner speichern.

      Beim nächsten Start von Audacity erscheint dann ein "Subliminal" Plugin in der unteren Hälfte des "Effekt" Menüs.
      Im Effekt-Fenster kann dann auch nochmal die Trägerfrequenz ("Carrier") eingestellt werden, Voreinstellung ist 17500Hz.

      Die beste Sprachübertragung ist bei einer "Carrier" Frequenz von "Tonspur-Samplefrequenz geteilt durch 2, geteilt durch Wurzel-aus-zwei".
      Das bedeutet bei 44100Hz zum Beispiel "44100Hz / 2 / 1.414... = 15592Hz".

      P.S.: Es gibt im internationalen Audacity Forum eine englische Diskussion zum gleichen Plugin unter: Silent Subliminals [solved?]
      [color=#707070][b]Deutsche Handbücher und Onlinehilfe[/b][/color] [color=#404040]findet ihr unter[/color] [url=http://www.audacity-forum.de/thread/477][b][color=#606060]"[/color]Bitte zuerst lesen[color=#606060]"[/color][/b][/url][color=#404040],[/color] [url=http://www.audacity-forum.de/forum/15][b][color=#606060]"[/color]Informationen und Fragen zur Webseite[color=#606060]"[/color][/b][/url] [color=#404040]und[/color] [url=http://www.audacity-forum.de/forum/17][b][color=#606060]"[/color]Allgemeine FAQ[color=#606060]"[/color][/b][/url]

      The post was edited 12 times, last by edgar-rft ().