Rename protypes/basic to default

2021-03-26 13:33:55 +01:00
parent c4ce354382
commit 420cf7fc4b
11 changed files with 125 additions and 122 deletions
@@ -25,7 +25,7 @@ updateAimTime w

 moveCamera :: World -> World
 moveCamera w = w & cameraPos .~ idealPos
-                 & cameraCenter .~ sightFrom
+                 & cameraViewFrom .~ sightFrom
    where aimRangeFactor | _cameraZoom w == 0 = 0
                         | otherwise = (fromMaybe 0 $ yourItem w ^? itAimingRange) / _cameraZoom w
          aimTimeFactor = fromIntegral (w ^. cameraAimTime) / 10 
@@ -121,7 +121,7 @@ zoomCamOut w | SDL.ScancodeK `S.member` _keys w
 autoZoomCam :: World -> World
 autoZoomCam w = over cameraZoom changeZoom w
    where maxViewDistance = 800
-          camPos = _cameraCenter w
+          camPos = _cameraViewFrom w
          camRot = _cameraRot w
          wallZoom = min (halfWidth w / (horizontalMax+50) ) 
                                  (halfHeight w / (verticalMax+50) )