do not limit texture color

This commit is contained in:
nek0 2020-12-23 17:16:30 +01:00
parent 675b0ff155
commit 3bfa8671b0

View file

@ -30,22 +30,22 @@ instance Drawable Pituicat where
, V.fromList , V.fromList
[ newVertex [ newVertex
(V3 (realToFrac x - 25) (realToFrac y - 25) 0) (V3 (realToFrac x - 25) (realToFrac y - 25) 0)
(V4 0 1 0 1) (V4 1 1 1 1)
(V2 0 (1 - 50 / 1024)) (V2 0 (1 - 50 / 1024))
1 1
, newVertex , newVertex
(V3 (realToFrac x + 25) (realToFrac y - 25) 0) (V3 (realToFrac x + 25) (realToFrac y - 25) 0)
(V4 0 1 0 1) (V4 1 1 1 1)
(V2 (50 / 1024) (1 - 50 / 1024)) (V2 (50 / 1024) (1 - 50 / 1024))
1 1
, newVertex , newVertex
(V3 (realToFrac x + 25) (realToFrac y + 25) 0) (V3 (realToFrac x + 25) (realToFrac y + 25) 0)
(V4 0 1 0 1) (V4 1 1 1 1)
(V2 (50 / 1024) 1) (V2 (50 / 1024) 1)
1 1
, newVertex , newVertex
(V3 (realToFrac x - 25) (realToFrac y + 25) 0) (V3 (realToFrac x - 25) (realToFrac y + 25) 0)
(V4 0 1 0 1) (V4 1 1 1 1)
(V2 0 1) (V2 0 1)
1 1
] ]