justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Start to create debug datatypes

Browse Source
This commit is contained in:
justin
2023-03-29 11:35:39 +01:00
parent 2c13f52ce8
commit 5b5ed519dd
5 changed files with 20 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Picture/Base.hs
+1 -1
View File
@@ -201,7 +201,7 @@ stackText = mconcat . zipWith (\y s -> translate 0 y $ centerText s) [0, 100 ..]
text :: String -> Picture
{-# INLINE text #-}
text = translate (-50) (-100) . drawText (-10)
text = translate (-50) (-100) . drawText (10)
drawText :: Float -> String -> [Verx]
drawText gap = map f . stringToList gap