Try to add compute shaders

2023-04-11 14:55:57 +01:00
parent 69a76dbf93
commit d79216555b
21 changed files with 457 additions and 246 deletions
@@ -201,7 +201,8 @@ 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)
+text = translate (-50) (-100) . drawText (-10)

 drawText :: Float -> String -> [Verx]
 drawText gap = map f . stringToList gap