nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

incorporate in example02

Browse source
This commit is contained in:
nek0 2017-03-21 12:12:46 +01:00
parent 85c6288f50
commit efbfe14fe8
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
examples/example02.hs
View file

@ -126,8 +126,9 @@ handle (SDL.MouseMotionEvent dat) = do
ud <- getAffection
nmap <- return $ M.adjust
(updateProperty ("y", G.PropertyDouble (fromIntegral (y - 10))) .
updateProperty ("x", G.PropertyDouble (fromIntegral (x - 10)))
(updateProperties $ props $ do
prop "x" (fromIntegral (x - 10) :: Double)
prop "y" (fromIntegral (y - 10) :: Double)
)
"rect"
(actors ud)