NyquistPrompt:Command=";type analyze\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 'loudness-measurement-peak))\n\"\"" Parameters="" Version="4"
NyquistPrompt:Command=";type analyze\n(let ((original-peak (get '*scratch* 'loudness-measurement-peak))\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  (putprop '*scratch* lufs 'loudness-measurement-lufs))\n\"\"" Parameters="" Version="4"
Undo:
NyquistPrompt:Command=";type analyze\n(let ((original-peak (get '*scratch* 'loudness-measurement-peak))\n      (lufs (get '*scratch* 'loudness-measurement-lufs)))\n  (remprop '*scratch* 'loudness-measurement-peak)\n  (remprop '*scratch* 'loudness-measurement-lufs)\n  (format nil \"Loudness = ~a LUFS~%~\n          Peak = ~a dB\" lufs original-peak))" Parameters="" Version="4"