Adapted from the applet by Arellano. http://www.geogebratube.org/material/show/id/13795