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
@@ -19,6 +19,7 @@ import Dodge.Data.Universe
 testStringInit :: Universe -> [String]
 testStringInit u = [show $ u ^. uvWorld . input . smoothScrollAmount
    , show $ getSmoothScrollValue (u ^. uvWorld . input)
+    , show (u ^. uvConfig . windowX) ++ " " ++ show (u ^. uvConfig . windowY)
    ]
 --    [show $ length $ lightsToRender (u ^. uvConfig) (u ^. uvWorld . wCam) 
 --        (u ^. uvWorld . cWorld . lWorld)