Based on code by: carl
Signed-off-by: Michael Niedermayer <michaelni@gmx.at>