Code/AudioClip Recorder

I was inspired by a thread in the forum about the cross fader script. I never use it, mostly because I do not have any free spots to allow for intermission music. But what I DO do is record little snippets of people singing, and play them back after they finish, while I am waiting for the next singer to fight their way to the mic. I have to time the recording to give me a buffer so that I can use the mixer to fade them in and out, and sometimes it can get a bit rough, with sudden, loud beginnings or abrupt endings. So I wrote this pair of scripts to automate the process. The first is a simple script to tell QuickTime to record the current input channel. You can set it to internal mic or (preferably) the line in (you'll need to run a line from your mixer to the microphone input of your mac. Sorry, I don't do Windows scripting. Someone else will have to take care of that, once the Windows version comes out!) You have the option after the recording is done to save the recording to disk if you want a permanent copy. This is not necessary, even for the next part.

The second script then automates the playback. Activate the script and it will fade out the current song (usually at the end) in kJams, and fade in the most recent recording. You can either let it play out, or you can stop playback early, in either case, it will fade back out, reset the volume in kJams, close the audio recording window, and bring kJams to the frontmost application. (Note: There are still some issues, namely the fact that QT currently does not remove the item after it is recorded, but instead saves it as "audio recording <x>.mov" in the Movies folder. I have tried to remove this file in the playback script, but have yet to figure it out, so the option to save is almost redundant. Even so, having that option allows you to name the file, and just go in and delete all the "audio recording <x>.mov" files without previewing them. I hope to fix this shortly.

Here is the code. Hope someone finds this useful.

Audio Clip Recorder:

with timeout of 600 seconds
	tell application "QuickTime Player"
		activate
		new audio recording
		start document 1
		set question to display dialog "Recording started" buttons {"Stop recording", "Save Recording"}
		set answer to button returned of question
		stop document 1
		if answer is equal to "Save Recording" then save document 1
	end tell
end timeout

Audio Clip Crossfading Playback:

set kSpeakers to 0
--sets how long in seconds between each step in the fade 
set fadeDelay to 0.1
set kScriptCommand_PLAY_PAUSE to 1
set kScriptCommand_STOP to 2
--Get current audio volume from kJams
tell application "kJams Pro" to set kJamsMaxVolume to get volume kSpeakers
--set QuickTime Volume maximum. Change to whatever value you want (0-1)
set QuickTimePlayerMaxVolume to 1
-- Number of steps in fade
set fadeSteps to 20
--sets how much in percentage the volume is decreased per step
set kJFadeStep to kJamsMaxVolume / fadeSteps
set QTfadeStep to QuickTimePlayerMaxVolume / fadeSteps
--this is the minimum volume setting 
set MinVolume to 0

tell application "QuickTime Player"
	set QuickTimePlayerVolume to MinVolume
	set kJamsVolume to kJamsMaxVolume
	tell application "kJams Pro" to set volume kSpeakers level kJamsMaxVolume
	set the audio volume of document 1 to MinVolume
	play document 1
	repeat until (kJamsVolume ≤ 0 and audio volume of document 1 ≥ QuickTimePlayerMaxVolume)
		if QuickTimePlayerVolume is less than QuickTimePlayerMaxVolume then set QuickTimePlayerVolume to (QuickTimePlayerVolume + QTfadeStep)
		set kJamsVolume to (kJamsVolume - kJFadeStep)
		set the audio volume of document 1 to QuickTimePlayerVolume
		tell application "kJams Pro" to set volume kSpeakers level kJamsVolume
		delay fadeDelay
	end repeat
	
	set isPlaying to playing of document 1
	set secondsToFade to fadeSteps * fadeDelay
	set endingTime to (duration of document 1) - 2 * secondsToFade - 10 * fadeDelay
	set question to display dialog "Stop Playback?" buttons {"Stop Playback"} default button 1 giving up after endingTime
	repeat while isPlaying
		repeat until (QuickTimePlayerVolume ≤ 0)
			set QuickTimePlayerVolume to (QuickTimePlayerVolume - QTfadeStep)
			set the audio volume of document 1 to QuickTimePlayerVolume
			delay fadeDelay
		end repeat
		stop document 1
		set isPlaying to playing of document 1
	end repeat
	close document 1
	tell application "kJams Pro"
		docommand kScriptCommand_STOP
		set volume kSpeakers level kJamsMaxVolume
		activate
	end tell
end tell