diff --git a/src/Types/Player.hs b/src/Types/Player.hs index d696007..db18844 100644 --- a/src/Types/Player.hs +++ b/src/Types/Player.hs @@ -30,22 +30,22 @@ instance Drawable Pituicat where , V.fromList [ newVertex (V3 (realToFrac x - 25) (realToFrac y - 25) 0) - (V4 0 1 0 1) + (V4 1 1 1 1) (V2 0 (1 - 50 / 1024)) 1 , newVertex (V3 (realToFrac x + 25) (realToFrac y - 25) 0) - (V4 0 1 0 1) + (V4 1 1 1 1) (V2 (50 / 1024) (1 - 50 / 1024)) 1 , newVertex (V3 (realToFrac x + 25) (realToFrac y + 25) 0) - (V4 0 1 0 1) + (V4 1 1 1 1) (V2 (50 / 1024) 1) 1 , newVertex (V3 (realToFrac x - 25) (realToFrac y + 25) 0) - (V4 0 1 0 1) + (V4 1 1 1 1) (V2 0 1) 1 ]