Is there anything like Winsplit Revolution for Mac OS X?

tell application "System Events"
  set _everyProcess to every process
  repeat with n from 1 to count of _everyProcess
    set _frontMost to frontmost of item n of _everyProcess
    if _frontMost is true then set _frontMostApp to process n
  end repeat

  set _windowOne to window 1 of _frontMostApp
  set position of _windowOne to {5, 0}
  set size of _windowOne to {1150, 735}
end tell