gloss-examples 1.7.4.4 → 1.7.4.5

raw patch · 4 files changed

+5/−11 lines, 4 files

Files

• gloss-examples.cabal +1/−1
• raster/Fluid/src-repa/Main.hs +2/−8
• raster/Fluid/src-repa/Solve/Density.hs +1/−1
• raster/Fluid/src-repa/Stage/Advection.hs +1/−1

@@ -1,5 +1,5 @@ Name:                gloss-examples-Version:             1.7.4.4+Version:             1.7.4.5 License:             MIT License-file:        LICENSE Author:              Ben Lippmeier

@@ -60,11 +60,7 @@ runBatchMode :: Config -> Model -> IO () runBatchMode config model         | stepsPassed model     >= configMaxSteps config-        = do    -- outputBMP $ densityField model-                -- outputPPM (stepsPassed model) "density" 1 (densityField model)-                -- outputPPM (stepsPassed model) "velctyU" 10 (R.computeS $ R.map fst $ velocityField model)-                -- outputPPM (stepsPassed model) "velctyV" 10 (R.computeS $ R.map snd $ velocityField model)-                return ()+        =       return ()          | otherwise              = do    model'  <- stepFluid config model@@ -76,9 +72,7 @@ stepFluid config m@(Model df ds vf vs cl step cb)    | step                  >= configMaxSteps config    , configMaxSteps config >  0  -   = case configBatchMode config of-                True  -> return m-                False -> error "Finished simulation"+   = return m     | otherwise     = do performGC

@@ -17,7 +17,7 @@         -> VelocityField          -> IO DensityField -densitySteps config step df ds vf +densitySteps config _step df ds vf   = {-# SCC "Solve.densitySteps" #-}    do   df1     <- addSources   (configDelta config) (configDensity   config)                                  ds df

@@ -7,7 +7,7 @@ import Data.Array.Repa          as R import Data.Array.Repa.Unsafe   as R import Data.Vector.Unboxed      (Unbox)-import Text.Printf+  -- | Apply a velocity field to another field. --   Both fields must have the same extent.