aparrish

derickfay

tell application "Keynote"
	tell document 1
		set theSlides to slides
		repeat with s in the slides
			tell presenter notes of s
				set font to "Helvetica"
				set size to 24
			end tell
		end repeat
	end tell

gist:7200880

/*  passable motion blur effect using frame blending
 *  basically move your 'draw()' into 'sample()', time runs from 0 to 1
 *  by dave
 *  http://beesandbombs.tumblr.com
 */

int samplesPerFrame = 32;  // more is better but slower. 32 is enough probably
int numFrames = 48;        
float shutterAngle = 2.0;  // this should be between 0 and 1 realistically. exaggerated for effect here
int[][] result;