do not limit texture color
This commit is contained in:
parent
675b0ff155
commit
3bfa8671b0
|
@ -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
|
||||||
]
|
]
|
||||||
|
|
Loading…
Reference in a new issue