Poke word8 colors for shapes

2023-04-13 02:30:23 +01:00
parent 5d4234a8f4
commit 3c43caee9c
6 changed files with 33 additions and 15 deletions
@@ -141,5 +141,5 @@ numColor _ = toV4 (1, 1, 1, 1)
 light4 :: Color -> Color
 light4 = light . light . light . light

-toColor256 :: Color -> Color256
-toColor256 = over each floor . (255 *) . normalizeColor
+toColor8 :: Color -> Color8
+toColor8 = over each floor . (255 *) . normalizeColor