Add file, move buffer swapping into doDrawing

2023-03-02 12:48:47 +00:00
parent ed8efd21d9
commit 8456f9e02e
6 changed files with 143 additions and 63 deletions
@@ -13,6 +13,7 @@ module Dodge.Data.Universe (
    module Loop.Data,
 ) where

+import GHC.Word (Word32)
 import Dodge.Data.SelectionList
 import Control.Lens
 --import qualified Data.Map.Strict as M
@@ -34,6 +35,8 @@ data Universe = Universe
    , _uvTestString :: Universe -> [String]
    , _uvCanContinue :: Bool
    , _uvMSeed :: Maybe Int
+    , _uvLastFrameTicks :: Word32
+    , _uvFrameTicks :: Word32
    }

 data SideEffect