Drezil/dear-implot.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-implot.hs.git synced 2024-11-22 04:27:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

added withPlot

Browse Source
This commit is contained in:
Nicole Dresselhaus 2022-07-21 00:42:39 +02:00
parent ad5fdc1e64
commit 49539fc1ba
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/DearImGui/Plot.hs
View File

@ -27,6 +27,9 @@ module DearImGui.Plot
-- * Demo so you can play with all features -- * Demo so you can play with all features
, Raw.Plot.showPlotDemoWindow , Raw.Plot.showPlotDemoWindow
-- * Plot Creation
, withPlot
-- * TEST -- * TEST
, plotLine , plotLine
) )
@ -80,6 +83,11 @@ plotLine label xs ys = liftIO $ do
withArray (map realToFrac ys) \ysPtr -> do withArray (map realToFrac ys) \ysPtr -> do
Raw.Plot.plotLine labelPtr xsPtr ysPtr size Raw.Plot.plotLine labelPtr xsPtr ysPtr size
withPlot :: (MonadIO m) => String -> m () -> m ()
withPlot p a = Raw.Plot.beginPlot p >>= \case
False -> return ()
True -> a >> Raw.Plot.endPlot
-- setNextPlotLimits :: MonadIO m => (Double, Double) -> (Double, Double) -> m () -- setNextPlotLimits :: MonadIO m => (Double, Double) -> (Double, Double) -> m ()
-- setNextPlotLimits (minX, maxX) (minY, maxY) = liftIO $ do -- setNextPlotLimits (minX, maxX) (minY, maxY) = liftIO $ do
-- Raw.Plot.setNextPlotLimits (minX', maxX') (minY', maxY') -- Raw.Plot.setNextPlotLimits (minX', maxX') (minY', maxY')