More camera refactor

2022-10-28 21:22:44 +01:00
parent 2e7cd0aec2
commit 32744d7cb3
5 changed files with 18 additions and 13 deletions
@@ -7,11 +7,11 @@ import Picture
 import Dodge.Data.Universe
 import Geometry

-drawLabCrossCol :: Configuration -> World -> Color -> Point2 -> Picture
+drawLabCrossCol :: Configuration -> CamPos -> Color -> Point2 -> Picture
 drawLabCrossCol cfig w col p = drawCrossCol col p
    <> drawPointLabel cfig w p

-drawPointLabel :: Configuration -> World -> Point2 -> Picture 
+drawPointLabel :: Configuration -> CamPos -> Point2 -> Picture 
 drawPointLabel cfig w p =
    setLayer FixedCoordLayer . winScale cfig
        . uncurryV translate p'