Add more ascii characters

Will also add more characters from code page 437

src/Picture/Base.hs

@@ -323,7 +323,7 @@ charToTuple xoff c
     f x y = (V3 (xoff + x * 100) (y * 200) 0, white, V3 x (1 - y) charnum)
     -- textures in opengl have origins at the lower left, my char array has its
     -- origin at the upper left
-    charnum = fromIntegral (fromEnum c) - 32
+    charnum = fromIntegral (fromEnum c) -- - 32
 
 --charToTuple' :: Float -> Char -> [(Point3, Point4, Point3)]
 --{-# INLINE charToTuple' #-}