NyquistPrompt:Command=";type analyze\n(setf key 'loudness-measurement-key)\n(let ((peak (get '*selection* 'peak)))\n  (when (arrayp peak)\n    (setf peak (max (aref peak 0) (aref peak 1))))\n  (setf peak (linear-to-db peak))\n  (cond ((< peak -30)\n    (AUD-DO \"Amplify:Ratio=31.622776\")))\n  (AUD-DO \"LoudnessNormalization:DualMono=0 LUFSLevel=-35 NormalizeTo=0 RMSLevel=-23 StereoIndependent=0\")\n  (putprop '*scratch* peak key))\n\"\"" Parameters="" Version="4"
NyquistPrompt:Command=";type analyze\n(setf key 'loudness-measurement-key)\n(let ((original-peak (get '*scratch* key))\n      (new-peak (get '*selection* 'peak)))\n  (when (arrayp new-peak)\n    (setf new-peak (max (aref new-peak 0) (aref new-peak 1))))\n  (setf new-peak (linear-to-db new-peak))\n  (setf lufs (- (- original-peak new-peak) 35))\n  (remprop '*scratch* key)\n  (format nil \"Loudness = ~a LUFS~%~\n          Peak = ~a dB\" lufs original-peak))" Parameters=""
Undo: