Haskell now draws verticies with four components