justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix remote rocket scope

Browse Source
This commit is contained in:
justin
2022-06-04 22:14:21 +01:00
parent 991aa17b33
commit 512bc4c1ab
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update/Camera.hs
+5 -1
View File
@@ -17,6 +17,7 @@ import Dodge.GameRoom
import Control.Lens import Control.Lens
--import Control.Applicative --import Control.Applicative
import Data.Maybe import Data.Maybe
import Control.Monad
import qualified Data.Set as S import qualified Data.Set as S
import qualified Data.IntMap.Strict as IM import qualified Data.IntMap.Strict as IM
import qualified SDL import qualified SDL
@@ -39,7 +40,10 @@ moveZoomCamera cfig w = w
& defaultZoom .~ newDefaultZoom & defaultZoom .~ newDefaultZoom
& itemZoom .~ newItemZoom & itemZoom .~ newItemZoom
where where
newvf = _crPos (you w) +.+ fromMaybe (V2 0 0) (yourItem w ^? _Just . itScope . scopePos) newvf = _crPos (you w) +.+ fromMaybe (V2 0 0) mscopeoffset
mscopeoffset = do
guard (SDL.ButtonRight `S.member` _mouseButtons w)
yourItem w ^? _Just . itScope . scopePos
newcen = newvf +.+ offset newcen = newvf +.+ offset
offset = rotateV (_cameraRot w) $ ((newzoom - newDefaultZoom)/(newDefaultZoom*newzoom)) *.* _mousePos w offset = rotateV (_cameraRot w) $ ((newzoom - newDefaultZoom)/(newDefaultZoom*newzoom)) *.* _mousePos w
--newzoom = changeZoom (_cameraZoom w) idealZoom' --newzoom = changeZoom (_cameraZoom w) idealZoom'