aaronsw · August 10, 2012 21:58 · Aug 10, 2012
diff --git a/podspeed b/podspeed
@@ -0,0 +1,16 @@
+#!/usr/bin/osascript
+
+on run argv
+  tell application "iTunes"
+    pause
+    set my_track to location of current track
+    set my_seconds to player position
+  end tell
+
+  tell application "QuickTime Player"
+    open my_track
+    set my_movie to first document
+    set current time of my_movie to my_seconds
+    set rate of my_movie to (item 1 of argv) -- starts playing
+  end tell
+end run
diff --git a/qtspeed b/qtspeed
@@ -0,0 +1,7 @@
+#!/usr/bin/osascript
+
+on run argv
+  tell application "QuickTime Player"
+    set rate of first document to (item 1 of argv) -- starts playing
+  end tell
+end run
diff --git a/unpodspeed b/unpodspeed
@@ -0,0 +1,13 @@
+#!/usr/bin/osascript
+
+on run argv
+  tell application "QuickTime Player"
+    pause first document
+    set my_seconds to current time of first document
+  end tell
+
+  tell application "iTunes"
+    set player position to my_seconds
+  end tell
+
+end run