iTunes PlayPause with Fading.applescript

property resolution : 10 (* Increase for smoother fades. Default: 10 *)
property delayIncr : 0.2 (* Decrease for faster fades. Default: 0.2 *)

tell application "iTunes"
    set originalVol to sound volume
    set volIncr to originalVol div resolution

    if player state is not playing then
        set sound volume to 0
        play

        -- Fade in
        repeat while (sound volume ≤ (originalVol - volIncr))
            set sound volume to (sound volume + volIncr)
            delay delayIncr
        end repeat

    else
        -- Fade out
        repeat while (sound volume > 0)
            set sound volume to (sound volume - volIncr)
            delay delayIncr
        end repeat

        pause

    end if

    set sound volume to originalVol

end tell