diff --git a/src/Isometry/View.hs b/src/Isometry/View.hs index 8f9fa705..6f1a6224 100644 --- a/src/Isometry/View.hs +++ b/src/Isometry/View.hs @@ -14,8 +14,8 @@ import Control.Carrier.Reader import Control.Effect.Lift import Control.Lens ((&), (.~)) import Data.Functor.I -import Geometry.Transform import GL.Shader.DSL (ClipUnits(..)) +import Geometry.Transform import Isometry.World import Linear.Exts import UI.Window as Window @@ -46,8 +46,7 @@ withView !angle m = do <<< mkScale (pure scale) <<< mkTranslation (negated focus) <<< mkRotation - ( axisAngle (unit _x) (pi/4) - * axisAngle (unit _y) angle) + ( axisAngle (unit _y) angle) <<< mkScale (pure zoom) runReader View{ transform } m