Work on distortion shader

2025-11-15 23:17:44 +00:00
parent d436b853eb
commit 1205823ddb
12 changed files with 108 additions and 119 deletions
@@ -32,7 +32,8 @@ import Data.Foldable
 import Data.Monoid

 testStringInit :: Universe -> [String]
-testStringInit u =  [ show $ fmap (
+testStringInit u =  [ show (u ^. uvWorld . wCam . camRot)
+    ,show $ fmap (
     worldPosToScreen (u ^. uvWorld . wCam) )
    $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crPos . _xy
 ]