Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2025-07-06 04:58:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implement ImGui::SliderFloat2,3,4 (#22)

Browse Source
This commit is contained in:
Ollie Charles
2021-01-28 23:02:04 +00:00
committed by GitHub
parent 63bb63a32e
commit f24a4b78ab
2 changed files with 78 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

@ -28,12 +28,12 @@ main = do
checked <- newIORef False
color <- newIORef $ ImVec3 1 0 0
slider <- newIORef 0.42
slider <- newIORef (0.42, 0, 0.314)
loop w checked color slider
openGL2Shutdown
loop :: Window -> IORef Bool -> IORef ImVec3 -> IORef Float -> IO ()
loop :: Window -> IORef Bool -> IORef ImVec3 -> IORef (Float, Float, Float) -> IO ()
loop w checked color slider = do
quit <- pollEvents
@ -74,7 +74,7 @@ loop w checked color slider = do
separator
sliderFloat "Slider" slider 0.0 1.0
sliderFloat3 "Slider" slider 0.0 1.0
progressBar 0.314 (Just "Pi")