Code pulled from Kai Borre's website (http://kom.aau.dk/~borre/) - View it on GitHub