Changed Graphics.hs to do more things in parts rather than all in one function.