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

Add setNextPlotLimits

Browse Source
This commit is contained in:
Tristan Cacqueray 2021-02-21 23:09:07 +00:00
parent 9845f2042a
commit bb1bb02e1c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/DearImGui/Plot.hs
View File

@ -47,3 +47,12 @@ plotLine desc xs ys = liftIO $ do
withArray (map realToFrac xs) \xsPtr -> do withArray (map realToFrac xs) \xsPtr -> do
withArray (map realToFrac ys) \ysPtr -> do withArray (map realToFrac ys) \ysPtr -> do
[C.exp| void { PlotLine( $(char* descPtr), $(float *xsPtr), $(float *ysPtr), $(int size) ) } |] [C.exp| void { PlotLine( $(char* descPtr), $(float *xsPtr), $(float *ysPtr), $(int size) ) } |]
setNextPlotLimits :: MonadIO m => (Double, Double) -> (Double, Double) -> m ()
setNextPlotLimits (minX, maxX) (minY, maxY) =
liftIO [C.exp| void { SetNextPlotLimits( $(double minX'), $(double maxX'), $(double minY'), $(double maxY') ) } |]
where
minX' = realToFrac minX
maxX' = realToFrac maxX
minY' = realToFrac minY
maxY' = realToFrac maxY