From 3bfa8671b048a4c4b63889108fafb19fd70feb06 Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 23 Dec 2020 17:16:30 +0100 Subject: [PATCH] do not limit texture color --- src/Types/Player.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 ]